|===========================================================================|
| Setup Bin for Director
| (C) Philip Ludlam, 2001
|===========================================================================|


|---------------------------------------------------------------------------|
|
| Set the keyboard shortcut for Director's Bin menu

Set Director$Key$Bin ^B

|---------------------------------------------------------------------------|
|
| Set up the Pinboard menu

Menu "Pinboard" "Pinboard"
	Option "Paths" -sub *
	Option "Director" -sub *
		Command Filer_OpenDir <Director$Dir>
Dash
	Option "Desktop" -sub *
	Option "System" -sub *
	Option "Filing" -sub *
Dash
	Option "ROM" -sub "Path:Resources:$"
		Command Filer_Run Resources:$
	Option "Apps" -sub "Path:|<Root$Dir>.Apps"
		Command DirectorDo Filer_Run |<Root$Dir>.Apps
Dash
	if "<Director$Key$Bin>" <> "" then Option Bin -sub Bin -key <Director$Key$Bin> -sprite smbin else Option Bin -sub Bin -sprite smbin
	if "<Director$Key$Notes>" <> "" then Option Notes -sub "Dynamic:/Director:Menus.IntNotes.Show" -sprite smnotes -key <Director$Key$Notes> else Option Notes -sub "Dynamic:/Director:Menus.IntNotes.Show" -sprite smnotes
Dash
	if "<Director$OSVersion>" >= "400" then Option "Pinboard" -sub "OldMenu:" -fg <Director$Blue>
	if "<Director$OSVersion>" < "400" then Option "Pinboard" -sub "OldMenu:" -bg <Director$Grey1>
EndMenu

|---------------------------------------------------------------------------|
|
| Set up the Scrap menu

MenuProcessing Off
Menu "Scrap"
	Option "List all" -sub "Dynamic:/Director:Menus.Files.ExplodeDir -dir |||<Wimp$ScrapDir> -title Scrap -sub Director:Menus.Files.ScrapDir -add Purge -do Director:Menus.Files.ScrapPurge"
	Option "Browse" -path |<Wimp$ScrapDir> -up
	Option "Bin scrap"
		Command "/Director:Menus.BinPL.BinInit -all"
EndMenu
MenuProcessing On

|---------------------------------------------------------------------------|
|
| Set up the Bin menu

Menu "Bin"
	Option "Initiate bin"
		Command "/Director:Menus.BinPL.BinInit"
	Option "Configure"
		Command "/Director:Menus.BinPL.!BinConfig"
	Option "Disc space"
		Command /Director:Menus.BinPL.BinAction 5 *
	Option "Count bin" -sub "Dynamic:/Director:Menus.BinPL.CountBin"
	Option "Open bin" -sub "Dynamic:/Director:Menus.BinPL.OpenBin"
	Option "Empty bin" -sub "Dynamic:/Director:Menus.BinPL.EmptyBin"
	Option "Find object" -sub BinFind
EndMenu

|---------------------------------------------------------------------------|
|
| Set up the BinFind menu

Menu "Find discarded object..." "BinFind"
	Option "" -len 32
		Command /Director:Menus.BinPL.BinAction 9 <MenuText>
EndMenu

|---------------------------------------------------------------------------|
|
| Initiate Bin

Filer_Run Director:Menus.BinPL.BinInit

|---------------------------------------------------------------------------|
