home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / invest.dir / 00803_Script_MyStartMovie < prev    next >
Text File  |  1997-05-26  |  727b  |  37 lines
  1. --    s : MyStartMovie
  2. --
  3. -- Creation of global child object created from GearsParent script
  4. --   that would normally be called from startMovie or the like
  5. --
  6. -- Activation of the child object
  7. --
  8. --    Written by:    Jason Winshell
  9. --
  10. -- Copyright 1996, ???
  11. --
  12. --    Change History:
  13. --
  14. --        03/13/96    JW        Created
  15. --
  16. --    To Do:
  17.  
  18. -----------------------------------------------------------------------------------------
  19.  
  20. -- globals
  21.  
  22. global gObjGearsController
  23.  
  24. on exitFrame
  25.   
  26.   -- clearglobals
  27.   
  28.   -- single object creation trick
  29.   if not objectP( gObjGearsController ) then
  30.     set gObjGearsController = mInit(Script "GearsInvestigationParent")
  31.   end if
  32.   
  33.   mActivate( gObjGearsController )
  34. end 
  35.  
  36.  
  37. -- EOF