home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Checkbox < prev    next >
Encoding:
Text File  |  1993-04-28  |  441 b   |  23 lines
  1. Checkbox()
  2. {
  3.     cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  4.         title:"Checkbox"
  5.  
  6.     acb $POPUP popdownCallback "dw $POPUP"
  7.  
  8.     cmw CHECKBOX checkbox checkBox $POPUP_UCA \\\n
  9.         label:"Checkbox:" \\\n
  10.         font:OlDefaultBoldFont \\\n
  11.         set:true
  12.  
  13.     cmw OK Ok flatButtons $POPUP_LCA \\\n
  14.         numItems:1 \\\n
  15.         numItemFields:1 \\\n
  16.         itemFields:'{label}' \\\n
  17.         items:'{Ok}' 
  18.  
  19.     orh $POPUP "CheckBox Source" -f `pwd`/Checkbox
  20.  
  21.     pu $POPUP GrabNone
  22. }
  23.