home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / camar.dxr / 00375.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  628 b   |  22 lines
  1. on exitFrame
  2.   global gIdiom, gTheAnalyzer
  3.   set dest to 0
  4.   gTheAnalyzer(mInitMovie, "Hist")
  5.   set inventorName to the text of cast "AnalyzerLink"
  6.   set theObject to gTheAnalyzer(mGetObject)
  7.   if objectp(theObject) then
  8.     set theObjectName to theObject(mGetName)
  9.     if inventorName <> theObjectName then
  10.       set inventorSection to theObject(mGetInventorSection, inventorName)
  11.       set dest to marker(inventorSection - 1)
  12.       set the text of cast "AnalyzerLink" to theObjectName
  13.     end if
  14.   end if
  15.   if dest then
  16.     go(dest)
  17.   else
  18.     MyPreload()
  19.     setUpQt("HIST1" & gIdiom & ".MOV", 321, 183, "PLAY")
  20.   end if
  21. end
  22.