home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / SLIDES.CST / 00011_slideScroll.ls < prev    next >
Encoding:
Text File  |  1996-12-11  |  581 b   |  17 lines
  1. on mouseDown
  2.   -- global gScrollLimits  --  (TOP, BOTTOM)
  3.   --  global gSCROLL_STEPS, gListSize, gLIST_PLACE_ON_STAGE
  4.   --  
  5.   --  put getAt (gScrollLimits, 1) into topScrll
  6.   --  put getLast (gScrollLimits) - topScrll into scrlSize
  7.   global gAutoMode
  8.   
  9.   set gAutoMode to FALSE
  10.   repeat while the mouseDown
  11.     set the locH of sprite 7 to constrainH(6, the mouseH)
  12.     --put (( gListSize / scrlSize) *(the locV of sprite 5 - topScrll)) into newScrll
  13.     --set the scrollTop of member "scrollingList" of castLib "Weekday" to newScrll
  14.     updateStage
  15.   end repeat
  16.   bringUpPict
  17. end