aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb
diff options
context:
space:
mode:
authorEverythingWindows <[email protected]>2022-11-23 08:36:50 +0700
committerEverythingWindows <[email protected]>2022-11-23 08:36:50 +0700
commit30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d (patch)
tree64ea4a51d30d7405d96866c546779f8a1f051060 /ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb
parent60b812a15b3912afe36679652d8fa625aea126bf (diff)
downloadshiftos-therevival-old-30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d.tar.gz
shiftos-therevival-old-30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d.tar.bz2
shiftos-therevival-old-30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d.zip
DuWM enhancements
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb')
-rw-r--r--ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb43
1 files changed, 0 insertions, 43 deletions
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb
deleted file mode 100644
index b0b4afb..0000000
--- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb
+++ /dev/null
@@ -1,43 +0,0 @@
-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 Button1_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
-End Class \ No newline at end of file