home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Tori / Sharedi.cst / 03081_Script_3081 < prev    next >
Text File  |  1997-10-08  |  683b  |  23 lines
  1. ON ARCHIVIO_AUDIO
  2.   --GLOBAL LISTA, TIPO, NOME, MATERIALE,utente,var_dll,videocast,sprit,soundfile
  3.   --  
  4.   --  set tipo to "Sound"
  5.   --  SET MATERIALE= soundfile
  6.   --      set videocast to 0
  7.   --  global mywindow
  8.   --  if objectp(mywindow) then forget mywindow 
  9.   --  if the machinetype = 256 then
  10.   --    set ttt=char 1 to 2 of the pathName&"\INVENZIO\NOME.DIR"
  11.   --  else
  12.   --    set ttt="INVENZIONI:INVENZIO:NOME.DIR"
  13.   --  end if
  14.   --  
  15.   --  set mywindow to window  "RACCOLTA"
  16.   --  SET THE FILENAME OF MYWINDOW TO TTT
  17.   --  
  18.   --  set the titlevisible of mywindow to true
  19.   --  set the windowType of window ttt to 0
  20.   --  open mywindow
  21.   --end if   
  22. end
  23.