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