From 424931951bf55c2db7a7cb3228bfccc03ea62287 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Thu, 28 May 2015 21:42:26 -0400 Subject: 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... --- shiftos_next/BWMDesktop.vb | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 shiftos_next/BWMDesktop.vb (limited to 'shiftos_next/BWMDesktop.vb') 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 -- cgit v1.2.3