home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Mare / SHAREDM.CST / 03028_Script_3028 < prev    next >
Text File  |  1997-09-15  |  873b  |  27 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.       duplicate member si_text of castLib si_name,  member 498 of castLib "internal"
  11.       set the textheight of member  498  of castlib "internal" to 17
  12.   
  13.     end if
  14.   else
  15.     set si_text to 0
  16.   end if
  17. end
  18.  
  19.  
  20. -- Spiegazione della procedura SLIDE_SHOW
  21. -- SLIDE_SHOW setta un le veriabili associate ai tasti di uno slide show
  22. -- lo slide deve essere posto nel canale 48.
  23. -- se _text <=0 allora non sara' presente del testo
  24. --_inizio : primo membro (immagine)
  25. --_fine : ultimo membro (immagine)
  26. --_name : nome cast contenente le imaggini dello slide show
  27. --_text :primo membro (testo)