Basic Window Manager implemented0.0.1

WARNING: Due to a bug that made the save engine think it was ShiftOS
0.0.8, I had to change the actualshiftversion variable to prevent older
ShiftOS versions opening the save file thus crashing. Due to this,
ShiftOS-Next will automatically delete C:\ShiftOS and rewrite the save.

Besides that, I've added a new Window Manager that can be bought after
buying Gray, Basic GUI Server, File Skimmer, and Textpad. This window
manager allows you to run multiple apps at once in their own window, as
well as having up to 3 Terminals running at once. It is a
work-in-progress feature, but it's currently stable.

1 files changed, 29 insertions, 0 deletions

diff --git a/shiftos_next/BWMDesktop.vb b/shiftos_next/BWMDesktop.vb
new file mode 100644
index 0000000..07841a5
--- /dev/null
+++ b/shiftos_next/BWMDesktop.vb
@@ -0,0 +1,29 @@
+Namespace BasicWM
+    Public Class Desktop
+
+        Public openterminals As Integer = 0
+
+        Private Sub btnnewterminal_Click(sender As Object, e As EventArgs) Handles btnnewterminal.Click
+            If openterminals = 3 Then
+                AddLine("The maximum ammount of Terminal windows are open.")
+                AddLine(username + "@" + osname + " " & Terminal.currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ")
+            Else
+                Dim term As New Terminal
+                term.StartPosition = FormStartPosition.CenterParent
+                term.TopMost = True
+                term.Show()
+                openterminals += 1
+            End If
+        End Sub
+
+        Private Sub Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+            Terminal.Close()
+            Me.WindowState = FormWindowState.Maximized
+            Dim term As New Terminal
+            term.StartPosition = FormStartPosition.CenterParent
+            term.TopMost = True
+            term.Show()
+            openterminals += 1
+        End Sub
+    End Class
+End Namespace
\ No newline at end of file