shiftos-archive/shiftos-next
1
0
Fork 0
mirror of https://github.com/TheUltimateHacker/shiftos-next.git synced 2025-01-22 16:42:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Basic Window Manager implemented

Browse source 
WARNING: Due to a bug that made the save engine think it was ShiftOS
0.0.8, I had to change the actualshiftversion variable to prevent older
ShiftOS versions opening the save file thus crashing. Due to this,
ShiftOS-Next will automatically delete C:\ShiftOS and rewrite the save.

Besides that, I've added a new Window Manager that can be bought after
buying Gray, Basic GUI Server, File Skimmer, and Textpad. This window
manager allows you to run multiple apps at once in their own window, as
well as having up to 3 Terminals running at once. It is a
work-in-progress feature, but it's currently stable.
This commit is contained in:
TheUltimateHacker 2015-05-23 10:21:24 -04:00
parent 02df35aba0
commit 57e6eec1bc
29 changed files with 1197 additions and 339 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
shiftos_next.v12.suo
View file

Binary file not shown.

113
shiftos_next/API.vb
View file

@ -1,7 +1,117 @@
Module API
'Terminal
Public txtterm As TextBox = Terminal.txtterm
Public txtterm As TextBox = Terminal.terminaltext
Public Function SetColorbasic(colorname As String)
Dim element As Color
Select Case colorname
Case "black"
AddLine("Error! Black and black don't go too well...")
Case "white"
element = Color.White
Case "gray"
If boughtgray Then
element = Color.Gray
Else
AddLine("Error! Unsupported color.")
End If
Case "red"
If boughtred Then
element = Color.Red
Else
AddLine("Error! Unsupported color.")
End If
Case "green"
If boughtgreen Then
element = Color.Green
Else
AddLine("Error! Unsupported color.")
End If
Case "blue"
If boughtblue Then
element = Color.Blue
Else
AddLine("Error! Unsupported color.")
End If
Case "yellow"
If boughtyellow Then
element = Color.Yellow
Else
AddLine("Error! Unsupported color.")
End If
Case "orange"
If boughtorange Then
element = Color.Orange
Else
AddLine("Error! Unsupported color.")
End If
Case "pink"
If boughtpink Then
element = Color.Pink
Else
AddLine("Error! Unsupported color.")
End If
Case "purple"
If boughtpurple Then
element = Color.Purple
Else
AddLine("Error! Unsupported color.")
End If
Case "brown"
If boughtbrown Then
element = Color.Brown
Else
AddLine("Error! Unsupported color.")
End If
Case Else
AddLine("Error! Unsupported color, check 'colors' for a list of supported colors.")
End Select
Return element
End Function
Public Sub OpenProgram(progtoopen As String)
Select Case progtoopen
Case "shiftorium", "packages", "pacman", "code shop"
shiftorium_cmd.Show()
Case "files", "fileskimmer", "file skimmer", "fs", "file browser"
If boughtfileskimmer = True Then
file_skimmer.Show()
Else
AddLine("open: Invalid program """ & progtoopen & """.")
End If
Case "textpad", "text", "notepad"
If boughttextpad = True Then
TextPad.Show()
Else
AddLine("open: Invalid program """ & progtoopen & """.")
End If
Case Else
AddLine("open: Invalid program """ & progtoopen & """.")
End Select
End Sub
Public Sub closeprogram(progtoclose As String)
Select Case progtoclose
Case "shiftorium", "packages", "pacman", "code shop"
shiftorium_cmd.Hide()
Case "files", "fileskimmer", "file skimmer", "fs", "file browser"
If boughtfileskimmer = True Then
file_skimmer.Hide()
Else
AddLine("close: Invalid program """ & progtoclose & """.")
End If
Case "textpad", "text", "notepad"
If boughttextpad = True Then
TextPad.Hide()
Else
AddLine("close: Invalid program """ & progtoclose & """.")
End If
Case Else
AddLine("close: Invalid program """ & progtoclose & """.")
End Select
End Sub
Public Sub wrongcommand()
AddLine("Invalid command! Type ""help"" for a list of commands.")
@ -89,6 +199,7 @@
Public Sub SelectBottom()
txtterm.Select(txtterm.Text.Length, 0)
txtterm.ScrollToCaret()
End Sub
End Module

56
shiftos_next/BWMDesktop.Designer.vb generated Normal file
View file

@ -0,0 +1,56 @@
Namespace BasicWM
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Desktop
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.btnnewterminal = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'btnnewterminal
'
Me.btnnewterminal.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnnewterminal.Location = New System.Drawing.Point(12, 12)
Me.btnnewterminal.Name = "btnnewterminal"
Me.btnnewterminal.Size = New System.Drawing.Size(105, 23)
Me.btnnewterminal.TabIndex = 0
Me.btnnewterminal.Text = "New Terminal"
Me.btnnewterminal.UseVisualStyleBackColor = True
'
'Desktop
'
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(535, 286)
Me.Controls.Add(Me.btnnewterminal)
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 = "Desktop"
Me.Text = "BWMDesktop"
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnnewterminal As System.Windows.Forms.Button
End Class
End Namespace

120
shiftos_next/BWMDesktop.resx Normal file
View file

@ -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>

29
shiftos_next/BWMDesktop.vb Normal file
View file

@ -0,0 +1,29 @@
Namespace BasicWM
Public Class Desktop
Public openterminals As Integer = 0
Private Sub btnnewterminal_Click(sender As Object, e As EventArgs) Handles btnnewterminal.Click
If openterminals = 3 Then
AddLine("The maximum ammount of Terminal windows are open.")
AddLine(username + "@" + osname + " " & Terminal.currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ")
Else
Dim term As New Terminal
term.StartPosition = FormStartPosition.CenterParent
term.TopMost = True
term.Show()
openterminals += 1
End If
End Sub
Private Sub Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Terminal.Close()
Me.WindowState = FormWindowState.Maximized
Dim term As New Terminal
term.StartPosition = FormStartPosition.CenterParent
term.TopMost = True
term.Show()
openterminals += 1
End Sub
End Class
End Namespace

273
shiftos_next/ColorPicker.Designer.vb generated Normal file
View file

@ -0,0 +1,273 @@
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.pnltop = New System.Windows.Forms.Panel()
Me.lbtitle = New System.Windows.Forms.Label()
Me.pnlcolors = New System.Windows.Forms.FlowLayoutPanel()
Me.btnwhite = New System.Windows.Forms.Button()
Me.btnblack = New System.Windows.Forms.Button()
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.SuspendLayout()
Me.pnlcolors.SuspendLayout()
Me.SuspendLayout()
'
'pnltop
'
Me.pnltop.BackColor = System.Drawing.Color.Gray
Me.pnltop.Controls.Add(Me.lbtitle)
Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnltop.Location = New System.Drawing.Point(0, 0)
Me.pnltop.Name = "pnltop"
Me.pnltop.Size = New System.Drawing.Size(362, 30)
Me.pnltop.TabIndex = 0
'
'lbtitle
'
Me.lbtitle.AutoSize = True
Me.lbtitle.Location = New System.Drawing.Point(12, 9)
Me.lbtitle.Name = "lbtitle"
Me.lbtitle.Size = New System.Drawing.Size(91, 14)
Me.lbtitle.TabIndex = 0
Me.lbtitle.Text = "Color Picker"
'
'pnlcolors
'
Me.pnlcolors.Controls.Add(Me.btnwhite)
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
'
'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.btncancel)
Me.Controls.Add(Me.lbselectedcolor)
Me.Controls.Add(Me.btnok)
Me.Controls.Add(Me.pnlcolors)
Me.Controls.Add(Me.pnltop)
Me.Font = New System.Drawing.Font("Courier New", 8.25!)
Me.ForeColor = System.Drawing.Color.White
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "ColorPicker"
Me.Text = "ColorPicker"
Me.pnltop.ResumeLayout(False)
Me.pnltop.PerformLayout()
Me.pnlcolors.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents pnltop As System.Windows.Forms.Panel
Friend WithEvents lbtitle As System.Windows.Forms.Label
Friend WithEvents pnlcolors As System.Windows.Forms.FlowLayoutPanel
Friend WithEvents btnwhite As System.Windows.Forms.Button
Friend WithEvents btnblack As System.Windows.Forms.Button
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
End Class
End Namespace

120
shiftos_next/ColorPicker.resx Normal file
View file

@ -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>

38
shiftos_next/ColorPicker.vb Normal file
View file

@ -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

13
shiftos_next/Hijack.vb
View file

@ -4,7 +4,7 @@ Imports System.Text
Imports System.Net.Mail
Public Class HijackScreen
Public actualshiftversion As String = "0.0.8"
Public actualshiftversion As String = "NEXT 0.0.1"
Dim newgame As Boolean = True
Dim tcount As Integer = 0
Dim rtext As String
@ -35,11 +35,16 @@ Public Class HijackScreen
If IO.File.ReadAllText("C:/ShiftOS/Shiftum42/HDAccess.sft") = actualshiftversion Then
conversationtimer.Start()
needtoclose = True
Terminal.Show()
loadgame()
If boughtbasicwm = True Then
BasicWM.Desktop.Show()
Else
Terminal.Show()
End If
Else
oldversion = IO.File.ReadAllText("C:/ShiftOS/Shiftum42/HDAccess.sft")
oldversion = IO.File.ReadAllText(systemdir + "HDAccess.sft")
upgraded = True
System.IO.Directory.Delete("C:/ShiftOS/", True)
System.IO.Directory.Delete(root, True)
BackgroundWorker1.RunWorkerAsync()
conversationtimer.Start()
hackeffecttimer.Start()

63
shiftos_next/Terminal.Designer.vb generated
View file

@ -23,41 +23,72 @@ Partial Class Terminal
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.txtterm = New System.Windows.Forms.TextBox()
Me.terminaltext = New System.Windows.Forms.TextBox()
Me.tmrfirstuse = New System.Windows.Forms.Timer(Me.components)
Me.pnltop = New System.Windows.Forms.Panel()
Me.lbtitle = New System.Windows.Forms.Label()
Me.pnltop.SuspendLayout()
Me.SuspendLayout()
'
'txtterm
'terminaltext
'
Me.txtterm.BackColor = System.Drawing.Color.Black
Me.txtterm.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtterm.Cursor = System.Windows.Forms.Cursors.IBeam
Me.txtterm.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtterm.Font = New System.Drawing.Font("Courier New", 8.25!)
Me.txtterm.ForeColor = System.Drawing.Color.White
Me.txtterm.Location = New System.Drawing.Point(0, 0)
Me.txtterm.Multiline = True
Me.txtterm.Name = "txtterm"
Me.txtterm.Size = New System.Drawing.Size(635, 418)
Me.txtterm.TabIndex = 0
Me.txtterm.Text = "ShiftOS Beta 1.0"
Me.terminaltext.BackColor = System.Drawing.Color.Black
Me.terminaltext.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.terminaltext.Cursor = System.Windows.Forms.Cursors.IBeam
Me.terminaltext.Dock = System.Windows.Forms.DockStyle.Fill
Me.terminaltext.Font = New System.Drawing.Font("Courier New", 8.25!)
Me.terminaltext.ForeColor = System.Drawing.Color.White
Me.terminaltext.Location = New System.Drawing.Point(0, 30)
Me.terminaltext.Multiline = True
Me.terminaltext.Name = "terminaltext"
Me.terminaltext.Size = New System.Drawing.Size(635, 388)
Me.terminaltext.TabIndex = 0
Me.terminaltext.Text = "ShiftOS Beta 1.0"
'
'tmrfirstuse
'
Me.tmrfirstuse.Interval = 5000
'
'pnltop
'
Me.pnltop.BackColor = System.Drawing.Color.Gray
Me.pnltop.Controls.Add(Me.lbtitle)
Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnltop.Font = New System.Drawing.Font("Courier New", 8.25!)
Me.pnltop.ForeColor = System.Drawing.Color.White
Me.pnltop.Location = New System.Drawing.Point(0, 0)
Me.pnltop.Name = "pnltop"
Me.pnltop.Size = New System.Drawing.Size(635, 30)
Me.pnltop.TabIndex = 1
'
'lbtitle
'
Me.lbtitle.AutoSize = True
Me.lbtitle.Location = New System.Drawing.Point(12, 9)
Me.lbtitle.Name = "lbtitle"
Me.lbtitle.Size = New System.Drawing.Size(63, 14)
Me.lbtitle.TabIndex = 0
Me.lbtitle.Text = "Terminal"
'
'Terminal
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(635, 418)
Me.Controls.Add(Me.txtterm)
Me.Controls.Add(Me.terminaltext)
Me.Controls.Add(Me.pnltop)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Terminal"
Me.Text = "Terminal"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.pnltop.ResumeLayout(False)
Me.pnltop.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtterm As System.Windows.Forms.TextBox
Friend WithEvents terminaltext As System.Windows.Forms.TextBox
Friend WithEvents tmrfirstuse As System.Windows.Forms.Timer
Friend WithEvents pnltop As System.Windows.Forms.Panel
Friend WithEvents lbtitle As System.Windows.Forms.Label
End Class

248
shiftos_next/Terminal.vb
View file

@ -4,10 +4,28 @@
Public prompttoupdatesave As Boolean = False
Dim trackpos As Integer = 0
Private Sub Terminal_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If BasicWM.Desktop.openterminals > 0 Then BasicWM.Desktop.openterminals -= 1
End Sub
Private Sub Terminal_GotFocus(sender As Object, e As EventArgs) Handles terminaltext.GotFocus
API.txtterm = Me.terminaltext
End Sub
Public Sub terminal_Innitiate(sender As Object, e As EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
loadgame()
API.txtterm = Me.terminaltext
If boughtbasicwm = True Then
pnltop.Show()
Me.WindowState = FormWindowState.Normal
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
Else
pnltop.Hide()
Me.WindowState = FormWindowState.Maximized
End If
AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ")
SelectBottom()
If prompttoupdatesave = True Then
@ -17,6 +35,8 @@
Public Sub Interpret(command As String)
command = command.ToLower
If command Like "help" Then
@ -86,116 +106,58 @@
End If
Case "textcolor"
If boughtterminalsettextcolor Then
Select Case args(2)
Case "black"
AddLine("Error! Black and black don't go too well...")
Case "white"
txtterm.ForeColor = Color.White
Case "gray"
If boughtgray Then
txtterm.ForeColor = Color.Gray
Else
AddLine("Error! Unsupported color.")
End If
Case "red"
If boughtred Then
txtterm.ForeColor = Color.Red
Else
AddLine("Error! Unsupported color.")
End If
Case "green"
If boughtgreen Then
txtterm.ForeColor = Color.Green
Else
AddLine("Error! Unsupported color.")
End If
Case "blue"
If boughtblue Then
txtterm.ForeColor = Color.Blue
Else
AddLine("Error! Unsupported color.")
End If
Case "yellow"
If boughtyellow Then
txtterm.ForeColor = Color.Yellow
Else
AddLine("Error! Unsupported color.")
End If
Case "orange"
If boughtorange Then
txtterm.ForeColor = Color.Orange
Else
AddLine("Error! Unsupported color.")
End If
Case "pink"
If boughtpink Then
txtterm.ForeColor = Color.Pink
Else
AddLine("Error! Unsupported color.")
End If
Case "purple"
If boughtpurple Then
txtterm.ForeColor = Color.Purple
Else
AddLine("Error! Unsupported color.")
End If
Case "brown"
If boughtbrown Then
txtterm.ForeColor = Color.Brown
Else
AddLine("Error! Unsupported color.")
End If
Case Else
AddLine("Error! Unsupported color, check 'colors' for a list of supported colors.")
End Select
terminaltext.ForeColor = SetColorbasic(args(2))
End If
Case Else
AddLine("set: No valid setting node in configuration file for """ & args(1) & """.")
End Select
ElseIf command = "05tray" Then
AddLine("500 Codepoints have been added.")
AddCP(500)
ElseIf command Like "open *" Then
Dim progtoopen As String = command.Replace("open ", "")
Select Case progtoopen
Case "shiftorium", "packages", "pacman", "code shop"
shiftorium_cmd.Show()
Case "files", "fileskimmer", "file skimmer", "fs", "file browser"
If boughtfileskimmer = True Then
file_skimmer.Show()
Else
AddLine("open: Invalid program """ & progtoopen & """.")
End If
Case "textpad", "text", "notepad"
If boughttextpad = True Then
TextPad.Show()
Else
AddLine("open: Invalid program """ & progtoopen & """.")
End If
Case Else
AddLine("open: Invalid program """ & progtoopen & """.")
End Select
ElseIf command Like "shutdown" Then
savegame()
Me.Close()
ElseIf command Like "math*" Then
mathquiz = True
changeinterpreter()
ElseIf command Like "guess the number" Or command Like "guess" Then
guessthenumber = True
changeinterpreter()
ElseIf command Like "code*" Or command = "code points" Then
AddLine("You have " & codepoints & " Codepoints.")
ElseIf command = "colors" Then
showterminalcolors()
ElseIf command Like "" Then
'This is here to make it so that the Terminal doesn't say "Wrong Command" if the user doesn't input anything.
Else
If IO.File.Exists(currentdir + "\" + command) Then
OpenFile(currentdir + "\" + command)
ElseIf IO.File.Exists(command) Then
OpenFile(command)
OpenProgram(progtoopen)
ElseIf command Like "close *" Then
Dim progtoclose As String = command.Replace("close ", "")
If progtoclose = "terminal" Then
If boughtbasicwm = True Then
Me.Close()
Else
AddLine("close: Cannot close the Terminal!")
End If
Else
wrongcommand()
closeprogram(progtoclose)
End If
ElseIf command Like "shutdown" Then
savegame()
Application.Exit()
ElseIf command Like "math*" Then
mathquiz = True
changeinterpreter()
ElseIf command Like "guess the number" Or command Like "guess" Then
guessthenumber = True
changeinterpreter()
ElseIf command Like "code*" Or command = "code points" Then
AddLine("You have " & codepoints & " Codepoints.")
ElseIf command Like "bwm" Then
If boughtbasicwm = True Then
BasicWM.Desktop.Show()
Else
wrongcommand()
End If
ElseIf command = "colors" Then
showterminalcolors()
ElseIf command Like "" Then
'This is here to make it so that the Terminal doesn't say "Wrong Command" if the user doesn't input anything.
Else
If IO.File.Exists(currentdir + "\" + command) Then
openfile(currentdir + "\" + command)
ElseIf IO.File.Exists(command) Then
openfile(command)
Else
wrongcommand()
End If
End If
End If
End Sub
@ -207,32 +169,32 @@
Dim firstuseconversation As Integer = 0
Private Sub tmrfirstuse_Tick(sender As Object, e As EventArgs) Handles tmrfirstuse.Tick
Select Case firstuseconversation
Case 0
txtterm.ReadOnly = True
AddLine("IP Address 170.245.12.80 is connecting as ""DevX"".")
Case 1
AddLine("DevX: It seems my updates have completly installed.")
Case 2
AddLine("DevX: Unfortunately, due to your hard drive being formatted, you have lost all your data.")
Case 3
AddLine("DevX: However, Don't worry! I've added some pretty cool features to the Terminal to make up for this.")
Case 4
AddLine("DevX: I can't tell you much, except for ""Type Help for a list of commands"".")
Case 5
AddLine("DevX: I've got to go, but I'll contact you as I develop more updates; and you test the OS.")
Case 6
AddLine("User ""DevX"" has disconnected.")
Case 7
txtterm.ResetText()
AddLine("user@shiftos ~$> ")
txtterm.ReadOnly = False
tmrfirstuse.Stop()
End Select
firstuseconversation += 1
Select Case firstuseconversation
Case 0
terminaltext.ReadOnly = True
AddLine("IP Address 170.245.12.80 is connecting as ""DevX"".")
Case 1
AddLine("DevX: It seems my updates have completly installed.")
Case 2
AddLine("DevX: Unfortunately, due to your hard drive being formatted, you have lost all your data.")
Case 3
AddLine("DevX: However, Don't worry! I've added some pretty cool features to the Terminal to make up for this.")
Case 4
AddLine("DevX: I can't tell you much, except for ""Type Help for a list of commands"".")
Case 5
AddLine("DevX: I've got to go, but I'll contact you as I develop more updates; and you test the OS.")
Case 6
AddLine("User ""DevX"" has disconnected.")
Case 7
terminaltext.ResetText()
AddLine("user@shiftos ~$> ")
terminaltext.ReadOnly = False
tmrfirstuse.Stop()
End Select
firstuseconversation += 1
End Sub
Private Sub txtterm_KeyDown(sender As Object, e As KeyEventArgs) Handles txtterm.KeyDown
Private Sub txtterm_KeyDown(sender As Object, e As KeyEventArgs) Handles terminaltext.KeyDown
If prompttoupdatesave = False Then
Select Case e.KeyCode
@ -249,7 +211,7 @@
Case Keys.RWin
trackpos = trackpos - 1
Case Keys.Right
If txtterm.SelectionStart = txtterm.TextLength Then
If terminaltext.SelectionStart = terminaltext.TextLength Then
trackpos = trackpos - 1
End If
Case Keys.Left
@ -270,8 +232,8 @@
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
If mathquiz = True Then
Dim question As String = txtterm.Lines(txtterm.Lines.Length - 2)
Dim answer As String = txtterm.Lines(txtterm.Lines.Length - 1).Replace("> ", "")
Dim question As String = terminaltext.Lines(terminaltext.Lines.Length - 2)
Dim answer As String = terminaltext.Lines(terminaltext.Lines.Length - 1).Replace("> ", "")
If answer = "exit" Then
mathquiz = False
AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ")
@ -284,7 +246,7 @@
AddLine("> ")
End If
ElseIf guessthenumber = True Then
Dim answer As String = txtterm.Lines(txtterm.Lines.Length - 1).Replace("> ", "")
Dim answer As String = terminaltext.Lines(terminaltext.Lines.Length - 1).Replace("> ", "")
If answer = "exit" Then
guessthenumber = False
AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ")
@ -297,35 +259,35 @@
AddLine("> ")
End If
Else
Dim command As String = txtterm.Lines(txtterm.Lines.Length - 1).Replace(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ", "").ToLower
Dim command As String = terminaltext.Lines(terminaltext.Lines.Length - 1).Replace(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ", "").ToLower
Interpret(command)
If mathquiz Or guessthenumber Then
AddLine("> ")
Else
If command = "clear" Then
txtterm.Text = username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> "
txtterm.Select(txtterm.Text.Length, 0)
terminaltext.Text = username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> "
terminaltext.Select(terminaltext.Text.Length, 0)
Else
AddLine(username + "@" + osname + " " & currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ")
txtterm.Select(txtterm.Text.Length, 0)
terminaltext.Select(terminaltext.Text.Length, 0)
End If
End If
End If
trackpos = 0
End If
trackpos = 0
Else
If e.KeyCode = Keys.Back Then
Else
trackpos = trackpos + 1
End If
If e.KeyCode = Keys.Back Then
Else
trackpos = trackpos + 1
End If
End If
If e.KeyCode = Keys.Back Then
If trackpos < 1 Then
e.SuppressKeyPress = True
Else
If txtterm.SelectedText.Length < 1 Then
If terminaltext.SelectedText.Length < 1 Then
trackpos = trackpos - 1
Else
e.SuppressKeyPress = True

149
shiftos_next/TextPad.Designer.vb generated
View file

@ -24,31 +24,34 @@ Partial Class TextPad
Private Sub InitializeComponent()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EditToolStripMenuItem = 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.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ReplaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.FindToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
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.lbtitle = New System.Windows.Forms.Label()
Me.pnltop = New System.Windows.Forms.Panel()
Me.MenuStrip1.SuspendLayout()
Me.pnltop.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.Font = New System.Drawing.Font("Courier New", 8.25!)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Location = New System.Drawing.Point(0, 30)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(652, 24)
Me.MenuStrip1.TabIndex = 0
@ -61,6 +64,30 @@ Partial Class TextPad
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})
@ -68,93 +95,69 @@ Partial Class TextPad
Me.EditToolStripMenuItem.Size = New System.Drawing.Size(47, 20)
Me.EditToolStripMenuItem.Text = "Edit"
'
'NewToolStripMenuItem
'
Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem"
Me.NewToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.NewToolStripMenuItem.Text = "New"
'
'OpenToolStripMenuItem
'
Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem"
Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.OpenToolStripMenuItem.Text = "Open"
'
'SaveToolStripMenuItem
'
Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem"
Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.SaveToolStripMenuItem.Text = "Save"
'
'ExitToolStripMenuItem
'
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.ExitToolStripMenuItem.Text = "Exit"
'
'CutToolStripMenuItem
'
Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem"
Me.CutToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
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(152, 22)
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(152, 22)
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(152, 22)
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(152, 22)
Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.RedoToolStripMenuItem.Text = "Redo"
'
'SelectAllToolStripMenuItem
'
Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem"
Me.SelectAllToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.SelectAllToolStripMenuItem.Text = "Select All"
'
'ReplaceToolStripMenuItem
'
Me.ReplaceToolStripMenuItem.Name = "ReplaceToolStripMenuItem"
Me.ReplaceToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.ReplaceToolStripMenuItem.Text = "Replace"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(149, 6)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(141, 6)
'
'ToolStripSeparator2
'SelectAllToolStripMenuItem
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(149, 6)
'
'FindToolStripMenuItem
'
Me.FindToolStripMenuItem.Name = "FindToolStripMenuItem"
Me.FindToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.FindToolStripMenuItem.Text = "Find"
Me.FindToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
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(149, 6)
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
'
@ -162,12 +165,31 @@ Partial Class TextPad
Me.txtfilebody.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtfilebody.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtfilebody.ForeColor = System.Drawing.Color.White
Me.txtfilebody.Location = New System.Drawing.Point(0, 24)
Me.txtfilebody.Location = New System.Drawing.Point(0, 54)
Me.txtfilebody.Name = "txtfilebody"
Me.txtfilebody.Size = New System.Drawing.Size(652, 293)
Me.txtfilebody.Size = New System.Drawing.Size(652, 263)
Me.txtfilebody.TabIndex = 1
Me.txtfilebody.Text = ""
'
'lbtitle
'
Me.lbtitle.AutoSize = True
Me.lbtitle.Location = New System.Drawing.Point(12, 9)
Me.lbtitle.Name = "lbtitle"
Me.lbtitle.Size = New System.Drawing.Size(56, 14)
Me.lbtitle.TabIndex = 0
Me.lbtitle.Text = "TextPad"
'
'pnltop
'
Me.pnltop.BackColor = System.Drawing.Color.Gray
Me.pnltop.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(652, 30)
Me.pnltop.TabIndex = 2
'
'TextPad
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!)
@ -176,6 +198,7 @@ Partial Class TextPad
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
@ -184,6 +207,8 @@ Partial Class TextPad
Me.Text = "TextPad"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.pnltop.ResumeLayout(False)
Me.pnltop.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -207,4 +232,6 @@ Partial Class TextPad
Friend WithEvents FindToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ReplaceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents txtfilebody As System.Windows.Forms.RichTextBox
Friend WithEvents lbtitle As System.Windows.Forms.Label
Friend WithEvents pnltop As System.Windows.Forms.Panel
End Class

12
shiftos_next/TextPad.vb
View file

@ -1,5 +1,6 @@
Public Class TextPad
Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
file_skimmer.mode = "open"
file_skimmer.application = "textpad"
@ -60,6 +61,17 @@
MenuStrip1.Renderer = New basicwm_renderer()
setupmenufonts()
Me.WindowState = FormWindowState.Maximized
If boughtbasicwm = True Then
pnltop.Show()
Me.WindowState = FormWindowState.Normal
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
Me.TopMost = True
Else
pnltop.Hide()
Me.WindowState = FormWindowState.Maximized
Me.TopMost = False
End If
End Sub
Public Sub setupmenufonts()

BIN
shiftos_next/bin/Debug/shiftos_next.exe
View file

Binary file not shown.

BIN
shiftos_next/bin/Debug/shiftos_next.pdb
View file

Binary file not shown.

11
shiftos_next/bin/Debug/shiftos_next.vshost.exe.manifest
View file

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

95
shiftos_next/file skimmer.Designer.vb generated
View file

@ -36,18 +36,21 @@ Partial Class file_skimmer
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.btnnewfolder = New System.Windows.Forms.ToolStripButton()
Me.btndelete = New System.Windows.Forms.ToolStripButton()
Me.pnlsave = New System.Windows.Forms.Panel()
Me.btnsave = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtfilename = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnsave = New System.Windows.Forms.Button()
Me.lbtitle = New System.Windows.Forms.Label()
Me.pnltop = New System.Windows.Forms.Panel()
Me.topmenu.SuspendLayout()
Me.tools.SuspendLayout()
Me.pnlsave.SuspendLayout()
Me.pnltop.SuspendLayout()
Me.SuspendLayout()
'
'topmenu
@ -56,7 +59,7 @@ Partial Class file_skimmer
Me.topmenu.Font = New System.Drawing.Font("Courier New", 8.25!)
Me.topmenu.ForeColor = System.Drawing.Color.White
Me.topmenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.AboutToolStripMenuItem})
Me.topmenu.Location = New System.Drawing.Point(0, 0)
Me.topmenu.Location = New System.Drawing.Point(0, 30)
Me.topmenu.Name = "topmenu"
Me.topmenu.Size = New System.Drawing.Size(591, 24)
Me.topmenu.TabIndex = 0
@ -118,7 +121,7 @@ Partial Class file_skimmer
Me.tools.Font = New System.Drawing.Font("Courier New", 8.25!)
Me.tools.ForeColor = System.Drawing.Color.White
Me.tools.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.lbcurrentdir, Me.ToolStripSeparator1, Me.btnnewfolder, Me.btndelete})
Me.tools.Location = New System.Drawing.Point(0, 24)
Me.tools.Location = New System.Drawing.Point(0, 54)
Me.tools.Name = "tools"
Me.tools.Size = New System.Drawing.Size(591, 25)
Me.tools.TabIndex = 1
@ -141,20 +144,6 @@ Partial Class file_skimmer
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'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, 49)
Me.lvfiles.Name = "lvfiles"
Me.lvfiles.Size = New System.Drawing.Size(591, 281)
Me.lvfiles.TabIndex = 3
Me.lvfiles.UseCompatibleStateImageBehavior = False
Me.lvfiles.View = System.Windows.Forms.View.Tile
'
'btnnewfolder
'
Me.btnnewfolder.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
@ -173,6 +162,20 @@ Partial Class file_skimmer
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, 79)
Me.lvfiles.Name = "lvfiles"
Me.lvfiles.Size = New System.Drawing.Size(591, 251)
Me.lvfiles.TabIndex = 3
Me.lvfiles.UseCompatibleStateImageBehavior = False
Me.lvfiles.View = System.Windows.Forms.View.Tile
'
'pnlsave
'
Me.pnlsave.Controls.Add(Me.txtfilename)
@ -184,6 +187,24 @@ Partial Class file_skimmer
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)
@ -195,23 +216,24 @@ Partial Class file_skimmer
Me.btnsave.Text = "Save"
Me.btnsave.UseVisualStyleBackColor = True
'
'Label1
'lbtitle
'
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:"
Me.lbtitle.AutoSize = True
Me.lbtitle.Location = New System.Drawing.Point(12, 9)
Me.lbtitle.Name = "lbtitle"
Me.lbtitle.Size = New System.Drawing.Size(91, 14)
Me.lbtitle.TabIndex = 0
Me.lbtitle.Text = "File Skimmer"
'
'txtfilename
'pnltop
'
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
Me.pnltop.BackColor = System.Drawing.Color.Gray
Me.pnltop.Controls.Add(Me.lbtitle)
Me.pnltop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnltop.Location = New System.Drawing.Point(0, 0)
Me.pnltop.Name = "pnltop"
Me.pnltop.Size = New System.Drawing.Size(591, 30)
Me.pnltop.TabIndex = 5
'
'file_skimmer
'
@ -224,6 +246,7 @@ Partial Class file_skimmer
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
@ -237,6 +260,8 @@ Partial Class file_skimmer
Me.tools.PerformLayout()
Me.pnlsave.ResumeLayout(False)
Me.pnlsave.PerformLayout()
Me.pnltop.ResumeLayout(False)
Me.pnltop.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -263,4 +288,6 @@ Partial Class file_skimmer
Friend WithEvents txtfilename As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnsave As System.Windows.Forms.Button
Friend WithEvents lbtitle As System.Windows.Forms.Label
Friend WithEvents pnltop As System.Windows.Forms.Panel
End Class

19
shiftos_next/file skimmer.vb
View file

@ -1,5 +1,7 @@
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
@ -88,7 +90,7 @@
End If
Else
If mode = "open" Then
Select Case application
Select Case Application
Case "textpad"
Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString)
TextPad.txtfilebody.Text = sr.ReadToEnd()
@ -98,7 +100,7 @@
Else
OpenFile(lvfiles.SelectedItems(0).Tag)
End If
End If
End If
Catch
End Try
End Sub
@ -121,6 +123,17 @@
Else
pnlsave.Visible = False
End If
If boughtbasicwm = True Then
pnltop.Show()
Me.WindowState = FormWindowState.Normal
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
Me.TopMost = True
Else
pnltop.Hide()
Me.WindowState = FormWindowState.Maximized
Me.TopMost = False
End If
End Sub
Private Sub ExitSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitSessionToolStripMenuItem.Click
@ -160,7 +173,7 @@
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
Select Case Application
Case "textpad"
Dim sw As New IO.StreamWriter(currentdir + "\" + txtfilename.Text)
sw.Write(TextPad.txtfilebody.Text)

BIN
shiftos_next/obj/Debug/shiftos_next.BasicWM.ColorPicker.resources Normal file
View file

Binary file not shown.

BIN
shiftos_next/obj/Debug/shiftos_next.BasicWM.Desktop.resources Normal file
View file

Binary file not shown.

BIN
shiftos_next/obj/Debug/shiftos_next.exe
View file

Binary file not shown.

BIN
shiftos_next/obj/Debug/shiftos_next.pdb
View file

Binary file not shown.

2
shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt
View file

@ -14,6 +14,8 @@ C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\bin\Debug\shift
C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\bin\Debug\shiftos_next.pdb
C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\bin\Debug\shiftos_next.xml
C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.basicwm_infobox.resources
C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.BasicWM.Desktop.resources
C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.BasicWM.ColorPicker.resources
C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.file_skimmer.resources
C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.HijackScreen.resources
C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.Resources.resources

BIN
shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache
View file

Binary file not shown.

6
shiftos_next/saveengine.vb
View file

@ -12,7 +12,7 @@
Public boughtbasicsettings As Boolean = False
Public boughtbasicgui As Boolean = False
Public boughtterminalsettextcolor As Boolean = False
Public boughtbasicwm As Boolean = False
'
' OLD SHIFTOS UPGRADES: These upgrades may be useful, so I've added them.
@ -292,7 +292,7 @@
If boughtbasicsettings = True Then savelines(86) = 11 Else savelines(86) = 10
If boughtbasicgui = True Then savelines(87) = 11 Else savelines(87) = 10
If boughtterminalsettextcolor = True Then savelines(88) = 11 Else savelines(88) = 10
If boughtbasicwm = True Then savelines(89) = 11 Else savelines(89) = 10
'Large gap in file. Add new features here.
@ -494,7 +494,7 @@
If loadlines(86) = 11 Then boughtbasicsettings = True Else boughtbasicsettings = False
If loadlines(87) = 11 Then boughtbasicgui = True Else boughtbasicgui = False
If loadlines(88) = 11 Then boughtterminalsettextcolor = True Else boughtterminalsettextcolor = False
If loadlines(89) = 11 Then boughtbasicwm = True Else boughtbasicwm = False

124
shiftos_next/shiftorium_cmd.Designer.vb generated
View file

@ -23,17 +23,17 @@ Partial Class shiftorium_cmd
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.pnltop = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
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.lbitems = New System.Windows.Forms.ListBox()
Me.lbitemname = New System.Windows.Forms.Label()
Me.lbdescription = New System.Windows.Forms.Label()
Me.pnlbuy = New System.Windows.Forms.Panel()
Me.lbprice = New System.Windows.Forms.Label()
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()
@ -42,22 +42,22 @@ Partial Class shiftorium_cmd
'
'pnltop
'
Me.pnltop.Controls.Add(Me.Label1)
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
'
'Label1
'lbtitle
'
Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(1007, 30)
Me.Label1.TabIndex = 0
Me.Label1.Text = "SHIFTORIUM"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
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
'
@ -100,28 +100,37 @@ Partial Class shiftorium_cmd
Me.pnldetails.Size = New System.Drawing.Size(1007, 205)
Me.pnldetails.TabIndex = 2
'
'lbitems
'pnlbuy
'
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
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
'
'lbitemname
'btnbuy
'
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
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
'
@ -135,37 +144,28 @@ Partial Class shiftorium_cmd
"n desktop environments."
Me.lbdescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pnlbuy
'lbitemname
'
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
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
'
'lbprice
'lbitems
'
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
'
'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
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
'
@ -191,7 +191,7 @@ Partial Class shiftorium_cmd
End Sub
Friend WithEvents pnltop As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
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

25
shiftos_next/shiftorium_cmd.vb
View file

@ -1,5 +1,6 @@
Public Class shiftorium_cmd
Public Sub shiftorium_load(s As Object, e As EventArgs) Handles MyBase.Load
listboxtoaddto = lbitems
determineitems()
@ -7,6 +8,20 @@
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()
@ -33,6 +48,13 @@
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
'Placeholder
End If
End If
End If
End If
If boughtgray = False Then
@ -69,6 +91,7 @@
lbitems.SelectedIndex -= 1
End If
Case Keys.Enter
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.")
@ -80,6 +103,7 @@
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("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!")
@ -159,4 +183,5 @@
End If
End Sub
End Class

18
shiftos_next/shiftos_next.vbproj
View file

@ -79,6 +79,18 @@
<SubType>Form</SubType>
</Compile>
<Compile Include="basicwm_renderer.vb" />
<Compile Include="BWMDesktop.Designer.vb">
<DependentUpon>BWMDesktop.vb</DependentUpon>
</Compile>
<Compile Include="BWMDesktop.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="ColorPicker.Designer.vb">
<DependentUpon>ColorPicker.vb</DependentUpon>
</Compile>
<Compile Include="ColorPicker.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="file skimmer.Designer.vb">
<DependentUpon>file skimmer.vb</DependentUpon>
</Compile>
@ -133,6 +145,12 @@
<EmbeddedResource Include="basicwm_infobox.resx">
<DependentUpon>basicwm_infobox.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="BWMDesktop.resx">
<DependentUpon>BWMDesktop.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ColorPicker.resx">
<DependentUpon>ColorPicker.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="file skimmer.resx">
<DependentUpon>file skimmer.vb</DependentUpon>
</EmbeddedResource>

2
shiftos_next/shiftos_next.vbproj.user
View file

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