Added KeyboardHandler to handle shortcuts and key input to make it universally used

1 files changed, 0 insertions, 31 deletions

diff --git a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb
index 3f91782..b3ef9d5 100644
--- a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb
+++ b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb
@@ -73,37 +73,6 @@ Module TerminalExternalApps
         End If
     End Sub
 
-    Public Sub CaptureKeyBinding(KeysInput As Keys)
-        Select Case KeysInput
-            Case (Keys.S + Keys.Control)
-                Select Case Console.CurrentInterpreter
-                    Case "textpad"
-                        If File.Exists(Console.CurrentDirectory & "\" & command) = True Then
-                            Dim TempCompare As String = File.ReadAllText(Console.CurrentDirectory & "\" & command)
-                            If Console.TextBox1.Text = TempCompare Then
-
-                            Else
-                                Dim BeforeCP As Integer = Strings.ComputerInfo(2)
-                                SaveFile(command)
-                                TextPad_GenerateCP_SavedFile()
-                                Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
-                                Console.ToolBar.Text = "TextPad - " & command & " - You've got " & AfterCP & " Codepoints" & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As"
-                            End If
-                        Else
-                            Dim BeforeCP As Integer = Strings.ComputerInfo(2)
-                            SaveFile(command)
-                            TextPad_GenerateCP_SavedFile()
-                            Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
-                            Console.ToolBar.Text = "TextPad - " & command & " - You've got " & AfterCP & " Codepoints" & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As"
-                        End If
-                End Select
-            Case (Keys.N + Keys.Control)
-                Select Case Console.CurrentInterpreter
-                    Case "textpad"
-                        Console.TextBox1.Text = Nothing
-                End Select
-        End Select
-    End Sub
 
     Public Sub TerminateApp(KeyInput As Keys)
         Select Case Console.CurrentInterpreter