diff options
| author | EverythingWindows <[email protected]> | 2022-11-09 06:30:53 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-09 06:30:53 +0700 |
| commit | 680d108f072a4505ba6e2148d619bc8b6de6ad84 (patch) | |
| tree | 34e1e50788d9a63478fcc812f7f165a2efb504aa /ShiftOS-TheRevival/MainForms/TerminalApps.vb | |
| parent | 344a0ff99e1adc6b3cd97e0d4ce7496b12d624b9 (diff) | |
| download | shiftos-therevival-old-680d108f072a4505ba6e2148d619bc8b6de6ad84.tar.gz shiftos-therevival-old-680d108f072a4505ba6e2148d619bc8b6de6ad84.tar.bz2 shiftos-therevival-old-680d108f072a4505ba6e2148d619bc8b6de6ad84.zip | |
rev and cowsay added
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/TerminalApps.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalApps.vb | 42 |
1 files changed, 25 insertions, 17 deletions
diff --git a/ShiftOS-TheRevival/MainForms/TerminalApps.vb b/ShiftOS-TheRevival/MainForms/TerminalApps.vb index 40346af..dbfcaa1 100644 --- a/ShiftOS-TheRevival/MainForms/TerminalApps.vb +++ b/ShiftOS-TheRevival/MainForms/TerminalApps.vb @@ -78,24 +78,32 @@ Module TerminalApps Public Sub CaptureKeyBinding(KeysInput As Keys) Select Case KeysInput Case (Keys.S + Keys.Control) - If File.Exists(Terminal.CurrentDirectory & "\" & Terminal.command) = True Then - Dim TempCompare As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & Terminal.command) - If Terminal.TextBox1.Text = TempCompare Then + Select Case Terminal.CurrentInterpreter + Case "textpad" + If File.Exists(Terminal.CurrentDirectory & "\" & Terminal.command) = True Then + Dim TempCompare As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & Terminal.command) + If Terminal.TextBox1.Text = TempCompare Then - Else - Dim BeforeCP As Integer = Strings.ComputerInfo(2) - SaveFile(Terminal.command) - TextPad_GenerateCP_SavedFile() - Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP - Terminal.ToolBar.Text = "TextPad - " & Terminal.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(Terminal.command) - TextPad_GenerateCP_SavedFile() - Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP - Terminal.ToolBar.Text = "TextPad - " & Terminal.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(Terminal.command) + TextPad_GenerateCP_SavedFile() + Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP + Terminal.ToolBar.Text = "TextPad - " & Terminal.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(Terminal.command) + TextPad_GenerateCP_SavedFile() + Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP + Terminal.ToolBar.Text = "TextPad - " & Terminal.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 Terminal.CurrentInterpreter + Case "textpad" + Terminal.TextBox1.Text = Nothing + End Select End Select End Sub |