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