DuWM enhancements

1 files changed, 50 insertions, 0 deletions

diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb
new file mode 100644
index 0000000..55f0e41
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb
@@ -0,0 +1,50 @@
+Public Class DuWM_Shifter
+    Private PrevHeight As Integer = Height
+    Private PrevWidth As Integer = Width
+    Private FeatureGap As Integer = 450 - 400
+    Private ChildFeature As String
+
+    Private Sub Shifter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click
+        Close()
+    End Sub
+
+    Private Sub DuWM_Shifter_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
+        Dim WidthRatio As Double = (Width / PrevWidth)
+        Dim HeightRatio As Double = (Height / PrevHeight)
+        lst_Features.Height = Height - FeatureGap
+        PrevHeight = Height
+        PrevWidth = Width
+    End Sub
+
+    Private Sub lst_Features_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_Features.SelectedIndexChanged
+        If lst_Features.SelectedItem = ChildFeature Then
+
+        Else
+            Select Case lst_Features.SelectedItem
+                Case "Desktop"
+                    Dim Shifter_Desktop As New DuWM_Shifter_Desktop
+                    Shifter_Desktop.Size = pnl_Content.Size
+                    ChildFeature = "Desktop"
+                    pnl_Content.Controls.Clear()
+                    pnl_Content.Controls.Add(Shifter_Desktop)
+                Case "About"
+                    ChildFeature = "About"
+                    Dim Shifter_About As New DuWM_Shifter_About
+                    Shifter_About.Size = pnl_Content.Size
+                    pnl_Content.Controls.Clear()
+                    pnl_Content.Controls.Add(Shifter_About)
+            End Select
+        End If
+    End Sub
+
+    Private Sub btn_Apply_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Select Case lst_Features.SelectedItem
+            Case "Desktop"
+                Desktop.BackColor = DuWM_Shifter_Configs.DesktopBackColor
+        End Select
+    End Sub
+End Class
\ No newline at end of file