[Gambas-user] Bug in FExplorer

Peter k-p.richter at ...20...
Wed Aug 18 23:50:38 CEST 2004


Hallo Benoit,

FExplorer say 'Broken link ...' by intern link in helpfiles (...html#link) 
because of:
  IF Exist(sLink) THEN
in SUB GotoLink(...)

My provisional change (without check for intern link):
  IF sLink LIKE "http://*" THEN

    sExec = Application.Env["BROWSER"]
    IF NOT sExec THEN sExec = "mozilla"
    
    SHELL sExec & " " & Chr$(34) & sLink & Chr$(34)

  ELSE

'----------Ri 08.04
    iPos = Instr(sLink, ".html#")
    IF iPos THEN
      sText = Left(sLink, iPos + 4)
    ELSE
      sText = sLink
    ENDIF
    IF Exist(sText) THEN  ' for IF Exist(sLink) then
'-----------
etc

Regards

Peter




More information about the User mailing list