Curso de Informatica 9/elPeriodico9.iso/menu.dir/Internal_46.ls

Text File | 1997-11-26 | 210 b | 10 lines

on mouseDown
  global linia
  repeat while the stillDown = 1
    if linia < (the lineCount of member 48 - 16) then
      scrollByLine(member "texte", 1)
      set linia to linia + 1
    end if
  end repeat
end