home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / MenuShell < prev    next >
Encoding:
Text File  |  1993-04-28  |  748 b   |  31 lines
  1. # Create menuShell from button pressed by user
  2. MenuShell()
  3. {
  4.     cps POPUP "WkshTree:Menu" popupWindowShell $PANE \\\n
  5.         maxHeight:100 maxWidth:200
  6.  
  7.     acb $POPUP popdownCallback "PopdownCB $POPUP"
  8.  
  9.     cps MENUSHELLPOP "Menu" menuShell $POPUP_UCA \\\n
  10.         pushpin:out
  11.     cmw TMP ca controlArea $MENUSHELLPOP_MP \\\n
  12.         layoutType:fixedcols measure:1
  13.  
  14.     cmw SAVE Save... oblongButton $TMP \\\n
  15.         buttonType:$BUTTON
  16.     cmw OPEN Open... oblongButton $TMP \\\n
  17.         buttonType:$BUTTON
  18.     cmw PROP Properties... oblongButton $TMP \\\n
  19.         buttonType:$BUTTON
  20.     cmw EXIT Exit... oblongButton $TMP \\\n
  21.         buttonType:$BUTTON
  22.  
  23.     cmw STRING text staticText $POPUP_UCA \\\n
  24.         string:"MenuShell: Press MenuButton for menu"
  25.  
  26.     addbuttons $POPUP_LCA \\\n
  27.          Ok    " "
  28.  
  29.     pu $POPUP GrabNone
  30. }
  31.