home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Rubbertile < prev    next >
Encoding:
Text File  |  1993-04-28  |  1.1 KB  |  50 lines
  1. Rubbertile()
  2. {
  3.     cps POPUP transientShell transientShell $PANE \\\n
  4.         title:"WkshTree: RubberTile" \\\n
  5.         sensitive:true
  6.  
  7.     cmw CAPTION caption caption $POPUP \\\n
  8.         label:"RubberTile:" \\\n
  9.         font:OlDefaultBoldFont \\\n
  10.         position:top \\\n
  11.         alignment:left
  12.  
  13.     cmw RUBBERTILE rubberTile rubberTile $CAPTION \\\n
  14.         orientation:vertical
  15.  
  16.     cmw WEIGHT_0 weight_0 $TYPEBUTTON $RUBBERTILE \\\n
  17.         buttonType:$BUTTON \\\n
  18.         weight:0
  19.  
  20.     cmw WEIGHT_1 weight_1 $TYPEBUTTON $RUBBERTILE \\\n
  21.         buttonType:$BUTTON \\\n
  22.         weight:1
  23.  
  24.     cmw WEIGHT_2 weight_2 $TYPEBUTTON $RUBBERTILE \\\n
  25.         buttonType:$BUTTON \\\n
  26.         weight:2
  27.  
  28.     cmw RUBBERTILE2 rubberTile2 rubberTile $RUBBERTILE \\\n
  29.         weight:0 \\\n
  30.         orientation:horizontal \\\n
  31.         shadowThickness:0
  32.     
  33.     cmw OK Ok flatButtons $RUBBERTILE2 \\\n
  34.         numItems:1 \\\n
  35.         numItemFields:1 \\\n
  36.         itemFields:'{label}' \\\n
  37.         items:'{Ok}' \\\n
  38.         weight:0
  39.  
  40.     acb $WEIGHT_0 select "ButtonCB $WEIGHT_0"
  41.     acb $WEIGHT_1 select "ButtonCB $WEIGHT_1"
  42.     acb $WEIGHT_2 select "ButtonCB $WEIGHT_2"
  43.  
  44.     sv $OK selectProc:"PopdownCB $POPUP"
  45.  
  46.     orh $POPUP "RubberTile Source" -f `pwd`/Rubbertile
  47.  
  48.     pu $POPUP GrabNone
  49. }
  50.