home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2000 February / DPPCPRO0200.ISO / ps10.dxr / Scripts_10_buttonScroll.ls < prev    next >
Encoding:
Text File  |  1999-10-26  |  403 b   |  17 lines
  1. property scrollDirection
  2. global gScrollChild
  3.  
  4. on mouseDown me
  5.   repeat while the stillDown
  6.     buttonScroll(gScrollChild, scrollDirection)
  7.     updateStage()
  8.   end repeat
  9. end
  10.  
  11. on getPropertyDescriptionList
  12.   rangeList1 = [#up, #down]
  13.   description = [:]
  14.   addProp(description, #scrollDirection, [#default: 0, #format: #string, #comment: "directionToScroll", #range: rangeList1])
  15.   return description
  16. end
  17.