home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / calndr1 / calndrx.dxr / 00008.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  426 b   |  15 lines
  1. on mouseDown
  2.   global dateWindow, startMovie, thisYear, startMovie, monthList, thisMonth
  3.   set x to the mouseLine
  4.   if (x < 1) or (x > 12) then
  5.     exit
  6.   end if
  7.   hilite line x of field "allMonths"
  8.   set thisMonth to word x of field "allMonths"
  9.   put thisMonth && thisYear into field "monthName"
  10.   set x to getPos(monthList, thisMonth)
  11.   set the castNum of sprite 2 to 40 + ((x + 1) / 2)
  12.   updateStage()
  13.   go("loopBack")
  14. end
  15.