|===========================================================================|
| Director Menus for CDs/CDFS
| (C) Philip Ludlam, 2002
| With thanks to Jon Wright, iX Software
|===========================================================================|

| As Obey/Director doesn't support a 'Goto' command in Obey we have to do the
| following bodge in there is no CDFS installed.

Set Director$CDFS Yes
RMEnsure CDFS 0.00 Set Director$CDFS No
If "<Director$CDFS>" = "No" Then MenuProcessing Off

|CDFS Filter

If "<Director$CDFS>" = "Yes" Then DirectorFilter "CDFS" "CDFS Filer" "Dynamic:/Director:Menus.Files.CDFS" -icon IconBar -menu

If "<Director$CDFS>" = "Yes" Then Obey Director:Apps.!CDVolume.!Init

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

Menu "CD Audio"
	Option "Play Track" -sub "Dynamic:/Director:Menus.System.CDLib -menu PlayTracks"
	Option "Control Panel" -sub "Dynamic:/Director:menus.System.CDLib -menu ControlPanel"
	Option "Volume" -sub "Window:CDVolume"
EndMenu

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

Menu Configure CDFSConfig
	Option "Buffers" -sub "CDFSConBuf"
	Option "Drives" -sub "CDFSConDri"
EndMenu

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

Menu "Buffer" CDFSConBuf
	Option "None"
		Command "Configure CDROMBuffers 0k"
	Option "16k"
		Command "Configure CDROMBuffers 16k"
	Option "32k"
		Command "Configure CDROMBuffers 32k"
	Option "64k"
		Command "Configure CDROMBuffers 64k"
	Option "128k"
		Command "Configure CDROMBuffers 128k"
	Option "256k"
		Command "Configure CDROMBuffers 256k"
	Option "512k"
		Command "Configure CDROMBuffers 512k"
EndMenu

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

| Calls CDFS_GetNumberOfDrives to find current configuration settings
If "<Director$CDFS>" = "Yes" Then SWI CDFS_GetNumberOfDrives TO DirectorCDDrives

Menu "Drive"  CDFSConDri
	Option "<DirectorCDDrives>" -len 2 -allow "0-9"
		Command "Configure CDROMDrives <MenuText>"
EndMenu

UnSet DirectorCDDrives
UnSet Director$CDFS
MenuProcessing On

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