home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00023_Script_23 < prev    next >
Text File  |  1997-10-14  |  570b  |  18 lines
  1. on iniziafin
  2.   global def,coddef,COLORE
  3.   if objectP (def) then
  4.     forget def
  5.   end if 
  6.   set def to window ("def")
  7.   if the machinetype < 255 then
  8.     set the filename of def to ("invenzioni:invenzio:def.dir")
  9.   else
  10.     set the filename of def to (char 1 of the moviepath &":\invenzio\def.dir")
  11.   end if
  12.   set s to rect (the stageLeft+194,the stageTop +164,the stageLeft+492,the stageTop + 292)
  13.   set the rect of window "def" to s
  14.   set the windowType of  window "def" to 3  
  15.   set coddef to "d0001"
  16.   moveToBack window "def"
  17. end if
  18. -- fine INIZIAFIN