home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / calndr1 / calndr1.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  582 b   |  25 lines
  1. on mouseDown
  2.   global thisMonth, thisYear
  3.   set y to the mouseV
  4.   if the mouseWord = 1 then
  5.     go("months")
  6.   else
  7.     hilite word 2 of field "monthName"
  8.     repeat while the mouseDown
  9.       if the mouseV < y then
  10.         set thisYear to thisYear + 1
  11.         put thisMonth && thisYear into field "monthName"
  12.       else
  13.         if the mouseV > y then
  14.           set thisYear to thisYear - 1
  15.           put thisMonth && thisYear into field "monthName"
  16.         end if
  17.       end if
  18.       set y to the mouseV
  19.     end repeat
  20.     leapCheck()
  21.     setUpYear()
  22.     go("loopBack")
  23.   end if
  24. end
  25.