home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / shared.dxr / 02151_BackToObjectUp.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  392 b   |  18 lines
  1. on mouseUp
  2.   global gTheAnalyzer, gMovieSprite
  3.   sound stop 1
  4.   sound stop 2
  5.   click()
  6.   gTheAnalyzer(mResetMainContent)
  7.   SetCast(gMovieSprite, "VideoConsoleStandby")
  8.   updateStage()
  9.   set theSubsys to gTheAnalyzer(mGetSubsys)
  10.   set dest to the frame
  11.   if objectp(theSubsys) then
  12.     set dest to label(theSubsys(mGetName) & "BrowseOUT")
  13.   end if
  14.   if dest > 1 then
  15.     go(dest)
  16.   end if
  17. end
  18.