home *** CD-ROM | disk | FTP | other *** search
- Footer()
- {
- cps POPUP popupWindowShell popupWindowShell $PANE \\\n
- resizeCorners:true \\\n
- title:"WkshTree: Footer"
-
- acb $POPUP popdownCallback "dw $POPUP"
-
- sv $POPUP_UCA width:295
-
- cmw FOOTER footer footer $POPUP_FP \\\n
- leftFoot:"Left footer message" \\\n
- leftWeight:1 \\\n
- rightFoot:"Right footer message" \\\n
- rightWeight:1
-
- cmw OK Ok flatButtons $POPUP_LCA \\\n
- numItems:1 \\\n
- numItemFields:1 \\\n
- itemFields:'{label}' \\\n
- items:'{Ok}'
-
- orh $POPUP "Footer Source" -f `pwd`/Footer
-
- pu $POPUP GrabNone
- }
-