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

diff --git a/shiftos_next/BWMDesktop.vb b/shiftos_next/BWMDesktop.vb
deleted file mode 100644
index 07841a5..0000000
--- a/shiftos_next/BWMDesktop.vb
+++ /dev/null
@@ -1,29 +0,0 @@
-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