home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Extraurb / sharede.cst / 03040_Script_3040 < prev    next >
Text File  |  1997-10-08  |  337b  |  17 lines
  1. on toglipopart
  2.   global dove,correlati,olddove
  3.   set correlati to ""
  4.   set var to string(the windowlist)
  5.   if offset ("popup",var) then
  6.     close window "popup"
  7.     forget window "popup"  
  8.     if objectp (attore) then forget attore
  9.     put olddove
  10.     set dove to olddove
  11.     curfinmetti
  12.     
  13.   end if
  14.   updatestage
  15. end
  16.  
  17.