Set Director$Menu SockSub
SetEval a menutext LEFT 3
Menu "" <Director$Menu> -temp
  Option "Close"
    Command SWI "XSocket_Close" <a>
Endmenu
