home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03047_Script_3047 < prev    next >
Text File  |  1997-10-14  |  299b  |  16 lines
  1. on toglipopop
  2.   global dove,cambio
  3.   set cambio 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.     --set dove to 0
  10.     curfinmetti
  11.   end if
  12.   
  13.   updatestage
  14. end
  15.  
  16.