From 30ceaeb60fcb83cd3eaf5ec7a3dd34e3abade51d Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Wed, 23 Nov 2022 08:36:50 +0700 Subject: DuWM enhancements --- ShiftOS-TheRevival/API/TerminalAPI.vb | 8 ++ .../Functions/InGame/ROMs/Strings.vb | 1 + .../Categories/DuWM_Shifter_About.Designer.vb | 80 +++++++++++ .../Shifter/Categories/DuWM_Shifter_About.resx | 120 ++++++++++++++++ .../DuWM/Shifter/Categories/DuWM_Shifter_About.vb | 5 + .../Categories/DuWM_Shifter_Desktop.Designer.vb | 79 ++++++++++ .../Shifter/Categories/DuWM_Shifter_Desktop.resx | 120 ++++++++++++++++ .../Shifter/Categories/DuWM_Shifter_Desktop.vb | 22 +++ .../DuWM/Shifter/DuWM_Shifter.Designer.vb | 160 +++++++++++++++++++++ .../Applications/DuWM/Shifter/DuWM_Shifter.resx | 120 ++++++++++++++++ .../Applications/DuWM/Shifter/DuWM_Shifter.vb | 50 +++++++ .../DuWM/Shifter/DuWM_Shifter_Configs.vb | 3 + .../DuWM/Categories/DuWM_Shifter_About.Designer.vb | 80 ----------- .../DuWM/Categories/DuWM_Shifter_About.resx | 120 ---------------- .../Shifter/DuWM/Categories/DuWM_Shifter_About.vb | 5 - .../Categories/DuWM_Shifter_Desktop.Designer.vb | 79 ---------- .../DuWM/Categories/DuWM_Shifter_Desktop.resx | 120 ---------------- .../DuWM/Categories/DuWM_Shifter_Desktop.vb | 9 -- .../Shifter/DuWM/DuWM_Shifter.Designer.vb | 160 --------------------- .../Applications/Shifter/DuWM/DuWM_Shifter.resx | 120 ---------------- .../Applications/Shifter/DuWM/DuWM_Shifter.vb | 43 ------ .../Knowledge Input/Uni_KnowledgeInput.Designer.vb | 60 ++++++++ .../Knowledge Input/Uni_KnowledgeInput.resx | 120 ++++++++++++++++ .../Knowledge Input/Uni_KnowledgeInput.vb | 3 + .../WindowManager/DualWindowManager/DuWM_Main.vb | 64 +++++---- ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj | 29 ++-- .../TerminalApplications/Internal/Com_App.vb | 2 + .../TerminalApplications/Internal/Com_Taskkill.vb | 10 ++ 28 files changed, 1017 insertions(+), 775 deletions(-) create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.resx create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.resx create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.resx create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter_Configs.vb delete mode 100644 ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.Designer.vb delete mode 100644 ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.resx delete mode 100644 ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.vb delete mode 100644 ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.Designer.vb delete mode 100644 ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.resx delete mode 100644 ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.vb delete mode 100644 ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.Designer.vb delete mode 100644 ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.resx delete mode 100644 ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.resx create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Taskkill.vb diff --git a/ShiftOS-TheRevival/API/TerminalAPI.vb b/ShiftOS-TheRevival/API/TerminalAPI.vb index 988739e..a8f28eb 100644 --- a/ShiftOS-TheRevival/API/TerminalAPI.vb +++ b/ShiftOS-TheRevival/API/TerminalAPI.vb @@ -252,6 +252,9 @@ Module TerminalAPI NormalCommand() End If Case "reboot" + If IsStartG = True Then + StopG() + End If Console.TextBox1.Text = Nothing AdvancedCommand = False NormalCommand() @@ -366,6 +369,11 @@ Module TerminalAPI Infobar() End If End If + If command Like "taskkill *" Then + Taskkill() + AdvancedCommand = False + NormalCommand() + End If If command Like "man *" Then If Strings.AvailableFeature(0) = "1" Then Manual(command) diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb index 6bd9ac7..a8e423c 100644 --- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb +++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb @@ -128,6 +128,7 @@ ' 'Chpater 2: '>Dual Window Manager (200 CP) + '>>Console Scrollbra (200 CP) '>>DuWM RGB Support (225 CP) '>>>DuWM 16 Colors Support (275 CP) '>>Shifter (250 CP) diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.Designer.vb new file mode 100644 index 0000000..4c4521a --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.Designer.vb @@ -0,0 +1,80 @@ + +Partial Class DuWM_Shifter_About + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Me.lbl_Title = New System.Windows.Forms.Label() + Me.lbl_ShiftOSVersion = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'lbl_Title + ' + Me.lbl_Title.AutoSize = True + Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 24.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle)) + Me.lbl_Title.Location = New System.Drawing.Point(11, 10) + Me.lbl_Title.Name = "lbl_Title" + Me.lbl_Title.Size = New System.Drawing.Size(111, 45) + Me.lbl_Title.TabIndex = 0 + Me.lbl_Title.Text = "About" + ' + 'lbl_ShiftOSVersion + ' + Me.lbl_ShiftOSVersion.AutoSize = True + Me.lbl_ShiftOSVersion.Font = New System.Drawing.Font("Segoe UI", 12.0!) + Me.lbl_ShiftOSVersion.ForeColor = System.Drawing.Color.Black + Me.lbl_ShiftOSVersion.Location = New System.Drawing.Point(15, 97) + Me.lbl_ShiftOSVersion.Name = "lbl_ShiftOSVersion" + Me.lbl_ShiftOSVersion.Size = New System.Drawing.Size(123, 21) + Me.lbl_ShiftOSVersion.TabIndex = 2 + Me.lbl_ShiftOSVersion.Text = "ShiftOS Version " + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!) + Me.Label1.ForeColor = System.Drawing.Color.Black + Me.Label1.Location = New System.Drawing.Point(15, 69) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(244, 21) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "Shifter for Dual Window Manager" + ' + 'DuWM_Shifter_About + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lbl_ShiftOSVersion) + Me.Controls.Add(Me.lbl_Title) + Me.Name = "DuWM_Shifter_About" + Me.Size = New System.Drawing.Size(640, 480) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents lbl_Title As Label + Friend WithEvents lbl_ShiftOSVersion As Label + Friend WithEvents Label1 As Label +End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.resx b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.vb new file mode 100644 index 0000000..7591bdd --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_About.vb @@ -0,0 +1,5 @@ +Public Class DuWM_Shifter_About + Private Sub DuWM_Shifter_Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load + lbl_ShiftOSVersion.Text = lbl_ShiftOSVersion.Text & My.Resources.CurrentVersion + End Sub +End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb new file mode 100644 index 0000000..849c215 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb @@ -0,0 +1,79 @@ + _ +Partial Class DuWM_Shifter_Desktop + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.lbl_Title = New System.Windows.Forms.Label() + Me.cmb_DesktopColor = New System.Windows.Forms.ComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'lbl_Title + ' + Me.lbl_Title.AutoSize = True + Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 24.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle)) + Me.lbl_Title.Location = New System.Drawing.Point(11, 10) + Me.lbl_Title.Name = "lbl_Title" + Me.lbl_Title.Size = New System.Drawing.Size(142, 45) + Me.lbl_Title.TabIndex = 0 + Me.lbl_Title.Text = "Desktop" + ' + 'cmb_DesktopColor + ' + Me.cmb_DesktopColor.Font = New System.Drawing.Font("Segoe UI", 12.0!) + Me.cmb_DesktopColor.FormattingEnabled = True + Me.cmb_DesktopColor.Items.AddRange(New Object() {"Black", "Dark Gray", "Light Gray", "Red", "Dark Red", "Green", "Light Green", "Blue", "Dark Blue", "Yellow", "Dark Yellow", "Purple", "Light Purple", "Aqua", "Light Aqua", "White"}) + Me.cmb_DesktopColor.Location = New System.Drawing.Point(156, 91) + Me.cmb_DesktopColor.Name = "cmb_DesktopColor" + Me.cmb_DesktopColor.Size = New System.Drawing.Size(121, 29) + Me.cmb_DesktopColor.TabIndex = 1 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!) + Me.Label1.ForeColor = System.Drawing.Color.Black + Me.Label1.Location = New System.Drawing.Point(15, 94) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(135, 21) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "Background Color" + ' + 'DuWM_Shifter_Desktop + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.cmb_DesktopColor) + Me.Controls.Add(Me.lbl_Title) + Me.Name = "DuWM_Shifter_Desktop" + Me.Size = New System.Drawing.Size(640, 480) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents lbl_Title As Label + Friend WithEvents cmb_DesktopColor As ComboBox + Friend WithEvents Label1 As Label +End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.resx b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb new file mode 100644 index 0000000..6a476e2 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb @@ -0,0 +1,22 @@ +Public Class DuWM_Shifter_Desktop + Private Sub DuWM_Shifter_Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load + CheckAvailability() + End Sub + + Private Sub CheckAvailability() + + End Sub + + Private Sub cmb_DesktopColor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_DesktopColor.SelectedIndexChanged + Select Case cmb_DesktopColor.SelectedItem + Case "Black" + DuWM_Shifter_Configs.DesktopBackColor = Color.Black + Case "White" + DuWM_Shifter_Configs.DesktopBackColor = Color.White + Case "Light Gray" + DuWM_Shifter_Configs.DesktopBackColor = Color.Silver + Case "Dark Gray" + DuWM_Shifter_Configs.DesktopBackColor = Color.Gray + End Select + End Sub +End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb new file mode 100644 index 0000000..a117dfc --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb @@ -0,0 +1,160 @@ + +Partial Class DuWM_Shifter + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Me.pnl_LeftPane = New System.Windows.Forms.Panel() + Me.lst_Features = New System.Windows.Forms.ListBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnl_Options = New System.Windows.Forms.Panel() + Me.Button3 = New System.Windows.Forms.Button() + Me.btn_Close = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.pnl_Content = New System.Windows.Forms.Panel() + Me.pnl_LeftPane.SuspendLayout() + Me.pnl_Options.SuspendLayout() + Me.SuspendLayout() + ' + 'pnl_LeftPane + ' + Me.pnl_LeftPane.Controls.Add(Me.lst_Features) + Me.pnl_LeftPane.Controls.Add(Me.Label1) + Me.pnl_LeftPane.Dock = System.Windows.Forms.DockStyle.Left + Me.pnl_LeftPane.Location = New System.Drawing.Point(0, 0) + Me.pnl_LeftPane.Name = "pnl_LeftPane" + Me.pnl_LeftPane.Size = New System.Drawing.Size(200, 450) + Me.pnl_LeftPane.TabIndex = 0 + ' + 'lst_Features + ' + Me.lst_Features.BackColor = System.Drawing.Color.Silver + Me.lst_Features.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lst_Features.Dock = System.Windows.Forms.DockStyle.Bottom + Me.lst_Features.Font = New System.Drawing.Font("Segoe UI", 12.0!) + Me.lst_Features.FormattingEnabled = True + Me.lst_Features.ItemHeight = 21 + Me.lst_Features.Items.AddRange(New Object() {"Desktop", "About"}) + Me.lst_Features.Location = New System.Drawing.Point(0, 51) + Me.lst_Features.Name = "lst_Features" + Me.lst_Features.Size = New System.Drawing.Size(200, 399) + Me.lst_Features.TabIndex = 1 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 24.0!, System.Drawing.FontStyle.Bold) + Me.Label1.Location = New System.Drawing.Point(12, 3) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(121, 45) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Shifter" + ' + 'pnl_Options + ' + Me.pnl_Options.BackColor = System.Drawing.Color.Black + Me.pnl_Options.Controls.Add(Me.Button3) + Me.pnl_Options.Controls.Add(Me.btn_Close) + Me.pnl_Options.Controls.Add(Me.Button1) + Me.pnl_Options.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Options.Location = New System.Drawing.Point(200, 405) + Me.pnl_Options.Name = "pnl_Options" + Me.pnl_Options.Size = New System.Drawing.Size(600, 45) + Me.pnl_Options.TabIndex = 1 + ' + 'Button3 + ' + Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ForeColor = System.Drawing.Color.White + Me.Button3.Location = New System.Drawing.Point(351, 10) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(75, 23) + Me.Button3.TabIndex = 2 + Me.Button3.Text = "OK" + Me.Button3.UseVisualStyleBackColor = True + ' + 'btn_Close + ' + Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Close.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_Close.ForeColor = System.Drawing.Color.White + Me.btn_Close.Location = New System.Drawing.Point(432, 10) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 23) + Me.btn_Close.TabIndex = 1 + Me.btn_Close.Text = "Cancel" + Me.btn_Close.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.White + Me.Button1.Location = New System.Drawing.Point(513, 10) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 0 + Me.Button1.Text = "Apply" + Me.Button1.UseVisualStyleBackColor = True + ' + 'pnl_Content + ' + Me.pnl_Content.AllowDrop = True + Me.pnl_Content.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Content.Location = New System.Drawing.Point(200, 0) + Me.pnl_Content.Name = "pnl_Content" + Me.pnl_Content.Size = New System.Drawing.Size(600, 405) + Me.pnl_Content.TabIndex = 2 + ' + 'DuWM_Shifter + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.pnl_Content) + Me.Controls.Add(Me.pnl_Options) + Me.Controls.Add(Me.pnl_LeftPane) + Me.ForeColor = System.Drawing.Color.Black + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "DuWM_Shifter" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Shifter" + Me.TopMost = True + Me.pnl_LeftPane.ResumeLayout(False) + Me.pnl_LeftPane.PerformLayout() + Me.pnl_Options.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents pnl_LeftPane As Panel + Friend WithEvents Label1 As Label + Friend WithEvents lst_Features As ListBox + Friend WithEvents pnl_Options As Panel + Friend WithEvents Button3 As Button + Friend WithEvents btn_Close As Button + Friend WithEvents Button1 As Button + Friend WithEvents pnl_Content As Panel +End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.resx b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file 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 diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter_Configs.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter_Configs.vb new file mode 100644 index 0000000..2b7c70d --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter_Configs.vb @@ -0,0 +1,3 @@ +Public Class DuWM_Shifter_Configs + Public Shared DesktopBackColor As Color +End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.Designer.vb deleted file mode 100644 index 4c4521a..0000000 --- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.Designer.vb +++ /dev/null @@ -1,80 +0,0 @@ - -Partial Class DuWM_Shifter_About - Inherits System.Windows.Forms.UserControl - - 'UserControl overrides dispose to clean up the component list. - - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - - Private Sub InitializeComponent() - Me.lbl_Title = New System.Windows.Forms.Label() - Me.lbl_ShiftOSVersion = New System.Windows.Forms.Label() - Me.Label1 = New System.Windows.Forms.Label() - Me.SuspendLayout() - ' - 'lbl_Title - ' - Me.lbl_Title.AutoSize = True - Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 24.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle)) - Me.lbl_Title.Location = New System.Drawing.Point(11, 10) - Me.lbl_Title.Name = "lbl_Title" - Me.lbl_Title.Size = New System.Drawing.Size(111, 45) - Me.lbl_Title.TabIndex = 0 - Me.lbl_Title.Text = "About" - ' - 'lbl_ShiftOSVersion - ' - Me.lbl_ShiftOSVersion.AutoSize = True - Me.lbl_ShiftOSVersion.Font = New System.Drawing.Font("Segoe UI", 12.0!) - Me.lbl_ShiftOSVersion.ForeColor = System.Drawing.Color.Black - Me.lbl_ShiftOSVersion.Location = New System.Drawing.Point(15, 97) - Me.lbl_ShiftOSVersion.Name = "lbl_ShiftOSVersion" - Me.lbl_ShiftOSVersion.Size = New System.Drawing.Size(123, 21) - Me.lbl_ShiftOSVersion.TabIndex = 2 - Me.lbl_ShiftOSVersion.Text = "ShiftOS Version " - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!) - Me.Label1.ForeColor = System.Drawing.Color.Black - Me.Label1.Location = New System.Drawing.Point(15, 69) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(244, 21) - Me.Label1.TabIndex = 2 - Me.Label1.Text = "Shifter for Dual Window Manager" - ' - 'DuWM_Shifter_About - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.White - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.lbl_ShiftOSVersion) - Me.Controls.Add(Me.lbl_Title) - Me.Name = "DuWM_Shifter_About" - Me.Size = New System.Drawing.Size(640, 480) - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents lbl_Title As Label - Friend WithEvents lbl_ShiftOSVersion As Label - Friend WithEvents Label1 As Label -End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.resx b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.resx deleted file mode 100644 index 1af7de1..0000000 --- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.vb b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.vb deleted file mode 100644 index 7591bdd..0000000 --- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_About.vb +++ /dev/null @@ -1,5 +0,0 @@ -Public Class DuWM_Shifter_About - Private Sub DuWM_Shifter_Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load - lbl_ShiftOSVersion.Text = lbl_ShiftOSVersion.Text & My.Resources.CurrentVersion - End Sub -End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.Designer.vb deleted file mode 100644 index 849c215..0000000 --- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.Designer.vb +++ /dev/null @@ -1,79 +0,0 @@ - _ -Partial Class DuWM_Shifter_Desktop - Inherits System.Windows.Forms.UserControl - - 'UserControl overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.lbl_Title = New System.Windows.Forms.Label() - Me.cmb_DesktopColor = New System.Windows.Forms.ComboBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.SuspendLayout() - ' - 'lbl_Title - ' - Me.lbl_Title.AutoSize = True - Me.lbl_Title.Font = New System.Drawing.Font("Segoe UI", 24.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle)) - Me.lbl_Title.Location = New System.Drawing.Point(11, 10) - Me.lbl_Title.Name = "lbl_Title" - Me.lbl_Title.Size = New System.Drawing.Size(142, 45) - Me.lbl_Title.TabIndex = 0 - Me.lbl_Title.Text = "Desktop" - ' - 'cmb_DesktopColor - ' - Me.cmb_DesktopColor.Font = New System.Drawing.Font("Segoe UI", 12.0!) - Me.cmb_DesktopColor.FormattingEnabled = True - Me.cmb_DesktopColor.Items.AddRange(New Object() {"Black", "Dark Gray", "Light Gray", "Red", "Dark Red", "Green", "Light Green", "Blue", "Dark Blue", "Yellow", "Dark Yellow", "Purple", "Light Purple", "Aqua", "Light Aqua", "White"}) - Me.cmb_DesktopColor.Location = New System.Drawing.Point(156, 91) - Me.cmb_DesktopColor.Name = "cmb_DesktopColor" - Me.cmb_DesktopColor.Size = New System.Drawing.Size(121, 29) - Me.cmb_DesktopColor.TabIndex = 1 - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!) - Me.Label1.ForeColor = System.Drawing.Color.Black - Me.Label1.Location = New System.Drawing.Point(15, 94) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(135, 21) - Me.Label1.TabIndex = 2 - Me.Label1.Text = "Background Color" - ' - 'DuWM_Shifter_Desktop - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.White - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.cmb_DesktopColor) - Me.Controls.Add(Me.lbl_Title) - Me.Name = "DuWM_Shifter_Desktop" - Me.Size = New System.Drawing.Size(640, 480) - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents lbl_Title As Label - Friend WithEvents cmb_DesktopColor As ComboBox - Friend WithEvents Label1 As Label -End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.resx b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.resx deleted file mode 100644 index 1af7de1..0000000 --- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.vb b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.vb deleted file mode 100644 index b2c458f..0000000 --- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/Categories/DuWM_Shifter_Desktop.vb +++ /dev/null @@ -1,9 +0,0 @@ -Public Class DuWM_Shifter_Desktop - Private Sub DuWM_Shifter_Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load - CheckAvailability() - End Sub - - Private Sub CheckAvailability() - - End Sub -End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.Designer.vb deleted file mode 100644 index a117dfc..0000000 --- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.Designer.vb +++ /dev/null @@ -1,160 +0,0 @@ - -Partial Class DuWM_Shifter - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - - Private Sub InitializeComponent() - Me.pnl_LeftPane = New System.Windows.Forms.Panel() - Me.lst_Features = New System.Windows.Forms.ListBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.pnl_Options = New System.Windows.Forms.Panel() - Me.Button3 = New System.Windows.Forms.Button() - Me.btn_Close = New System.Windows.Forms.Button() - Me.Button1 = New System.Windows.Forms.Button() - Me.pnl_Content = New System.Windows.Forms.Panel() - Me.pnl_LeftPane.SuspendLayout() - Me.pnl_Options.SuspendLayout() - Me.SuspendLayout() - ' - 'pnl_LeftPane - ' - Me.pnl_LeftPane.Controls.Add(Me.lst_Features) - Me.pnl_LeftPane.Controls.Add(Me.Label1) - Me.pnl_LeftPane.Dock = System.Windows.Forms.DockStyle.Left - Me.pnl_LeftPane.Location = New System.Drawing.Point(0, 0) - Me.pnl_LeftPane.Name = "pnl_LeftPane" - Me.pnl_LeftPane.Size = New System.Drawing.Size(200, 450) - Me.pnl_LeftPane.TabIndex = 0 - ' - 'lst_Features - ' - Me.lst_Features.BackColor = System.Drawing.Color.Silver - Me.lst_Features.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lst_Features.Dock = System.Windows.Forms.DockStyle.Bottom - Me.lst_Features.Font = New System.Drawing.Font("Segoe UI", 12.0!) - Me.lst_Features.FormattingEnabled = True - Me.lst_Features.ItemHeight = 21 - Me.lst_Features.Items.AddRange(New Object() {"Desktop", "About"}) - Me.lst_Features.Location = New System.Drawing.Point(0, 51) - Me.lst_Features.Name = "lst_Features" - Me.lst_Features.Size = New System.Drawing.Size(200, 399) - Me.lst_Features.TabIndex = 1 - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Segoe UI", 24.0!, System.Drawing.FontStyle.Bold) - Me.Label1.Location = New System.Drawing.Point(12, 3) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(121, 45) - Me.Label1.TabIndex = 1 - Me.Label1.Text = "Shifter" - ' - 'pnl_Options - ' - Me.pnl_Options.BackColor = System.Drawing.Color.Black - Me.pnl_Options.Controls.Add(Me.Button3) - Me.pnl_Options.Controls.Add(Me.btn_Close) - Me.pnl_Options.Controls.Add(Me.Button1) - Me.pnl_Options.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnl_Options.Location = New System.Drawing.Point(200, 405) - Me.pnl_Options.Name = "pnl_Options" - Me.pnl_Options.Size = New System.Drawing.Size(600, 45) - Me.pnl_Options.TabIndex = 1 - ' - 'Button3 - ' - Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.ForeColor = System.Drawing.Color.White - Me.Button3.Location = New System.Drawing.Point(351, 10) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(75, 23) - Me.Button3.TabIndex = 2 - Me.Button3.Text = "OK" - Me.Button3.UseVisualStyleBackColor = True - ' - 'btn_Close - ' - Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btn_Close.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_Close.ForeColor = System.Drawing.Color.White - Me.btn_Close.Location = New System.Drawing.Point(432, 10) - Me.btn_Close.Name = "btn_Close" - Me.btn_Close.Size = New System.Drawing.Size(75, 23) - Me.btn_Close.TabIndex = 1 - Me.btn_Close.Text = "Cancel" - Me.btn_Close.UseVisualStyleBackColor = True - ' - 'Button1 - ' - Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.ForeColor = System.Drawing.Color.White - Me.Button1.Location = New System.Drawing.Point(513, 10) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(75, 23) - Me.Button1.TabIndex = 0 - Me.Button1.Text = "Apply" - Me.Button1.UseVisualStyleBackColor = True - ' - 'pnl_Content - ' - Me.pnl_Content.AllowDrop = True - Me.pnl_Content.Dock = System.Windows.Forms.DockStyle.Fill - Me.pnl_Content.Location = New System.Drawing.Point(200, 0) - Me.pnl_Content.Name = "pnl_Content" - Me.pnl_Content.Size = New System.Drawing.Size(600, 405) - Me.pnl_Content.TabIndex = 2 - ' - 'DuWM_Shifter - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Controls.Add(Me.pnl_Content) - Me.Controls.Add(Me.pnl_Options) - Me.Controls.Add(Me.pnl_LeftPane) - Me.ForeColor = System.Drawing.Color.Black - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None - Me.Name = "DuWM_Shifter" - Me.ShowIcon = False - Me.ShowInTaskbar = False - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Shifter" - Me.TopMost = True - Me.pnl_LeftPane.ResumeLayout(False) - Me.pnl_LeftPane.PerformLayout() - Me.pnl_Options.ResumeLayout(False) - Me.ResumeLayout(False) - - End Sub - - Friend WithEvents pnl_LeftPane As Panel - Friend WithEvents Label1 As Label - Friend WithEvents lst_Features As ListBox - Friend WithEvents pnl_Options As Panel - Friend WithEvents Button3 As Button - Friend WithEvents btn_Close As Button - Friend WithEvents Button1 As Button - Friend WithEvents pnl_Content As Panel -End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.resx b/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.resx deleted file mode 100644 index 1af7de1..0000000 --- a/ShiftOS-TheRevival/MainForms/Applications/Shifter/DuWM/DuWM_Shifter.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file 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 diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb new file mode 100644 index 0000000..da5c0b1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb @@ -0,0 +1,60 @@ + _ +Partial Class Uni_KnowledgeInput + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.lbl_Title = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'lbl_Title + ' + Me.lbl_Title.AutoSize = True + Me.lbl_Title.Font = New System.Drawing.Font("Comic Sans MS", 24.0!, System.Drawing.FontStyle.Bold) + Me.lbl_Title.Location = New System.Drawing.Point(12, 9) + Me.lbl_Title.Name = "lbl_Title" + Me.lbl_Title.Size = New System.Drawing.Size(274, 45) + Me.lbl_Title.TabIndex = 0 + Me.lbl_Title.Text = "Knowledge Input" + ' + 'Uni_KnowledgeInput + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(784, 561) + Me.ControlBox = False + Me.Controls.Add(Me.lbl_Title) + Me.ForeColor = System.Drawing.Color.Black + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Uni_KnowledgeInput" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Uni_KnowledgeInput" + Me.TopMost = True + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents lbl_Title As Label +End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.resx b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb new file mode 100644 index 0000000..c47e545 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb @@ -0,0 +1,3 @@ +Public Class Uni_KnowledgeInput + +End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb index 331927c..4a65742 100644 --- a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb +++ b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb @@ -41,38 +41,42 @@ 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 + If DuWM_CurrentProcess = 2 Then + NewLine("You've reached the limit of usable programs") Else - Strings.ProcessID(1) = 1 - NewWindow.DuWM_PID = 1 + 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) + Case 2 + NewWindow.Height = Desktop.Height - 20 + NewWindow.Width = (Desktop.Width / 2) - 20 + NewWindow.Location = New Point((Desktop.Width / 2) + 10, 10) + End Select + DuWM_ChangeLayout = True 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) - Case 2 - NewWindow.Height = Desktop.Height - 20 - NewWindow.Width = (Desktop.Width / 2) - 20 - NewWindow.Location = New Point((Desktop.Width / 2) + 10, 10) - End Select - DuWM_ChangeLayout = True End Sub 'Public Sub DuWM_GenerateWindowSet(WindowName As Form, PID As Integer) diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj index 7a585ca..567ed45 100644 --- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj +++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj @@ -98,22 +98,29 @@ - + DuWM_Shifter_About.vb - + UserControl - + DuWM_Shifter_Desktop.vb - + UserControl - + + DuWM_Shifter.vb - + + Form + + + Uni_KnowledgeInput.vb + + Form @@ -227,6 +234,7 @@ + @@ -252,15 +260,18 @@ - + DuWM_Shifter_About.vb - + DuWM_Shifter_Desktop.vb - + DuWM_Shifter.vb + + Uni_KnowledgeInput.vb + BugSlap.vb diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb index 3afb7d6..ce0e246 100644 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb @@ -6,6 +6,8 @@ Select Case Strings.ComputerInfo(7) Case 1 Select Case AppName + Case "knowledge_input" + DuWM_NewProcess(Uni_KnowledgeInput) Case "shifter" DuWM_NewProcess(DuWM_Shifter) End Select diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Taskkill.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Taskkill.vb new file mode 100644 index 0000000..6cd12c9 --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Taskkill.vb @@ -0,0 +1,10 @@ +Module Com_Taskkill + Public Sub Taskkill() + Dim PID As Integer = command.Substring(9) + If PID = 0 Then + NewLine("You cannot kill Terminal in this Window Manager") + Else + Strings.ProcessID(PID) = 0 + End If + End Sub +End Module -- cgit v1.2.3