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:
parent
2742b48afa
commit
26d0949282
2 changed files with 8 additions and 8 deletions
|
@ -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
|
||||
|
|
|
@ -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()
|
||||
|
|
Loading…
Reference in a new issue