BWM - Skinning!

Yay! ShiftOS Next can finally be Shifted! Yes, that's true. I've added
basic skinning to the Basic Window Manager. Currently, the only way to
get to it is by typing "open shifter" in the Terminal, and the Shifter
will open. Choose the settings you want and hit Apply!

This is also the Alpha 3 commit, so after this I'll make the next
release.

23 files changed, 507 insertions, 59 deletions

diff --git a/shiftos_next.v12.suo b/shiftos_next.v12.suo
index 0726f15..85df75b 100644
--- a/shiftos_next.v12.suo
+++ b/shiftos_next.v12.suo
diff --git a/shiftos_next/APIs/API.vb b/shiftos_next/APIs/API.vb
index d3a70fe..af6474d 100644
--- a/shiftos_next/APIs/API.vb
+++ b/shiftos_next/APIs/API.vb
@@ -73,6 +73,8 @@
 
     Public Sub OpenProgram(progtoopen As String)
         Select Case progtoopen
+            Case "shifter", "skin", "shift"
+                Shifter.Show()
             Case "shiftorium", "packages", "pacman", "code shop"
                 shiftorium_cmd.Show()
             Case "files", "fileskimmer", "file skimmer", "fs", "file browser"
@@ -108,7 +110,8 @@
                 Else
                     AddLine("close: Invalid program """ & progtoclose & """.")
                 End If
-
+            Case "shifter", "skin", "shift"
+                Shifter.Hide()
             Case Else
                 AddLine("close: Invalid program """ & progtoclose & """.")
         End Select
diff --git a/shiftos_next/APIs/Skins.vb b/shiftos_next/APIs/Skins.vb
new file mode 100644
index 0000000..7b87a5c
--- /dev/null
+++ b/shiftos_next/APIs/Skins.vb
@@ -0,0 +1,53 @@
+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
+
+#End Region
+
+
+End Module
diff --git a/shiftos_next/APIs/filesystem.vb b/shiftos_next/APIs/filesystem.vb
index 61e8053..edce1c3 100644
--- a/shiftos_next/APIs/filesystem.vb
+++ b/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"
 
diff --git a/shiftos_next/BWM User Controls/Titlebar.vb b/shiftos_next/BWM User Controls/Titlebar.vb
index 2d4e6e6..549b129 100644
--- a/shiftos_next/BWM User Controls/Titlebar.vb
+++ b/shiftos_next/BWM User Controls/Titlebar.vb
@@ -1,5 +1,7 @@
 Public Class Titlebar
 
+    Friend WithEvents tmrcheckskin As New Timer
+
     Public Property AppName As String
         Set(value As String)
             lbtitle.Text = value
@@ -13,7 +15,9 @@
 
     Private Sub Titlebar_Load(sender As Object, e As EventArgs) Handles Me.Load
         Me.Dock = DockStyle.Top
-        Me.BringToFront()
+        Me.SendToBack()
+        tmrcheckskin.Interval = 200
+        tmrcheckskin.Start()
     End Sub
 
     Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown, lbtitle.MouseDown
@@ -46,4 +50,21 @@
         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
diff --git a/shiftos_next/BWM and CMD Apps/Shifter.Designer.vb b/shiftos_next/BWM and CMD Apps/Shifter.Designer.vb
new file mode 100644
index 0000000..4fce358
--- /dev/null
+++ b/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
diff --git a/shiftos_next/BWM and CMD Apps/Shifter.resx b/shiftos_next/BWM and CMD Apps/Shifter.resx
new file mode 100644
index 0000000..b5156d8
--- /dev/null
+++ b/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>
\ No newline at end of file
diff --git a/shiftos_next/BWM and CMD Apps/Shifter.vb b/shiftos_next/BWM and CMD Apps/Shifter.vb
new file mode 100644
index 0000000..bb85cec
--- /dev/null
+++ b/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
\ No newline at end of file
diff --git a/shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb b/shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb
index 000d75f..eac4349 100644
--- a/shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb
+++ b/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
diff --git a/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb b/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb
index e4ffa55..aed56eb 100644
--- a/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb
+++ b/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
diff --git a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb
index 78c1ad7..b6d228b 100644
--- a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb
+++ b/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
diff --git a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx
index 1af7de1..d0d99f4 100644
--- a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx
+++ b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx
@@ -117,4 +117,7 @@
   <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>
\ No newline at end of file
diff --git a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb
index ba9b840..5fe11da 100644
--- a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb
+++ b/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
-            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
+        Titlebar1.shiftorium_special()
     End Sub
 
     Public Sub determineitems()
diff --git a/shiftos_next/Desktop Environments/BWMDesktop.vb b/shiftos_next/Desktop Environments/BWMDesktop.vb
index 07841a5..a3790b5 100644
--- a/shiftos_next/Desktop Environments/BWMDesktop.vb
+++ b/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
\ No newline at end of file
diff --git a/shiftos_next/bin/Debug/shiftos_next.exe b/shiftos_next/bin/Debug/shiftos_next.exe
index cea38f3..8139db3 100644
--- a/shiftos_next/bin/Debug/shiftos_next.exe
+++ b/shiftos_next/bin/Debug/shiftos_next.exe
diff --git a/shiftos_next/bin/Debug/shiftos_next.pdb b/shiftos_next/bin/Debug/shiftos_next.pdb
index 683dcab..177c865 100644
--- a/shiftos_next/bin/Debug/shiftos_next.pdb
+++ b/shiftos_next/bin/Debug/shiftos_next.pdb
diff --git a/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache
index d8cd611..79049e5 100644
--- a/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache
diff --git a/shiftos_next/obj/Debug/shiftos_next.Shifter.resources b/shiftos_next/obj/Debug/shiftos_next.Shifter.resources
new file mode 100644
index 0000000..fa34ad7
--- /dev/null
+++ b/shiftos_next/obj/Debug/shiftos_next.Shifter.resources
diff --git a/shiftos_next/obj/Debug/shiftos_next.exe b/shiftos_next/obj/Debug/shiftos_next.exe
index cea38f3..8139db3 100644
--- a/shiftos_next/obj/Debug/shiftos_next.exe
+++ b/shiftos_next/obj/Debug/shiftos_next.exe
diff --git a/shiftos_next/obj/Debug/shiftos_next.pdb b/shiftos_next/obj/Debug/shiftos_next.pdb
index 683dcab..177c865 100644
--- a/shiftos_next/obj/Debug/shiftos_next.pdb
+++ b/shiftos_next/obj/Debug/shiftos_next.pdb
diff --git a/shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt b/shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt
index 59066c9..0841ad8 100644
--- a/shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt
+++ b/shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt
@@ -44,3 +44,4 @@ C:\Users\Michael\Documents\GitHub\shiftos-next\shiftos_next\bin\Debug\shiftos_ne
 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
diff --git a/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache b/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache
index 8f96502..c645f46 100644
--- a/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache
+++ b/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache
diff --git a/shiftos_next/shiftos_next.vbproj b/shiftos_next/shiftos_next.vbproj
index d327d3b..db76ab6 100644
--- a/shiftos_next/shiftos_next.vbproj
+++ b/shiftos_next/shiftos_next.vbproj
@@ -71,6 +71,13 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="APIs\API.vb" />
+    <Compile Include="APIs\Skins.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="Menu Renderers\BasicWM_ColorTable.vb" />
     <Compile Include="BWM and CMD Apps\basicwm_infobox.Designer.vb">
       <DependentUpon>basicwm_infobox.vb</DependentUpon>
@@ -151,6 +158,9 @@
     <EmbeddedResource Include="BWM and CMD Apps\basicwm_infobox.resx">
       <DependentUpon>basicwm_infobox.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="BWM and CMD Apps\Shifter.resx">
+      <DependentUpon>Shifter.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="BWM User Controls\Titlebar.resx">
       <DependentUpon>Titlebar.vb</DependentUpon>
     </EmbeddedResource>