not-quite-finish-but-functional DuWM

1 files changed, 25 insertions, 2 deletions

diff --git a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb
index f614a70..26b9d04 100644
--- a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb
+++ b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb
@@ -1,18 +1,22 @@
 Public Class DuWM_WindowContainer
-    Public ChildForm As Form
+    Public ChildForm As New Form
     Public DuWM_PID As Integer
 
     Private Sub DuWM_WindowContainer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         DuWM_WMCheck.Start()
         DuWM_ChildSize.Start()
+        DuWM_LayoutCheck.Start()
     End Sub
 
     Private Sub DuWM_WMCheck_Tick(sender As Object, e As EventArgs) Handles DuWM_WMCheck.Tick
         If ChildForm.Visible = False Then
             Strings.ProcessID(DuWM_PID) = 0
-            Close()
         End If
         If Strings.ProcessID(DuWM_PID) = 0 Then
+            'MsgBox(Convert.ToString(ChildForm))
+            DuWM_CurrentProcess = DuWM_CurrentProcess - 1
+            DuWM_ChangeLayout = True
+            DuWM_WMCheck.Stop()
             Close()
         End If
     End Sub
@@ -20,4 +24,23 @@
     Private Sub ChildSize_Tick(sender As Object, e As EventArgs) Handles DuWM_ChildSize.Tick
         ChildForm.Size = DuWM_ContainerPanel.Size
     End Sub
+
+    Private Sub DuWM_LayoutCheck_Tick(sender As Object, e As EventArgs) Handles DuWM_LayoutCheck.Tick
+        If DuWM_ChangeLayout = True Then
+            Select Case DuWM_CurrentProcess
+                Case 1
+                    Height = Desktop.Height - 20
+                    Width = Desktop.Width - 20
+                    Location = New Point(10, 10)
+                Case 2
+                    Select Case DuWM_PID
+                        Case 0
+                            Height = Desktop.Height - 20
+                            Width = (Desktop.Width / 2) - 20
+                            Location = New Point(10, 10)
+                    End Select
+            End Select
+            DuWM_ChangeLayout = False
+        End If
+    End Sub
 End Class
\ No newline at end of file