home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / lists_131_query-total.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  595 b   |  21 lines
  1. on mouseUp
  2.   global OnceCheck, Choice, currMarker, CompVec
  3.   set y to the mouseLine
  4.   set Choice to line y of field "query-total"
  5.   set x to the locV of sprite (17 + y)
  6.   set the locV of sprite 40 to x
  7.   set the visible of sprite 40 to 1
  8.   updateStage()
  9.   startTimer()
  10.   repeat while the timer < 30
  11.   end repeat
  12.   translate(Choice)
  13.   set markVec to the labelList
  14.   set x to the number of lines in field "backField"
  15.   put marker(0) into item 1 of line x + 1 of field "backField"
  16.   put CompVec into field "savedGlobals"
  17.   set currMarker to marker(0)
  18.   clearPuppets()
  19.   go(marker("Home BarP"))
  20. end
  21.