rough working DuWM

1 files changed, 40 insertions, 0 deletions

diff --git a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
index d74a3d8..ddeea59 100644
--- a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
+++ b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
@@ -2,6 +2,14 @@
     Public OnlyOne As Boolean
     Public FirstWindow As Form
     Public SecondWindow As Form
+    Public DuWM_CurrentProcess As Integer = 0
+
+    Public Sub DuWM_Initiate()
+        Strings.ProcessID(0) = 0
+        Strings.ProcessID(1) = 0
+        'DuWM_SingleWindowSet(Console)
+        DuWM_NewProcess(Console)
+    End Sub
 
     Public Sub DuWM_FirstWindowSet(WindowName As Form)
         WindowName.Show()
@@ -27,6 +35,38 @@
         WindowName.Width = Desktop.Width - 20
         WindowName.Location = New Point(10, 10)
         FirstWindow = WindowName
+        Strings.ProcessID(0) = 1
+    End Sub
+
+    Public Sub DuWM_NewProcess(ProcessName As Form)
+        Dim NewWindow As New DuWM_WindowContainer
+        DuWM_CurrentProcess = DuWM_CurrentProcess + 1
+        NewWindow.ChildForm = ProcessName
+        NewWindow.ChildForm.TopLevel = False
+        NewWindow.ChildForm.FormBorderStyle = FormBorderStyle.None
+        NewWindow.ChildForm.WindowState = FormWindowState.Normal
+        NewWindow.ChildForm.Visible = False
+        NewWindow.DuWM_ContainerPanel.Controls.Add(NewWindow.ChildForm)
+        Select Case NewWindow.ChildForm.Visible
+            Case False
+                NewWindow.ChildForm.Visible = True
+            Case Else
+                NewWindow.ChildForm.Visible = False
+        End Select
+        If ProcessName Is Console Then
+            Strings.ProcessID(0) = 1
+            NewWindow.DuWM_PID = 0
+        Else
+            Strings.ProcessID(1) = 1
+            NewWindow.DuWM_PID = 1
+        End If
+        NewWindow.Show()
+        Select Case DuWM_CurrentProcess
+            Case 1
+                NewWindow.Height = Desktop.Height - 20
+                NewWindow.Width = Desktop.Width - 20
+                NewWindow.Location = New Point(10, 10)
+        End Select
     End Sub
 
     'Public Sub DuWM_GenerateWindowSet(WindowName As Form, PID As Integer)