home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 2 / boot-disc-1996-10.iso / bootNet.dir / 00015_Script_BrowserClass < prev    next >
Text File  |  1996-08-09  |  3KB  |  88 lines
  1. property browser,activrec,defaultprotocol,defaultURL
  2.  
  3. on new me
  4.   global browserObj
  5.   set browser=#undefined
  6.   set defaultprotocol=""
  7.   set defaultURL="www.bootnet.com"
  8.   getBrowserPath me
  9.   set activerec=0
  10.   set browserObj=me
  11.   return me
  12. end
  13.  
  14. on launchURL me,URL
  15.   if browser<>#none then
  16.     if voidP(URL) then
  17.       set URL=defaultprotocol&defaultURL
  18.     end if
  19.     open browser&&URL
  20.   else
  21.     alert "No browser has been defined for use."
  22.   end if
  23. end
  24.  
  25. on fileExists me,filename
  26.   set file=fileIO(mNew,"read",filename)
  27.   if objectP(file) then
  28.     file(mDispose)
  29.     return true
  30.   else
  31.     return false
  32.   end if
  33. end
  34.  
  35. on getBrowserPath me,updateFlag
  36.   set oldbrowser=browser
  37.   if voidP(updateFlag) then
  38.     set updateFlag=false
  39.   else
  40.     set browser=#undefined
  41.   end if
  42. --  alert(string(browser))
  43.   if browser=#undefined then
  44.     set file=fileIO(mNew,"read","c:\windows\bootcd.ini")
  45. --    alert(string(updateFlag))
  46.     if (objectP(file)) and (not updateFlag) then
  47.       set myline="temp"
  48.       repeat while myline<>""
  49.         set myline=file(mReadLine)
  50.         if offset("browser=",myline)>0 then
  51.           set browser=char 9 to length(myline) of myline
  52.           exit repeat
  53.         end if
  54.       end repeat
  55.       file(mDispose)
  56.       if browser=#undefined then
  57.         alert("You have not yet specified a browser for your use. Could you locate the browser you wish to use?")
  58.         set file=fileIO(mNew,"?read","exe")
  59.         if objectP(file) then
  60.           set browser=file(mFileName)
  61.           file(mDispose)
  62.           set file=fileIO(mNew,"write","c:\windows\bootcd.ini")
  63.           file(mWriteString,"browser="&browser)
  64.           file(mDispose)
  65.         else
  66.           alert("You have opted not to choose a browser this session.  If you change your mind, you can set the browser path in the bootNet section of this application.")
  67.           set browser=#none
  68.         end if
  69.       end if
  70.     else
  71.       alert("Please select the path to the browser you wish to use.")
  72.       set file=fileIO(mNew,"?read","exe")
  73.       if objectP(file) then
  74.         set browser=file(mFileName)
  75.         file(mDispose)
  76.         set file=fileIO(mNew,"write","c:\windows\bootcd.ini")
  77.         file(mWriteString,"browser="&browser)
  78.         file(mDispose)
  79.         alert ("You have chosen the path: "&browser&".  This will now be stored for future reference.")
  80.       else
  81.         alert("You have opted not to choose a browser this session.  If you change your mind, you can set the browser path in the bootNet section of this application.")
  82.         set browser=#none
  83.       end if
  84.     end if
  85.   end if
  86.   return browser
  87. end
  88.