home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Caption < prev    next >
Encoding:
Text File  |  1993-04-28  |  1.1 KB  |  49 lines
  1. Caption()
  2. {
  3.     cmw POPCAPTION popupWidget popupWindowShell $PANE \\\n
  4.         title:"Caption" 
  5.  
  6.     acb $POPCAPTION popdownCallback "dw $POPCAPTION"
  7.  
  8.     cmw CAP1 leftcaption caption $POPCAPTION_UCA \\\n
  9.         label:"Position Left:" \\\n
  10.         font:OlDefaultBoldFont \\\n
  11.         position:left \\\n
  12.         borderWidth:0
  13.  
  14.     cmw CAP2 rightcaption caption $CAP1 \\\n
  15.         label:":Position Right" \\\n
  16.         font:OlDefaultBoldFont \\\n
  17.         position:right \\\n
  18.         borderWidth:1
  19.  
  20.     cmw CAP3 topcaption caption $CAP2 \\\n
  21.         label:"Position Top:" \\\n
  22.         font:OlDefaultBoldFont \\\n
  23.         position:top \\\n
  24.         borderWidth:1
  25.  
  26.     cmw CAP4 topcaption caption $CAP3 \\\n
  27.         label:"Position Bottom:" \\\n
  28.         font:OlDefaultBoldFont \\\n
  29.         position:bottom \\\n
  30.         borderWidth:1
  31.  
  32.     cmw ABV abbrevmenu abbrevMenuButton $CAP4 
  33.  
  34.     
  35.     cmw MENUITEMS menuitems flatButtons $ABV_MP \\\n
  36.         numItems:3 \\\n
  37.         itemFields:'{label}' \\\n
  38.         items:'{Open...}, {Save...}, {Exit}'
  39.  
  40.     cmw OK Ok flatButtons $POPCAPTION_LCA \\\n
  41.         numItems:1 \\\n
  42.         itemFields:'{label}' \\\n
  43.         items:'{Ok}' 
  44.  
  45.     orh $POPCAPTION "Caption Help" -f `pwd`/Caption
  46.  
  47.     pu $POPCAPTION GrabNone 
  48. }
  49.