home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 18 / MacAddict_018_1998_02.iso / MEDIA / Macnet.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1997-12-03  |  674 b   |  24 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.txt" into field "ThePath"
  7.   loadBrowser()
  8. end
  9.  
  10. on pointCursor spriteNum
  11.   set the cursor of sprite spriteNum to [the number of member "pointer", the number of member "pointer.mask"]
  12. end
  13.  
  14. on loadBrowser
  15.   global myfile
  16.   set myfile to new(xtra("fileio"))
  17.   set finalPath to field "OSPath"
  18.   openFile(myfile, finalPath & "Browser.txt", 1)
  19.   set TheWeb to readLine(myfile)
  20.   put TheWeb into field "browserLoc"
  21.   closeFile(myfile)
  22.   set myfile to 0
  23. end
  24.