More enhanced code management and DesktopEnvironment experiments

1 files changed, 25 insertions, 0 deletions

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