home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03028_Script_3028 < prev    next >
Text File  |  1997-10-14  |  866b  |  29 lines
  1. on SLIDE_SHOW _inizio,_fine,_name,_text
  2.   global si_inizio,si_fine,si_name,si_pos,si_text
  3.   set si_inizio to _inizio
  4.   set si_pos to si_inizio
  5.   set si_fine to _fine
  6.   set si_name to _name
  7.   set si_text to _text
  8.   if not voidp (_text) then
  9.     if si_text>0 then  
  10.   
  11.       
  12.       duplicate member si_text of castLib si_name,  member 498 of castLib "internal"
  13.       set the textheight of member 498 to  17
  14.       
  15.     end if
  16.   else
  17.     set si_text to 0
  18.   end if
  19. end
  20.  
  21.  
  22. -- Spiegazione della procedura SLIDE_SHOW
  23. -- SLIDE_SHOW setta un le veriabili associate ai tasti di uno slide show
  24. -- lo slide deve essere posto nel canale 48.
  25. -- se _text <=0 allora non sara' presente del testo
  26. --_inizio : primo membro (immagine)
  27. --_fine : ultimo membro (immagine)
  28. --_name : nome cast contenente le imaggini dello slide show
  29. --_text :primo membro (testo)