Full Skinning Implementation

I've finished coding the skinning system for the BWM. Over the skinning
commits, I've added:
- 2 new Shiftorium Upgrades
- 3 new Applications
- A bunch of bugfixes
- A new filetype
- and more.

Alpha 3.1 will be released now.

shiftos_next/APIs/API.vb

@@ -1,6 +1,7 @@
 Module API
     'Terminal
 
+    Public debugmode As Boolean = False 'If this boolean value is set to True, any exceptions will be shown, rather than supressed.
     Public txtterm As TextBox = Terminal.terminaltext
 
     Public Function SetColorbasic(colorname As String)
@@ -72,6 +73,12 @@
 
     Public Sub OpenProgram(progtoopen As String)
         Select Case progtoopen
+            Case "shifter", "skin", "shift"
+                If boughtshifter = True Then
+                    Shifter.Show()
+                Else
+                    AddLine("open: Invalid program """ & progtoopen & """.")
+                End If
             Case "shiftorium", "packages", "pacman", "code shop"
                 shiftorium_cmd.Show()
             Case "files", "fileskimmer", "file skimmer", "fs", "file browser"
@@ -80,6 +87,12 @@
                 Else
                     AddLine("open: Invalid program """ & progtoopen & """.")
                 End If
+            Case "skinloader", "skin loader"
+                If boughtskinloader = True Then
+                    SkinLoader.Show()
+                Else
+                    AddLine("open: Invalid program """ & progtoopen & """.")
+                End If
             Case "textpad", "text", "notepad"
                 If boughttextpad = True Then
                     TextPad.Show()
@@ -101,13 +114,24 @@
                 Else
                     AddLine("close: Invalid program """ & progtoclose & """.")
                 End If
+            Case "skinloader", "skin loader"
+                If boughtskinloader = True Then
+                    SkinLoader.Hide()
+                Else
+                    AddLine("close: Invalid program """ & progtoclose & """.")
+                End If
             Case "textpad", "text", "notepad"
                 If boughttextpad = True Then
                     TextPad.Hide()
                 Else
                     AddLine("close: Invalid program """ & progtoclose & """.")
                 End If
-
+            Case "shifter", "skin", "shift"
+                If boughtshifter = True Then
+                    Shifter.Hide()
+                Else
+                    AddLine("close: Invalid program """ & progtoclose & """.")
+                End If
             Case Else
                 AddLine("close: Invalid program """ & progtoclose & """.")
         End Select
@@ -159,7 +183,12 @@
     Public Sub ShowHelp()
         AddLine("ShiftOS Help" & vbNewLine)
         AddLine("Usage tips: " & vbNewLine)
+        If boughtbasicwm = False Then
             AddLine(" - The terminal runs in full-screen.")
+        Else
+            AddLine(" - The terminal can be run in a window.")
+            AddLine(" - Up to three terminals can be ran, within their own seperate window.")
+        End If
         If boughttextpad = True Then AddLine(" - Typing the path to a text file will open it in Textpad.")
         AddLine(" - There are no window managers or desktop environments.")
         If boughtbasicgui = True Then
@@ -184,6 +213,7 @@
                 AddLine("   textcolor <colorname>: Set the terminal text color.")
             End If
         End If
+        If boughtbasicwm = True Then AddLine(" - bwm: Open the Basic Window Manager.")
         AddLine(" - codepoints: Shows the current amount of codepoints.")
         AddLine(" - shutdown: Shuts the system down.")
         AddLine(" - colors: Shows the colors supported by both the Terminal display engine, and the video driver.")
@@ -195,6 +225,8 @@
         If boughttextpad Then AddLine(" - textpad: An application that allows for creating and editing text files.")
         AddLine(" - MathQuiz: Earn Codepoints by solving math questions.")
         AddLine(" - Guess the Number: Earn Codepoints by guessing a random number between 1 and 100.")
+        If boughtskinloader = True Then AddLine(" - Skin Loader: Load, save, and apply skins.")
+        If boughtshifter = True Then AddLine(" - Shifter: Create your own skins for the current Desktop Environment.")
     End Sub
 
     Public Sub SelectBottom()

shiftos_next/APIs/Skins.vb

@@ -0,0 +1,70 @@
+Module Skins
+    '<summary>
+    '   This module allows for skinning. Simply that.
+    '</summary>
+
+#Region "Basic Window Manager"
+    Public titlebarcolor As Color = Color.Gray
+    Public titlebartextcolor As Color = Color.White
+    Public desktopbackcolor As Color = Color.Black
+    Public newterminalbuttonbackcolor As Color = Color.Black
+    Public newterminalbuttontextcolor As Color = Color.White
+
+    'Load Skin from Save File
+
+    Public Sub loadskindata()
+        Try
+            Dim loadlines() As String = IO.File.ReadAllLines(bwmskin + "data.bsk")
+            titlebarcolor = Color.FromArgb(loadlines(0))
+            titlebartextcolor = Color.FromArgb(loadlines(1))
+            desktopbackcolor = Color.FromArgb(loadlines(2))
+            newterminalbuttonbackcolor = Color.FromArgb(loadlines(3))
+            newterminalbuttontextcolor = Color.FromArgb(loadlines(4))
+            BasicWM.Desktop.Redraw()
+        Catch ex As Exception
+            saveskindata()
+            loadskindata()
+        End Try
+
+
+    End Sub
+
+    'Save to save data
+
+    Public Sub saveskindata()
+        Dim savelines(200) As String
+        savelines(0) = titlebarcolor.ToArgb
+        savelines(1) = titlebartextcolor.ToArgb
+        savelines(2) = desktopbackcolor.ToArgb
+        savelines(3) = newterminalbuttonbackcolor.ToArgb
+        savelines(4) = newterminalbuttontextcolor.ToArgb
+        Try
+            IO.File.WriteAllLines(bwmskin + "data.bsk", savelines)
+        Catch ex As Exception
+            IO.Directory.CreateDirectory(bwmskin)
+            IO.File.WriteAllLines(bwmskin + "data.bsk", savelines)
+        End Try
+        BasicWM.Desktop.Redraw()
+    End Sub
+
+    'Copy skin file to save data
+
+    Public Sub loadskin(file As String)
+        If IO.Directory.Exists(bwmskin) Then
+            IO.Directory.Delete(bwmskin, True)
+            IO.Directory.CreateDirectory(bwmskin)
+            IO.File.Copy(file, bwmskin + "data.bsk")
+            loadskindata()
+        End If
+    End Sub
+
+    'Copy skin from save data to file
+
+    Public Sub saveskin(file As String)
+        Dim savelines() As String = IO.File.ReadAllLines(bwmskin + "data.bsk")
+        IO.File.WriteAllLines(file, savelines)
+    End Sub
+#End Region
+
+
+End Module

shiftos_next/APIs/TerminalGames.vb

@@ -5,41 +5,25 @@
 
     Public Sub MQInterpret(question As String, answer As Integer)
         Dim random As New Random()
+        Dim correct As Boolean = False
         Dim args() As String = question.Replace("What is ", "").Split(" ")
+        Dim cptoadd As Integer = random.Next(1, 5)
         Select Case args(1)
             Case "+"
-                If answer = args(0) + args(2) Then
+                correct = (answer = CInt(args(0)) + CInt(args(2)))
-                    Dim cptoadd As Integer = random.Next(1, 5)
-                    AddLine("Correct! You have earned " & cptoadd & " Codepoints!")
-                    AddCP(cptoadd)
-                Else
-                    AddLine("Incorrect! Better luck next time...")
-                End If
             Case "-"
-                If answer = args(0) - args(2) Then
+                correct = (answer = args(0) - args(2))
-                    Dim cptoadd As Integer = random.Next(1, 5)
-                    AddLine("Correct! You have earned " & cptoadd & " Codepoints!")
-                    AddCP(cptoadd)
-                Else
-                    AddLine("Incorrect! Better luck next time...")
-                End If
             Case "*"
-                If answer = args(0) * args(2) Then
+                correct = (answer = args(0) * args(2))
-                    Dim cptoadd As Integer = random.Next(1, 5)
-                    AddLine("Correct! You have earned " & cptoadd & " Codepoints!")
-                    AddCP(cptoadd)
-                Else
-                    AddLine("Incorrect! Better luck next time...")
-                End If
             Case "/"
-                If answer = args(0) / args(2) Then
+                correct = (answer = args(0) / args(2))
-                    Dim cptoadd As Integer = random.Next(1, 5)
+        End Select
+        If (correct) Then
             AddLine("Correct! You have earned " & cptoadd & " Codepoints!")
             AddCP(cptoadd)
         Else
             AddLine("Incorrect! Better luck next time...")
         End If
-        End Select
         MQCreateQuestion()
     End Sub
 

shiftos_next/APIs/filesystem.vb

@@ -12,6 +12,9 @@
     Public systemdir As String = root + "\Shiftum42\"
 
     Public drivers As String = systemdir + "Drivers\"
+    Public skindir As String = systemdir + "Skins\"
+
+    Public bwmskin As String = skindir + "BWM\"
 
     Public save As String = drivers + "HDD.dri"
 

shiftos_next/BWM User Controls/Titlebar.Designer.vb

@@ -0,0 +1,66 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Titlebar
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.pnltop = New System.Windows.Forms.Panel()
+        Me.lbtitle = New System.Windows.Forms.Label()
+        Me.pnltop.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnltop
+        '
+        Me.pnltop.BackColor = System.Drawing.Color.Gray
+        Me.pnltop.Controls.Add(Me.lbtitle)
+        Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnltop.Location = New System.Drawing.Point(0, 0)
+        Me.pnltop.Name = "pnltop"
+        Me.pnltop.Size = New System.Drawing.Size(678, 32)
+        Me.pnltop.TabIndex = 1
+        '
+        'lbtitle
+        '
+        Me.lbtitle.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lbtitle.Location = New System.Drawing.Point(0, 0)
+        Me.lbtitle.Name = "lbtitle"
+        Me.lbtitle.Size = New System.Drawing.Size(678, 32)
+        Me.lbtitle.TabIndex = 0
+        Me.lbtitle.Text = "Color Picker"
+        Me.lbtitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Titlebar
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.pnltop)
+        Me.Font = New System.Drawing.Font("Courier New", 8.25!)
+        Me.ForeColor = System.Drawing.Color.White
+        Me.Name = "Titlebar"
+        Me.Size = New System.Drawing.Size(678, 32)
+        Me.pnltop.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnltop As System.Windows.Forms.Panel
+    Friend WithEvents lbtitle As System.Windows.Forms.Label
+
+End Class

shiftos_next/BWM User Controls/Titlebar.vb

@@ -0,0 +1,70 @@
+Public Class Titlebar
+
+    Friend WithEvents tmrcheckskin As New Timer
+
+    Public Property AppName As String
+        Set(value As String)
+            lbtitle.Text = value
+        End Set
+        Get
+            Return lbtitle.Text
+        End Get
+    End Property
+
+    Friend WithEvents prnt As Form = ParentForm
+
+    Private Sub Titlebar_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Me.Dock = DockStyle.Top
+        Me.SendToBack()
+        tmrcheckskin.Interval = 200
+        tmrcheckskin.Start()
+    End Sub
+
+    Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown, lbtitle.MouseDown
+        ' Handle Draggable Windows
+        If boughtdraggablewindows = True Then
+            If e.Button = MouseButtons.Left Then
+                Me.Capture = False
+                lbtitle.Capture = False
+                Const WM_NCLBUTTONDOWN As Integer = &HA1S
+                Const HTCAPTION As Integer = 2
+                Dim msg As Message = _
+                    Message.Create(ParentForm.Handle, WM_NCLBUTTONDOWN, _
+                        New IntPtr(HTCAPTION), IntPtr.Zero)
+                Me.DefWndProc(msg)
+            End If
+        End If
+    End Sub
+
+    Public Sub DetermineMyVisibility()
+        If boughtbasicwm = True Then
+            Me.Show()
+            ParentForm.WindowState = FormWindowState.Normal
+            ParentForm.Left = (Screen.PrimaryScreen.Bounds.Width - ParentForm.Width) / 2
+            ParentForm.Top = (Screen.PrimaryScreen.Bounds.Height - ParentForm.Height) / 2
+            ParentForm.TopMost = True
+        Else
+            Me.Hide()
+            ParentForm.WindowState = FormWindowState.Maximized
+            ParentForm.TopMost = False
+        End If
+    End Sub
+
+    Public Sub shiftorium_special()
+        If boughtbasicwm = True Then
+            lbtitle.TextAlign = ContentAlignment.MiddleLeft
+            lbtitle.BackColor = Color.Gray
+            ParentForm.TopMost = True
+            ParentForm.WindowState = FormWindowState.Normal
+        Else
+            lbtitle.TextAlign = ContentAlignment.MiddleCenter
+            lbtitle.BackColor = Color.Black
+            ParentForm.WindowState = FormWindowState.Maximized
+        End If
+    End Sub
+
+    Private Sub tmrcheckskin_Tick(sender As Object, e As EventArgs) Handles tmrcheckskin.Tick
+        lbtitle.BackColor = titlebarcolor
+        lbtitle.ForeColor = titlebartextcolor
+    End Sub
+End Class

shiftos_next/BWM and CMD Apps/ColorPicker.Designer.vb

@@ -23,8 +23,6 @@
         'Do not modify it using the code editor.
         <System.Diagnostics.DebuggerStepThrough()> _
         Private Sub InitializeComponent()
-            Me.pnltop = New System.Windows.Forms.Panel()
-            Me.lbtitle = New System.Windows.Forms.Label()
             Me.pnlcolors = New System.Windows.Forms.FlowLayoutPanel()
             Me.btnwhite = New System.Windows.Forms.Button()
             Me.btnblack = New System.Windows.Forms.Button()
@@ -40,29 +38,10 @@
             Me.btnok = New System.Windows.Forms.Button()
             Me.lbselectedcolor = New System.Windows.Forms.Label()
             Me.btncancel = New System.Windows.Forms.Button()
-            Me.pnltop.SuspendLayout()
+            Me.pnltop = New shiftos_next.Titlebar()
             Me.pnlcolors.SuspendLayout()
             Me.SuspendLayout()
             '
-            'pnltop
-            '
-            Me.pnltop.BackColor = System.Drawing.Color.Gray
-            Me.pnltop.Controls.Add(Me.lbtitle)
-            Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
-            Me.pnltop.Location = New System.Drawing.Point(0, 0)
-            Me.pnltop.Name = "pnltop"
-            Me.pnltop.Size = New System.Drawing.Size(362, 30)
-            Me.pnltop.TabIndex = 0
-            '
-            'lbtitle
-            '
-            Me.lbtitle.AutoSize = True
-            Me.lbtitle.Location = New System.Drawing.Point(12, 9)
-            Me.lbtitle.Name = "lbtitle"
-            Me.lbtitle.Size = New System.Drawing.Size(91, 14)
-            Me.lbtitle.TabIndex = 0
-            Me.lbtitle.Text = "Color Picker"
-            '
             'pnlcolors
             '
             Me.pnlcolors.Controls.Add(Me.btnwhite)
@@ -229,31 +208,38 @@
             Me.btncancel.Text = "Cancel"
             Me.btncancel.UseVisualStyleBackColor = True
             '
+            'pnltop
+            '
+            Me.pnltop.AppName = "Color Picker"
+            Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
+            Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!)
+            Me.pnltop.ForeColor = System.Drawing.Color.White
+            Me.pnltop.Location = New System.Drawing.Point(0, 0)
+            Me.pnltop.Name = "pnltop"
+            Me.pnltop.Size = New System.Drawing.Size(362, 32)
+            Me.pnltop.TabIndex = 5
+            '
             'ColorPicker
             '
             Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!)
             Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
             Me.BackColor = System.Drawing.Color.Black
             Me.ClientSize = New System.Drawing.Size(362, 280)
+            Me.Controls.Add(Me.pnltop)
             Me.Controls.Add(Me.btncancel)
             Me.Controls.Add(Me.lbselectedcolor)
             Me.Controls.Add(Me.btnok)
             Me.Controls.Add(Me.pnlcolors)
-            Me.Controls.Add(Me.pnltop)
             Me.Font = New System.Drawing.Font("Courier New", 8.25!)
             Me.ForeColor = System.Drawing.Color.White
             Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
             Me.Name = "ColorPicker"
             Me.Text = "ColorPicker"
-            Me.pnltop.ResumeLayout(False)
-            Me.pnltop.PerformLayout()
             Me.pnlcolors.ResumeLayout(False)
             Me.ResumeLayout(False)
             Me.PerformLayout()
 
         End Sub
-        Friend WithEvents pnltop As System.Windows.Forms.Panel
-        Friend WithEvents lbtitle As System.Windows.Forms.Label
         Friend WithEvents pnlcolors As System.Windows.Forms.FlowLayoutPanel
         Friend WithEvents btnwhite As System.Windows.Forms.Button
         Friend WithEvents btnblack As System.Windows.Forms.Button
@@ -269,5 +255,6 @@
         Friend WithEvents btnok As System.Windows.Forms.Button
         Friend WithEvents lbselectedcolor As System.Windows.Forms.Label
         Friend WithEvents btncancel As System.Windows.Forms.Button
+        Friend WithEvents pnltop As shiftos_next.Titlebar
     End Class
 End Namespace

shiftos_next/BWM and CMD Apps/Shifter.Designer.vb

@@ -0,0 +1,201 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Shifter
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Shifter))
+        Me.titlebar = New shiftos_next.Titlebar()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.btntitletext = New System.Windows.Forms.Button()
+        Me.btndeskbackcolor = New System.Windows.Forms.Button()
+        Me.btntitlebackcolor = New System.Windows.Forms.Button()
+        Me.btnnttext = New System.Windows.Forms.Button()
+        Me.btnntback = New System.Windows.Forms.Button()
+        Me.btnapply = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'titlebar
+        '
+        Me.titlebar.AppName = "Shifter - v1.0"
+        Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
+        Me.titlebar.Font = New System.Drawing.Font("Courier New", 8.25!)
+        Me.titlebar.ForeColor = System.Drawing.Color.White
+        Me.titlebar.Location = New System.Drawing.Point(0, 0)
+        Me.titlebar.Name = "titlebar"
+        Me.titlebar.Size = New System.Drawing.Size(420, 34)
+        Me.titlebar.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.Location = New System.Drawing.Point(13, 51)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(395, 91)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = resources.GetString("Label1.Text")
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(13, 167)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(147, 14)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "Titlebar Text Color:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(13, 196)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(189, 14)
+        Me.Label3.TabIndex = 3
+        Me.Label3.Text = "Titlebar Background Color:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(211, 167)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(105, 14)
+        Me.Label4.TabIndex = 4
+        Me.Label4.Text = "Desktop Color:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(13, 229)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(238, 14)
+        Me.Label5.TabIndex = 5
+        Me.Label5.Text = """New Terminal"" button text color:"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(13, 261)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(280, 14)
+        Me.Label6.TabIndex = 6
+        Me.Label6.Text = """New Terminal"" button background color:"
+        '
+        'btntitletext
+        '
+        Me.btntitletext.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btntitletext.Location = New System.Drawing.Point(166, 163)
+        Me.btntitletext.Name = "btntitletext"
+        Me.btntitletext.Size = New System.Drawing.Size(25, 23)
+        Me.btntitletext.TabIndex = 7
+        Me.btntitletext.UseVisualStyleBackColor = True
+        '
+        'btndeskbackcolor
+        '
+        Me.btndeskbackcolor.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btndeskbackcolor.Location = New System.Drawing.Point(322, 163)
+        Me.btndeskbackcolor.Name = "btndeskbackcolor"
+        Me.btndeskbackcolor.Size = New System.Drawing.Size(25, 23)
+        Me.btndeskbackcolor.TabIndex = 8
+        Me.btndeskbackcolor.UseVisualStyleBackColor = True
+        '
+        'btntitlebackcolor
+        '
+        Me.btntitlebackcolor.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btntitlebackcolor.Location = New System.Drawing.Point(208, 192)
+        Me.btntitlebackcolor.Name = "btntitlebackcolor"
+        Me.btntitlebackcolor.Size = New System.Drawing.Size(25, 23)
+        Me.btntitlebackcolor.TabIndex = 9
+        Me.btntitlebackcolor.UseVisualStyleBackColor = True
+        '
+        'btnnttext
+        '
+        Me.btnnttext.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnnttext.Location = New System.Drawing.Point(257, 225)
+        Me.btnnttext.Name = "btnnttext"
+        Me.btnnttext.Size = New System.Drawing.Size(25, 23)
+        Me.btnnttext.TabIndex = 10
+        Me.btnnttext.UseVisualStyleBackColor = True
+        '
+        'btnntback
+        '
+        Me.btnntback.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnntback.Location = New System.Drawing.Point(299, 257)
+        Me.btnntback.Name = "btnntback"
+        Me.btnntback.Size = New System.Drawing.Size(25, 23)
+        Me.btnntback.TabIndex = 11
+        Me.btnntback.UseVisualStyleBackColor = True
+        '
+        'btnapply
+        '
+        Me.btnapply.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnapply.Location = New System.Drawing.Point(333, 312)
+        Me.btnapply.Name = "btnapply"
+        Me.btnapply.Size = New System.Drawing.Size(75, 23)
+        Me.btnapply.TabIndex = 12
+        Me.btnapply.Text = "Apply"
+        Me.btnapply.UseVisualStyleBackColor = True
+        '
+        'Shifter
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.Black
+        Me.ClientSize = New System.Drawing.Size(420, 347)
+        Me.Controls.Add(Me.btnapply)
+        Me.Controls.Add(Me.btnntback)
+        Me.Controls.Add(Me.btnnttext)
+        Me.Controls.Add(Me.btntitlebackcolor)
+        Me.Controls.Add(Me.btndeskbackcolor)
+        Me.Controls.Add(Me.btntitletext)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.titlebar)
+        Me.Font = New System.Drawing.Font("Courier New", 8.25!)
+        Me.ForeColor = System.Drawing.Color.White
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "Shifter"
+        Me.Text = "Shifter"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents titlebar As shiftos_next.Titlebar
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents btntitletext As System.Windows.Forms.Button
+    Friend WithEvents btndeskbackcolor As System.Windows.Forms.Button
+    Friend WithEvents btntitlebackcolor As System.Windows.Forms.Button
+    Friend WithEvents btnnttext As System.Windows.Forms.Button
+    Friend WithEvents btnntback As System.Windows.Forms.Button
+    Friend WithEvents btnapply As System.Windows.Forms.Button
+End Class

shiftos_next/BWM and CMD Apps/Shifter.resx

@@ -0,0 +1,125 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Label1.Text" xml:space="preserve">
+    <value>Shifter
+
+The Shifter allows you to customize the desktop environment by setting different colors and layout options. The Shifter's ability depends on what the desktop environment allows the Shifter to customize.</value>
+  </data>
+</root>

shiftos_next/BWM and CMD Apps/Shifter.vb

@@ -0,0 +1,42 @@
+Public Class Shifter
+
+    Dim cp As Integer
+
+    Private Sub btntitletext_Click(sender As Object, e As EventArgs) Handles btntitletext.Click, btntitlebackcolor.Click, btndeskbackcolor.Click, btnntback.Click, btnnttext.Click
+        BasicWM.ColorPicker.oldcolor = sender.BackColor
+        BasicWM.ColorPicker.ShowDialog()
+        sender.BackColor = BasicWM.ColorPicker.Color
+        Dim random As New Random()
+        Dim cptoadd As Integer = random.Next(1, 5)
+        cp += cptoadd
+    End Sub
+
+    Public Sub loadsettings()
+        btntitletext.BackColor = titlebartextcolor
+        btntitlebackcolor.BackColor = titlebarcolor
+        btndeskbackcolor.BackColor = desktopbackcolor
+        btnntback.BackColor = newterminalbuttonbackcolor
+        btnnttext.BackColor = newterminalbuttontextcolor
+    End Sub
+
+    Private Sub btnapply_Click(sender As Object, e As EventArgs) Handles btnapply.Click
+        'Store data in Skinning Engine
+        titlebartextcolor = btntitletext.BackColor
+        titlebarcolor = btntitlebackcolor.BackColor
+        desktopbackcolor = btndeskbackcolor.BackColor
+        newterminalbuttonbackcolor = btnntback.BackColor
+        newterminalbuttontextcolor = btnnttext.BackColor
+        'Save to save file
+        saveskindata()
+        'By now, the skin has been applied, so we'll tell the user how many codepoints they've earned.
+        AddCP(cp)
+        basicwm_infobox.showinfo("Shifter - Skin applied", "The skin has been applied to the desktop environment. You have earned " & cp & " Codepoints.")
+    End Sub
+
+    Private Sub Shifter_Load(sender As Object, e As EventArgs) Handles Me.Load
+        loadsettings()
+        Me.TopMost = True
+        Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
+        Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
+    End Sub
+End Class

shiftos_next/BWM and CMD Apps/SkinLoader.Designer.vb

@@ -0,0 +1,170 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class SkinLoader
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Titlebar = New shiftos_next.Titlebar()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.pnlwindowpreview = New System.Windows.Forms.Panel()
+        Me.prev_titlebar = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.prev_desktop = New System.Windows.Forms.Panel()
+        Me.prev_newterminal = New System.Windows.Forms.Button()
+        Me.btnapply = New System.Windows.Forms.Button()
+        Me.btnload = New System.Windows.Forms.Button()
+        Me.btnsave = New System.Windows.Forms.Button()
+        Me.pnlwindowpreview.SuspendLayout()
+        Me.prev_desktop.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Titlebar
+        '
+        Me.Titlebar.AppName = "Skin Loader"
+        Me.Titlebar.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Titlebar.Font = New System.Drawing.Font("Courier New", 8.25!)
+        Me.Titlebar.ForeColor = System.Drawing.Color.White
+        Me.Titlebar.Location = New System.Drawing.Point(0, 0)
+        Me.Titlebar.Name = "Titlebar"
+        Me.Titlebar.Size = New System.Drawing.Size(458, 32)
+        Me.Titlebar.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 53)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(119, 14)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Preview (Window)"
+        '
+        'pnlwindowpreview
+        '
+        Me.pnlwindowpreview.Controls.Add(Me.prev_titlebar)
+        Me.pnlwindowpreview.Location = New System.Drawing.Point(15, 84)
+        Me.pnlwindowpreview.Name = "pnlwindowpreview"
+        Me.pnlwindowpreview.Size = New System.Drawing.Size(431, 127)
+        Me.pnlwindowpreview.TabIndex = 2
+        '
+        'prev_titlebar
+        '
+        Me.prev_titlebar.BackColor = System.Drawing.Color.Gray
+        Me.prev_titlebar.Dock = System.Windows.Forms.DockStyle.Top
+        Me.prev_titlebar.Location = New System.Drawing.Point(0, 0)
+        Me.prev_titlebar.Name = "prev_titlebar"
+        Me.prev_titlebar.Size = New System.Drawing.Size(431, 30)
+        Me.prev_titlebar.TabIndex = 0
+        Me.prev_titlebar.Text = "Application"
+        Me.prev_titlebar.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(15, 227)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(126, 14)
+        Me.Label2.TabIndex = 3
+        Me.Label2.Text = "Preview (Desktop)"
+        '
+        'prev_desktop
+        '
+        Me.prev_desktop.Controls.Add(Me.prev_newterminal)
+        Me.prev_desktop.Location = New System.Drawing.Point(15, 244)
+        Me.prev_desktop.Name = "prev_desktop"
+        Me.prev_desktop.Size = New System.Drawing.Size(431, 161)
+        Me.prev_desktop.TabIndex = 4
+        '
+        'prev_newterminal
+        '
+        Me.prev_newterminal.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.prev_newterminal.Location = New System.Drawing.Point(17, 13)
+        Me.prev_newterminal.Name = "prev_newterminal"
+        Me.prev_newterminal.Size = New System.Drawing.Size(109, 23)
+        Me.prev_newterminal.TabIndex = 0
+        Me.prev_newterminal.Text = "New Terminal"
+        Me.prev_newterminal.UseVisualStyleBackColor = True
+        '
+        'btnapply
+        '
+        Me.btnapply.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnapply.Location = New System.Drawing.Point(338, 417)
+        Me.btnapply.Name = "btnapply"
+        Me.btnapply.Size = New System.Drawing.Size(108, 23)
+        Me.btnapply.TabIndex = 5
+        Me.btnapply.Text = "Apply Skin"
+        Me.btnapply.UseVisualStyleBackColor = True
+        '
+        'btnload
+        '
+        Me.btnload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnload.Location = New System.Drawing.Point(207, 417)
+        Me.btnload.Name = "btnload"
+        Me.btnload.Size = New System.Drawing.Size(125, 23)
+        Me.btnload.TabIndex = 6
+        Me.btnload.Text = "Load from File"
+        Me.btnload.UseVisualStyleBackColor = True
+        '
+        'btnsave
+        '
+        Me.btnsave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnsave.Location = New System.Drawing.Point(93, 417)
+        Me.btnsave.Name = "btnsave"
+        Me.btnsave.Size = New System.Drawing.Size(108, 23)
+        Me.btnsave.TabIndex = 7
+        Me.btnsave.Text = "Save to File"
+        Me.btnsave.UseVisualStyleBackColor = True
+        '
+        'SkinLoader
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.Black
+        Me.ClientSize = New System.Drawing.Size(458, 452)
+        Me.Controls.Add(Me.btnsave)
+        Me.Controls.Add(Me.btnload)
+        Me.Controls.Add(Me.btnapply)
+        Me.Controls.Add(Me.prev_desktop)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.pnlwindowpreview)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Titlebar)
+        Me.Font = New System.Drawing.Font("Courier New", 8.25!)
+        Me.ForeColor = System.Drawing.Color.White
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "SkinLoader"
+        Me.Text = "SkinLoader"
+        Me.pnlwindowpreview.ResumeLayout(False)
+        Me.prev_desktop.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Titlebar As shiftos_next.Titlebar
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents pnlwindowpreview As System.Windows.Forms.Panel
+    Friend WithEvents prev_titlebar As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents prev_desktop As System.Windows.Forms.Panel
+    Friend WithEvents prev_newterminal As System.Windows.Forms.Button
+    Friend WithEvents btnapply As System.Windows.Forms.Button
+    Friend WithEvents btnload As System.Windows.Forms.Button
+    Friend WithEvents btnsave As System.Windows.Forms.Button
+End Class

shiftos_next/BWM and CMD Apps/SkinLoader.vb

@@ -0,0 +1,39 @@
+Public Class SkinLoader
+
+    Public skintoload As String
+
+    Public Sub readfile(file As String)
+        Dim filinf As New IO.FileInfo(file)
+        If filinf.Extension = ".bsk" Then
+            Dim loadlines() As String = IO.File.ReadAllLines(file)
+            prev_titlebar.BackColor = Color.FromArgb(loadlines(0))
+            prev_titlebar.ForeColor = Color.FromArgb(loadlines(1))
+            prev_desktop.BackColor = Color.FromArgb(loadlines(2))
+            prev_newterminal.BackColor = Color.FromArgb(loadlines(3))
+            prev_newterminal.ForeColor = Color.FromArgb(loadlines(4))
+        Else
+            basicwm_infobox.showinfo("Unsupported file", "The skin file provided cannot be read.")
+        End If
+
+    End Sub
+
+    Private Sub btnload_Click(sender As Object, e As EventArgs) Handles btnload.Click
+        file_skimmer.mode = "open"
+        file_skimmer.application = "skin_loader"
+        file_skimmer.Show()
+    End Sub
+
+    Private Sub btnapply_Click(sender As Object, e As EventArgs) Handles btnapply.Click
+        If Not skintoload = "" Then
+            loadskin(skintoload)
+        Else
+            basicwm_infobox.showinfo("Can't apply skin!", "Cannot apply the skin, as there is currently no skin file loaded.")
+        End If
+    End Sub
+
+    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
+        file_skimmer.mode = "save"
+        file_skimmer.application = "skin_loader"
+        file_skimmer.Show()
+    End Sub
+End Class

shiftos_next/BWM and CMD Apps/TextPad.Designer.vb

@@ -41,17 +41,15 @@ Partial Class TextPad
         Me.FindToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ReplaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.txtfilebody = New System.Windows.Forms.RichTextBox()
-        Me.lbtitle = New System.Windows.Forms.Label()
+        Me.pnltop = New shiftos_next.Titlebar()
-        Me.pnltop = New System.Windows.Forms.Panel()
         Me.MenuStrip1.SuspendLayout()
-        Me.pnltop.SuspendLayout()
         Me.SuspendLayout()
         '
         'MenuStrip1
         '
         Me.MenuStrip1.Font = New System.Drawing.Font("Courier New", 8.25!)
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem})
-        Me.MenuStrip1.Location = New System.Drawing.Point(0, 30)
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 32)
         Me.MenuStrip1.Name = "MenuStrip1"
         Me.MenuStrip1.Size = New System.Drawing.Size(652, 24)
         Me.MenuStrip1.TabIndex = 0
@@ -165,29 +163,21 @@ Partial Class TextPad
         Me.txtfilebody.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtfilebody.Dock = System.Windows.Forms.DockStyle.Fill
         Me.txtfilebody.ForeColor = System.Drawing.Color.White
-        Me.txtfilebody.Location = New System.Drawing.Point(0, 54)
+        Me.txtfilebody.Location = New System.Drawing.Point(0, 56)
         Me.txtfilebody.Name = "txtfilebody"
-        Me.txtfilebody.Size = New System.Drawing.Size(652, 263)
+        Me.txtfilebody.Size = New System.Drawing.Size(652, 261)
         Me.txtfilebody.TabIndex = 1
         Me.txtfilebody.Text = ""
         '
-        'lbtitle
-        '
-        Me.lbtitle.AutoSize = True
-        Me.lbtitle.Location = New System.Drawing.Point(12, 9)
-        Me.lbtitle.Name = "lbtitle"
-        Me.lbtitle.Size = New System.Drawing.Size(56, 14)
-        Me.lbtitle.TabIndex = 0
-        Me.lbtitle.Text = "TextPad"
-        '
         'pnltop
         '
-        Me.pnltop.BackColor = System.Drawing.Color.Gray
+        Me.pnltop.AppName = "TextPad"
-        Me.pnltop.Controls.Add(Me.lbtitle)
         Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!)
+        Me.pnltop.ForeColor = System.Drawing.Color.White
         Me.pnltop.Location = New System.Drawing.Point(0, 0)
         Me.pnltop.Name = "pnltop"
-        Me.pnltop.Size = New System.Drawing.Size(652, 30)
+        Me.pnltop.Size = New System.Drawing.Size(652, 32)
         Me.pnltop.TabIndex = 2
         '
         'TextPad
@@ -207,8 +197,6 @@ Partial Class TextPad
         Me.Text = "TextPad"
         Me.MenuStrip1.ResumeLayout(False)
         Me.MenuStrip1.PerformLayout()
-        Me.pnltop.ResumeLayout(False)
-        Me.pnltop.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -232,6 +220,5 @@ Partial Class TextPad
     Friend WithEvents FindToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ReplaceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents txtfilebody As System.Windows.Forms.RichTextBox
-    Friend WithEvents lbtitle As System.Windows.Forms.Label
+    Friend WithEvents pnltop As shiftos_next.Titlebar
-    Friend WithEvents pnltop As System.Windows.Forms.Panel
 End Class

shiftos_next/BWM and CMD Apps/TextPad.vb

@@ -60,18 +60,7 @@
     Private Sub TextPad_Load(sender As Object, e As EventArgs) Handles Me.Load
         MenuStrip1.Renderer = New basicwm_renderer()
         setupmenufonts()
-        Me.WindowState = FormWindowState.Maximized
+        pnltop.DetermineMyVisibility()
-        If boughtbasicwm = True Then
-            pnltop.Show()
-            Me.WindowState = FormWindowState.Normal
-            Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
-            Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
-            Me.TopMost = True
-        Else
-            pnltop.Hide()
-            Me.WindowState = FormWindowState.Maximized
-            Me.TopMost = False
-        End If
     End Sub
 
     Public Sub setupmenufonts()

shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb

@@ -22,34 +22,12 @@ Partial Class basicwm_infobox
     'Do not modify it using the code editor.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.lbtitle = New System.Windows.Forms.Label()
         Me.btnok = New System.Windows.Forms.Button()
         Me.lbmessage = New System.Windows.Forms.Label()
         Me.txtuserinput = New System.Windows.Forms.TextBox()
-        Me.Panel1.SuspendLayout()
+        Me.Titlebar = New shiftos_next.Titlebar()
         Me.SuspendLayout()
         '
-        'Panel1
-        '
-        Me.Panel1.BackColor = System.Drawing.Color.Gray
-        Me.Panel1.Controls.Add(Me.lbtitle)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Location = New System.Drawing.Point(0, 0)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(433, 30)
-        Me.Panel1.TabIndex = 0
-        '
-        'lbtitle
-        '
-        Me.lbtitle.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.lbtitle.Location = New System.Drawing.Point(0, 0)
-        Me.lbtitle.Name = "lbtitle"
-        Me.lbtitle.Size = New System.Drawing.Size(433, 30)
-        Me.lbtitle.TabIndex = 0
-        Me.lbtitle.Text = "I am a hacker."
-        Me.lbtitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        '
         'btnok
         '
         Me.btnok.Dock = System.Windows.Forms.DockStyle.Bottom
@@ -65,9 +43,9 @@ Partial Class basicwm_infobox
         'lbmessage
         '
         Me.lbmessage.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.lbmessage.Location = New System.Drawing.Point(0, 30)
+        Me.lbmessage.Location = New System.Drawing.Point(0, 0)
         Me.lbmessage.Name = "lbmessage"
-        Me.lbmessage.Size = New System.Drawing.Size(433, 183)
+        Me.lbmessage.Size = New System.Drawing.Size(433, 213)
         Me.lbmessage.TabIndex = 1
         Me.lbmessage.Text = "I am already viewing my computer logs of that interview. Soon, I'll know everythi" & _
     "ng there is to know about that banana making factory."
@@ -86,6 +64,17 @@ Partial Class basicwm_infobox
         Me.txtuserinput.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         Me.txtuserinput.WordWrap = False
         '
+        'Titlebar
+        '
+        Me.Titlebar.AppName = "Infobox"
+        Me.Titlebar.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Titlebar.Font = New System.Drawing.Font("Courier New", 8.25!)
+        Me.Titlebar.ForeColor = System.Drawing.Color.White
+        Me.Titlebar.Location = New System.Drawing.Point(0, 0)
+        Me.Titlebar.Name = "Titlebar"
+        Me.Titlebar.Size = New System.Drawing.Size(433, 32)
+        Me.Titlebar.TabIndex = 3
+        '
         'basicwm_infobox
         '
         Me.AcceptButton = Me.btnok
@@ -93,23 +82,21 @@ Partial Class basicwm_infobox
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.Black
         Me.ClientSize = New System.Drawing.Size(433, 257)
+        Me.Controls.Add(Me.Titlebar)
         Me.Controls.Add(Me.txtuserinput)
         Me.Controls.Add(Me.lbmessage)
         Me.Controls.Add(Me.btnok)
-        Me.Controls.Add(Me.Panel1)
         Me.Font = New System.Drawing.Font("Courier New", 8.25!)
         Me.ForeColor = System.Drawing.Color.White
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Name = "basicwm_infobox"
         Me.Text = "basicwm_infobox"
-        Me.Panel1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
-    Friend WithEvents Panel1 As System.Windows.Forms.Panel
-    Friend WithEvents lbtitle As System.Windows.Forms.Label
     Friend WithEvents btnok As System.Windows.Forms.Button
     Friend WithEvents lbmessage As System.Windows.Forms.Label
     Friend WithEvents txtuserinput As System.Windows.Forms.TextBox
+    Friend WithEvents Titlebar As shiftos_next.Titlebar
 End Class

shiftos_next/BWM and CMD Apps/basicwm_infobox.vb

@@ -3,7 +3,8 @@
     Public userinput As String
 
     Public Sub showinfo(title As String, message As String, Optional showtextbox As Boolean = False)
-        lbtitle.Text = title
+        Titlebar.AppName = title
+        Titlebar.shiftorium_special()
         lbmessage.Text = message
         btnok.Text = "> OK <"
         txtuserinput.Visible = showtextbox

shiftos_next/BWM and CMD Apps/file skimmer.Designer.vb

@@ -45,12 +45,11 @@ Partial Class file_skimmer
         Me.txtfilename = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btnsave = New System.Windows.Forms.Button()
-        Me.lbtitle = New System.Windows.Forms.Label()
+        Me.pnltop = New shiftos_next.Titlebar()
-        Me.pnltop = New System.Windows.Forms.Panel()
+        Me.lbextension = New System.Windows.Forms.Label()
         Me.topmenu.SuspendLayout()
         Me.tools.SuspendLayout()
         Me.pnlsave.SuspendLayout()
-        Me.pnltop.SuspendLayout()
         Me.SuspendLayout()
         '
         'topmenu
@@ -59,7 +58,7 @@ Partial Class file_skimmer
         Me.topmenu.Font = New System.Drawing.Font("Courier New", 8.25!)
         Me.topmenu.ForeColor = System.Drawing.Color.White
         Me.topmenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.AboutToolStripMenuItem})
-        Me.topmenu.Location = New System.Drawing.Point(0, 30)
+        Me.topmenu.Location = New System.Drawing.Point(0, 32)
         Me.topmenu.Name = "topmenu"
         Me.topmenu.Size = New System.Drawing.Size(591, 24)
         Me.topmenu.TabIndex = 0
@@ -121,7 +120,7 @@ Partial Class file_skimmer
         Me.tools.Font = New System.Drawing.Font("Courier New", 8.25!)
         Me.tools.ForeColor = System.Drawing.Color.White
         Me.tools.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.lbcurrentdir, Me.ToolStripSeparator1, Me.btnnewfolder, Me.btndelete})
-        Me.tools.Location = New System.Drawing.Point(0, 54)
+        Me.tools.Location = New System.Drawing.Point(0, 56)
         Me.tools.Name = "tools"
         Me.tools.Size = New System.Drawing.Size(591, 25)
         Me.tools.TabIndex = 1
@@ -169,15 +168,16 @@ Partial Class file_skimmer
         Me.lvfiles.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
         Me.lvfiles.Dock = System.Windows.Forms.DockStyle.Fill
         Me.lvfiles.ForeColor = System.Drawing.Color.White
-        Me.lvfiles.Location = New System.Drawing.Point(0, 79)
+        Me.lvfiles.Location = New System.Drawing.Point(0, 81)
         Me.lvfiles.Name = "lvfiles"
-        Me.lvfiles.Size = New System.Drawing.Size(591, 251)
+        Me.lvfiles.Size = New System.Drawing.Size(591, 249)
         Me.lvfiles.TabIndex = 3
         Me.lvfiles.UseCompatibleStateImageBehavior = False
         Me.lvfiles.View = System.Windows.Forms.View.Tile
         '
         'pnlsave
         '
+        Me.pnlsave.Controls.Add(Me.lbextension)
         Me.pnlsave.Controls.Add(Me.txtfilename)
         Me.pnlsave.Controls.Add(Me.Label1)
         Me.pnlsave.Controls.Add(Me.btnsave)
@@ -193,7 +193,7 @@ Partial Class file_skimmer
         Me.txtfilename.ForeColor = System.Drawing.Color.White
         Me.txtfilename.Location = New System.Drawing.Point(86, 5)
         Me.txtfilename.Name = "txtfilename"
-        Me.txtfilename.Size = New System.Drawing.Size(421, 20)
+        Me.txtfilename.Size = New System.Drawing.Size(376, 20)
         Me.txtfilename.TabIndex = 2
         '
         'Label1
@@ -216,25 +216,26 @@ Partial Class file_skimmer
         Me.btnsave.Text = "Save"
         Me.btnsave.UseVisualStyleBackColor = True
         '
-        'lbtitle
-        '
-        Me.lbtitle.AutoSize = True
-        Me.lbtitle.Location = New System.Drawing.Point(12, 9)
-        Me.lbtitle.Name = "lbtitle"
-        Me.lbtitle.Size = New System.Drawing.Size(91, 14)
-        Me.lbtitle.TabIndex = 0
-        Me.lbtitle.Text = "File Skimmer"
-        '
         'pnltop
         '
-        Me.pnltop.BackColor = System.Drawing.Color.Gray
+        Me.pnltop.AppName = "File Skimmer"
-        Me.pnltop.Controls.Add(Me.lbtitle)
         Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!)
+        Me.pnltop.ForeColor = System.Drawing.Color.White
         Me.pnltop.Location = New System.Drawing.Point(0, 0)
         Me.pnltop.Name = "pnltop"
-        Me.pnltop.Size = New System.Drawing.Size(591, 30)
+        Me.pnltop.Size = New System.Drawing.Size(591, 32)
         Me.pnltop.TabIndex = 5
         '
+        'lbextension
+        '
+        Me.lbextension.AutoSize = True
+        Me.lbextension.Location = New System.Drawing.Point(468, 8)
+        Me.lbextension.Name = "lbextension"
+        Me.lbextension.Size = New System.Drawing.Size(35, 14)
+        Me.lbextension.TabIndex = 3
+        Me.lbextension.Text = ".xxx"
+        '
         'file_skimmer
         '
         Me.AcceptButton = Me.btnsave
@@ -260,8 +261,6 @@ Partial Class file_skimmer
         Me.tools.PerformLayout()
         Me.pnlsave.ResumeLayout(False)
         Me.pnlsave.PerformLayout()
-        Me.pnltop.ResumeLayout(False)
-        Me.pnltop.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -288,6 +287,6 @@ Partial Class file_skimmer
     Friend WithEvents txtfilename As System.Windows.Forms.TextBox
     Friend WithEvents Label1 As System.Windows.Forms.Label
     Friend WithEvents btnsave As System.Windows.Forms.Button
-    Friend WithEvents lbtitle As System.Windows.Forms.Label
+    Friend WithEvents pnltop As shiftos_next.Titlebar
-    Friend WithEvents pnltop As System.Windows.Forms.Panel
+    Friend WithEvents lbextension As System.Windows.Forms.Label
 End Class

shiftos_next/BWM and CMD Apps/file skimmer.vb

@@ -63,6 +63,8 @@
                 FileType = "Data File"
             Case ".dri"
                 FileType = "Driver"
+            Case ".bsk"
+                FileType = "Basic WM Skin"
             Case Else
                 FileType = "Unknown File"
         End Select
@@ -76,8 +78,21 @@
         Else
             Dim filinf As New IO.FileInfo(file)
             Select Case filinf.Extension
+                Case ".txt"
+                    If boughttextpad = True Then
+                        Dim sr As New IO.StreamReader(file)
+                        TextPad.txtfilebody.Text = sr.ReadToEnd()
+                        sr.Close()
+                        TextPad.Show()
+                    Else
+                        basicwm_infobox.showinfo("File can't be opened.", "The file """ & filinf.Name & """ can't be opened because a program able to open it has not been found.")
+                    End If
+                Case ".bsk"
+                    SkinLoader.readfile(file)
+                    SkinLoader.skintoload = file
+                    SkinLoader.Show()
                 Case Else
-                    basicwm_infobox.showinfo("Exodus - File Format not valid", "The format of the file """ & filinf.Name & """ is not a format in which Exodus File Browser can read.")
+                    basicwm_infobox.showinfo("File can't be opened.", "The file """ & filinf.Name & """ can't be opened because a program able to open it has not been found.")
             End Select
         End If
     End Sub
@@ -90,13 +105,24 @@
                 End If
             Else
                 If mode = "open" Then
-                    Select Case Application
+                    If IO.Directory.Exists(lvfiles.SelectedItems(0).Tag) Then
+                        OpenFile(lvfiles.SelectedItems(0).Tag)
+                    Else
+                        Dim filinf As New IO.FileInfo(lvfiles.SelectedItems(0).Tag)
+                        Select Case application
                             Case "textpad"
+                                If filinf.Extension = ".txt" Then
                                     Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString)
                                     TextPad.txtfilebody.Text = sr.ReadToEnd()
                                     sr.Close()
                                     Me.Close()
+                                End If
+                            Case "skin_loader"
+                                SkinLoader.readfile(lvfiles.SelectedItems(0).Tag.ToString)
+                                SkinLoader.skintoload = lvfiles.SelectedItems(0).Tag.ToString
+                                Me.Close()
                         End Select
+                    End If
                 Else
                     OpenFile(lvfiles.SelectedItems(0).Tag)
                 End If
@@ -105,6 +131,11 @@
         End Try
     End Sub
 
+    Private Sub file_skimmer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        mode = ""
+        application = ""
+    End Sub
+
     Private Sub file_skimmer_Load(sender As Object, e As EventArgs) Handles Me.Load
         topmenu.Renderer = New basicwm_renderer()
         tools.Renderer = New basicwm_renderer()
@@ -120,20 +151,16 @@
         btndelete.Visible = boughtfileskimmerdelete
         If mode = "save" Then
             pnlsave.Visible = True
+            Select Case application
+                Case "textpad"
+                    lbextension.Text = ".txt"
+                Case "skin_loader"
+                    lbextension.Text = ".bsk"
+            End Select
         Else
             pnlsave.Visible = False
         End If
-        If boughtbasicwm = True Then
+        pnltop.DetermineMyVisibility()
-            pnltop.Show()
-            Me.WindowState = FormWindowState.Normal
-            Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
-            Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
-            Me.TopMost = True
-        Else
-            pnltop.Hide()
-            Me.WindowState = FormWindowState.Maximized
-            Me.TopMost = False
-        End If
     End Sub
 
     Private Sub ExitSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitSessionToolStripMenuItem.Click
@@ -175,10 +202,13 @@
             Else
                 Select Case Application
                     Case "textpad"
-                        Dim sw As New IO.StreamWriter(currentdir + "\" + txtfilename.Text)
+                        Dim sw As New IO.StreamWriter(currentdir + "\" + txtfilename.Text + ".txt")
                         sw.Write(TextPad.txtfilebody.Text)
                         sw.Close()
                         Me.Close()
+                    Case "skin_loader"
+                        saveskin(currentdir + "\" + txtfilename.Text + ".bsk")
+                        Me.Close()
                 End Select
             End If
         Else

shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb

@@ -22,8 +22,8 @@ Partial Class shiftorium_cmd
     'Do not modify it using the code editor.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Me.pnltop = New System.Windows.Forms.Panel()
-        Me.lbtitle = New System.Windows.Forms.Label()
         Me.pnlbottom = New System.Windows.Forms.Panel()
         Me.lbcodepoints = New System.Windows.Forms.Label()
         Me.lbcontrols = New System.Windows.Forms.Label()
@@ -34,6 +34,8 @@ Partial Class shiftorium_cmd
         Me.lbdescription = New System.Windows.Forms.Label()
         Me.lbitemname = New System.Windows.Forms.Label()
         Me.lbitems = New System.Windows.Forms.ListBox()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.Titlebar1 = New shiftos_next.Titlebar()
         Me.pnltop.SuspendLayout()
         Me.pnlbottom.SuspendLayout()
         Me.pnldetails.SuspendLayout()
@@ -42,23 +44,13 @@ Partial Class shiftorium_cmd
         '
         'pnltop
         '
-        Me.pnltop.Controls.Add(Me.lbtitle)
+        Me.pnltop.Controls.Add(Me.Titlebar1)
         Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnltop.Location = New System.Drawing.Point(0, 0)
         Me.pnltop.Name = "pnltop"
         Me.pnltop.Size = New System.Drawing.Size(1007, 30)
         Me.pnltop.TabIndex = 0
         '
-        'lbtitle
-        '
-        Me.lbtitle.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.lbtitle.Location = New System.Drawing.Point(0, 0)
-        Me.lbtitle.Name = "lbtitle"
-        Me.lbtitle.Size = New System.Drawing.Size(1007, 30)
-        Me.lbtitle.TabIndex = 0
-        Me.lbtitle.Text = "SHIFTORIUM"
-        Me.lbtitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        '
         'pnlbottom
         '
         Me.pnlbottom.Controls.Add(Me.lbcodepoints)
@@ -167,6 +159,17 @@ Partial Class shiftorium_cmd
         Me.lbitems.Size = New System.Drawing.Size(1007, 335)
         Me.lbitems.TabIndex = 3
         '
+        'Titlebar1
+        '
+        Me.Titlebar1.AppName = "Shiftorium"
+        Me.Titlebar1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Titlebar1.Font = New System.Drawing.Font("Courier New", 8.25!)
+        Me.Titlebar1.ForeColor = System.Drawing.Color.White
+        Me.Titlebar1.Location = New System.Drawing.Point(0, 0)
+        Me.Titlebar1.Name = "Titlebar1"
+        Me.Titlebar1.Size = New System.Drawing.Size(1007, 32)
+        Me.Titlebar1.TabIndex = 0
+        '
         'shiftorium_cmd
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!)
@@ -191,7 +194,6 @@ Partial Class shiftorium_cmd
 
     End Sub
     Friend WithEvents pnltop As System.Windows.Forms.Panel
-    Friend WithEvents lbtitle As System.Windows.Forms.Label
     Friend WithEvents pnlbottom As System.Windows.Forms.Panel
     Friend WithEvents lbcodepoints As System.Windows.Forms.Label
     Friend WithEvents lbcontrols As System.Windows.Forms.Label
@@ -202,4 +204,6 @@ Partial Class shiftorium_cmd
     Friend WithEvents lbprice As System.Windows.Forms.Label
     Friend WithEvents lbdescription As System.Windows.Forms.Label
     Friend WithEvents lbitemname As System.Windows.Forms.Label
+    Friend WithEvents Titlebar1 As shiftos_next.Titlebar
+    Friend WithEvents Timer1 As System.Windows.Forms.Timer
 End Class

shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb

@@ -8,20 +8,7 @@
         lbprice.Hide()
         btnbuy.Hide()
         lbcodepoints.Text = "Codepoints: " & codepoints
-        If boughtbasicwm = True Then
+        Titlebar1.shiftorium_special()
-            lbtitle.TextAlign = ContentAlignment.MiddleLeft
-            lbtitle.Text = "Shiftorium" 'To make it sentence-case, rather than UPPERCASE.
-            lbtitle.BackColor = Color.Gray
-            Me.WindowState = FormWindowState.Normal
-            Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
-            Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
-            Me.TopMost = True
-        Else
-            lbtitle.TextAlign = ContentAlignment.MiddleCenter
-            lbtitle.Text = "SHIFTORIUM"
-            lbtitle.BackColor = Color.Black
-            Me.WindowState = FormWindowState.Maximized
-        End If
     End Sub
 
     Public Sub determineitems()
@@ -52,7 +39,16 @@
                         If boughtbasicwm = False Then
                             AddItem("Basic Window Manager", 100)
                         Else
-                            'Placeholder
+                            If boughtdraggablewindows = False Then
+                                AddItem("BWM Draggable Windows", 25)
+                            End If
+                            If boughtshifter = False Then
+                                AddItem("Shifter", 60)
+                            Else
+                                If boughtskinloader = False Then
+                                    AddItem("Skin Loader", 75)
+                                End If
+                            End If
                         End If
                     End If
                 End If
@@ -66,10 +62,22 @@
                 If boughtterminalsettextcolor = False And boughtbasicsettings = True Then
                     AddItem("Set Terminal Text Color", 10)
                 End If
+                If boughtred = False Then AddItem("Red", 30)
+                If boughtgreen = False Then AddItem("Green", 30)
+                If boughtblue = False Then AddItem("Blue", 30)
+                If boughtpurple = False Then AddItem("Purple", 30)
+                If boughtpink = False Then AddItem("Pink", 30)
+                If boughtyellow = False Then AddItem("Yellow", 30)
+                If boughtorange = False Then AddItem("Orange", 30)
+                If boughtbrown = False Then AddItem("Brown", 30)
             End If
-            lbitems.SelectedIndex = 1
+            lbitems.SelectedIndex = 0
         Catch ex As Exception
+            If debugmode = False Then
                 lbitems.Items.Add("No items available.")
+            Else
+                lbitems.Items.Add(ex.Message)
+            End If
         End Try
         lbitems.DrawMode = DrawMode.OwnerDrawFixed
     End Sub
@@ -91,6 +99,19 @@
                     lbitems.SelectedIndex -= 1
                 End If
             Case Keys.Enter
+                handleitemdescription("Skin Loader - 75 CP", "Ever wanted to save and load skins for use later? Really like that one color scheme but want to change? Want to share your skins with friends? This application is for you. It allows you to load, save, or apply BWM Skin Files.")
+                handleitemdescription("Shifter - 60 CP", "Tired of that same old gray, black and white color scheme? Fear not, the Shifter is here! It allows you to set different settings for the BWM, such as text and background colors. Soon, you may even be able to share skins with friends!")
+
+                handleitemdescription("Red - 30 CP", "Enable the display of Red on the screen.")
+                handleitemdescription("Green - 30 CP", "Enable the display of Green on the screen.")
+                handleitemdescription("Blue - 30 CP", "Enable the display of Blue on the screen.")
+                handleitemdescription("Purple - 30 CP", "Enable the display of Purple on the screen.")
+                handleitemdescription("Pink - 30 CP", "Enable the display of Pink on the screen.")
+                handleitemdescription("Yellow - 30 CP", "Enable the display of Yellow on the screen.")
+                handleitemdescription("Orange - 30 CP", "Enable the display of Orange on the screen.")
+                handleitemdescription("Brown - 30 CP", "Enable the display of Brown on the screen.")
+
+                handleitemdescription("BWM Draggable Windows - 25 CP", "We are able to have multiple windows on the screen, but they all stick to the center of the screen and can't be moved! This upgrade fixes that.")
                 handleitemdescription("Basic Window Manager - 100 CP", "Fullscreen applications, well, suck. You can't get any work done outside of that app without closing it, and can't even view the Terminal. This upgrade changes that. We've found a way to use the Basic GUI server to create a simple window manager. It allows multiple windows on the screen, and up to 3 Terminal windows at once.")
                 handleitemdescription("Textpad - 50 CP", "Hmmmmm... What was I gonna do on Sunday? Oh yeah! I have to get that website written for my buddy. Better write that down before I forget... " & vbNewLine & vbNewLine & "Textpad allows you to create text documents. Handy if you need to write something down!")
                 handleitemdescription("FS Delete - 15 CP", "Alright, What's this unused document doing on my PC? I don't need this. I must delete it. With this upgrade, you can delete files in the File Skimmer.")
@@ -103,6 +124,19 @@
                 handleitemdescription("Custom Username - 10 CP", "Hello, user! Isn't that wierd that that's all we know you as? Buy this upgrade to change yourr name from ""user"" to anything you want!")
                 handleitemdescription("Basic Terminal Settings - 5 CP", "Ever wanted to customize the terminal to act the way you'd like it to? This upgrade is for you. You won't be able to use it until you buy settings, but hey! The command is there.")
             Case Keys.Space
+                handlebuy("Skin Loader - 75 CP", boughtskinloader, "Now, you can head to the Terminal and type ""open skin loader"", and do what you please.")
+                handlebuy("Shifter - 60 CP", boughtshifter, "Great! Just type ""open shifter"" in the Terminal and start customizing!")
+
+                handlebuy("Red - 30 CP", boughtred, "Red can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Green - 30 CP", boughtgreen, "Green can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Blue - 30 CP", boughtblue, "Blue can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Purple - 30 CP", boughtpurple, "Purple can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Pink - 30 CP", boughtpink, "Pink can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Orange - 30 CP", boughtorange, "Orange can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Yellow - 30 CP", boughtyellow, "Yellow can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Brown - 30 CP", boughtbrown, "Brown can now be displayed on screen, and used in the Color Picker.")
+
+                handlebuy("BWM Draggable Windows - 25 CP", boughtdraggablewindows, "The upgrade has been applied, and now we can drag windows around using our mouse!")
                 handlebuy("Basic Window Manager - 100 CP", boughtbasicwm, "Awesome! Just exit the Shiftorium and type ""bwm"" into the Terminal, and away we go. Future sessions will not require typing ""bwm"".")
                 handlebuy("Textpad - 50 CP", boughttextpad, "Great. Now our computer is a bit more useful than before...")
                 handlebuy("FS Delete - 15 CP", boughtfileskimmerdelete, "There. I can finally destroy that evil document that's been taking up 3/4 of my hard drive. Just right-click a file and click 'Delete' to delete a file.")

shiftos_next/Desktop Environments/BWMDesktop.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

shiftos_next/Desktop Environments/BWMDesktop.vb

@@ -16,6 +16,12 @@
             End If
         End Sub
 
+        Public Sub Redraw()
+            btnnewterminal.ForeColor = newterminalbuttontextcolor
+            btnnewterminal.BackColor = newterminalbuttonbackcolor
+            Me.BackColor = desktopbackcolor
+        End Sub
+
         Private Sub Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load
             Terminal.Close()
             Me.WindowState = FormWindowState.Maximized
@@ -24,6 +30,7 @@
             term.TopMost = True
             term.Show()
             openterminals += 1
+            loadskindata()
         End Sub
     End Class
 End Namespace

shiftos_next/Other/Terminal.Designer.vb

@@ -25,9 +25,7 @@ Partial Class Terminal
         Me.components = New System.ComponentModel.Container()
         Me.terminaltext = New System.Windows.Forms.TextBox()
         Me.tmrfirstuse = New System.Windows.Forms.Timer(Me.components)
-        Me.pnltop = New System.Windows.Forms.Panel()
+        Me.pnltop = New shiftos_next.Titlebar()
-        Me.lbtitle = New System.Windows.Forms.Label()
-        Me.pnltop.SuspendLayout()
         Me.SuspendLayout()
         '
         'terminaltext
@@ -38,10 +36,10 @@ Partial Class Terminal
         Me.terminaltext.Dock = System.Windows.Forms.DockStyle.Fill
         Me.terminaltext.Font = New System.Drawing.Font("Courier New", 8.25!)
         Me.terminaltext.ForeColor = System.Drawing.Color.White
-        Me.terminaltext.Location = New System.Drawing.Point(0, 30)
+        Me.terminaltext.Location = New System.Drawing.Point(0, 32)
         Me.terminaltext.Multiline = True
         Me.terminaltext.Name = "terminaltext"
-        Me.terminaltext.Size = New System.Drawing.Size(635, 388)
+        Me.terminaltext.Size = New System.Drawing.Size(635, 386)
         Me.terminaltext.TabIndex = 0
         Me.terminaltext.Text = "ShiftOS Beta 1.0"
         '
@@ -51,25 +49,15 @@ Partial Class Terminal
         '
         'pnltop
         '
-        Me.pnltop.BackColor = System.Drawing.Color.Gray
+        Me.pnltop.AppName = "Terminal"
-        Me.pnltop.Controls.Add(Me.lbtitle)
         Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!)
         Me.pnltop.ForeColor = System.Drawing.Color.White
         Me.pnltop.Location = New System.Drawing.Point(0, 0)
         Me.pnltop.Name = "pnltop"
-        Me.pnltop.Size = New System.Drawing.Size(635, 30)
+        Me.pnltop.Size = New System.Drawing.Size(635, 32)
         Me.pnltop.TabIndex = 1
         '
-        'lbtitle
-        '
-        Me.lbtitle.AutoSize = True
-        Me.lbtitle.Location = New System.Drawing.Point(12, 9)
-        Me.lbtitle.Name = "lbtitle"
-        Me.lbtitle.Size = New System.Drawing.Size(63, 14)
-        Me.lbtitle.TabIndex = 0
-        Me.lbtitle.Text = "Terminal"
-        '
         'Terminal
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -81,14 +69,11 @@ Partial Class Terminal
         Me.Name = "Terminal"
         Me.Text = "Terminal"
         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
-        Me.pnltop.ResumeLayout(False)
-        Me.pnltop.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
     Friend WithEvents terminaltext As System.Windows.Forms.TextBox
     Friend WithEvents tmrfirstuse As System.Windows.Forms.Timer
-    Friend WithEvents pnltop As System.Windows.Forms.Panel
+    Friend WithEvents pnltop As shiftos_next.Titlebar
-    Friend WithEvents lbtitle As System.Windows.Forms.Label
 End Class

shiftos_next/Other/Terminal.vb

@@ -17,15 +17,7 @@
     Public Sub terminal_Innitiate(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
         API.txtterm = Me.terminaltext
-        If boughtbasicwm = True Then
+        pnltop.DetermineMyVisibility()
-            pnltop.Show()
-            Me.WindowState = FormWindowState.Normal
-            Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
-            Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
-        Else
-            pnltop.Hide()
-            Me.WindowState = FormWindowState.Maximized
-        End If
         AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ")
         SelectBottom()
         If prompttoupdatesave = True Then

shiftos_next/bin/Debug/shiftos_next.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt

@@ -26,3 +26,23 @@ C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shift
 C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.exe
 C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.xml
 C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.pdb
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\bin\Debug\shiftos_next.exe.config
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.exe
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.xml
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.pdb
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.basicwm_infobox.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.BasicWM.Desktop.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.BasicWM.ColorPicker.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.file_skimmer.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.HijackScreen.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.Resources.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.shiftorium_cmd.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.Terminal.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.TextPad.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.vbproj.GenerateResource.Cache
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\bin\Debug\shiftos_next.exe
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\bin\Debug\shiftos_next.pdb
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\bin\Debug\shiftos_next.xml
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.Titlebar.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.Shifter.resources
+C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\obj\Debug\shiftos_next.SkinLoader.resources

shiftos_next/shiftos_next.vbproj

@@ -70,38 +70,57 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="API.vb" />
+    <Compile Include="APIs\API.vb" />
-    <Compile Include="BasicWM_ColorTable.vb" />
+    <Compile Include="APIs\Skins.vb" />
-    <Compile Include="basicwm_infobox.Designer.vb">
+    <Compile Include="BWM and CMD Apps\Shifter.Designer.vb">
+      <DependentUpon>Shifter.vb</DependentUpon>
+    </Compile>
+    <Compile Include="BWM and CMD Apps\Shifter.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="BWM and CMD Apps\SkinLoader.Designer.vb">
+      <DependentUpon>SkinLoader.vb</DependentUpon>
+    </Compile>
+    <Compile Include="BWM and CMD Apps\SkinLoader.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Menu Renderers\BasicWM_ColorTable.vb" />
+    <Compile Include="BWM and CMD Apps\basicwm_infobox.Designer.vb">
       <DependentUpon>basicwm_infobox.vb</DependentUpon>
     </Compile>
-    <Compile Include="basicwm_infobox.vb">
+    <Compile Include="BWM and CMD Apps\basicwm_infobox.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="basicwm_renderer.vb" />
+    <Compile Include="Menu Renderers\basicwm_renderer.vb" />
-    <Compile Include="BWMDesktop.Designer.vb">
+    <Compile Include="BWM User Controls\Titlebar.Designer.vb">
+      <DependentUpon>Titlebar.vb</DependentUpon>
+    </Compile>
+    <Compile Include="BWM User Controls\Titlebar.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="Desktop Environments\BWMDesktop.Designer.vb">
       <DependentUpon>BWMDesktop.vb</DependentUpon>
     </Compile>
-    <Compile Include="BWMDesktop.vb">
+    <Compile Include="Desktop Environments\BWMDesktop.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="ColorPicker.Designer.vb">
+    <Compile Include="BWM and CMD Apps\ColorPicker.Designer.vb">
       <DependentUpon>ColorPicker.vb</DependentUpon>
     </Compile>
-    <Compile Include="ColorPicker.vb">
+    <Compile Include="BWM and CMD Apps\ColorPicker.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="file skimmer.Designer.vb">
+    <Compile Include="BWM and CMD Apps\file skimmer.Designer.vb">
       <DependentUpon>file skimmer.vb</DependentUpon>
     </Compile>
-    <Compile Include="file skimmer.vb">
+    <Compile Include="BWM and CMD Apps\file skimmer.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="filesystem.vb" />
+    <Compile Include="APIs\filesystem.vb" />
-    <Compile Include="Hijack.Designer.vb">
+    <Compile Include="Other\Hijack.Designer.vb">
       <DependentUpon>Hijack.vb</DependentUpon>
     </Compile>
-    <Compile Include="Hijack.vb">
+    <Compile Include="Other\Hijack.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="My Project\AssemblyInfo.vb" />
@@ -119,42 +138,51 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
-    <Compile Include="saveengine.vb" />
+    <Compile Include="APIs\saveengine.vb" />
-    <Compile Include="shiftorium_api.vb" />
+    <Compile Include="APIs\shiftorium_api.vb" />
-    <Compile Include="shiftorium_cmd.Designer.vb">
+    <Compile Include="BWM and CMD Apps\shiftorium_cmd.Designer.vb">
       <DependentUpon>shiftorium_cmd.vb</DependentUpon>
     </Compile>
-    <Compile Include="shiftorium_cmd.vb">
+    <Compile Include="BWM and CMD Apps\shiftorium_cmd.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Terminal.Designer.vb">
+    <Compile Include="Other\Terminal.Designer.vb">
       <DependentUpon>Terminal.vb</DependentUpon>
     </Compile>
-    <Compile Include="Terminal.vb">
+    <Compile Include="Other\Terminal.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="TerminalGames.vb" />
+    <Compile Include="APIs\TerminalGames.vb" />
-    <Compile Include="TextPad.Designer.vb">
+    <Compile Include="BWM and CMD Apps\TextPad.Designer.vb">
       <DependentUpon>TextPad.vb</DependentUpon>
     </Compile>
-    <Compile Include="TextPad.vb">
+    <Compile Include="BWM and CMD Apps\TextPad.vb">
       <SubType>Form</SubType>
     </Compile>
   </ItemGroup>
   <ItemGroup>
-    <EmbeddedResource Include="basicwm_infobox.resx">
+    <EmbeddedResource Include="BWM and CMD Apps\basicwm_infobox.resx">
       <DependentUpon>basicwm_infobox.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="BWMDesktop.resx">
+    <EmbeddedResource Include="BWM and CMD Apps\Shifter.resx">
+      <DependentUpon>Shifter.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="BWM and CMD Apps\SkinLoader.resx">
+      <DependentUpon>SkinLoader.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="BWM User Controls\Titlebar.resx">
+      <DependentUpon>Titlebar.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Desktop Environments\BWMDesktop.resx">
       <DependentUpon>BWMDesktop.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="ColorPicker.resx">
+    <EmbeddedResource Include="BWM and CMD Apps\ColorPicker.resx">
       <DependentUpon>ColorPicker.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="file skimmer.resx">
+    <EmbeddedResource Include="BWM and CMD Apps\file skimmer.resx">
       <DependentUpon>file skimmer.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="Hijack.resx">
+    <EmbeddedResource Include="Other\Hijack.resx">
       <DependentUpon>Hijack.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\Resources.resx">
@@ -163,13 +191,13 @@
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
       <SubType>Designer</SubType>
     </EmbeddedResource>
-    <EmbeddedResource Include="shiftorium_cmd.resx">
+    <EmbeddedResource Include="BWM and CMD Apps\shiftorium_cmd.resx">
       <DependentUpon>shiftorium_cmd.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="Terminal.resx">
+    <EmbeddedResource Include="Other\Terminal.resx">
       <DependentUpon>Terminal.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="TextPad.resx">
+    <EmbeddedResource Include="BWM and CMD Apps\TextPad.resx">
       <DependentUpon>TextPad.vb</DependentUpon>
     </EmbeddedResource>
   </ItemGroup>
@@ -194,6 +222,7 @@
   <ItemGroup>
     <None Include="Resources\Folder1.png" />
   </ItemGroup>
+  <ItemGroup />
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.

shiftos_next/shiftos_next.vbproj.user

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
-    <ProjectView>ShowAllFiles</ProjectView>
+    <ProjectView>ProjectFiles</ProjectView>
   </PropertyGroup>
 </Project>