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_Shiftorium.vb | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Shiftorium.vb (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Shiftorium.vb') diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Shiftorium.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Shiftorium.vb new file mode 100644 index 0000000..47fecd1 --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Shiftorium.vb @@ -0,0 +1,18 @@ +Module Com_Shiftorium + Public Sub Shiftorium() + Dim prompt As String = command.Replace("shiftorium ", "") + NewLine("Shiftorium ShiftOS Center") + If prompt Like "info *" Then + Shiftoriums.prompt = command.Replace("shiftorium info ", "") + Shiftorium_InformationFeatures() + End If + If prompt Like "install *" Then + Shiftoriums.prompt = command.Replace("shiftorium install ", "") + Shiftorium_DetectInstallFeatures() + End If + If prompt = "list" Then + Shiftorium_ListFeatures() + Console.BadCommand = False + End If + End Sub +End Module -- cgit v1.2.3