home *** CD-ROM | disk | FTP | other *** search
/ Diccionario Visual Trilingue / VISUAL.iso / SHARED.DIR / 10098_Text3.ls < prev    next >
Encoding:
Text File  |  1997-07-04  |  642 b   |  24 lines
  1. on mouseDown
  2.   global gHighLightPos
  3.   set topWin to getAt(the rect of sprite 24, 2)
  4.   set bottomWin to getAt(the rect of sprite 24, 4)
  5.   if getAt(gHighLightPos, 2) <> 0 then
  6.     ActiveField(3)
  7.     CheckSelection3()
  8.     repeat while the mouseDown and not (the mouseUp)
  9.       if (the mouseV < (bottomWin + 8)) and (the mouseV > bottomWin) then
  10.         SetWindow1(3, 6)
  11.         next repeat
  12.       end if
  13.       if (the mouseV > (topWin - 8)) and (the mouseV < topWin) then
  14.         SetWindow1(3, 5)
  15.         next repeat
  16.       end if
  17.       CheckSelection3()
  18.     end repeat
  19.     if the doubleClick then
  20.       GotoSelectedPage()
  21.     end if
  22.   end if
  23. end
  24.