Private Sub Editor_OnEvent(ByVal EventType As String, ByVal EventSelector As String, ByVal TargetSelector As String, ByVal TargetPath As String, ByVal EventData As String, ByVal Async As Boolean, PreventDefault As Boolean, CancelBubble As Boolean)

    On Error Resume Next
       
    Select Case EventType
    
    Case "mousedown"
    
        HTML_X = EventValue(EventData, "x")
        HTML_Y = EventValue(EventData, "y")
    
        If InStr(EventData, """which"": 3,") > 0 And InStr(EventData, """shiftKey"": true,") > 0 Then
            ContextMenuTimer.Enabled = False
            ContextMenuTimer.Enabled = True
        End If
        
    Case "click"
            
        Select Case TargetSelector
                
        Case "#x-w2ui-designer-action-play":
            
            If Debugger.PageLoaded Then
                        
                ' When continuing, unpause both client and server
                
                If Debugger.ClientPaused Then
                    Debugger.WebKitX.DebuggerContinue DEBUGGER_CHROMIUM
                End If
                
                If Debugger.ServerPaused Then
                    Debugger.WebKitX.DebuggerContinue DEBUGGER_NODEJS
                End If
                
            End If
                
        Case "#x-w2ui-designer-action-step-in":
            
            If Not Debugger Is Nothing Then
                
                If Debugger.ClientPaused And SelectedDebugger = DEBUGGER_CHROMIUM Then
                    
                    Debugger.WebKitX.DebuggerStepIn DEBUGGER_CHROMIUM
                
                ElseIf Debugger.ServerPaused And SelectedDebugger = DEBUGGER_NODEJS Then
                    
                    Debugger.WebKitX.DebuggerStepIn DEBUGGER_NODEJS
                    
                End If
                
            End If
            
        Case "#x-w2ui-designer-action-step-out":
            
            If Not Debugger Is Nothing Then
            
                If Debugger.ClientPaused And SelectedDebugger = DEBUGGER_CHROMIUM Then
                    
                    Debugger.WebKitX.DebuggerStepOut DEBUGGER_CHROMIUM
                
                ElseIf Debugger.ServerPaused And SelectedDebugger = DEBUGGER_NODEJS Then
                    
                    Debugger.WebKitX.DebuggerStepOut DEBUGGER_NODEJS
                    
                End If
                
            End If
            
        Case "#x-w2ui-designer-action-step-over":
            
            If Not Debugger Is Nothing Then
            
                If Debugger.ClientPaused And SelectedDebugger = DEBUGGER_CHROMIUM Then
                    
                    Debugger.WebKitX.DebuggerStepOver DEBUGGER_CHROMIUM
                
                ElseIf Debugger.ServerPaused And SelectedDebugger = DEBUGGER_NODEJS Then
                    
                    Debugger.WebKitX.DebuggerStepOver DEBUGGER_NODEJS
                    
                End If
            
            End If
            
        Case "#x-w2ui-designer-action-stop":
            
            Debugger.Hide
            Debugger.PageLoaded = False
            Debugger.WebKitX.Open "about:blank"
            Debugger.WebKitX.StopNodeJS
            Debugger.WebKitX.DebuggerContinue DEBUGGER_CHROMIUM
            PrintStatus "Ready."
            
        End Select
        
    End Select
    
End Sub