diff --git a/shiftos_next.v12.suo b/shiftos_next.v12.suo index c95d5bb..445680b 100644 Binary files a/shiftos_next.v12.suo and b/shiftos_next.v12.suo differ diff --git a/shiftos_next/BasicWM_ColorTable.vb b/shiftos_next/BasicWM_ColorTable.vb new file mode 100644 index 0000000..aa2838c --- /dev/null +++ b/shiftos_next/BasicWM_ColorTable.vb @@ -0,0 +1,293 @@ +' +' This code was generated by the .NET ToolStrip Customizer. +' http://toolstripcustomizer.codeplex.com/ +' + +Imports System.Drawing +Imports System.Windows.Forms + +Namespace BasicWM + Class ColorTable + Inherits ProfessionalColorTable + Public Overrides ReadOnly Property ButtonSelectedHighlight() As Color + Get + Return ButtonSelectedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlight() As Color + Get + Return ButtonPressedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedHighlightBorder() As Color + Get + Return ButtonPressedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlight() As Color + Get + Return ButtonCheckedGradientMiddle + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedHighlightBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedBorder() As Color + Get + Return ButtonSelectedBorder + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedBorder() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientBegin() As Color + Get + Return Color.FromArgb(255, 64, 0, 64) + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientMiddle() As Color + Get + Return Color.FromArgb(255, 64, 0, 64) + End Get + End Property + Public Overrides ReadOnly Property ButtonCheckedGradientEnd() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientMiddle() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ButtonPressedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property CheckBackground() As Color + Get + Return Color.FromArgb(255, 196, 225, 255) + End Get + End Property + Public Overrides ReadOnly Property CheckSelectedBackground() As Color + Get + Return Color.FromArgb(255, 153, 204, 255) + End Get + End Property + Public Overrides ReadOnly Property CheckPressedBackground() As Color + Get + Return Color.FromArgb(255, 153, 204, 255) + End Get + End Property + Public Overrides ReadOnly Property GripDark() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property GripLight() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ImageMarginRevealedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuStripGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelected() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property MenuItemBorder() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property MenuBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color + Get + Return Color.FromName("Black") + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property RaftingContainerGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property SeparatorDark() As Color + Get + Return Color.FromName("White") + End Get + End Property + Public Overrides ReadOnly Property SeparatorLight() As Color + Get + Return Color.FromName("ButtonHighlight") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property StatusStripGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripBorder() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientMiddle() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripContentPanelGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientBegin() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property ToolStripPanelGradientEnd() As Color + Get + Return Color.FromName("Gray") + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientBegin() As Color + Get + Return Color.FromArgb(255, 245, 245, 245) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientMiddle() As Color + Get + Return Color.FromArgb(255, 242, 242, 242) + End Get + End Property + Public Overrides ReadOnly Property OverflowButtonGradientEnd() As Color + Get + Return Color.FromName("ButtonShadow") + End Get + End Property + End Class +End Namespace diff --git a/shiftos_next/My Project/Resources.Designer.vb b/shiftos_next/My Project/Resources.Designer.vb index 5988df8..ba7c0a8 100644 --- a/shiftos_next/My Project/Resources.Designer.vb +++ b/shiftos_next/My Project/Resources.Designer.vb @@ -39,7 +39,7 @@ Namespace My.Resources Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS_Next.Resources", GetType(Resources).Assembly) + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("shiftos_next.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan @@ -105,6 +105,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Looks up a localized resource of type System.Drawing.Bitmap. + ''' + Friend ReadOnly Property TextFile() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("TextFile", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. ''' diff --git a/shiftos_next/My Project/Resources.resx b/shiftos_next/My Project/Resources.resx index a867e65..e7e0aae 100644 --- a/shiftos_next/My Project/Resources.resx +++ b/shiftos_next/My Project/Resources.resx @@ -139,4 +139,7 @@ ..\Resources\3beepvirus.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\TextFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/shiftos_next/Resources/Folder.png b/shiftos_next/Resources/Folder.png new file mode 100644 index 0000000..f2eeb16 Binary files /dev/null and b/shiftos_next/Resources/Folder.png differ diff --git a/shiftos_next/Resources/Folder1.png b/shiftos_next/Resources/Folder1.png new file mode 100644 index 0000000..923b988 Binary files /dev/null and b/shiftos_next/Resources/Folder1.png differ diff --git a/shiftos_next/Resources/TextFile.png b/shiftos_next/Resources/TextFile.png new file mode 100644 index 0000000..108602d Binary files /dev/null and b/shiftos_next/Resources/TextFile.png differ diff --git a/shiftos_next/Terminal.vb b/shiftos_next/Terminal.vb index 5ac29e5..a365071 100644 --- a/shiftos_next/Terminal.vb +++ b/shiftos_next/Terminal.vb @@ -159,6 +159,18 @@ 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 @@ -170,10 +182,33 @@ 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 - wrongcommand() + 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 Sub + Public Sub openfile(file As String) + Dim filinfo As New IO.FileInfo(file) + Select Case filinfo.Extension + Case ".txt" + If boughttextpad = True Then + Dim sr As New IO.StreamReader(file) + TextPad.txtfilebody.Text = sr.ReadToEnd() + sr.Close() + TextPad.Show() + Else + wrongcommand() + End If + Case Else + wrongcommand() + End Select + End Sub + Public Sub wrongcommand() AddLine("Invalid command! Type ""help"" for a list of commands.") End Sub @@ -198,6 +233,7 @@ AddLine("ShiftOS Help" & vbNewLine) AddLine("Usage tips: " & vbNewLine) AddLine(" - The terminal runs in full-screen.") + If boughttextpad = True Then AddLine(" - Typing the path to a text file will open it in Textpad.") AddLine(" - There are no window managers or desktop environments.") If boughtbasicgui = True Then AddLine(" - Applications can use the GUI server to display a proper GUI.") @@ -227,6 +263,8 @@ AddLine("Installed Programs:" & vbNewLine) AddLine("Below is a list of all the programs on your computer, followed by what they do. You can open one by typing ""open ""." & vbNewLine) AddLine(" - shiftorium: Upgrade the OS with Codepoints using this application.") + If boughtfileskimmer Then AddLine(" - file skimmer: A handy little file browser.") + If boughttextpad Then AddLine(" - textpad: An application that allows for creating and editing text files.") End Sub Public Sub AddLine(text As String) diff --git a/shiftos_next/TextPad.Designer.vb b/shiftos_next/TextPad.Designer.vb new file mode 100644 index 0000000..93057b3 --- /dev/null +++ b/shiftos_next/TextPad.Designer.vb @@ -0,0 +1,210 @@ + _ +Partial Class TextPad + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + 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. + _ + 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.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + 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.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.txtfilebody = New System.Windows.Forms.RichTextBox() + 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, 0) + 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" + ' + '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" + ' + '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.Text = "Cut" + ' + 'CopyToolStripMenuItem + ' + Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" + Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.CopyToolStripMenuItem.Text = "Copy" + ' + 'PasteToolStripMenuItem + ' + Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem" + Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.PasteToolStripMenuItem.Text = "Paste" + ' + 'UndoToolStripMenuItem + ' + Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem" + Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.UndoToolStripMenuItem.Text = "Undo" + ' + 'RedoToolStripMenuItem + ' + Me.RedoToolStripMenuItem.Name = "RedoToolStripMenuItem" + Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(152, 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) + ' + 'ToolStripSeparator2 + ' + 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 + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(149, 6) + ' + '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, 24) + Me.txtfilebody.Name = "txtfilebody" + Me.txtfilebody.Size = New System.Drawing.Size(652, 293) + Me.txtfilebody.TabIndex = 1 + Me.txtfilebody.Text = "" + ' + '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.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 +End Class diff --git a/shiftos_next/TextPad.resx b/shiftos_next/TextPad.resx new file mode 100644 index 0000000..bb70361 --- /dev/null +++ b/shiftos_next/TextPad.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/shiftos_next/TextPad.vb b/shiftos_next/TextPad.vb new file mode 100644 index 0000000..a7d0906 --- /dev/null +++ b/shiftos_next/TextPad.vb @@ -0,0 +1,75 @@ +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() + Me.WindowState = FormWindowState.Maximized + 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/basicwm_infobox.Designer.vb b/shiftos_next/basicwm_infobox.Designer.vb new file mode 100644 index 0000000..000d75f --- /dev/null +++ b/shiftos_next/basicwm_infobox.Designer.vb @@ -0,0 +1,115 @@ + _ +Partial Class basicwm_infobox + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + 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. + _ + 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/basicwm_infobox.resx b/shiftos_next/basicwm_infobox.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/shiftos_next/basicwm_infobox.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/shiftos_next/basicwm_infobox.vb b/shiftos_next/basicwm_infobox.vb new file mode 100644 index 0000000..e4ffa55 --- /dev/null +++ b/shiftos_next/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/basicwm_renderer.vb b/shiftos_next/basicwm_renderer.vb new file mode 100644 index 0000000..97e25a1 --- /dev/null +++ b/shiftos_next/basicwm_renderer.vb @@ -0,0 +1,6 @@ +Public Class basicwm_renderer + Inherits ToolStripProfessionalRenderer + Public Sub New() + MyBase.New(New BasicWM.ColorTable()) + End Sub +End Class diff --git a/shiftos_next/bin/Debug/shiftos_next.exe b/shiftos_next/bin/Debug/shiftos_next.exe index d762eb0..86135f0 100644 Binary files a/shiftos_next/bin/Debug/shiftos_next.exe and b/shiftos_next/bin/Debug/shiftos_next.exe differ diff --git a/shiftos_next/bin/Debug/shiftos_next.pdb b/shiftos_next/bin/Debug/shiftos_next.pdb index 815ed2e..4f77b51 100644 Binary files a/shiftos_next/bin/Debug/shiftos_next.pdb and b/shiftos_next/bin/Debug/shiftos_next.pdb differ diff --git a/shiftos_next/bin/Debug/shiftos_next.xml b/shiftos_next/bin/Debug/shiftos_next.xml index 722da20..bd8fd67 100644 --- a/shiftos_next/bin/Debug/shiftos_next.xml +++ b/shiftos_next/bin/Debug/shiftos_next.xml @@ -35,6 +35,10 @@ shiftos_next Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. + + + Looks up a localized resource of type System.Drawing.Bitmap. + Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. diff --git a/shiftos_next/file skimmer.Designer.vb b/shiftos_next/file skimmer.Designer.vb new file mode 100644 index 0000000..fdfd9ca --- /dev/null +++ b/shiftos_next/file skimmer.Designer.vb @@ -0,0 +1,266 @@ + _ +Partial Class file_skimmer + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + 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. + _ + 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.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.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, 0) + 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, 24) + 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) + ' + '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 + 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" + ' + '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 + ' + '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 + ' + '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:" + ' + '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 + ' + '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.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 +End Class diff --git a/shiftos_next/file skimmer.resx b/shiftos_next/file skimmer.resx new file mode 100644 index 0000000..b591e26 --- /dev/null +++ b/shiftos_next/file skimmer.resx @@ -0,0 +1,157 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 132, 17 + + + + + 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== + + + + + 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== + + + \ No newline at end of file diff --git a/shiftos_next/file skimmer.vb b/shiftos_next/file skimmer.vb new file mode 100644 index 0000000..0d5ff98 --- /dev/null +++ b/shiftos_next/file skimmer.vb @@ -0,0 +1,173 @@ +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" + 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 + 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/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache index 862fe37..701763f 100644 Binary files a/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache index 24e97f7..2a95fa9 100644 Binary files a/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/shiftos_next/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/shiftos_next/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/shiftos_next/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll index 4867d53..735462f 100644 Binary files a/shiftos_next/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll and b/shiftos_next/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/shiftos_next/obj/Debug/shiftos_next.Resources.resources b/shiftos_next/obj/Debug/shiftos_next.Resources.resources index 512f037..7741e4b 100644 Binary files a/shiftos_next/obj/Debug/shiftos_next.Resources.resources and b/shiftos_next/obj/Debug/shiftos_next.Resources.resources differ diff --git a/shiftos_next/obj/Debug/shiftos_next.TextPad.resources b/shiftos_next/obj/Debug/shiftos_next.TextPad.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/shiftos_next/obj/Debug/shiftos_next.TextPad.resources differ diff --git a/shiftos_next/obj/Debug/shiftos_next.basicwm_infobox.resources b/shiftos_next/obj/Debug/shiftos_next.basicwm_infobox.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/shiftos_next/obj/Debug/shiftos_next.basicwm_infobox.resources differ diff --git a/shiftos_next/obj/Debug/shiftos_next.exe b/shiftos_next/obj/Debug/shiftos_next.exe index d762eb0..86135f0 100644 Binary files a/shiftos_next/obj/Debug/shiftos_next.exe and b/shiftos_next/obj/Debug/shiftos_next.exe differ diff --git a/shiftos_next/obj/Debug/shiftos_next.file_skimmer.resources b/shiftos_next/obj/Debug/shiftos_next.file_skimmer.resources new file mode 100644 index 0000000..6fa88ac Binary files /dev/null and b/shiftos_next/obj/Debug/shiftos_next.file_skimmer.resources differ diff --git a/shiftos_next/obj/Debug/shiftos_next.pdb b/shiftos_next/obj/Debug/shiftos_next.pdb index 815ed2e..4f77b51 100644 Binary files a/shiftos_next/obj/Debug/shiftos_next.pdb and b/shiftos_next/obj/Debug/shiftos_next.pdb differ diff --git a/shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt b/shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt index c2fe9a8..78890ae 100644 --- a/shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt +++ b/shiftos_next/obj/Debug/shiftos_next.vbproj.FileListAbsolute.txt @@ -10,14 +10,17 @@ c:\users\the ultimate hacker\documents\github\ORION\project-orion\shiftos_next\s c:\users\the ultimate hacker\documents\github\ORION\project-orion\shiftos_next\shiftos_next\obj\Debug\shiftos_next.xml c:\users\the ultimate hacker\documents\github\ORION\project-orion\shiftos_next\shiftos_next\obj\Debug\shiftos_next.pdb C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\bin\Debug\shiftos_next.exe.config -C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.exe -C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.xml -C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.pdb -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 -C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.Terminal.resources -C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.vbproj.GenerateResource.Cache C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\bin\Debug\shiftos_next.exe 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.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 C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.shiftorium_cmd.resources +C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.Terminal.resources +C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.TextPad.resources +C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.vbproj.GenerateResource.Cache +C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.exe +C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.xml +C:\Users\The Ultimate Hacker\Documents\shiftos-next\shiftos_next\obj\Debug\shiftos_next.pdb diff --git a/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache b/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache index f9fb00b..53bfdde 100644 Binary files a/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache and b/shiftos_next/obj/Debug/shiftos_next.vbproj.GenerateResource.Cache differ diff --git a/shiftos_next/obj/Debug/shiftos_next.xml b/shiftos_next/obj/Debug/shiftos_next.xml index 722da20..bd8fd67 100644 --- a/shiftos_next/obj/Debug/shiftos_next.xml +++ b/shiftos_next/obj/Debug/shiftos_next.xml @@ -35,6 +35,10 @@ shiftos_next Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. + + + Looks up a localized resource of type System.Drawing.Bitmap. + Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. diff --git a/shiftos_next/shiftorium_cmd.vb b/shiftos_next/shiftorium_cmd.vb index 53d7b61..2a19b4e 100644 --- a/shiftos_next/shiftorium_cmd.vb +++ b/shiftos_next/shiftorium_cmd.vb @@ -23,7 +23,17 @@ 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 + End If End If If boughtgray = False Then AddItem("Gray", 25) @@ -31,7 +41,7 @@ If boughtbasicgui = False Then AddItem("Basic GUI Server", 100) End If - If boughtterminalsettextcolor = False Then + If boughtterminalsettextcolor = False And boughtbasicsettings = True Then AddItem("Set Terminal Text Color", 10) End If End If @@ -59,6 +69,10 @@ lbitems.SelectedIndex -= 1 End If Case Keys.Enter + 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.") @@ -66,6 +80,10 @@ 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("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 ' 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.") diff --git a/shiftos_next/shiftos_next.vbproj b/shiftos_next/shiftos_next.vbproj index d532d01..47f12ca 100644 --- a/shiftos_next/shiftos_next.vbproj +++ b/shiftos_next/shiftos_next.vbproj @@ -70,6 +70,20 @@ + + + basicwm_infobox.vb + + + Form + + + + file skimmer.vb + + + Form + Hijack.vb @@ -106,8 +120,20 @@ Form + + TextPad.vb + + + Form + + + basicwm_infobox.vb + + + file skimmer.vb + Hijack.vb @@ -123,6 +149,9 @@ Terminal.vb + + TextPad.vb + @@ -136,6 +165,15 @@ + + + + + + + + +