Set Director$Menu FileSub

SetEval a menutext LEFT 3
SetEval b "<menutext>" RIGHT ((LEN "<menutext>")-3)

DirectorParsePath <b>

Menu "" <Director$Menu> -temp
	Option "View"
		Command Filer_OpenDir <Director$CurrentDir>
	Option "Close"
		Command SWI "XOS_Find" 0 <a>
Endmenu
