home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Modalshell < prev    next >
Encoding:
Text File  |  1993-04-28  |  431 b   |  22 lines
  1. Modalshell()
  2. {
  3.     cps POPUP modalshell modalShell $PANE \\\n
  4.         emanateWidget:$PANE 
  5.  
  6.     acb $POPUP popdownCallback "pd $POPUP"
  7.  
  8.     cmw TEXT staticText staticText $POPUP \\\n
  9.         string:"Error: ModalShell displays modal messages" \\\n
  10.         gravity:center
  11.  
  12.     cmw OK Ok flatButtons $POPUP \\\n
  13.         numItems:1 \\\n
  14.         numItemFields:1 \\\n
  15.         itemFields:'{label}' \\\n
  16.         items:'{Ok}' 
  17.  
  18.     sv $OK selectProc:"PopdownCB $POPUP"
  19.  
  20.     pu $POPUP GrabExclusive
  21. }
  22.