home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Scrollinglist < prev    next >
Encoding:
Text File  |  1993-04-28  |  580 b   |  28 lines
  1. ScrollingList()
  2. {
  3.     THECOLOR="Red Green Blue Orange Purple Pink Black White"
  4.  
  5.     cps POPUP scrollinglist popupWindowShell $PANE \\\n
  6.         title:"WkshTree: ScrollingList" 
  7.  
  8.     acb $POPUP popdownCallback "dw $POPUP"
  9.  
  10.     cmw CAPTION caption caption $POPUP_UCA \\\n
  11.         label:"Scrolling List:" 
  12.  
  13.     cmw SLIST scrollingList scrollingList $CAPTION \\\n
  14.         viewHeight:3 
  15.  
  16.     sladd $SLIST $THECOLOR
  17.  
  18.     cmw OK Ok flatButtons $POPUP_LCA \\\n
  19.         numItems:1 \\\n
  20.         numItemFields:1 \\\n
  21.         itemFields:'{label}' \\\n
  22.         items:'{Ok}'
  23.  
  24.     orh $POPUP "ScrollingList Source" -f `pwd`/Scrollinglist
  25.  
  26.     pu $POPUP GrabNone
  27. }
  28.