From ccdbbbed1898c5073dc460a737cdd4b7c7036bb5 Mon Sep 17 00:00:00 2001
From: TheUltimateHacker <tultimateh@gmail.com>
Date: Fri, 29 May 2015 09:57:53 -0400
Subject: 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.
---
 shiftos_next/BWM and CMD Apps/Shifter.vb | 42 ++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 shiftos_next/BWM and CMD Apps/Shifter.vb

(limited to 'shiftos_next/BWM and CMD Apps/Shifter.vb')

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
-- 
cgit v1.2.3