[Gambas-user] BUG: Found several bugs

[Peter]

Hallo all,

Am Mittwoch, 24. März 2004 16:53 schrieb ron:
> In: FPropertyFile
> Where:SUB Run
> What: FPropertyFile.Dialog
> Effect: Not existing if form
> Solution: change to FPropertyFile.ShowDialog
>
>
> In: FExplorer (HelpBrowser)
> Where: SUB Form_KeyPress
> What: CASE Key.BackSpace
> Effect: do not work
> Solution: create txvExplorer_KeyPress and copy content Form_KeyPress
>
>
> In: FExplorer (HelpBrowser)
> Where: several places
> What: missing links
> Effect: no info
> Solution: Wait till Benoit (or others) has time to create docs
>
>

And another:

In: FExplorer
Where:  SUB GotoLink(...)
What:    Internal Link e.g. ..../VisualIntroductionToGambas.html#New_Project) 
Effect:   Broken Link because of: Exist(sLink) = false (no filename)
Solution:  Bevor "IF Exist(sLink) Then"  :
    sText = ""
    iPos = Instr(sLink, ".html#")
    IF iPos > 0 THEN
      sText = Mid(sLink, iPos + 5)
      sLink = Left(sLink, iPos + 4)
    ENDIF
   
  Line after IF .... change to:
      txvExplorer.Path = sLink & sText

Regards

Peter