home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / tools.dir / 00042_hList.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1023 b   |  32 lines
  1. on mouseUp
  2.   global theButtonLine
  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 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 42 to 255
  17.         set the foreColor of line mLine of field 42 to 3
  18.         set lastIndexLine to mLine
  19.         set executeOnce to 1
  20.         set temp to the text of field string(line mLine of field 42)
  21.         set the text of field "hText" to temp
  22.         setArticleBody("hText")
  23.         set the text of field "hTitle" to string(line mLine of field 42)
  24.         setDispHead2("hTitle")
  25.         set theButtonLine to line mLine of field "hListScr"
  26.         set the castNum of sprite 2 to cast string(item 2 of theButtonLine)
  27.         updateStage()
  28.       end if
  29.     end repeat
  30.   end if
  31. end
  32.