home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Popupmenushell < prev    next >
Text File  |  1993-04-28  |  758b  |  33 lines
  1. PopupMenuShell()
  2. {
  3.     cps POP PopupMenu popupWindowShell $PANE 
  4.  
  5.     acb $POP popdownCallback "dw $POP"
  6.  
  7.     cmw POPCAP PopupMenu caption $POP_UCA \\\n
  8.         font:OlDefaultBoldFont \\\n
  9.         label:"PopupMenu:"
  10.     cmw TEXT text staticText $POPCAP \\\n
  11.         string:"Press MenuButton for menu"
  12.  
  13.     cps PMS PopupMenu popupMenuShell $POP \\\n
  14.         ancestorSensitive:true \\\n
  15.         title:"PopupMenu" 
  16.  
  17.     cmw SAVE Save... oblongButton $PMS \\\n
  18.         buttonType:$BUTTON
  19.     cmw OPEN Open... oblongButton $PMS \\\n
  20.         buttonType:$BUTTON
  21.     cmw PROP Properties... oblongButton $PMS \\\n
  22.         buttonType:$BUTTON
  23.     cmw EXIT Exit oblongButton $PMS \\\n
  24.         buttonType:$BUTTON \\\n
  25.         select:"pd $PMS"
  26.     addbuttons $POP_LCA \\\n
  27.         OK    " "
  28.  
  29.     orh $POP "PopupMenuShell Source" -f `pwd`/Popupmenushell
  30.  
  31.     pu $POP GrabNone
  32. }
  33.