home *** CD-ROM | disk | FTP | other *** search
/ Diccionario Visual Trilingue / VISUAL.iso / SHARED.DIR / 10097_Text2.ls < prev    next >
Encoding:
Text File  |  1997-07-04  |  818 b   |  30 lines

  1. on mouseDown
  2.   global gHighLightPos, gCurrentPos
  3.   set refresh to 0
  4.   set topWin to getAt(the rect of sprite 17, 2)
  5.   set bottomWin to getAt(the rect of sprite 17, 4)
  6.   if getAt(gHighLightPos, 1) <> 0 then
  7.     ActiveField(2)
  8.     CheckSelection2()
  9.     repeat while the mouseDown and not (the mouseUp)
  10.       if (the mouseV < (bottomWin + 8)) and (the mouseV > bottomWin) then
  11.         SetWindow1(2, 6)
  12.         set refresh to 1
  13.         next repeat
  14.       end if
  15.       if (the mouseV > (topWin - 8)) and (the mouseV < topWin) then
  16.         SetWindow1(2, 5)
  17.         set refresh to 1
  18.         next repeat
  19.       end if
  20.       CheckSelection2()
  21.     end repeat
  22.     if refresh then
  23.       FindPics(getAt(gHighLightPos, 2))
  24.       setAt(gCurrentPos, 3, 1)
  25.       setAt(gHighLightPos, 3, 0)
  26.       SetWindow1(3, 3)
  27.     end if
  28.   end if
  29. end
  30.