diff options
| author | EverythingWindows <[email protected]> | 2022-11-17 11:44:01 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-17 11:44:01 +0700 |
| commit | 9d0b741e7b1ced233cd791f51e1c975b60d43acd (patch) | |
| tree | c946d787509201ada3a34553c01a275f2f17969e /ShiftOS-TheRevival/TerminalApplications/External | |
| parent | dc8ddb780f10e7c8372c558ad4dec5fd171b8cc8 (diff) | |
| download | shiftos-therevival-old-9d0b741e7b1ced233cd791f51e1c975b60d43acd.tar.gz shiftos-therevival-old-9d0b741e7b1ced233cd791f51e1c975b60d43acd.tar.bz2 shiftos-therevival-old-9d0b741e7b1ced233cd791f51e1c975b60d43acd.zip | |
Added KeyboardHandler to handle shortcuts and key input to make it universally used
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/External')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb | 31 |
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 |