home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / tools.dxr / page2_1_init computation.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  1.3 KB  |  28 lines
  1. global gMovie, gModule2, gMovieList
  2.  
  3. on enterFrame
  4.   resetSlate()
  5.   closeMovie()
  6.   panoBackground(0)
  7.   mStop(gMovie)
  8. end
  9.  
  10. on exitFrame
  11.   mSetDefaultHeading(gMovieList)
  12.   set aButton to mAddButton(gButtonManager, 20, "GRAY BUTTONS 5-1", "playMovie")
  13.   mAddPageObject(gModule2, aButton)
  14.   set aButton to mAddButton(gButtonManager, 21, "GRAY BUTTONS 5-2", "playMovie")
  15.   mAddPageObject(gModule2, aButton)
  16.   set aButton to mAddButton(gButtonManager, 22, "GRAY BUTTONS 5-3", "playMovie")
  17.   mAddPageObject(gModule2, aButton)
  18.   set aButton to mAddButton(gButtonManager, 23, "GRAY BUTTONS 5-4", "playMovie")
  19.   mAddPageObject(gModule2, aButton)
  20.   set aButton to mAddButton(gButtonManager, 24, "GRAY BUTTONS 5-5", "playMovie")
  21.   mAddPageObject(gModule2, aButton)
  22.   mAddPageObject(gModule2, new(script "rolloverAnimObjectScript", 20, "Headingpage2.1", 31, point(320, 240)))
  23.   mAddPageObject(gModule2, new(script "rolloverAnimObjectScript", 21, "Headingpage2.2", 31, point(320, 240)))
  24.   mAddPageObject(gModule2, new(script "rolloverAnimObjectScript", 22, "Headingpage2.3", 31, point(320, 240)))
  25.   mAddPageObject(gModule2, new(script "rolloverAnimObjectScript", 23, "Headingpage2.4", 31, point(320, 240)))
  26.   mAddPageObject(gModule2, new(script "rolloverAnimObjectScript", 24, "Headingpage2.5", 31, point(320, 240)))
  27. end
  28.