Shiftorium - Draggable Windows upgrade + Bugfixes

Alright, I've added the Draggable Windows upgrade to the Shiftorium, as
well as fixed a quick bug causing "No Items Available" to display when
there were items clearly available.

I've also fixed a positioning bug with BWM windows causing them to start
in the center of the screen, relative to the titlebar, rather than the
form.

I've also re-arranged the code a bit, organizing files in folders. APIs
are in the APIs folder, Desktop Environments are in the Desktop
Environments folder, etc.

The shiftorium still doesn't have draggable window functionality yet...

1 files changed, 38 insertions, 0 deletions

diff --git a/shiftos_next/BWM and CMD Apps/ColorPicker.vb b/shiftos_next/BWM and CMD Apps/ColorPicker.vb
new file mode 100644
index 0000000..d569c65
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/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