home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / shared.dir / 00971_dateList.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  864 b   |  27 lines
  1. on mouseDown
  2.   global whDate, whyear, theArticle
  3.   set theList to item whyear of whDate & "L"
  4.   if the doubleClick and (the mouseLine <> -1) then
  5.     dontPassEvent()
  6.     exit
  7.   end if
  8.   set lastIndexLine to -1
  9.   set mLine to the mouseLine
  10.   if (mLine = -1) or (mLine > the number of lines in field 971) or (the number of chars in line mLine of field 971 <= 5) then
  11.     pass()
  12.   else
  13.     set executeOnce to 0
  14.     repeat while the stillDown or (executeOnce = 0)
  15.       set mLine to the mouseLine
  16.       if (mLine <> lastIndexLine) and (mLine <> -1) then
  17.         set the foreColor of line lastIndexLine of field 971 to 255
  18.         set the foreColor of line mLine of field 971 to 3
  19.         set lastIndexLine to mLine
  20.         set executeOnce to 1
  21.         set theArticle to line mLine of field string(theList)
  22.         winArticle()
  23.       end if
  24.     end repeat
  25.   end if
  26. end
  27.