From 57e6eec1bc00eaedeb6004c225184ba03f1155e0 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Sat, 23 May 2015 10:21:24 -0400 Subject: Basic Window Manager implemented WARNING: Due to a bug that made the save engine think it was ShiftOS 0.0.8, I had to change the actualshiftversion variable to prevent older ShiftOS versions opening the save file thus crashing. Due to this, ShiftOS-Next will automatically delete C:\ShiftOS and rewrite the save. Besides that, I've added a new Window Manager that can be bought after buying Gray, Basic GUI Server, File Skimmer, and Textpad. This window manager allows you to run multiple apps at once in their own window, as well as having up to 3 Terminals running at once. It is a work-in-progress feature, but it's currently stable. --- shiftos_next/ColorPicker.vb | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 shiftos_next/ColorPicker.vb (limited to 'shiftos_next/ColorPicker.vb') diff --git a/shiftos_next/ColorPicker.vb b/shiftos_next/ColorPicker.vb new file mode 100644 index 0000000..d569c65 --- /dev/null +++ b/shiftos_next/ColorPicker.vb @@ -0,0 +1,38 @@ +Namespace BasicWM + Public Class ColorPicker + + Public Color As Color + Public oldcolor As Color + + Private Sub btnwhite_Click(sender As Object, e As EventArgs) Handles btnwhite.Click, btnblack.Click, btngray.Click, btnred.Click, btngreen.Click, btnblue.Click, btnyellow.Click, btnorange.Click, btnpink.Click, btnpurple.Click, btnbrown.Click + Color = sender.backcolor + lbselectedcolor.Text = "Selected color: " & Color.ToKnownColor.ToString + End Sub + + Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click + Me.Close() + End Sub + + Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click + Color = oldcolor + Me.Close() + End Sub + + Private Sub ColorPicker_Load(sender As Object, e As EventArgs) Handles MyBase.Load + loadcolors() + End Sub + + + Public Sub loadcolors() + If boughtgray Then btngray.Show() + If boughtred Then btnred.Show() + If boughtgreen Then btngreen.Show() + If boughtblue Then btnblue.Show() + If boughtyellow Then btnyellow.Show() + If boughtorange Then btnorange.Show() + If boughtpink Then btnpink.Show() + If boughtpurple Then btnpurple.Show() + If boughtbrown Then btnbrown.Show() + End Sub + End Class +End Namespace \ No newline at end of file -- cgit v1.2.3