home *** CD-ROM | disk | FTP | other *** search
- PopupMenuShell()
- {
- cps POP PopupMenu popupWindowShell $PANE
-
- acb $POP popdownCallback "dw $POP"
-
- cmw POPCAP PopupMenu caption $POP_UCA \\\n
- font:OlDefaultBoldFont \\\n
- label:"PopupMenu:"
- cmw TEXT text staticText $POPCAP \\\n
- string:"Press MenuButton for menu"
-
- cps PMS PopupMenu popupMenuShell $POP \\\n
- ancestorSensitive:true \\\n
- title:"PopupMenu"
-
- cmw SAVE Save... oblongButton $PMS \\\n
- buttonType:$BUTTON
- cmw OPEN Open... oblongButton $PMS \\\n
- buttonType:$BUTTON
- cmw PROP Properties... oblongButton $PMS \\\n
- buttonType:$BUTTON
- cmw EXIT Exit oblongButton $PMS \\\n
- buttonType:$BUTTON \\\n
- select:"pd $PMS"
- addbuttons $POP_LCA \\\n
- OK " "
-
- orh $POP "PopupMenuShell Source" -f `pwd`/Popupmenushell
-
- pu $POP GrabNone
- }
-