|===========================================================================|
| Additional menu definitions for Director
| which aren't happy being DirectorObey-ed.
| (C) The RISC OS Director Developers 2002
|===========================================================================|

Menu "Backdrop"
	Run Director:Menus.Files.TreePickSM Sprite <Director$Backdrops> small_dir "Dynamic:/Director:Menus.Files.BackdropSb %%%%%%%%0"
	If "<Choices$Path>" <> "" Then IfThereIs Choices:Boot.Tasks.Configure "Option ""Default"" -sprite small_ff9"
	If "<Choices$Path>" <> "" Then IfThereIs Choices:Boot.Tasks.Configure "Command Filer_Run Choices:Boot.Tasks.Configure"
	X Dash
	Option "Current" -sub BackdropCur
	Option "Remove"
		Command Backdrop -remove
EndMenu

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

Menu "Icons"
	Set Director$AddSprites Yes
	RMEnsure AddSprites 0.00 Set Director$AddSprites No
	If "<Director$AddSprites>" = "Yes" Then Run Director:Menus.Files.TreePickSM Sprite <Director$Icons> small_dir "Dynamic:/Director:Menus.Files.IconsSub %%%%%%%%0"
	If "<Director$AddSprites>" = "No" Then Run Director:Menus.Files.TreePickSM Sprite <Director$Icons> small_dir "NewIcons %%%%%%%%0"
	If "<Director$AddSprites>" = "Yes" Then Option "Default" -sprite small_ff9 -sub "Dynamic:/Director:Menus.Files.IconsSub Resources:$.Resources.Wimp.Sprites"
	If "<Director$AddSprites>" = "No" Then Option "Default" -sprite small_ff9
		If "<Director$AddSprites>" = "No" Then Command NewIcons Resources:$.Resources.Wimp.Sprites
	X Dash
	RMEnsure AddSprites 0.00 MenuProcessing Off
	Option "AddSprites" -sub *
	RMEnsure AddSprites 0.00 MenuProcessing On
	Option "Save icons" -sub SaveIcons
	Unset Director$AddSprites
EndMenu

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

Menu "Tools"
	Run Director:Menus.Files.TreePickSM Sprite <Director$Tools> small_dir "NewTools %%%%%%%%0"
	Option "Default (3D)" -sprite small_ff9
		If "<BootResources$Path>" <> "" Then IfThereIs BootResources:Wimp.Tools "Command NewTools" BootResources:Wimp.Tools Resources:$.Resources.Wimp.Tools
		If "<BootResources$Path>" = "" Then Command NewTools Resources:$.Resources.Wimp.Tools
	If "<BootResources$Path>" <> "" Then IfThereIs BootResources:Configure.2DTools "Option ""Default (2D)"" -sprite small_ff9"
		If "<BootResources$Path>" <> "" Then IfThereIs BootResources:Configure.2DTools "Command NewTools BootResources:Configure.2DTools"
EndMenu

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

Menu "Palettes"
	Run Director:Menus.Files.TreePickSM Palette <Director$Palettes> small_dir "WimpPalette %%%%%%%%0"
EndMenu

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