From 680d108f072a4505ba6e2148d619bc8b6de6ad84 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Wed, 9 Nov 2022 06:30:53 +0700 Subject: rev and cowsay added --- ShiftOS-TheRevival/MainForms/TerminalApps.vb | 42 +++++++++++++++++----------- 1 file changed, 25 insertions(+), 17 deletions(-) (limited to 'ShiftOS-TheRevival/MainForms/TerminalApps.vb') 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 -- cgit v1.2.3