diff options
| author | EverythingWindows <[email protected]> | 2022-11-06 14:24:53 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-06 14:24:53 +0700 |
| commit | 8e4b29c5a54d679099d8eb487c76062c4960c069 (patch) | |
| tree | d0d31ed80450f9befc8f7dda894f8af68ebfa14e /ShiftOS-TheRevival/MainForms/Terminal.vb | |
| parent | f20fb77b7d168ca501c68c6b3c8fe1ee0c4c7a87 (diff) | |
| download | shiftos-therevival-old-8e4b29c5a54d679099d8eb487c76062c4960c069.tar.gz shiftos-therevival-old-8e4b29c5a54d679099d8eb487c76062c4960c069.tar.bz2 shiftos-therevival-old-8e4b29c5a54d679099d8eb487c76062c4960c069.zip | |
perfection to color function
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Terminal.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/Terminal.vb | 51 |
1 files changed, 46 insertions, 5 deletions
diff --git a/ShiftOS-TheRevival/MainForms/Terminal.vb b/ShiftOS-TheRevival/MainForms/Terminal.vb index f838a54..199f68a 100644 --- a/ShiftOS-TheRevival/MainForms/Terminal.vb +++ b/ShiftOS-TheRevival/MainForms/Terminal.vb @@ -55,11 +55,17 @@ Public Class Terminal Public Sub CheckFeature() If Strings.AvailableFeature(4) = "1" Then - InfoBarTimer.Start() - TextBox1.Dock = DockStyle.None - InfoBar.Visible = True - InfoBar.SendToBack() - TextBox1.Dock = DockStyle.Fill + If Strings.OnceInfo(2) = "True" Then + InfoBarTimer.Start() + TextBox1.Dock = DockStyle.None + InfoBar.Visible = True + InfoBar.SendToBack() + TextBox1.Dock = DockStyle.Fill + Else + TextBox1.Dock = DockStyle.None + InfoBar.Visible = False + TextBox1.Dock = DockStyle.Fill + End If Else TextBox1.Dock = DockStyle.None InfoBar.Visible = False @@ -135,6 +141,10 @@ Public Class Terminal TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet" AdvancedCommand = False BadCommand = False + Case "colors" + DisplayColors() + AdvancedCommand = False + BadCommand = False Case "guess" ChangeInterpreter = True AppHost("guess") @@ -160,6 +170,8 @@ Public Class Terminal TextBox1.Text = TextBox1.Text & Environment.NewLine & "CLEAR Clear the terminal" End If TextBox1.Text = TextBox1.Text & Environment.NewLine & "CODEPOINT Display Codepoint(s) from your wallet" + TextBox1.Text = TextBox1.Text & Environment.NewLine & "COLOR Changes Terminal Text and Background color to the corresponding choice" + TextBox1.Text = TextBox1.Text & Environment.NewLine & "COLORS Shows available colors support for the terminal" TextBox1.Text = TextBox1.Text & Environment.NewLine & "GUESS Runs 'Guess the Number' application" TextBox1.Text = TextBox1.Text & Environment.NewLine & "HELP Shows all commands available and its corresponding action" If Strings.AvailableFeature(0) = 1 Then @@ -280,6 +292,35 @@ Public Class Terminal End Select If AdvancedCommand = True Then + If command Like "color *" Then + GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1)) + BadCommand = False + End If + If command Like "infobar *" Then + If Strings.AvailableFeature(4) = "1" Then + 'Infobar panel-ish and some sort + Dim infobarcommand As String = command.Replace("infobar ", "") + Dim advancedtool As Boolean = True + Select Case infobarcommand + Case "on" + Strings.OnceInfo(2) = "True" + CheckFeature() + BadCommand = False + advancedtool = False + Case "off" + Strings.OnceInfo(2) = "False" + CheckFeature() + BadCommand = False + advancedtool = False + End Select + If advancedtool = True Then + If infobarcommand Like "color *" Then + GetColor("infobar", infobarcommand.Substring(6, 1), infobarcommand.Substring(7, 1)) + BadCommand = False + End If + End If + End If + End If If command Like "man *" Then If Strings.AvailableFeature(0) = "1" Then 'MAN command starts with this kinda format |