home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Slideshow.dxr / 00011_smista.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  652 b   |  27 lines
  1. on exitFrame
  2.   global gmaxslide, pausa, gElencoOpere, gScappaPerMemoria
  3.   pausa = 0
  4.   put EMPTY into field "dida"
  5.   if gScappaPerMemoria <> 0 then
  6.     the itemDelimiter = "#"
  7.     tmp = item 1 of gScappaPerMemoria
  8.     if tmp = "normale" then
  9.       gmaxslide = the number of castMembers of castLib "slide"
  10.     else
  11.       gmaxslide = count(gElencoOpere)
  12.     end if
  13.     go(tmp)
  14.     startTimer()
  15.     exit
  16.   end if
  17.   if (gElencoOpere = 0) or (gElencoOpere = []) then
  18.     gElencoOpere = 0
  19.     gmaxslide = the number of castMembers of castLib "slide"
  20.     go("normale")
  21.   else
  22.     gmaxslide = count(gElencoOpere)
  23.     go("ristretto")
  24.   end if
  25.   startTimer()
  26. end
  27.