home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Footer < prev    next >
Encoding:
Text File  |  1993-04-28  |  538 b   |  27 lines
  1. Footer()
  2. {
  3.     cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  4.         resizeCorners:true \\\n
  5.         title:"WkshTree: Footer"
  6.  
  7.     acb $POPUP popdownCallback "dw $POPUP"
  8.  
  9.     sv $POPUP_UCA width:295 
  10.  
  11.     cmw FOOTER footer footer $POPUP_FP \\\n
  12.         leftFoot:"Left footer message" \\\n
  13.         leftWeight:1 \\\n
  14.         rightFoot:"Right footer message" \\\n
  15.         rightWeight:1
  16.     
  17.     cmw OK Ok flatButtons $POPUP_LCA \\\n
  18.         numItems:1 \\\n
  19.         numItemFields:1 \\\n
  20.         itemFields:'{label}' \\\n
  21.         items:'{Ok}' 
  22.  
  23.     orh $POPUP "Footer Source" -f `pwd`/Footer
  24.  
  25.     pu $POPUP GrabNone
  26. }
  27.