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, 38 insertions, 0 deletions

diff --git a/shiftos_next/ColorPicker.vb b/shiftos_next/ColorPicker.vb
new file mode 100644
index 0000000..d569c65
--- /dev/null
+++ b/shiftos_next/ColorPicker.vb
@@ -0,0 +1,38 @@
+Namespace BasicWM
+    Public Class ColorPicker
+
+        Public Color As Color
+        Public oldcolor As Color
+
+        Private Sub btnwhite_Click(sender As Object, e As EventArgs) Handles btnwhite.Click, btnblack.Click, btngray.Click, btnred.Click, btngreen.Click, btnblue.Click, btnyellow.Click, btnorange.Click, btnpink.Click, btnpurple.Click, btnbrown.Click
+            Color = sender.backcolor
+            lbselectedcolor.Text = "Selected color: " & Color.ToKnownColor.ToString
+        End Sub
+
+        Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
+            Me.Close()
+        End Sub
+
+        Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
+            Color = oldcolor
+            Me.Close()
+        End Sub
+
+        Private Sub ColorPicker_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+            loadcolors()
+        End Sub
+
+
+        Public Sub loadcolors()
+            If boughtgray Then btngray.Show()
+            If boughtred Then btnred.Show()
+            If boughtgreen Then btngreen.Show()
+            If boughtblue Then btnblue.Show()
+            If boughtyellow Then btnyellow.Show()
+            If boughtorange Then btnorange.Show()
+            If boughtpink Then btnpink.Show()
+            If boughtpurple Then btnpurple.Show()
+            If boughtbrown Then btnbrown.Show()
+        End Sub
+    End Class
+End Namespace
\ No newline at end of file