home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00069_Script_69 < prev    next >
Text File  |  1997-10-14  |  839b  |  26 lines
  1. on chiamapopEIN
  2.   global attore
  3.  
  4.   if objectP (attore) then   forget attore
  5.   
  6.   set attore to window ("popEIN")
  7.   if the machinetype < 255 then
  8.     set the filename of attore to ("invenzioni:invenzio:popein.dir")
  9.     --set the filename of attore to ("C:\windows\desktop\lavori\dataproject\popinv.dir")
  10.   else
  11.     set a to char 1 of the moviepath
  12.     set the filename of attore to (a & ":\invenzio\popein.dir")
  13.     --set the filename of attore to ("C:\windows\desktop\lavori\dataproject\popinv.dir")
  14.   end if
  15.   set s to rect (the stageLeft+82,the stageTop +163,the stageLeft+631,the stageTop + 480)
  16.   set the rect of window "popein" to s
  17.   set the windowType of  window "popein" to 3      
  18.   open attore
  19.   moveToFront window "popein"
  20.   IF THE MOVIENAME="JUKEBOX.DIR" THEN
  21.     VIFF 34,36
  22.     VIF 44
  23.   END IF
  24. end 
  25.  
  26.