Public Sub _init()

  ExampleTitle["Automation"] = ("Automation")
  ExampleTitle["Basic"] = ("Basic")
  ExampleTitle["Database"] = ("Database")
  ExampleTitle["Drawing"] = ("Drawing")
  ExampleTitle["Games"] = ("Games")
  ExampleTitle["Image"] = ("Image")
  ExampleTitle["Misc"] = ("Miscellaneous")
  ExampleTitle["Networking"] = ("Networking")
  ExampleTitle["OpenGL"] = ("OpenGL")
  ExampleTitle["Printing"] = ("Printing")
  ExampleTitle["Sound"] = ("Sound")
  ExampleTitle["Video"] = ("Video")
  ExampleTitle["Control"] = ("Controls")
  ExampleTitle["Multimedia"] = ("Multimedia")
  ExampleTitle["Web"] = ("Web")

End

Public Sub InitWebView()

  'Dim sPath As String
  Dim hDefaultFont As Font
  Dim hFixedFont As Font

  ' If Not WebSettings.Cache.Path Then
  '   sPath = "~/.cache"
  '   Try Mkdir sPath
  '   sPath &/= "gambas3"
  '   Try Mkdir sPath
  '   sPath &/= "help"
  '   Try Mkdir sPath
  '   WebSettings.Cache.Path = sPath
  '   WebSettings.Cache.Enabled = True
  ' Endif

  'WebSettings.Fonts.StandardFont = Application.Font.Name
  'hFont = Font[Settings["/Editor/Font", Application.Font]]
  
  hDefaultFont = Font[Settings["/Help/Font"]]
  hFixedFont = Font[Settings["/Help/FixedFont", DEFAULT_FONT]]
  
  WebSettings.Fonts.Serif = hDefaultFont.Name
  WebSettings.Fonts.SansSerif = hDefaultFont.Name
  WebSettings.Fonts.DefaultSize = hDefaultFont.Size

  ' sFont = Replace(sDefaultFont, "Sans", "Mono")
  ' If sFont = sDefaultFont Or If Not Fonts.Exist(sFont) Then
  '   sFont = Application.Font.Name & "Mono"
  '   If Not Fonts.Exist(sFont) Then
  '     sFont = Application.Font.Name & " Mono"
  '     If Not Fonts.Exist(sFont) Then
  '       sFont = ""
  '     Endif
  '   Endif
  ' Endif
  
  WebSettings.Fonts.Fixed = hFixedFont.Name
  WebSettings.Fonts.DefaultFixedSize = hFixedFont.Size
  
End
