From 415ee1e40d41886cb7ccf23ee004c7fa67dd7418 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Wed, 16 Nov 2022 08:28:22 +0700 Subject: More enhanced code management and DesktopEnvironment experiments --- .../TerminalApplications/Internal/Com_Infobar.vb | 25 ++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Infobar.vb (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Infobar.vb') diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Infobar.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Infobar.vb new file mode 100644 index 0000000..c067125 --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Infobar.vb @@ -0,0 +1,25 @@ +Module Com_Infobar + Public Sub Infobar() + '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" + Console.CheckFeature() + Console.BadCommand = False + advancedtool = False + Case "off" + Strings.OnceInfo(2) = "False" + Console.CheckFeature() + Console.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)) + Console.BadCommand = False + End If + End If + End Sub +End Module -- cgit v1.2.3