JanusWM small foundation

ShiftOS-TheRevival/API/TerminalAPI.vb

@@ -19,7 +19,7 @@ Module TerminalAPI
             If Strings.IsFree = True Then
                 Strings.ComputerInfo(0) = "shiftos"
                 Strings.ComputerInfo(1) = "user"
-                Strings.ComputerInfo(7) = 1
+                Strings.ComputerInfo(7) = 2
                 Terminal_CheckFeature()
                 Terminal_PrintPrompt()
                 Terminal_AssignPrompt()

ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb

@@ -7,7 +7,7 @@
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
     Public Shared Achievement As String
-    Public Shared ProcessID(1) As String
+    Public Shared ProcessID(15) As String
 
     'STRING CATEGORIZATION WRITING RULES!
     'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS!

ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/DesktopManager.vb

@@ -23,7 +23,9 @@ Module DesktopManager
         If Strings.OnceInfo(6) = "story" Then
             SaveGame()
         End If
+        If Strings.ComputerInfo(7) = 1 Then
             MsgBox("this is not a bug, this is a feature") 'Use this messagebox to hold Console to stay open, because removing this line closes Console all together for some reason
+        End If
         Console.Show()
         Desktop.Hide()
     End Sub
@@ -44,6 +46,8 @@ Module DesktopManager
         Select Case Strings.ComputerInfo(7)
             Case 1
                 DuWM_Initiate()
+            Case 2
+                AnusWM_Initiate()
         End Select
     End Sub
 End Module

ShiftOS-TheRevival/MainForms/WindowManager/codename AnusWM/AnusWM_Main.vb

@@ -0,0 +1,6 @@
+Module AnusWM_Main
+    Public Sub AnusWM_Initiate()
+        AnusWM_Menu.Show()
+        AnusWM_Menu.Location = New Point(25, 25)
+    End Sub
+End Module

ShiftOS-TheRevival/MainForms/WindowManager/codename AnusWM/AnusWM_Menu.Designer.vb

@@ -51,31 +51,31 @@ Partial Class AnusWM_Menu
         'ToolStripMenuItem1
         '
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(106, 4)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(132, 4)
         '
         'ApplicationsToolStripMenuItem
         '
         Me.ApplicationsToolStripMenuItem.Name = "ApplicationsToolStripMenuItem"
-        Me.ApplicationsToolStripMenuItem.Size = New System.Drawing.Size(106, 25)
+        Me.ApplicationsToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
         Me.ApplicationsToolStripMenuItem.Text = "Applications"
         '
         'ShifterToolStripMenuItem
         '
         Me.ShifterToolStripMenuItem.Name = "ShifterToolStripMenuItem"
-        Me.ShifterToolStripMenuItem.Size = New System.Drawing.Size(106, 25)
+        Me.ShifterToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
         Me.ShifterToolStripMenuItem.Text = "Shifter"
         '
         'AboutToolStripMenuItem
         '
         Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
-        Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(106, 25)
+        Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
         Me.AboutToolStripMenuItem.Text = "About"
         '
         'ExitToolStripMenuItem
         '
         Me.ExitToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StopAnusWMToolStripMenuItem, Me.RestartToolStripMenuItem, Me.ShutdownToolStripMenuItem})
         Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
-        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(106, 25)
+        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(132, 25)
         Me.ExitToolStripMenuItem.Text = "Exit"
         '
         'StopAnusWMToolStripMenuItem
@@ -98,10 +98,10 @@ Partial Class AnusWM_Menu
         '
         'lbl_Title
         '
-        Me.lbl_Title.BackColor = System.Drawing.Color.Black
+        Me.lbl_Title.BackColor = System.Drawing.Color.Gray
         Me.lbl_Title.Dock = System.Windows.Forms.DockStyle.Top
         Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic)
-        Me.lbl_Title.ForeColor = System.Drawing.Color.White
+        Me.lbl_Title.ForeColor = System.Drawing.Color.Black
         Me.lbl_Title.Location = New System.Drawing.Point(0, 0)
         Me.lbl_Title.Name = "lbl_Title"
         Me.lbl_Title.Size = New System.Drawing.Size(139, 25)
@@ -117,6 +117,7 @@ Partial Class AnusWM_Menu
         Me.ClientSize = New System.Drawing.Size(139, 137)
         Me.Controls.Add(Me.mnu_Main)
         Me.Controls.Add(Me.lbl_Title)
+        Me.ForeColor = System.Drawing.Color.Gray
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.MainMenuStrip = Me.mnu_Main
         Me.Name = "AnusWM_Menu"

ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj

@@ -233,6 +233,7 @@
     </Compile>
     <Compile Include="API\ConsoleAPI.vb" />
     <Compile Include="API\TerminalAPI.vb" />
+    <Compile Include="MainForms\WindowManager\codename AnusWM\AnusWM_Main.vb" />
     <Compile Include="MainForms\WindowManager\codename AnusWM\AnusWM_Menu.Designer.vb">
       <DependentUpon>AnusWM_Menu.vb</DependentUpon>
     </Compile>

ShiftOS-TheRevival/TerminalApplications/Internal/Com_Shiftfetch.vb

@@ -19,6 +19,8 @@
             Select Case Strings.ComputerInfo(7)
                 Case 1
                     AddLine("Dual Window Manager")
+                Case 2
+                    AddLine("Anus Window Manager")
             End Select
         End If
         NewLine(" ^@@! :          @Y   .:::^~:.           7#  Y@^  Desktop Environment: -")