home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Gauge < prev    next >
Encoding:
Text File  |  1993-04-28  |  604 b   |  32 lines
  1. Gauge()
  2. {
  3.     cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  4.         title:"Gauge" 
  5.  
  6.     acb $POPUP popdownCallback "dw $POPUP"
  7.  
  8.     cmw CAPTION caption caption $POPUP_UCA \\\n
  9.         label:"Gauge:" \\\n
  10.         font:OlDefaultBoldFont \\\n
  11.         position:left
  12.  
  13.     cmw GAUGE gauge gauge $CAPTION \\\n
  14.         span:100 \\\n
  15.         sliderValue:33 \\\n
  16.         minLabel:"0" \\\n
  17.         maxLabel:"100" \\\n
  18.         ticks:10 \\\n
  19.         tickUnit:percent \\\n
  20.         showValue:true
  21.  
  22.     cmw OK Ok flatButtons $POPUP_LCA \\\n
  23.         numItems:1 \\\n
  24.         numItemFields:1 \\\n
  25.         itemFields:'{label}' \\\n
  26.         items:'{Ok}' 
  27.  
  28.     orh $POPUP "Gauge Source" -f `pwd`/Gauge
  29.  
  30.     pu $POPUP GrabNone
  31. }
  32.