home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / pc / science / files / cad.dir / 00002_sublist.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  459 b   |  20 lines
  1. on mouseUp
  2.   global gsublist, gindex, gsectlist, gindexoffset
  3.   set num to the mouseLine
  4.   if num < 1 then
  5.     abort()
  6.   end if
  7.   set gsublist to num
  8.   set the foreColor of field 3 to 255
  9.   updateStage()
  10.   slidesub()
  11.   updateStage()
  12.   set tprob to gsectlist mod 2
  13.   if tprob = 1 then
  14.     set lupref to "i" & line num of the text of field 2
  15.   else
  16.     set lupref to "p" & line num of the text of field 2
  17.   end if
  18.   put the text of cast lupref into field 3
  19. end
  20.