home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / software / testsoft / carr / IRL.CST / 00019_Script_s_scrlDown < prev    next >
Text File  |  1998-01-28  |  573b  |  24 lines
  1. on mouseDown
  2.   global g_scrltimer,g_bscrstate
  3.   set g_scrltimer=the timer
  4.   set g_bscrstate=#Down
  5. end
  6.  
  7. on mouseLeave
  8.   global g_bscrstate
  9.   set g_bscrstate=#None
  10. end
  11.  
  12. on mouseUp
  13.   global g_bscrstate,g_textmem,g_slspr,g_sliderTop,g_textmem
  14.   global g_ListLen,g_ListSize,g_sliderSize
  15.   
  16.   set tmp=the scrollTop of g_textmem
  17.   set sctop=tmp
  18.   if (tmp+g_ListSize)<(g_ListLen+15) then
  19.     set sctop to tmp+15
  20.   end if  
  21.   set tmp=sctop*g_sliderSize/(g_ListLen-g_ListSize-15) 
  22.   set the locV of sprite g_slspr to tmp+g_sliderTop
  23.   set g_bscrstate=#None
  24. end