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