home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Scrolledwindow < prev    next >
Encoding:
Text File  |  1993-04-28  |  866 b   |  37 lines
  1. Scrolledwindow()
  2. {
  3.     cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  4.         title:"WkshTree: ScrolledWindow"
  5.  
  6.     acb $POPUP popdownCallback "dw $POPUP"
  7.  
  8.     cmw CAPTION caption caption $POPUP_UCA \\\n
  9.         label:"Scrolled Window:" \\\n
  10.         font:OlDefaultBoldFont \\\n
  11.         position:top \\\n
  12.         alignment:left
  13.  
  14.     cmw SCROLLEDWINDOW scrolledwindow scrolledWindow $CAPTION \\\n
  15.         recomputeWidth:false \\\n
  16.         recomputeHeight:false \\\n
  17.         forceHorizontalSB:true \\\n
  18.         forceVerticalSB:true 
  19.  
  20.     cmw TEXT textedit textEdit $SCROLLEDWINDOW \\\n
  21.         source:"The TextEdit widget displays multi-line text." \\\n
  22.         width:200 \\\n
  23.         height:200 
  24.  
  25.     cmw OK Ok flatButtons $POPUP_LCA \\\n
  26.         numItems:1 \\\n
  27.         numItemFields:1 \\\n
  28.         itemFields:'{label}' \\\n
  29.         items:'{Ok}' 
  30.         
  31.     sv $OK selectProc:"PopdownCB $POPUP" 
  32.  
  33.     orh $POPUP "ScrolledWindow Source" -f `pwd`/Scrolledwindow
  34.  
  35.     pu $POPUP GrabNone
  36. }
  37.