home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 10: University / CDAT10.iso / TUTORIALES.DXR / 00007_Scroll.ls < prev    next >
Encoding:
Text File  |  1999-10-20  |  421 b   |  16 lines
  1. property Miembro, direccion
  2.  
  3. on getPropertyDescriptionList
  4.   lista = [:]
  5.   addProp(lista, #Miembro, [#format: #member, #comment: "El texto a scrolear", #default: member("Descripcion")])
  6.   addProp(lista, #direccion, [#format: #integer, #comment: "1 Avanzar; -1 Retroceder", #default: 1])
  7.   return lista
  8. end
  9.  
  10. on mouseDown
  11.   repeat while the mouseDown
  12.     scrollByLine(Miembro, direccion)
  13.     updateStage()
  14.   end repeat
  15. end
  16.