home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Jargonb.dxr / 00101.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  864 b   |  29 lines
  1. global LorR, listline1
  2.  
  3. on mouseUp
  4.   set def1 to line the mouseLine of the text of member "blanklist1"
  5.   set listline1 to the mouseLine
  6.   set LorR to "def1"
  7.   if def1 = "Currently no entries" then
  8.     exit
  9.   end if
  10.   set the visible of sprite 16 to 0
  11.   set the visible of sprite 17 to 0
  12.   set the visible of sprite 18 to 0
  13.   set the visible of sprite 19 to 0
  14.   updateStage()
  15.   put def1 into field "defHeading"
  16.   if line 1 of the text of member def1 of castLib "glossary" = ("$" & def1) then
  17.     set picTempText to the text of member def1 of castLib "glossary"
  18.     delete line 1 of picTempText
  19.     put picTempText into field "defTextpic"
  20.     put picTempText
  21.     go(15)
  22.     puppetSprite(20, 1)
  23.     set the member of sprite 20 to member def1 of castLib "image"
  24.   else
  25.     put the text of member def1 of castLib "glossary" into field "defText"
  26.     go(10)
  27.   end if
  28. end
  29.