Help browser: Correctly handle project help links in online mode.

[DEVELOPMENT ENVIRONMENT]
* BUG: Help browser: Correctly handle project help links in online mode.
This commit is contained in:
gambas 2022-04-09 23:41:54 +02:00
parent 2742b48afa
commit 26d0949282
2 changed files with 8 additions and 8 deletions

View file

@ -121,6 +121,12 @@ Public Sub WebView_NewView()
End
Private Sub GetHelpView() As HelpView
Return Object.Parent(Me)
End
Private Sub HandleSpecialURL()
Dim hWin As Window
@ -129,11 +135,11 @@ Private Sub HandleSpecialURL()
If $sNextUrl Begins "gambas://" Then
MHelp.ManageSpecialLink(Me, $sNextUrl)
MHelp.ManageSpecialLink(GetHelpView(), $sNextUrl)
Else If $sNextUrl Begins "wiki://" Then
If MHelp.MakeOffline(Me, $sNextUrl, $bNoHeader) Then
If MHelp.MakeOffline(GetHelpView(), $sNextUrl, $bNoHeader) Then
hWin = Me.Window
$hNotExist.Move(Me.ScreenX - hWin.ScreenX + Desktop.Scale, Me.ScreenY - hWin.ScreenY + Me.Height - $hNotExist.H - Desktop.Scale)
$hNotExist.Show

View file

@ -257,14 +257,10 @@ End
Public Sub InitWebView()
Static bInit As Boolean
'Dim sPath As String
Dim hDefaultFont As Font
Dim hFixedFont As Font
If bInit Then Return
' If Not WebSettings.Cache.Path Then
' sPath = "~/.cache"
' Try Mkdir sPath
@ -300,8 +296,6 @@ Public Sub InitWebView()
WebSettings.Fonts.Fixed = hFixedFont.Name
WebSettings.Fonts.DefaultFixedSize = hFixedFont.Size
bInit = True
End
Public Sub Main()