home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 10 / MacAddict_010_1997_06.iso / media / Demos.Dxr / 00001.ls next >
Encoding:
Text File  |  1997-03-26  |  833 b   |  29 lines
  1. on startMovie
  2.   new(script "BrowserClass", "htmlsource")
  3.   set the visible of sprite 6 to 0
  4.   set the visible of sprite 7 to 0
  5.   set the visible of sprite 8 to 0
  6.   set the visible of sprite 9 to 0
  7.   set the visible of sprite 16 to 0
  8.   set the visible of sprite 17 to 0
  9.   set the visible of sprite 18 to 0
  10.   set the visible of sprite 19 to 0
  11.   set the visible of sprite 20 to 0
  12.   set the visible of sprite 21 to 0
  13.   set gOSDir to getOSDirectory()
  14.   put gOSDir & "Preferences:" into field "OSPath"
  15.   put gOSDir & "Preferences:Browser" into field "ThePath"
  16.   loadBrowser()
  17. end
  18.  
  19. on loadBrowser
  20.   global myfile
  21.   set myfile to new(xtra("fileio"))
  22.   set finalPath to field "OSPath"
  23.   openFile(myfile, finalPath & "Browser", 1)
  24.   set TheWeb to readLine(myfile)
  25.   put TheWeb into field "browserLoc"
  26.   closeFile(myfile)
  27.   set myfile to 0
  28. end
  29.