home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Flatcheckbox < prev    next >
Encoding:
Text File  |  1993-04-28  |  596 b   |  29 lines
  1. Flatcheckbox()
  2. {
  3.     RWXITEMS="{Read}, {Write}, {Execute}"
  4.  
  5.     cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  6.         title:"FlatCheckBox"
  7.  
  8.     acb $POPUP popdownCallback "dw $POPUP"
  9.  
  10.     cmw CAPTION caption caption $POPUP_UCA \\\n
  11.         label:"FlatCheckBox:"
  12.  
  13.     cmw FLATCBOX perrmission flatCheckBox $CAPTION \\\n
  14.         numItems:3 \\\n
  15.         numItemFields:1 \\\n
  16.         itemFields:'{label}' \\\n
  17.         items:"$RWXITEMS" 
  18.  
  19.     cmw OK Ok flatButtons $POPUP_LCA \\\n
  20.         numItems:1 \\\n
  21.         numItemFields:1 \\\n
  22.         itemFields:'{label}' \\\n
  23.         items:'{Ok}' 
  24.  
  25.     orh $POPUP "FlatCheckBox Source" -f `pwd`/Flatcheckbox
  26.  
  27.     pu $POPUP GrabNone
  28. }
  29.