home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Controlarea < prev    next >
Encoding:
Text File  |  1993-04-28  |  1.7 KB  |  75 lines
  1. ControlArea()
  2. {
  3.     THEFRUIT="{Apples}, {Oranges}, {Banannas}, {Grapes},
  4.           {Watermelon}, {Kiwi}"
  5.  
  6.     THECOLOR="{Red}, {Orange}, {Yellow}, {Green}, {Blue},
  7.           {Indigo}, {Violet}, {Black}"
  8.     
  9.     THEANIMAL="{Lions}, {Tigers}, {Bears}, {Elephants}, 
  10.            {Zebras}, {Monkeys}, {Hippos}, {Deer},
  11.            {Duck Billed Platypus}"
  12.  
  13.     cps POPCONTROLA transientShell transientShell $PANE \\\n
  14.         title:"WkshTree: ControlArea"
  15.  
  16.     cmw CAPTION caption caption $POPCONTROLA \\\n
  17.         label:"ControlArea:" \\\n
  18.         font:OlDefaultBoldFont \\\n
  19.         position:top \\\n
  20.         alignment:left
  21.  
  22.     cmw CONTROLAREA controlarea controlArea $CAPTION \\\n
  23.         alignCaptions:true \\\n
  24.         layoutType:fixedcols \\\n
  25.         center:true \\\n
  26.         hSpace:10 
  27.  
  28.     cmw FRUITS caption caption $CONTROLAREA \\\n
  29.         label:"Fruits:" 
  30.  
  31.     cmw FRUITBUTTONS fruitbuttons flatButtons $FRUITS \\\n
  32.         layoutType:fixedcols \\\n
  33.         buttonType:rectBtn \\\n
  34.         exclusives:true \\\n
  35.         measure:3 \\\n
  36.         numItems:6 \\\n
  37.         itemFields:'{label}' \\\n
  38.         items:"$THEFRUIT" 
  39.  
  40.     cmw COLORS caption caption $CONTROLAREA \\\n
  41.         label:"Colors:"
  42.  
  43.     cmw COLORBUTTONS colorButtons flatButtons $COLORS \\\n
  44.         layoutType:fixedcols \\\n
  45.         buttonType:rectBtn \\\n
  46.         exclusives:true \\\n
  47.         measure:4 \\\n
  48.         numItems:8 \\\n
  49.         itemFields:'{label}' \\\n
  50.         items:"$THECOLOR" 
  51.  
  52.     cmw ANIMALS caption caption $CONTROLAREA \\\n
  53.         label:"Animals:"
  54.     
  55.     cmw ANIMALBUTTONS animalButtons flatButtons $ANIMALS \\\n
  56.         layoutType:fixedcols \\\n
  57.         buttonType:rectBtn \\\n
  58.         exclusives:true \\\n
  59.         measure:3 \\\n
  60.         numItems:9 \\\n
  61.         itemFields:'{label}' \\\n
  62.         items:"$THEANIMAL" 
  63.  
  64.     cmw OK Ok flatButtons $CONTROLAREA \\\n
  65.         numItems:1 \\\n
  66.         itemFields:'{label}' \\\n
  67.         items:'{Ok}'
  68.                 
  69.     sv $OK selectProc:"PopdownCB $POPCONTROLA"
  70.  
  71.     orh $POPCONTROLA "ControlArea Source" -f `pwd`/Controlarea
  72.  
  73.     pu $POPCONTROLA GrabNone
  74. }
  75.