home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / DevGallery / Ink&Image / Source / INKMBAR.DIR / 00008.ls < prev    next >
Encoding:
Text File  |  1996-05-10  |  279 b   |  15 lines
  1. on startMovie
  2.   global baseURI
  3.   set baseURI to "http://www.inkimage.com/"
  4. end
  5.  
  6. on loadURI whereTo
  7.   global baseURI, loading
  8.   puppetSound("click")
  9.   updateStage()
  10.   gotoNetPage(baseURI & whereTo)
  11.   set the text of cast "Display" to "Loading..."
  12.   updateStage()
  13.   go("wait")
  14. end
  15.