Private Sub WebKitX_OnCreate(ByVal Settings As WebKitXCEF3Lib.ISettings, CommandLineSwitches As String)
    
    On Error Resume Next
    
    With Settings
        
        .app_path = App.Path
        .accept_language_list = "es-CL,en-GB"
        .remote_debugging_port = 9999
        .persist_session_cookies = 0
        .persist_user_preferences = 0
        
        .nodejs_auto_start = False
        .nodejs_debug_port = 9998
        .nodejs_debugger_protocol = "inspector"
        .nodejs_executable = App.Path + "\etc\config\server\node.exe"
        .nodejs_modules_path = App.Path + "\etc\config\server\node_modules"
        .nodejs_command_line_arguments = " --stack-trace-limit=25 --interactive --report-compact --insecure-http-parser "
        .nodejs_terminate_on_debug_end = True
        
    End With
    
    CommandLineSwitches = CommandLineSwitches + " --no-proxy-server --disable-cache --disable-gpu-program-cache --disable-gpu-shader-disk-cache"
    CommandLineSwitches = CommandLineSwitches + " --disable-background-networking --disable-background-timer-throttling --disable-backgrounding-occluded-windows"
    CommandLineSwitches = CommandLineSwitches + " --disable-breakpad --disable-client-side-phishing-detection --disable-default-apps --disable-dev-shm-usage "
    CommandLineSwitches = CommandLineSwitches + " --disable-renderer-backgrounding --disable-sync --metrics-recording-only --no-first-run --no-default-browser-check"
    
End Sub

Private Sub WebKitX_OnDebuggerStarted(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER)
    
    On Error Resume Next
    
    If Debugger = DEBUGGER_CHROMIUM Then
        
        ClientDebuggerReady = True
        
    End If
    
    If Debugger = DEBUGGER_NODEJS Then
        ServerDebuggerReady = True
        LoadBreakPoints DEBUGGER_NODEJS
    End If
    
    LoadBreakPoints Debugger
    
    UpdateDebuggerStatus
    
End Sub

Private Sub WebKitX_OnLoadEnd()
    
    On Error Resume Next
    
    Caption = WebKitX.Document.Title
    PageLoaded = True
    UpdateDebuggerStatus
    
End Sub

Private Sub WebKitX_OnDebuggerTerminated(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER)
    
    On Error Resume Next
    
    If Debugger = DEBUGGER_CHROMIUM Then
        ClientDebuggerReady = False
        
   ElseIf Debugger = DEBUGGER_NODEJS Then
        ServerDebuggerReady = False
        
    End If

End Sub

Private Sub WebKitX_OnWebSocketError(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER, ByVal ErrorCode As Long, ByVal ErrorDescr As String)

    On Error Resume Next
    
    If Debugger = DEBUGGER_CHROMIUM Then
        ClientDebuggerReady = False
    
    ElseIf Debugger = DEBUGGER_NODEJS Then
        ServerDebuggerReady = False
        
    End If

End Sub

Private Sub WebKitX_OnDebuggerPaused(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER)
    
    On Error Resume Next
    
    If Debugger = DEBUGGER_CHROMIUM Then
        ClientPaused = True
    
    ElseIf Debugger = DEBUGGER_NODEJS Then
        ServerPaused = True
            
    End If
    
    UpdateDebuggerStatus
    
End Sub

Private Sub WebKitX_OnDebuggerResumed(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER)
    
    On Error Resume Next
    
    If Debugger = DEBUGGER_CHROMIUM Then
        ClientPaused = False
        
    ElseIf Debugger = DEBUGGER_NODEJS Then
        ServerPaused = False
        
    End If
    
    UpdateDebuggerStatus
        
End Sub

Private Sub WebKitX_OnDebuggerBreakpointHit(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER, _
                                            ByVal URL As String, ByVal ScriptID As String, ByVal CallFrameID As String, _
                                            ByVal Line As Long, ByVal Col As Long, ByVal Exception As String, _
                                            ByVal JSON As String)
    On Error Resume Next
    
    frm_Designer.Editor.CallByNameAsync "OnDebuggerBreakpointHit", Array(Debugger, URL, ScriptID, CallFrameID, Line, Col, Exception)
    
    UpdateDebuggerStatus
    
End Sub

Private Sub WebKitX_OnConsoleMessage(ByVal ConsoleMessage As String, ByVal Source As String, ByVal Line As Long)
    
    On Error Resume Next
    
    frm_Designer.Editor.CallByNameAsync "OnDebuggerConsoleMessage", Array(ConsoleMessage, Source, Line)
    
End Sub

Private Sub WebKitX_OnError(ByVal ErrorCode As Long, ByVal ErrorDescr As String)
    
    On Error Resume Next
    
    frm_Designer.Editor.CallByNameAsync "OnDebuggerError", Array(ErrorDescr, ErrorCode)
    
End Sub