Exploring Aeronautics/NASA Exploring Aeronautics.iso/pc/source/tools.dxr/Internal_2_movieListObjectScript.ls

Text File | 1998-06-02 | 766 b | 34 lines

property movieList, movieHeadingSprite

on new me
  set movieList to [:]
  set movieHeadingSprite to 14
  return me
end

on mAddMovies me, apageName, aMovieList
  addProp(movieList, apageName, aMovieList)
end

on mGetMovie me, aPage, aMovieNumber
  set pageMovieList to getaProp(movieList, aPage)
  set movieClip to getAt(pageMovieList, aMovieNumber)
  set movieHeading to "heading" & aPage & "." & aMovieNumber
  mSetHeading(me, movieHeading)
  return movieClip
end

on mGetInfo me
  put "movie list object"
  put movieList
end

on mSetHeading me, aHeading
  set the member of sprite movieHeadingSprite to member aHeading
end

on mSetDefaultHeading me
  set the member of sprite movieHeadingSprite to member ("heading" & mGetPageFrame(gModule2))
  resetSlate()
end