home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / main.dxr / 00002_tipObjectScript.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  519 b   |  21 lines
  1. property ancestor, rolloverSprite, tipSprite
  2. global gRollManager
  3.  
  4. on new me, aRollSprite, aTipSprite
  5.   set the ancestor of me to new(script "rolloverObjectScript", aRollSprite, 1)
  6.   set rolloverSprite to aRollSprite
  7.   set tipSprite to aTipSprite
  8.   set the visible of sprite tipSprite to 0
  9.   mRegisterRollover(gRollManager, me)
  10.   return me
  11. end
  12.  
  13. on mSetRolloverStatus me, trueOrFalse
  14.   set the visible of sprite tipSprite to trueOrFalse
  15.   updateStage()
  16. end
  17.  
  18. on mGetInfo me
  19.   put "tipObject Sprite:" && rolloverSprite
  20. end
  21.