home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Form < prev    next >
Encoding:
Text File  |  1993-04-28  |  962 b   |  47 lines
  1. Form()
  2. {
  3.     cps POPFORM transientShell transientShell $PANE \\\n
  4.         title:"WkshTree: Form" 
  5.  
  6.     cmw CAPTION caption caption $POPFORM \\\n
  7.         label:"Form:" \\\n
  8.         position:top \\\n
  9.         alignment:left 
  10.  
  11.     cmw FORM form form $CAPTION \\\n
  12.         width:150 \\\n
  13.         height:150 \\\n
  14.         shadowThickness:0
  15.  
  16.     cmw ATTACHLEFT AttachLeft staticText $FORM \\\n
  17.         string:"Attach Left" \\\n
  18.         yOffset:50
  19.  
  20.     cmw ATTACHTOP AttachTop staticText $FORM \\\n
  21.         string:"Attach Top" \\\n
  22.         xRefName:AttachLeft \\\n
  23.         xAddWidth:true
  24.  
  25.     cmw ATTACHRIGHT AttachRight staticText $FORM \\\n
  26.         string:"Attach Right" \\\n
  27.         xAttachRight:true \\\n
  28.         xAddWidth:true \\\n
  29.         xVaryOffset:true \\\n
  30.         yOffset:50 \\\n
  31.         xRefName:AttachTop
  32.  
  33.     cmw OK Ok oblongButton $FORM \\\n
  34.         buttonType:$BUTTON \\\n
  35.         yAttachBottom:true \\\n
  36.         yRefName:AttachTop \\\n
  37.         yAddHeight:true \\\n
  38.         yVaryOffset:true \\\n
  39.         xOffset:85
  40.  
  41.     sv $OK select:"PopdownCB $POPFORM"
  42.  
  43.     orh $POPFORM "Form Source" -f `pwd`/Form
  44.  
  45.     pu $POPFORM GrabNone
  46. }
  47.