Ford Escape Interactive Owner Experience 2002/Escape.bin/mac/support/acc_detect.dxr/00019_CheckBrowser Handlers.ls

Text File | 2001-12-27 | 928 b | 28 lines

on checkbrowser vStrWebAddr, vStrIniFileName
  if not voidp(vStrWebAddr) and (vStrWebAddr <> EMPTY) then
    if not baOpenURL(vStrWebAddr, EMPTY) then
      vStrBrowserLoc = baReadIni("Browser", "Location", "Not available", vStrIniFileName)
      if vStrBrowserLoc <> "Not available" then
        open(vStrWebAddr, vStrBrowserLoc)
      else
        BrowserChoose(vStrWebAddr, vStrIniFileName)
      end if
    end if
  end if
end

on BrowserChoose vStrWebAddr, vStrIniFileName
  if not voidp(vStrWebAddr) and (vStrWebAddr <> EMPTY) then
    vObjNew = new(xtra("fileio"))
    setFilterMask(vObjNew, "Browsers (*.exe),*.exe, All Files (*.*),*.*")
    vStrBrowserLoc = displayOpen(vObjNew)
    if voidp(vStrBrowserLoc) or (vStrBrowserLoc = EMPTY) then
      nothing()
    else
      baWriteIni("Browser", "Location", vStrBrowserLoc, vStrIniFileName)
      open(vStrWebAddr, vStrBrowserLoc)
    end if
    vObjNew = 0
  end if
end