home *** CD-ROM | disk | FTP | other *** search
/ Star Trek Starfleet Academy Mini Omnipedia / MINI_OMNI.ISO / pc / omni_v2.dxr / 00048_linescrollUP.ls < prev    next >
Encoding:
Text File  |  1996-04-15  |  222 b   |  11 lines
  1. on mouseDown
  2.   global oTextScroller, gModeState
  3.   set vloc to the mouseV
  4.   set vloc to the mouseH
  5.   if gModeState = #CHRO then
  6.     mScrollMe(oTextScroller, -1)
  7.   else
  8.     mTextSliderPage(oTextScroller, #line)
  9.   end if
  10. end
  11.