home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Statictext < prev    next >
Encoding:
Text File  |  1993-04-28  |  1.5 KB  |  61 lines
  1. Statictext()
  2. {
  3.     cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  4.         title:"WkshTree: StaticText" 
  5.  
  6.     acb $POPUP popdownCallback "dw $POPUP"
  7.  
  8.     cmw CAPTION caption caption $POPUP_UCA \\\n
  9.         label:"StaticText:" \\\n
  10.         font:OlDefaultBoldFont
  11.  
  12.     cmw STEXT1 staticText staticText $CAPTION \\\n
  13.         string:"StaticText can be selected and copied.\nEach line cane be centered.\nIt is not editable." \\\n
  14.         alignment:center
  15.  
  16.     cmw STEXT2 staticText staticText $POPUP_UCA \\\n
  17.         string:"olDefaultFont" \\\n
  18.         font:OlDefaultFont \\\n
  19.         alignment:center
  20.  
  21.     cmw TEXT3 staticText staticText $POPUP_UCA \\\n
  22.         string:"olDefaultBoldFont" \\\n
  23.         font:OlDefaultBoldFont \\\n
  24.         alignment:center
  25.  
  26.     cmw TEXT4 staticText staticText $POPUP_UCA \\\n
  27.         string:"olDefaultFixedFont" \\\n
  28.         font:OlDefaultFixedFont \\\n
  29.         alignment:center
  30.  
  31.     cmw TEXT5 staticText staticText $POPUP_UCA \\\n
  32.         string:"olDefaultItalicFont" \\\n
  33.         font:OlDefaultItalicFont \\\n
  34.         alignment:center
  35.  
  36.     cmw TEXT6 staticText staticText $POPUP_UCA \\\n
  37.         string:"olDefaultBoldItalicFont" \\\n
  38.         font:OlDefaultBoldItalicFont \\\n
  39.         alignment:center
  40.  
  41.     cmw TEXT7 staticText staticText $POPUP_UCA \\\n
  42.         string:"olDefaultNoticeFont" \\\n
  43.         font:OlDefaultNoticeFont \\\n
  44.         alignment:center
  45.  
  46.     cmw TEXT8 staticText staticText $POPUP_UCA \\\n
  47.         string:"xtDefaultFont" \\\n
  48.         font:XtDefaultFont \\\n
  49.         alignment:center
  50.  
  51.     cmw OK Ok flatButtons $POPUP_LCA \\\n
  52.         numItems:1 \\\n
  53.         numItemFields:1 \\\n
  54.         itemFields:'{label}' \\\n
  55.         items:'{Ok}' 
  56.  
  57.     orh $POPUP "StaticText Source" -f `pwd`/Statictext
  58.  
  59.     pu $POPUP GrabNone
  60. }
  61.