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