summaryrefslogtreecommitdiff
path: root/shiftos_next/BWM and CMD Apps
diff options
context:
space:
mode:
authorTheUltimateHacker <[email protected]>2015-05-28 21:42:26 -0400
committerTheUltimateHacker <[email protected]>2015-05-28 21:42:26 -0400
commit424931951bf55c2db7a7cb3228bfccc03ea62287 (patch)
treecf3f0f95ec7ccc914268496ff9acb6d80a29a37c /shiftos_next/BWM and CMD Apps
parent6c5f8c6381166edf0824aed78a1c3f05b0c562d1 (diff)
downloadshiftos-next-424931951bf55c2db7a7cb3228bfccc03ea62287.tar.gz
shiftos-next-424931951bf55c2db7a7cb3228bfccc03ea62287.tar.bz2
shiftos-next-424931951bf55c2db7a7cb3228bfccc03ea62287.zip
Shiftorium - Draggable Windows upgrade + Bugfixes
Alright, I've added the Draggable Windows upgrade to the Shiftorium, as well as fixed a quick bug causing "No Items Available" to display when there were items clearly available. I've also fixed a positioning bug with BWM windows causing them to start in the center of the screen, relative to the titlebar, rather than the form. I've also re-arranged the code a bit, organizing files in folders. APIs are in the APIs folder, Desktop Environments are in the Desktop Environments folder, etc. The shiftorium still doesn't have draggable window functionality yet...
Diffstat (limited to 'shiftos_next/BWM and CMD Apps')
-rw-r--r--shiftos_next/BWM and CMD Apps/ColorPicker.Designer.vb260
-rw-r--r--shiftos_next/BWM and CMD Apps/ColorPicker.resx120
-rw-r--r--shiftos_next/BWM and CMD Apps/ColorPicker.vb38
-rw-r--r--shiftos_next/BWM and CMD Apps/TextPad.Designer.vb224
-rw-r--r--shiftos_next/BWM and CMD Apps/TextPad.resx123
-rw-r--r--shiftos_next/BWM and CMD Apps/TextPad.vb76
-rw-r--r--shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb115
-rw-r--r--shiftos_next/BWM and CMD Apps/basicwm_infobox.resx120
-rw-r--r--shiftos_next/BWM and CMD Apps/basicwm_infobox.vb19
-rw-r--r--shiftos_next/BWM and CMD Apps/file skimmer.Designer.vb280
-rw-r--r--shiftos_next/BWM and CMD Apps/file skimmer.resx157
-rw-r--r--shiftos_next/BWM and CMD Apps/file skimmer.vb178
-rw-r--r--shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb205
-rw-r--r--shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx120
-rw-r--r--shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb195
15 files changed, 2230 insertions, 0 deletions
diff --git a/shiftos_next/BWM and CMD Apps/ColorPicker.Designer.vb b/shiftos_next/BWM and CMD Apps/ColorPicker.Designer.vb
new file mode 100644
index 0000000..46bdcd4
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/ColorPicker.Designer.vb
@@ -0,0 +1,260 @@
+Namespace BasicWM
+ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+ Partial Class ColorPicker
+ 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.pnlcolors = New System.Windows.Forms.FlowLayoutPanel()
+ Me.btnwhite = New System.Windows.Forms.Button()
+ Me.btnblack = New System.Windows.Forms.Button()
+ Me.btngray = New System.Windows.Forms.Button()
+ Me.btnred = New System.Windows.Forms.Button()
+ Me.btngreen = New System.Windows.Forms.Button()
+ Me.btnblue = New System.Windows.Forms.Button()
+ Me.btnyellow = New System.Windows.Forms.Button()
+ Me.btnorange = New System.Windows.Forms.Button()
+ Me.btnpink = New System.Windows.Forms.Button()
+ Me.btnpurple = New System.Windows.Forms.Button()
+ Me.btnbrown = New System.Windows.Forms.Button()
+ Me.btnok = New System.Windows.Forms.Button()
+ Me.lbselectedcolor = New System.Windows.Forms.Label()
+ Me.btncancel = New System.Windows.Forms.Button()
+ Me.pnltop = New shiftos_next.Titlebar()
+ Me.pnlcolors.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnlcolors
+ '
+ Me.pnlcolors.Controls.Add(Me.btnwhite)
+ Me.pnlcolors.Controls.Add(Me.btnblack)
+ Me.pnlcolors.Controls.Add(Me.btngray)
+ Me.pnlcolors.Controls.Add(Me.btnred)
+ Me.pnlcolors.Controls.Add(Me.btngreen)
+ Me.pnlcolors.Controls.Add(Me.btnblue)
+ Me.pnlcolors.Controls.Add(Me.btnyellow)
+ Me.pnlcolors.Controls.Add(Me.btnorange)
+ Me.pnlcolors.Controls.Add(Me.btnpink)
+ Me.pnlcolors.Controls.Add(Me.btnpurple)
+ Me.pnlcolors.Controls.Add(Me.btnbrown)
+ Me.pnlcolors.Location = New System.Drawing.Point(15, 65)
+ Me.pnlcolors.Name = "pnlcolors"
+ Me.pnlcolors.Size = New System.Drawing.Size(335, 177)
+ Me.pnlcolors.TabIndex = 1
+ '
+ 'btnwhite
+ '
+ Me.btnwhite.BackColor = System.Drawing.Color.White
+ Me.btnwhite.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnwhite.Location = New System.Drawing.Point(3, 3)
+ Me.btnwhite.Name = "btnwhite"
+ Me.btnwhite.Size = New System.Drawing.Size(26, 23)
+ Me.btnwhite.TabIndex = 0
+ Me.btnwhite.UseVisualStyleBackColor = False
+ '
+ 'btnblack
+ '
+ Me.btnblack.BackColor = System.Drawing.Color.Black
+ Me.btnblack.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnblack.Location = New System.Drawing.Point(35, 3)
+ Me.btnblack.Name = "btnblack"
+ Me.btnblack.Size = New System.Drawing.Size(26, 23)
+ Me.btnblack.TabIndex = 1
+ Me.btnblack.UseVisualStyleBackColor = False
+ '
+ 'btngray
+ '
+ Me.btngray.BackColor = System.Drawing.Color.Gray
+ Me.btngray.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btngray.Location = New System.Drawing.Point(67, 3)
+ Me.btngray.Name = "btngray"
+ Me.btngray.Size = New System.Drawing.Size(26, 23)
+ Me.btngray.TabIndex = 2
+ Me.btngray.UseVisualStyleBackColor = False
+ Me.btngray.Visible = False
+ '
+ 'btnred
+ '
+ Me.btnred.BackColor = System.Drawing.Color.Red
+ Me.btnred.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnred.Location = New System.Drawing.Point(99, 3)
+ Me.btnred.Name = "btnred"
+ Me.btnred.Size = New System.Drawing.Size(26, 23)
+ Me.btnred.TabIndex = 3
+ Me.btnred.UseVisualStyleBackColor = False
+ Me.btnred.Visible = False
+ '
+ 'btngreen
+ '
+ Me.btngreen.BackColor = System.Drawing.Color.Green
+ Me.btngreen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btngreen.Location = New System.Drawing.Point(131, 3)
+ Me.btngreen.Name = "btngreen"
+ Me.btngreen.Size = New System.Drawing.Size(26, 23)
+ Me.btngreen.TabIndex = 4
+ Me.btngreen.UseVisualStyleBackColor = False
+ Me.btngreen.Visible = False
+ '
+ 'btnblue
+ '
+ Me.btnblue.BackColor = System.Drawing.Color.Blue
+ Me.btnblue.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnblue.Location = New System.Drawing.Point(163, 3)
+ Me.btnblue.Name = "btnblue"
+ Me.btnblue.Size = New System.Drawing.Size(26, 23)
+ Me.btnblue.TabIndex = 5
+ Me.btnblue.UseVisualStyleBackColor = False
+ Me.btnblue.Visible = False
+ '
+ 'btnyellow
+ '
+ Me.btnyellow.BackColor = System.Drawing.Color.Yellow
+ Me.btnyellow.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnyellow.Location = New System.Drawing.Point(195, 3)
+ Me.btnyellow.Name = "btnyellow"
+ Me.btnyellow.Size = New System.Drawing.Size(26, 23)
+ Me.btnyellow.TabIndex = 6
+ Me.btnyellow.UseVisualStyleBackColor = False
+ Me.btnyellow.Visible = False
+ '
+ 'btnorange
+ '
+ Me.btnorange.BackColor = System.Drawing.Color.Orange
+ Me.btnorange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnorange.Location = New System.Drawing.Point(227, 3)
+ Me.btnorange.Name = "btnorange"
+ Me.btnorange.Size = New System.Drawing.Size(26, 23)
+ Me.btnorange.TabIndex = 7
+ Me.btnorange.UseVisualStyleBackColor = False
+ Me.btnorange.Visible = False
+ '
+ 'btnpink
+ '
+ Me.btnpink.BackColor = System.Drawing.Color.Pink
+ Me.btnpink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnpink.Location = New System.Drawing.Point(259, 3)
+ Me.btnpink.Name = "btnpink"
+ Me.btnpink.Size = New System.Drawing.Size(26, 23)
+ Me.btnpink.TabIndex = 8
+ Me.btnpink.UseVisualStyleBackColor = False
+ Me.btnpink.Visible = False
+ '
+ 'btnpurple
+ '
+ Me.btnpurple.BackColor = System.Drawing.Color.Purple
+ Me.btnpurple.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnpurple.Location = New System.Drawing.Point(291, 3)
+ Me.btnpurple.Name = "btnpurple"
+ Me.btnpurple.Size = New System.Drawing.Size(26, 23)
+ Me.btnpurple.TabIndex = 9
+ Me.btnpurple.UseVisualStyleBackColor = False
+ Me.btnpurple.Visible = False
+ '
+ 'btnbrown
+ '
+ Me.btnbrown.BackColor = System.Drawing.Color.Brown
+ Me.btnbrown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnbrown.Location = New System.Drawing.Point(3, 32)
+ Me.btnbrown.Name = "btnbrown"
+ Me.btnbrown.Size = New System.Drawing.Size(26, 23)
+ Me.btnbrown.TabIndex = 10
+ Me.btnbrown.UseVisualStyleBackColor = False
+ Me.btnbrown.Visible = False
+ '
+ 'btnok
+ '
+ Me.btnok.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnok.Location = New System.Drawing.Point(275, 245)
+ Me.btnok.Name = "btnok"
+ Me.btnok.Size = New System.Drawing.Size(75, 23)
+ Me.btnok.TabIndex = 2
+ Me.btnok.Text = "OK"
+ Me.btnok.UseVisualStyleBackColor = True
+ '
+ 'lbselectedcolor
+ '
+ Me.lbselectedcolor.AutoSize = True
+ Me.lbselectedcolor.Location = New System.Drawing.Point(12, 249)
+ Me.lbselectedcolor.Name = "lbselectedcolor"
+ Me.lbselectedcolor.Size = New System.Drawing.Size(154, 14)
+ Me.lbselectedcolor.TabIndex = 3
+ Me.lbselectedcolor.Text = "Selected Color: White"
+ '
+ 'btncancel
+ '
+ Me.btncancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btncancel.Location = New System.Drawing.Point(194, 245)
+ Me.btncancel.Name = "btncancel"
+ Me.btncancel.Size = New System.Drawing.Size(75, 23)
+ Me.btncancel.TabIndex = 4
+ 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.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.pnlcolors.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents pnlcolors As System.Windows.Forms.FlowLayoutPanel
+ Friend WithEvents btnwhite As System.Windows.Forms.Button
+ Friend WithEvents btnblack As System.Windows.Forms.Button
+ Friend WithEvents btngray As System.Windows.Forms.Button
+ Friend WithEvents btnred As System.Windows.Forms.Button
+ Friend WithEvents btngreen As System.Windows.Forms.Button
+ Friend WithEvents btnblue As System.Windows.Forms.Button
+ Friend WithEvents btnyellow As System.Windows.Forms.Button
+ Friend WithEvents btnorange As System.Windows.Forms.Button
+ Friend WithEvents btnpink As System.Windows.Forms.Button
+ Friend WithEvents btnpurple As System.Windows.Forms.Button
+ Friend WithEvents btnbrown As System.Windows.Forms.Button
+ 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 \ No newline at end of file
diff --git a/shiftos_next/BWM and CMD Apps/ColorPicker.resx b/shiftos_next/BWM and CMD Apps/ColorPicker.resx
new file mode 100644
index 0000000..1af7de1
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/ColorPicker.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> \ No newline at end of file
diff --git a/shiftos_next/BWM and CMD Apps/ColorPicker.vb b/shiftos_next/BWM and CMD Apps/ColorPicker.vb
new file mode 100644
index 0000000..d569c65
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/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
diff --git a/shiftos_next/BWM and CMD Apps/TextPad.Designer.vb b/shiftos_next/BWM and CMD Apps/TextPad.Designer.vb
new file mode 100644
index 0000000..d43bc67
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/TextPad.Designer.vb
@@ -0,0 +1,224 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class TextPad
+ 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.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+ Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+ Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.RedoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+ Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
+ Me.FindToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ReplaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.txtfilebody = New System.Windows.Forms.RichTextBox()
+ Me.pnltop = New shiftos_next.Titlebar()
+ Me.MenuStrip1.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, 32)
+ Me.MenuStrip1.Name = "MenuStrip1"
+ Me.MenuStrip1.Size = New System.Drawing.Size(652, 24)
+ Me.MenuStrip1.TabIndex = 0
+ Me.MenuStrip1.Text = "MenuStrip1"
+ '
+ 'FileToolStripMenuItem
+ '
+ Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem, Me.ExitToolStripMenuItem})
+ Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
+ Me.FileToolStripMenuItem.Size = New System.Drawing.Size(47, 20)
+ Me.FileToolStripMenuItem.Text = "File"
+ '
+ 'NewToolStripMenuItem
+ '
+ Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem"
+ Me.NewToolStripMenuItem.Size = New System.Drawing.Size(102, 22)
+ Me.NewToolStripMenuItem.Text = "New"
+ '
+ 'OpenToolStripMenuItem
+ '
+ Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem"
+ Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(102, 22)
+ Me.OpenToolStripMenuItem.Text = "Open"
+ '
+ 'SaveToolStripMenuItem
+ '
+ Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem"
+ Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(102, 22)
+ Me.SaveToolStripMenuItem.Text = "Save"
+ '
+ 'ExitToolStripMenuItem
+ '
+ Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
+ Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(102, 22)
+ Me.ExitToolStripMenuItem.Text = "Exit"
+ '
+ 'EditToolStripMenuItem
+ '
+ Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem, Me.ToolStripSeparator2, Me.UndoToolStripMenuItem, Me.RedoToolStripMenuItem, Me.ToolStripSeparator1, Me.SelectAllToolStripMenuItem, Me.ToolStripSeparator3, Me.FindToolStripMenuItem, Me.ReplaceToolStripMenuItem})
+ Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem"
+ Me.EditToolStripMenuItem.Size = New System.Drawing.Size(47, 20)
+ Me.EditToolStripMenuItem.Text = "Edit"
+ '
+ 'CutToolStripMenuItem
+ '
+ Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem"
+ Me.CutToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+ Me.CutToolStripMenuItem.Text = "Cut"
+ '
+ 'CopyToolStripMenuItem
+ '
+ Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem"
+ Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+ Me.CopyToolStripMenuItem.Text = "Copy"
+ '
+ 'PasteToolStripMenuItem
+ '
+ Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem"
+ Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+ Me.PasteToolStripMenuItem.Text = "Paste"
+ '
+ 'ToolStripSeparator2
+ '
+ Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+ Me.ToolStripSeparator2.Size = New System.Drawing.Size(141, 6)
+ '
+ 'UndoToolStripMenuItem
+ '
+ Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem"
+ Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+ Me.UndoToolStripMenuItem.Text = "Undo"
+ '
+ 'RedoToolStripMenuItem
+ '
+ Me.RedoToolStripMenuItem.Name = "RedoToolStripMenuItem"
+ Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+ Me.RedoToolStripMenuItem.Text = "Redo"
+ '
+ 'ToolStripSeparator1
+ '
+ Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+ Me.ToolStripSeparator1.Size = New System.Drawing.Size(141, 6)
+ '
+ 'SelectAllToolStripMenuItem
+ '
+ Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem"
+ Me.SelectAllToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+ Me.SelectAllToolStripMenuItem.Text = "Select All"
+ '
+ 'ToolStripSeparator3
+ '
+ Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+ Me.ToolStripSeparator3.Size = New System.Drawing.Size(141, 6)
+ '
+ 'FindToolStripMenuItem
+ '
+ Me.FindToolStripMenuItem.Name = "FindToolStripMenuItem"
+ Me.FindToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+ Me.FindToolStripMenuItem.Text = "Find"
+ Me.FindToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'ReplaceToolStripMenuItem
+ '
+ Me.ReplaceToolStripMenuItem.Name = "ReplaceToolStripMenuItem"
+ Me.ReplaceToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+ Me.ReplaceToolStripMenuItem.Text = "Replace"
+ '
+ 'txtfilebody
+ '
+ Me.txtfilebody.BackColor = System.Drawing.Color.Black
+ 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, 56)
+ Me.txtfilebody.Name = "txtfilebody"
+ Me.txtfilebody.Size = New System.Drawing.Size(652, 261)
+ Me.txtfilebody.TabIndex = 1
+ Me.txtfilebody.Text = ""
+ '
+ 'pnltop
+ '
+ Me.pnltop.AppName = "TextPad"
+ 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, 32)
+ Me.pnltop.TabIndex = 2
+ '
+ 'TextPad
+ '
+ 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(652, 317)
+ Me.Controls.Add(Me.txtfilebody)
+ Me.Controls.Add(Me.MenuStrip1)
+ 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.MainMenuStrip = Me.MenuStrip1
+ Me.Name = "TextPad"
+ Me.Text = "TextPad"
+ Me.MenuStrip1.ResumeLayout(False)
+ Me.MenuStrip1.PerformLayout()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
+ Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents CutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents PasteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
+ Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents RedoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
+ Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
+ 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 pnltop As shiftos_next.Titlebar
+End Class
diff --git a/shiftos_next/BWM and CMD Apps/TextPad.resx b/shiftos_next/BWM and CMD Apps/TextPad.resx
new file mode 100644
index 0000000..bb70361
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/TextPad.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="MenuStrip1.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/TextPad.vb b/shiftos_next/BWM and CMD Apps/TextPad.vb
new file mode 100644
index 0000000..1bc0d28
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/TextPad.vb
@@ -0,0 +1,76 @@
+Public Class TextPad
+
+
+ Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
+ file_skimmer.mode = "open"
+ file_skimmer.application = "textpad"
+ file_skimmer.Show()
+ End Sub
+
+ Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
+ file_skimmer.mode = "save"
+ file_skimmer.application = "textpad"
+ file_skimmer.Show()
+ End Sub
+
+ Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
+ Me.Close()
+ End Sub
+
+ Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click
+ txtfilebody.Text = ""
+ End Sub
+
+ Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click
+ txtfilebody.Cut()
+ End Sub
+
+ Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
+ txtfilebody.Copy()
+ End Sub
+
+ Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
+ txtfilebody.Paste()
+ End Sub
+
+ Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UndoToolStripMenuItem.Click
+ txtfilebody.Undo()
+ End Sub
+
+ Private Sub RedoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RedoToolStripMenuItem.Click
+ txtfilebody.Redo()
+ End Sub
+
+ Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click
+ txtfilebody.SelectAll()
+ End Sub
+
+ Private Sub FindToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FindToolStripMenuItem.Click
+ basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True)
+ txtfilebody.Find(basicwm_infobox.userinput)
+ End Sub
+
+ Private Sub ReplaceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReplaceToolStripMenuItem.Click
+ basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True)
+ Dim whattofind As String = basicwm_infobox.userinput
+ basicwm_infobox.showinfo("Replace", "What shall we replace """ & whattofind & """ with?", True)
+ txtfilebody.Text = txtfilebody.Text.Replace(whattofind, basicwm_infobox.userinput)
+ End Sub
+
+ Private Sub TextPad_Load(sender As Object, e As EventArgs) Handles Me.Load
+ MenuStrip1.Renderer = New basicwm_renderer()
+ setupmenufonts()
+ pnltop.DetermineMyVisibility()
+ End Sub
+
+ Public Sub setupmenufonts()
+ For Each item In MenuStrip1.Items
+ item.ForeColor = Color.White
+ item.Font = New Font("Courier New", 8.25)
+ For Each SubItem In item.DropDownItems
+ SubItem.ForeColor = Color.White
+ SubItem.font = New Font("Courier New", 8.25)
+ Next
+ Next
+ 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
new file mode 100644
index 0000000..000d75f
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/basicwm_infobox.Designer.vb
@@ -0,0 +1,115 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class basicwm_infobox
+ 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.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.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
+ Me.btnok.FlatAppearance.BorderSize = 0
+ Me.btnok.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnok.Location = New System.Drawing.Point(0, 213)
+ Me.btnok.Name = "btnok"
+ Me.btnok.Size = New System.Drawing.Size(433, 44)
+ Me.btnok.TabIndex = 0
+ Me.btnok.Text = "> Alright <"
+ Me.btnok.UseVisualStyleBackColor = True
+ '
+ 'lbmessage
+ '
+ Me.lbmessage.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.lbmessage.Location = New System.Drawing.Point(0, 30)
+ Me.lbmessage.Name = "lbmessage"
+ Me.lbmessage.Size = New System.Drawing.Size(433, 183)
+ 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."
+ Me.lbmessage.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'txtuserinput
+ '
+ Me.txtuserinput.BackColor = System.Drawing.Color.Black
+ Me.txtuserinput.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtuserinput.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.txtuserinput.ForeColor = System.Drawing.Color.White
+ Me.txtuserinput.Location = New System.Drawing.Point(0, 200)
+ Me.txtuserinput.Name = "txtuserinput"
+ Me.txtuserinput.Size = New System.Drawing.Size(433, 13)
+ Me.txtuserinput.TabIndex = 2
+ Me.txtuserinput.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+ Me.txtuserinput.WordWrap = False
+ '
+ 'basicwm_infobox
+ '
+ Me.AcceptButton = Me.btnok
+ 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(433, 257)
+ 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
+End Class
diff --git a/shiftos_next/BWM and CMD Apps/basicwm_infobox.resx b/shiftos_next/BWM and CMD Apps/basicwm_infobox.resx
new file mode 100644
index 0000000..1af7de1
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/basicwm_infobox.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> \ No newline at end of file
diff --git a/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb b/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb
new file mode 100644
index 0000000..e4ffa55
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb
@@ -0,0 +1,19 @@
+Public Class basicwm_infobox
+
+ Public userinput As String
+
+ Public Sub showinfo(title As String, message As String, Optional showtextbox As Boolean = False)
+ lbtitle.Text = title
+ lbmessage.Text = message
+ btnok.Text = "> OK <"
+ txtuserinput.Visible = showtextbox
+ Me.StartPosition = FormStartPosition.CenterScreen
+ Me.TopMost = True
+ Me.ShowDialog()
+ End Sub
+
+ Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
+ userinput = txtuserinput.Text
+ Me.Close()
+ End Sub
+End Class \ No newline at end of file
diff --git a/shiftos_next/BWM and CMD Apps/file skimmer.Designer.vb b/shiftos_next/BWM and CMD Apps/file skimmer.Designer.vb
new file mode 100644
index 0000000..4d2aabd
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/file skimmer.Designer.vb
@@ -0,0 +1,280 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class file_skimmer
+ 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(file_skimmer))
+ Me.topmenu = New System.Windows.Forms.MenuStrip()
+ Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.FolderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.newseperator = New System.Windows.Forms.ToolStripSeparator()
+ Me.TextFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ExitSessionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ProductInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.tools = New System.Windows.Forms.ToolStrip()
+ Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
+ Me.lbcurrentdir = New System.Windows.Forms.ToolStripLabel()
+ Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+ Me.btnnewfolder = New System.Windows.Forms.ToolStripButton()
+ Me.btndelete = New System.Windows.Forms.ToolStripButton()
+ Me.lvfiles = New System.Windows.Forms.ListView()
+ Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+ Me.pnlsave = New System.Windows.Forms.Panel()
+ Me.txtfilename = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.btnsave = New System.Windows.Forms.Button()
+ Me.pnltop = New shiftos_next.Titlebar()
+ Me.topmenu.SuspendLayout()
+ Me.tools.SuspendLayout()
+ Me.pnlsave.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'topmenu
+ '
+ Me.topmenu.BackColor = System.Drawing.Color.Gray
+ 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, 32)
+ Me.topmenu.Name = "topmenu"
+ Me.topmenu.Size = New System.Drawing.Size(591, 24)
+ Me.topmenu.TabIndex = 0
+ Me.topmenu.Text = "MenuStrip1"
+ '
+ 'FileToolStripMenuItem
+ '
+ Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.ExitSessionToolStripMenuItem})
+ Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
+ Me.FileToolStripMenuItem.Size = New System.Drawing.Size(47, 20)
+ Me.FileToolStripMenuItem.Text = "File"
+ '
+ 'NewToolStripMenuItem
+ '
+ Me.NewToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FolderToolStripMenuItem, Me.newseperator, Me.TextFileToolStripMenuItem})
+ Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem"
+ Me.NewToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
+ Me.NewToolStripMenuItem.Text = "New"
+ '
+ 'FolderToolStripMenuItem
+ '
+ Me.FolderToolStripMenuItem.Name = "FolderToolStripMenuItem"
+ Me.FolderToolStripMenuItem.Size = New System.Drawing.Size(137, 22)
+ Me.FolderToolStripMenuItem.Text = "Folder"
+ '
+ 'newseperator
+ '
+ Me.newseperator.Name = "newseperator"
+ Me.newseperator.Size = New System.Drawing.Size(134, 6)
+ '
+ 'TextFileToolStripMenuItem
+ '
+ Me.TextFileToolStripMenuItem.Name = "TextFileToolStripMenuItem"
+ Me.TextFileToolStripMenuItem.Size = New System.Drawing.Size(137, 22)
+ Me.TextFileToolStripMenuItem.Text = "Text File"
+ '
+ 'ExitSessionToolStripMenuItem
+ '
+ Me.ExitSessionToolStripMenuItem.Name = "ExitSessionToolStripMenuItem"
+ Me.ExitSessionToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
+ Me.ExitSessionToolStripMenuItem.Text = "Exit Session"
+ '
+ 'AboutToolStripMenuItem
+ '
+ Me.AboutToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProductInfoToolStripMenuItem})
+ Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
+ Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(54, 20)
+ Me.AboutToolStripMenuItem.Text = "About"
+ '
+ 'ProductInfoToolStripMenuItem
+ '
+ Me.ProductInfoToolStripMenuItem.Name = "ProductInfoToolStripMenuItem"
+ Me.ProductInfoToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
+ Me.ProductInfoToolStripMenuItem.Text = "Product Info"
+ '
+ 'tools
+ '
+ Me.tools.BackColor = System.Drawing.Color.Gray
+ 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, 56)
+ Me.tools.Name = "tools"
+ Me.tools.Size = New System.Drawing.Size(591, 25)
+ Me.tools.TabIndex = 1
+ Me.tools.Text = "ToolStrip1"
+ '
+ 'ToolStripLabel1
+ '
+ Me.ToolStripLabel1.Name = "ToolStripLabel1"
+ Me.ToolStripLabel1.Size = New System.Drawing.Size(133, 22)
+ Me.ToolStripLabel1.Text = "Current Directory:"
+ '
+ 'lbcurrentdir
+ '
+ Me.lbcurrentdir.Name = "lbcurrentdir"
+ Me.lbcurrentdir.Size = New System.Drawing.Size(49, 22)
+ Me.lbcurrentdir.Text = "~/Home"
+ '
+ 'ToolStripSeparator1
+ '
+ Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+ Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+ '
+ 'btnnewfolder
+ '
+ Me.btnnewfolder.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+ Me.btnnewfolder.Image = CType(resources.GetObject("btnnewfolder.Image"), System.Drawing.Image)
+ Me.btnnewfolder.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.btnnewfolder.Name = "btnnewfolder"
+ Me.btnnewfolder.Size = New System.Drawing.Size(81, 22)
+ Me.btnnewfolder.Text = "New Folder"
+ '
+ 'btndelete
+ '
+ Me.btndelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+ Me.btndelete.Image = CType(resources.GetObject("btndelete.Image"), System.Drawing.Image)
+ Me.btndelete.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.btndelete.Name = "btndelete"
+ Me.btndelete.Size = New System.Drawing.Size(53, 22)
+ Me.btndelete.Text = "Delete"
+ '
+ 'lvfiles
+ '
+ Me.lvfiles.BackColor = System.Drawing.Color.Black
+ Me.lvfiles.BorderStyle = System.Windows.Forms.BorderStyle.None
+ 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, 81)
+ Me.lvfiles.Name = "lvfiles"
+ 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.txtfilename)
+ Me.pnlsave.Controls.Add(Me.Label1)
+ Me.pnlsave.Controls.Add(Me.btnsave)
+ Me.pnlsave.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlsave.Location = New System.Drawing.Point(0, 330)
+ Me.pnlsave.Name = "pnlsave"
+ Me.pnlsave.Size = New System.Drawing.Size(591, 30)
+ Me.pnlsave.TabIndex = 4
+ '
+ 'txtfilename
+ '
+ Me.txtfilename.BackColor = System.Drawing.Color.Black
+ 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.TabIndex = 2
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Location = New System.Drawing.Point(3, 8)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(77, 14)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "File Name:"
+ '
+ 'btnsave
+ '
+ Me.btnsave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.btnsave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnsave.Location = New System.Drawing.Point(513, 4)
+ Me.btnsave.Name = "btnsave"
+ Me.btnsave.Size = New System.Drawing.Size(75, 23)
+ Me.btnsave.TabIndex = 0
+ Me.btnsave.Text = "Save"
+ Me.btnsave.UseVisualStyleBackColor = True
+ '
+ 'pnltop
+ '
+ Me.pnltop.AppName = "File Skimmer"
+ 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, 32)
+ Me.pnltop.TabIndex = 5
+ '
+ 'file_skimmer
+ '
+ Me.AcceptButton = Me.btnsave
+ 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(591, 360)
+ Me.Controls.Add(Me.lvfiles)
+ Me.Controls.Add(Me.pnlsave)
+ Me.Controls.Add(Me.tools)
+ Me.Controls.Add(Me.topmenu)
+ 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.MainMenuStrip = Me.topmenu
+ Me.Name = "file_skimmer"
+ Me.Text = "file_skimmer"
+ Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
+ Me.topmenu.ResumeLayout(False)
+ Me.topmenu.PerformLayout()
+ Me.tools.ResumeLayout(False)
+ Me.tools.PerformLayout()
+ Me.pnlsave.ResumeLayout(False)
+ Me.pnlsave.PerformLayout()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents topmenu As System.Windows.Forms.MenuStrip
+ Friend WithEvents tools As System.Windows.Forms.ToolStrip
+ Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents ExitSessionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
+ Friend WithEvents lbcurrentdir As System.Windows.Forms.ToolStripLabel
+ Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
+ Friend WithEvents btnnewfolder As System.Windows.Forms.ToolStripButton
+ Friend WithEvents btndelete As System.Windows.Forms.ToolStripButton
+ Friend WithEvents lvfiles As System.Windows.Forms.ListView
+ Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
+ Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
+ Friend WithEvents ProductInfoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents FolderToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents newseperator As System.Windows.Forms.ToolStripSeparator
+ Friend WithEvents TextFileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+ Friend WithEvents pnlsave As System.Windows.Forms.Panel
+ 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 pnltop As shiftos_next.Titlebar
+End Class
diff --git a/shiftos_next/BWM and CMD Apps/file skimmer.resx b/shiftos_next/BWM and CMD Apps/file skimmer.resx
new file mode 100644
index 0000000..b591e26
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/file skimmer.resx
@@ -0,0 +1,157 @@
+<?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="topmenu.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="tools.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>132, 17</value>
+ </metadata>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="btnnewfolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+ YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+ 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+ bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+ VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+ c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+ Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+ mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+ kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+ TgDQASA1MVpwzwAAAABJRU5ErkJggg==
+</value>
+ </data>
+ <data name="btndelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+ YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+ YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+ 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+ bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+ VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+ c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+ Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+ mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+ kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+ TgDQASA1MVpwzwAAAABJRU5ErkJggg==
+</value>
+ </data>
+</root> \ No newline at end of file
diff --git a/shiftos_next/BWM and CMD Apps/file skimmer.vb b/shiftos_next/BWM and CMD Apps/file skimmer.vb
new file mode 100644
index 0000000..4b2d9b1
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/file skimmer.vb
@@ -0,0 +1,178 @@
+Public Class file_skimmer
+
+
+
+ Public mode As String
+ Public application As String 'The application sending either an open or save mode.
+ Public currentdir As String = home
+
+ Public Sub setupmenufonts()
+ For Each item In topmenu.Items
+ item.ForeColor = Color.White
+ item.Font = New Font("Courier New", 8.25)
+ For Each SubItem In item.DropDownItems
+ SubItem.ForeColor = Color.White
+ SubItem.font = New Font("Courier New", 8.25)
+ Next
+ Next
+ End Sub
+
+ Public Sub showfiles()
+ Dim lv As ListView = lvfiles
+ lv.Items.Clear()
+ lv.View = View.Tile
+ lv.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
+ Dim upone As New ListViewItem
+ upone.Text = "Up one"
+ lv.Items.Add(upone)
+ upone.SubItems.Add("directory")
+
+ For Each dir As String In My.Computer.FileSystem.GetDirectories(currentdir)
+ Dim dirinf As New IO.DirectoryInfo(dir)
+ Dim lvitem As New ListViewItem
+ lvitem.Text = dirinf.Name
+ lvitem.Tag = dirinf.FullName
+ lv.Items.Add(lvitem)
+ lvitem.SubItems.Add("Directory")
+ lvitem.SubItems.Add(dirinf.LastAccessTime)
+
+ Next
+ For Each file As String In My.Computer.FileSystem.GetFiles(currentdir)
+ Dim filinf As New IO.DirectoryInfo(file)
+ Dim lvitem As New ListViewItem
+ lvitem.Text = filinf.Name
+ lvitem.Tag = filinf.FullName
+ lv.Items.Add(lvitem)
+
+ lvitem.SubItems.Add(GetFileType(filinf.Extension))
+ lvitem.SubItems.Add(filinf.LastAccessTime)
+ Next
+ lbcurrentdir.Text = currentdir.Replace(root, "~").Replace("\", "/")
+ End Sub
+
+ Public Function GetFileType(ext As String)
+ Dim FileType As String
+ Select Case ext
+ Case ".txt"
+ FileType = "Text File"
+ Case ".pkg"
+ FileType = "Application"
+ Case ".deb"
+ FileType = "Application Installer"
+ Case ".sft"
+ FileType = "Data File"
+ Case ".dri"
+ FileType = "Driver"
+ Case Else
+ FileType = "Unknown File"
+ End Select
+ Return FileType
+ End Function
+
+ Public Sub OpenFile(file As String)
+ If IO.Directory.Exists(file) Then
+ currentdir = file
+ showfiles()
+ Else
+ Dim filinf As New IO.FileInfo(file)
+ Select Case filinf.Extension
+ 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.")
+ End Select
+ End If
+ End Sub
+ Private Sub lvfiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvfiles.DoubleClick
+ Try
+ If lvfiles.SelectedItems(0).Text = "Up one" Then
+ If Not currentdir = root Then
+ currentdir = IO.Directory.GetParent(currentdir).ToString
+ showfiles()
+ End If
+ Else
+ If mode = "open" Then
+ Select Case Application
+ Case "textpad"
+ Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString)
+ TextPad.txtfilebody.Text = sr.ReadToEnd()
+ sr.Close()
+ Me.Close()
+ End Select
+ Else
+ OpenFile(lvfiles.SelectedItems(0).Tag)
+ End If
+ End If
+ Catch
+ End Try
+ 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()
+ setupmenufonts()
+ setupui()
+ showfiles()
+ End Sub
+
+ Public Sub setupui()
+ FolderToolStripMenuItem.Visible = boughtfileskimmernewfolder
+ newseperator.Visible = boughtfileskimmernewfolder
+ btnnewfolder.Visible = boughtfileskimmernewfolder
+ btndelete.Visible = boughtfileskimmerdelete
+ If mode = "save" Then
+ pnlsave.Visible = True
+ Else
+ pnlsave.Visible = False
+ End If
+ pnltop.DetermineMyVisibility()
+ End Sub
+
+ Private Sub ExitSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitSessionToolStripMenuItem.Click
+ Me.Close()
+ End Sub
+
+ Private Sub ProductInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProductInfoToolStripMenuItem.Click
+ basicwm_infobox.showinfo("File Skimmer - v1.2", "Browse, edit, move, copy and delete the files on your computer.")
+ End Sub
+
+
+
+ Private Sub FolderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FolderToolStripMenuItem.Click, btnnewfolder.Click
+ basicwm_infobox.showinfo("Create New Folder", "Please specify a name for your folder.", True)
+ If Not IO.Directory.Exists(currentdir & "\" & basicwm_infobox.userinput) Then
+ IO.Directory.CreateDirectory(currentdir & "\" & basicwm_infobox.userinput)
+ Else
+ basicwm_infobox.showinfo("Create New Folder", "The specified folder already exists!")
+ End If
+ showfiles()
+ End Sub
+
+ Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
+ Try
+ If IO.Directory.Exists(lvfiles.SelectedItems(0).Tag) Then
+ IO.Directory.Delete(lvfiles.SelectedItems(0).Tag, True)
+ ElseIf IO.File.Exists(lvfiles.SelectedItems(0).Tag) Then
+ IO.File.Delete(lvfiles.SelectedItems(0).Tag)
+ End If
+ Catch ex As Exception
+ basicwm_infobox.showinfo("Error!", "The following Visual Basic exception has occurred: " & vbNewLine & vbNewLine & ex.Message)
+ End Try
+ End Sub
+
+ Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
+ If Not txtfilename.Text = "" Then
+ If IO.Directory.Exists(currentdir + "\" + txtfilename.Text) Then
+ basicwm_infobox.showinfo("Invalid File Name", "You can't save a file ontop of a directory with the same name!")
+ Else
+ Select Case Application
+ Case "textpad"
+ Dim sw As New IO.StreamWriter(currentdir + "\" + txtfilename.Text)
+ sw.Write(TextPad.txtfilebody.Text)
+ sw.Close()
+ Me.Close()
+ End Select
+ End If
+ Else
+ basicwm_infobox.showinfo("Invalid File Name", "Please specify a file name, and not leave it blank!")
+ End If
+ End Sub
+End Class \ No newline at end of file
diff --git a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb
new file mode 100644
index 0000000..78c1ad7
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.Designer.vb
@@ -0,0 +1,205 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class shiftorium_cmd
+ 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.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()
+ Me.pnldetails = New System.Windows.Forms.Panel()
+ Me.pnlbuy = New System.Windows.Forms.Panel()
+ Me.btnbuy = New System.Windows.Forms.Button()
+ Me.lbprice = New System.Windows.Forms.Label()
+ Me.lbdescription = New System.Windows.Forms.Label()
+ Me.lbitemname = New System.Windows.Forms.Label()
+ Me.lbitems = New System.Windows.Forms.ListBox()
+ Me.pnltop.SuspendLayout()
+ Me.pnlbottom.SuspendLayout()
+ Me.pnldetails.SuspendLayout()
+ Me.pnlbuy.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'pnltop
+ '
+ 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(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)
+ Me.pnlbottom.Controls.Add(Me.lbcontrols)
+ Me.pnlbottom.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlbottom.Location = New System.Drawing.Point(0, 570)
+ Me.pnlbottom.Name = "pnlbottom"
+ Me.pnlbottom.Size = New System.Drawing.Size(1007, 22)
+ Me.pnlbottom.TabIndex = 1
+ '
+ 'lbcodepoints
+ '
+ Me.lbcodepoints.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.lbcodepoints.Location = New System.Drawing.Point(815, 0)
+ Me.lbcodepoints.Name = "lbcodepoints"
+ Me.lbcodepoints.Size = New System.Drawing.Size(192, 22)
+ Me.lbcodepoints.TabIndex = 1
+ Me.lbcodepoints.Text = "Codepoints: {0}"
+ Me.lbcodepoints.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ '
+ 'lbcontrols
+ '
+ Me.lbcontrols.Dock = System.Windows.Forms.DockStyle.Left
+ Me.lbcontrols.Location = New System.Drawing.Point(0, 0)
+ Me.lbcontrols.Name = "lbcontrols"
+ Me.lbcontrols.Size = New System.Drawing.Size(815, 22)
+ Me.lbcontrols.TabIndex = 0
+ Me.lbcontrols.Text = "Controls: UP/DOWN - Choose item, ENTER - View details, SPACE: Download"
+ Me.lbcontrols.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'pnldetails
+ '
+ Me.pnldetails.Controls.Add(Me.pnlbuy)
+ Me.pnldetails.Controls.Add(Me.lbdescription)
+ Me.pnldetails.Controls.Add(Me.lbitemname)
+ Me.pnldetails.Dock = System.Windows.Forms.DockStyle.Top
+ Me.pnldetails.Location = New System.Drawing.Point(0, 30)
+ Me.pnldetails.Name = "pnldetails"
+ Me.pnldetails.Size = New System.Drawing.Size(1007, 205)
+ Me.pnldetails.TabIndex = 2
+ '
+ 'pnlbuy
+ '
+ Me.pnlbuy.Controls.Add(Me.btnbuy)
+ Me.pnlbuy.Controls.Add(Me.lbprice)
+ Me.pnlbuy.Dock = System.Windows.Forms.DockStyle.Bottom
+ Me.pnlbuy.Location = New System.Drawing.Point(0, 176)
+ Me.pnlbuy.Name = "pnlbuy"
+ Me.pnlbuy.Size = New System.Drawing.Size(1007, 29)
+ Me.pnlbuy.TabIndex = 2
+ '
+ 'btnbuy
+ '
+ Me.btnbuy.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.btnbuy.FlatAppearance.BorderSize = 0
+ Me.btnbuy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnbuy.Location = New System.Drawing.Point(815, 0)
+ Me.btnbuy.Name = "btnbuy"
+ Me.btnbuy.Size = New System.Drawing.Size(192, 29)
+ Me.btnbuy.TabIndex = 1
+ Me.btnbuy.Text = "Press SPACE to buy"
+ Me.btnbuy.UseVisualStyleBackColor = True
+ '
+ 'lbprice
+ '
+ Me.lbprice.Dock = System.Windows.Forms.DockStyle.Left
+ Me.lbprice.Location = New System.Drawing.Point(0, 0)
+ Me.lbprice.Name = "lbprice"
+ Me.lbprice.Size = New System.Drawing.Size(815, 29)
+ Me.lbprice.TabIndex = 0
+ Me.lbprice.Text = "This item costs {0} Codepoints."
+ Me.lbprice.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+ '
+ 'lbdescription
+ '
+ Me.lbdescription.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.lbdescription.Location = New System.Drawing.Point(0, 28)
+ Me.lbdescription.Name = "lbdescription"
+ Me.lbdescription.Size = New System.Drawing.Size(1007, 177)
+ Me.lbdescription.TabIndex = 1
+ Me.lbdescription.Text = "The Shiftorium lets you upgrade different aspects of ShiftOS using Codepoints. Yo" & _
+ "u can download anything from color support, terminal commands, programs, and eve" & _
+ "n desktop environments."
+ Me.lbdescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'lbitemname
+ '
+ Me.lbitemname.Dock = System.Windows.Forms.DockStyle.Top
+ Me.lbitemname.Location = New System.Drawing.Point(0, 0)
+ Me.lbitemname.Name = "lbitemname"
+ Me.lbitemname.Size = New System.Drawing.Size(1007, 28)
+ Me.lbitemname.TabIndex = 0
+ Me.lbitemname.Text = "Welcome to the Shiftorium!"
+ Me.lbitemname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'lbitems
+ '
+ Me.lbitems.BackColor = System.Drawing.Color.Black
+ Me.lbitems.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.lbitems.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.lbitems.ForeColor = System.Drawing.Color.White
+ Me.lbitems.FormattingEnabled = True
+ Me.lbitems.ItemHeight = 14
+ Me.lbitems.Location = New System.Drawing.Point(0, 235)
+ Me.lbitems.Name = "lbitems"
+ Me.lbitems.Size = New System.Drawing.Size(1007, 335)
+ Me.lbitems.TabIndex = 3
+ '
+ 'shiftorium_cmd
+ '
+ 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(1007, 592)
+ Me.Controls.Add(Me.lbitems)
+ Me.Controls.Add(Me.pnldetails)
+ Me.Controls.Add(Me.pnlbottom)
+ 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 = "shiftorium_cmd"
+ Me.Text = "shiftorium_cmd"
+ Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
+ Me.pnltop.ResumeLayout(False)
+ Me.pnlbottom.ResumeLayout(False)
+ Me.pnldetails.ResumeLayout(False)
+ Me.pnlbuy.ResumeLayout(False)
+ Me.ResumeLayout(False)
+
+ 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
+ Friend WithEvents pnldetails As System.Windows.Forms.Panel
+ Friend WithEvents lbitems As System.Windows.Forms.ListBox
+ Friend WithEvents pnlbuy As System.Windows.Forms.Panel
+ Friend WithEvents btnbuy As System.Windows.Forms.Button
+ Friend WithEvents lbprice As System.Windows.Forms.Label
+ Friend WithEvents lbdescription As System.Windows.Forms.Label
+ Friend WithEvents lbitemname As System.Windows.Forms.Label
+End Class
diff --git a/shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.resx
new file mode 100644
index 0000000..1af7de1
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.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> \ 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
new file mode 100644
index 0000000..ba9b840
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb
@@ -0,0 +1,195 @@
+Public Class shiftorium_cmd
+
+
+ Public Sub shiftorium_load(s As Object, e As EventArgs) Handles MyBase.Load
+ listboxtoaddto = lbitems
+ determineitems()
+ lbitems.SelectedItem = 0
+ 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
+ End Sub
+
+ Public Sub determineitems()
+ lbitems.DrawMode = DrawMode.Normal
+ lbitems.Items.Clear()
+ Try
+ If boughtbasicsettings = False Then
+ AddItem("Basic Terminal Settings", 5)
+ Else
+ If boughtcustomusername = False Then
+ AddItem("Custom Username", 10)
+ End If
+ End If
+ If boughtdirectorysurfing = False Then
+ AddItem("Directory Surfing", 10)
+ Else
+ If boughtbasicgui = True Then
+ If boughtfileskimmer = False Then
+ AddItem("File Skimmer", 60)
+ Else
+ If boughtfileskimmernewfolder = False Then AddItem("FS New Folder", 15)
+ If boughtfileskimmerdelete = False Then AddItem("FS Delete", 15)
+ End If
+ If boughttextpad = False Then
+ AddItem("Textpad", 50)
+ End If
+ If boughttextpad = True And boughtfileskimmer = True Then
+ If boughtbasicwm = False Then
+ AddItem("Basic Window Manager", 100)
+ Else
+ If boughtdraggablewindows = False Then
+ AddItem("BWM Draggable Windows", 25)
+ End If
+ End If
+ End If
+ End If
+ End If
+ If boughtgray = False Then
+ AddItem("Gray", 25)
+ Else
+ If boughtbasicgui = False Then
+ AddItem("Basic GUI Server", 100)
+ End If
+ If boughtterminalsettextcolor = False And boughtbasicsettings = True Then
+ AddItem("Set Terminal Text Color", 10)
+ End If
+ End If
+ 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
+
+ Public Sub lbitems_keydown(sender As System.Object, e As KeyEventArgs) Handles lbitems.KeyDown
+ Select Case e.KeyCode
+ Case Keys.Escape
+ e.SuppressKeyPress = True
+ Me.Close()
+ Terminal.Focus()
+ Case Keys.Down
+ e.SuppressKeyPress = True
+ If Not lbitems.SelectedIndex = lbitems.Items.Count - 1 Then
+ lbitems.SelectedIndex += 1
+ End If
+ Case Keys.Up
+ e.SuppressKeyPress = True
+ If Not lbitems.SelectedIndex = 0 Then
+ lbitems.SelectedIndex -= 1
+ End If
+ Case Keys.Enter
+ 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.")
+ handleitemdescription("FS New Folder - 15 CP", "Well, we can view the files on our computer, but we don't have the ability to create directories in the GUI... yet. Upgrade today, and you will be able to.")
+ handleitemdescription("File Skimmer - 60 CP", "ShiftOS and Exodus Inc., authors of the Exodus File Browser for UltraDOS, have teamed up to create a GUI-based file browser for ShiftOS, based off the old File Skimmer.")
+ handleitemdescription("Set Terminal Text Color - 10 CP", "Having a black and white color scheme on a Terminal is ibfact quite a cliche. This upgrade allows you to set the text color of the Terminal. It only allows for the basic colors, but it's better than just white!")
+ handleitemdescription("Basic GUI Server - 100 CP", "Well, we've got Gray, and we've got the ability to write GUIs. Now, let's allow the users to run GUIs, and open a lot of possibilities up.")
+ handleitemdescription("Gray - 25 CP", "Black, and white. Such a bland choice of colors. Black for the background, white for the text. What a hard way to develop an app. With this upgrade, the video card driver in ShiftOS will support the output of Gray (R=127, G=127, B=127) allowing for some better capabilities in application programming.")
+ handleitemdescription("Directory Surfing - 10 CP", "ShiftOS came with a file system update. Instead of ShiftFS, we have ShiftFS Ultra. However, there's no point in using it... yet. This upgrade allows you to browse the filesystem in the terminal.")
+ 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("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.")
+ handlebuy("FS New Folder - 15 CP", boughtfileskimmernewfolder, "Awesome. You can now create new folders in the File Skimmer!")
+ handlebuy("File Skimmer - 60 CP", boughtfileskimmer, "The upgrade's been downloaded, and we can now view the files on our computer in a much cleaner way. Just type 'open file skimmer' in the Terminal!")
+ handlebuy("Set Terminal Text Color - 10 CP", boughtterminalsettextcolor, "Awesome! Now, you can use 'set textcolor <colorname>' to set the Terminal text color. For a reference on supported colors, you can also type 'colors'.")
+ handlebuy("Basic GUI Server - 100 CP", boughtbasicgui, "Amazing. Come time, and money, we may be able to collaborate with other companies to develop applications, upgrades, and eventually a window manager.")
+ handlebuy("Gray - 25 CP", boughtgray, "Great. Right away, the Shiftorium is easier to use! Look at that amazing gray highlight.")
+ handlebuy("Directory Surfing - 10 CP", boughtdirectorysurfing, "Now we can do basic file navigation using the cd, dir, and mkdir commands. Hopefully, with more research, we may be able to create some apps to handle files, like a text editor.")
+ handlebuy("Custom Username - 10 CP", boughtcustomusername, "Amazing! Just type ""set username <value>"" into the Terminal, and presto!")
+ handlebuy("Basic Terminal Settings - 5 CP", boughtbasicsettings, "Great! Now, a new command has been added to the terminal. Use it with ""set <setting> <value>"". There are no settings to set, though.")
+ Case Else
+ e.SuppressKeyPress = True
+ End Select
+ End Sub
+
+
+
+
+ Private Sub handlebuy(ByVal name As String, ByRef bought As Boolean, ByVal boughttutorial As String)
+
+ On Error Resume Next
+ Dim pricegrab As String
+ If lbitems.SelectedItem = name Then
+ If btnbuy.Text = "Press SPACE to download." Then
+ pricegrab = lbitems.SelectedItem.ToString.Substring(lbitems.SelectedItem.ToString.IndexOf("-") + 2, lbitems.SelectedItem.ToString.Length - lbitemname.Text.Length - 5)
+ codepoints -= Convert.ToInt32(pricegrab)
+ bought = True
+ lbdescription.Text = boughttutorial
+ btnbuy.Text = "Upgrade """ & name & """ installed, deducting " & pricegrab & " Codepoints."
+ lbprice.Hide()
+ determineitems()
+ lbcodepoints.Text = "Codepoints: " & codepoints
+ savegame()
+ End If
+ End If
+ End Sub
+
+ 'UltraDOS Upgrade List renderer
+ Private Sub udos_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lbitems.DrawItem
+ e.DrawBackground()
+ If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
+ If boughtgray Then
+ e.Graphics.FillRectangle(Brushes.Gray, e.Bounds)
+ Using b As New SolidBrush(e.ForeColor)
+ e.Graphics.DrawString(lbitems.GetItemText(lbitems.Items(e.Index)), e.Font, b, e.Bounds)
+ End Using
+ Else
+ e.Graphics.FillRectangle(Brushes.White, e.Bounds)
+ Using b As New SolidBrush(Color.Black)
+ e.Graphics.DrawString(lbitems.GetItemText(lbitems.Items(e.Index)), e.Font, b, e.Bounds)
+ End Using
+ End If
+ Else
+
+ Using b As New SolidBrush(e.ForeColor)
+ e.Graphics.DrawString(lbitems.GetItemText(lbitems.Items(e.Index)), e.Font, b, e.Bounds)
+ End Using
+ End If
+ e.DrawFocusRectangle()
+
+ End Sub
+
+
+ Private Sub handleitemdescription(ByVal itemname As String, ByVal itemdescription As String)
+ On Error Resume Next
+ If lbitems.SelectedItem.ToString = itemname Then
+ lbitemname.Text = lbitems.SelectedItem.ToString.Substring(0, lbitems.SelectedItem.ToString.IndexOf("-"))
+ lbdescription.Text = itemdescription
+ lbprice.Text = "This item costs " & lbitems.SelectedItem.ToString.Substring(lbitems.SelectedItem.ToString.IndexOf("-") + 2, lbitems.SelectedItem.ToString.Length - lbitemname.Text.Length - 5) & " Codepoints"
+ lbprice.Show()
+ btnbuy.Show()
+ If codepoints > Convert.ToInt32(lbitems.SelectedItem.ToString.Substring(lbitems.SelectedItem.ToString.IndexOf("-") + 2, lbitems.SelectedItem.ToString.Length - lbitemname.Text.Length - 5)) Then
+ btnbuy.Text = "Press SPACE to download."
+ Else
+ btnbuy.Text = "Insufficient Codepoints!"
+ End If
+ End If
+ End Sub
+
+
+End Class \ No newline at end of file
generated by cgit v1.2.3 (git 2.46.0) at 2026-06-10 04:46:12 +0000