home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 19 / MacAddict_019_1998_03.iso / Media / Music.dxr / 00029.ls < prev    next >
Encoding:
Text File  |  1997-12-18  |  526 b   |  20 lines
  1. on startMovie
  2.   new(script "BrowserClass", "htmlsource")
  3.   openXLib(the pathName & "xtras:FileIOXtraFat")
  4.   set gOSDir to getOSDirectory()
  5.   put gOSDir & "Preferences:" into field "OSPath"
  6.   put gOSDir & "Preferences:Browser" into field "ThePath"
  7.   loadBrowser()
  8. end
  9.  
  10. on loadBrowser
  11.   global myfile
  12.   set myfile to new(xtra("fileio"))
  13.   set finalPath to field "OSPath"
  14.   openFile(myfile, finalPath & "Browser", 1)
  15.   set TheWeb to readLine(myfile)
  16.   put TheWeb into field "browserLoc"
  17.   closeFile(myfile)
  18.   set myfile to 0
  19. end
  20.