Set Director$Menu SockSub
Set Director$Task <MenuText>

Menu "" <Director$Menu> -temp
  Option "Quit"
    Command /Director:Menus.System.TasksCmd -app "<Director$Task>" -handle %0 -quitapp
Endmenu
