home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Abbrevbutton next >
Encoding:
Text File  |  1993-04-28  |  1.1 KB  |  48 lines
  1. Abbrevbutton()
  2. {
  3.     MENUITEMS="{Restart}, {Cancel}, {Abort}"
  4.  
  5.     cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  6.         title:"WkshClass: AbbreviatedMenuButton"
  7.  
  8.     acb $POPUP popdownCallback "pd $POPUP"
  9.  
  10.     cps WINDOW popup popupWindowShell $POPUP \\\n
  11.         title:"AbbreviatedButton Window"
  12.  
  13.     cmw CAPTION caption caption $POPUP_UCA \\\n
  14.         label:"AbbreviatedButton (Window):" \\\n
  15.         font:OlDefaultBoldFont
  16.  
  17.     cmw ABW abbreviatedButton abbreviatedButton $CAPTION \\\n
  18.         buttonType:windowBtn \\\n
  19.         popupWidget:$WINDOW
  20.  
  21.     cps MENU menu popupMenuShell $POPUP 
  22.  
  23.     cmw BUTTONS buttons flatButtons $MENU \\\n
  24.         numItems:3 \\\n
  25.         numItemFields:1 \\\n
  26.         itemFields:'{label}' \\\n
  27.         items:"${MENUITEMS}" 
  28.  
  29.     cmw CAPTION2 caption caption $POPUP_UCA \\\n
  30.         label:"AbbreviatedButton (Menu):" \\\n
  31.         font:OlDefaultBoldFont
  32.  
  33.     cmw ABWC abbreviatedButton abbreviatedButton $CAPTION2 \\\n
  34.         popupWidget:$MENU
  35.         
  36.     cmw OK Ok flatButtons $POPUP_LCA \\\n
  37.         numItems:1 \\\n
  38.         numItemFields:1 \\\n
  39.         itemFields:'{label}' \\\n
  40.         items:'{Ok}' 
  41.  
  42.     sv $OK selectProc:"PopdownCB $POPUP"    
  43.  
  44.     orh $POPUP "AbbreviatedButton Source" -f `pwd`/Abbrevbutton
  45.  
  46.     pu $POPUP GrabNone
  47. }
  48.