home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03048_Script_3048 < prev    next >
Text File  |  1997-10-14  |  605b  |  20 lines
  1. on chiamapopop
  2.   global attore,cisei
  3.  
  4.     curfinleva
  5.     if objectP (attore) then   forget attore
  6.     
  7.   set attore to window ("popup")
  8.   if the machinetype < 255 then
  9.     set the filename of attore to ("invenzioni:invenzio:opzioni.dir")
  10.   else
  11.     set a to char 1 of the moviepath
  12.     set the filename of attore to (a & ":\invenzio\opzioni.dir")
  13.   end if
  14.   set s to rect (the stageLeft+352,the stageTop +113,the stageLeft+640,the stageTop + 416)
  15.   set the rect of window "popup" to s
  16.   set the windowType of  window "popup" to 3      
  17.   open attore
  18.   moveToFront window "popup"
  19. end 
  20.