home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / ALBGENEA / Alberi.cst / 00014_Script_14 < prev    next >
Text File  |  1997-10-07  |  580b  |  19 lines
  1. on chiamapopinv
  2.   global attore
  3.  
  4.     if objectP (attore) then   forget attore
  5.     
  6.   set attore to window ("popup")
  7.   if the machinetype < 255 then
  8.     set the filename of attore to ("invenzioni:invenzio:popinv.dir")
  9.   else
  10.     set a to char 1 of the moviepath
  11.     set the filename of attore to (a & ":\invenzio\popinv.dir")
  12.   end if
  13.   set s to rect (the stageLeft+68,the stageTop +117,the stageLeft+356,the stageTop + 430)
  14.   set the rect of window "popup" to s
  15.   set the windowType of  window "popup" to 3      
  16.   open attore
  17.   moveToFront window "popup"
  18. end 
  19.