diff options
Diffstat (limited to 'shiftos_next/Desktop Environments')
| -rw-r--r-- | shiftos_next/Desktop Environments/BWMDesktop.Designer.vb | 56 | ||||
| -rw-r--r-- | shiftos_next/Desktop Environments/BWMDesktop.resx | 120 | ||||
| -rw-r--r-- | shiftos_next/Desktop Environments/BWMDesktop.vb | 29 |
3 files changed, 205 insertions, 0 deletions
diff --git a/shiftos_next/Desktop Environments/BWMDesktop.Designer.vb b/shiftos_next/Desktop Environments/BWMDesktop.Designer.vb new file mode 100644 index 0000000..3f4ca4e --- /dev/null +++ b/shiftos_next/Desktop Environments/BWMDesktop.Designer.vb @@ -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
\ No newline at end of file diff --git a/shiftos_next/Desktop Environments/BWMDesktop.resx b/shiftos_next/Desktop Environments/BWMDesktop.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/shiftos_next/Desktop Environments/BWMDesktop.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/Desktop Environments/BWMDesktop.vb b/shiftos_next/Desktop Environments/BWMDesktop.vb new file mode 100644 index 0000000..07841a5 --- /dev/null +++ b/shiftos_next/Desktop Environments/BWMDesktop.vb @@ -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
\ No newline at end of file |