mirror of
https://github.com/TheUltimateHacker/shiftos-next.git
synced 2025-01-22 09:02:00 -05:00
Commit for latest Alpha (0.0.1 Alpha 1)
See the post on shiftos.net for more info.
This commit is contained in:
TheUltimateHacker
parent
1fcbee8dab
commit
ed36135241
35 changed files with 1686 additions and 11 deletions
Binary file not shown.
293
shiftos_next/BasicWM_ColorTable.vb
Normal file
293
shiftos_next/BasicWM_ColorTable.vb
Normal file
|
|
@ -0,0 +1,293 @@
|
|||
' <auto-generated>
|
||||
' This code was generated by the .NET ToolStrip Customizer.
|
||||
' http://toolstripcustomizer.codeplex.com/
|
||||
' </auto-generated>
|
||||
|
||||
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
|
||||
12
shiftos_next/My Project/Resources.Designer.vb
generated
12
shiftos_next/My Project/Resources.Designer.vb
generated
|
|
@ -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
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
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
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
|
||||
'''</summary>
|
||||
|
|
|
|||
|
|
@ -139,4 +139,7 @@
|
|||
<data name="_3beepvirus" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\3beepvirus.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="TextFile" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\TextFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
||||
BIN
shiftos_next/Resources/Folder.png
Normal file
BIN
shiftos_next/Resources/Folder.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 254 B |
BIN
shiftos_next/Resources/Folder1.png
Normal file
BIN
shiftos_next/Resources/Folder1.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 264 B |
BIN
shiftos_next/Resources/TextFile.png
Normal file
BIN
shiftos_next/Resources/TextFile.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 286 B |
|
|
@ -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 <name>""." & 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)
|
||||
|
|
|
|||
210
shiftos_next/TextPad.Designer.vb
generated
Normal file
210
shiftos_next/TextPad.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,210 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class TextPad
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.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
|
||||
123
shiftos_next/TextPad.resx
Normal file
123
shiftos_next/TextPad.resx
Normal file
|
|
@ -0,0 +1,123 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
75
shiftos_next/TextPad.vb
Normal file
75
shiftos_next/TextPad.vb
Normal file
|
|
@ -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
|
||||
115
shiftos_next/basicwm_infobox.Designer.vb
generated
Normal file
115
shiftos_next/basicwm_infobox.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,115 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class basicwm_infobox
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.lbtitle = New System.Windows.Forms.Label()
|
||||
Me.btnok = New System.Windows.Forms.Button()
|
||||
Me.lbmessage = New System.Windows.Forms.Label()
|
||||
Me.txtuserinput = New System.Windows.Forms.TextBox()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.Gray
|
||||
Me.Panel1.Controls.Add(Me.lbtitle)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(433, 30)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'lbtitle
|
||||
'
|
||||
Me.lbtitle.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lbtitle.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lbtitle.Name = "lbtitle"
|
||||
Me.lbtitle.Size = New System.Drawing.Size(433, 30)
|
||||
Me.lbtitle.TabIndex = 0
|
||||
Me.lbtitle.Text = "I am a hacker."
|
||||
Me.lbtitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'btnok
|
||||
'
|
||||
Me.btnok.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.btnok.FlatAppearance.BorderSize = 0
|
||||
Me.btnok.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnok.Location = New System.Drawing.Point(0, 213)
|
||||
Me.btnok.Name = "btnok"
|
||||
Me.btnok.Size = New System.Drawing.Size(433, 44)
|
||||
Me.btnok.TabIndex = 0
|
||||
Me.btnok.Text = "> Alright <"
|
||||
Me.btnok.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbmessage
|
||||
'
|
||||
Me.lbmessage.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lbmessage.Location = New System.Drawing.Point(0, 30)
|
||||
Me.lbmessage.Name = "lbmessage"
|
||||
Me.lbmessage.Size = New System.Drawing.Size(433, 183)
|
||||
Me.lbmessage.TabIndex = 1
|
||||
Me.lbmessage.Text = "I am already viewing my computer logs of that interview. Soon, I'll know everythi" & _
|
||||
"ng there is to know about that banana making factory."
|
||||
Me.lbmessage.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txtuserinput
|
||||
'
|
||||
Me.txtuserinput.BackColor = System.Drawing.Color.Black
|
||||
Me.txtuserinput.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtuserinput.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.txtuserinput.ForeColor = System.Drawing.Color.White
|
||||
Me.txtuserinput.Location = New System.Drawing.Point(0, 200)
|
||||
Me.txtuserinput.Name = "txtuserinput"
|
||||
Me.txtuserinput.Size = New System.Drawing.Size(433, 13)
|
||||
Me.txtuserinput.TabIndex = 2
|
||||
Me.txtuserinput.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
Me.txtuserinput.WordWrap = False
|
||||
'
|
||||
'basicwm_infobox
|
||||
'
|
||||
Me.AcceptButton = Me.btnok
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.Black
|
||||
Me.ClientSize = New System.Drawing.Size(433, 257)
|
||||
Me.Controls.Add(Me.txtuserinput)
|
||||
Me.Controls.Add(Me.lbmessage)
|
||||
Me.Controls.Add(Me.btnok)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Font = New System.Drawing.Font("Courier New", 8.25!)
|
||||
Me.ForeColor = System.Drawing.Color.White
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "basicwm_infobox"
|
||||
Me.Text = "basicwm_infobox"
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitle As System.Windows.Forms.Label
|
||||
Friend WithEvents btnok As System.Windows.Forms.Button
|
||||
Friend WithEvents lbmessage As System.Windows.Forms.Label
|
||||
Friend WithEvents txtuserinput As System.Windows.Forms.TextBox
|
||||
End Class
|
||||
120
shiftos_next/basicwm_infobox.resx
Normal file
120
shiftos_next/basicwm_infobox.resx
Normal 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>
|
||||
19
shiftos_next/basicwm_infobox.vb
Normal file
19
shiftos_next/basicwm_infobox.vb
Normal file
|
|
@ -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
|
||||
6
shiftos_next/basicwm_renderer.vb
Normal file
6
shiftos_next/basicwm_renderer.vb
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
Public Class basicwm_renderer
|
||||
Inherits ToolStripProfessionalRenderer
|
||||
Public Sub New()
|
||||
MyBase.New(New BasicWM.ColorTable())
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -35,6 +35,10 @@ shiftos_next
|
|||
<summary>
|
||||
Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
|
||||
</summary>
|
||||
</member><member name="P:shiftos_next.My.Resources.Resources.TextFile">
|
||||
<summary>
|
||||
Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member><member name="P:shiftos_next.My.Resources.Resources.typesound">
|
||||
<summary>
|
||||
Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
|
||||
|
|
|
|||
266
shiftos_next/file skimmer.Designer.vb
generated
Normal file
266
shiftos_next/file skimmer.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,266 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class file_skimmer
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(file_skimmer))
|
||||
Me.topmenu = New System.Windows.Forms.MenuStrip()
|
||||
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FolderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.newseperator = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TextFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ExitSessionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ProductInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.tools = New System.Windows.Forms.ToolStrip()
|
||||
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.lbcurrentdir = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.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
|
||||
157
shiftos_next/file skimmer.resx
Normal file
157
shiftos_next/file skimmer.resx
Normal file
|
|
@ -0,0 +1,157 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="topmenu.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="tools.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>132, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="btnnewfolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
|
||||
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
|
||||
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
|
||||
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
|
||||
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
|
||||
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
|
||||
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
|
||||
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
|
||||
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
|
||||
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="btndelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
|
||||
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
|
||||
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
|
||||
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
|
||||
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
|
||||
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
|
||||
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
|
||||
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
|
||||
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
|
||||
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
173
shiftos_next/file skimmer.vb
Normal file
173
shiftos_next/file skimmer.vb
Normal file
|
|
@ -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
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
shiftos_next/obj/Debug/shiftos_next.TextPad.resources
Normal file
BIN
shiftos_next/obj/Debug/shiftos_next.TextPad.resources
Normal file
Binary file not shown.
BIN
shiftos_next/obj/Debug/shiftos_next.basicwm_infobox.resources
Normal file
BIN
shiftos_next/obj/Debug/shiftos_next.basicwm_infobox.resources
Normal file
Binary file not shown.
Binary file not shown.
BIN
shiftos_next/obj/Debug/shiftos_next.file_skimmer.resources
Normal file
BIN
shiftos_next/obj/Debug/shiftos_next.file_skimmer.resources
Normal file
Binary file not shown.
Binary file not shown.
|
|
@ -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
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -35,6 +35,10 @@ shiftos_next
|
|||
<summary>
|
||||
Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
|
||||
</summary>
|
||||
</member><member name="P:shiftos_next.My.Resources.Resources.TextFile">
|
||||
<summary>
|
||||
Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member><member name="P:shiftos_next.My.Resources.Resources.typesound">
|
||||
<summary>
|
||||
Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
|
||||
|
|
|
|||
|
|
@ -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 <colorname>' to set the Terminal text color. For a reference on supported colors, you can also type 'colors'.")
|
||||
handlebuy("Basic GUI Server - 100 CP", boughtbasicgui, "Amazing. Come time, and money, we may be able to collaborate with other companies to develop applications, upgrades, and eventually a window manager.")
|
||||
handlebuy("Gray - 25 CP", boughtgray, "Great. Right away, the Shiftorium is easier to use! Look at that amazing gray highlight.")
|
||||
|
|
|
|||
|
|
@ -70,6 +70,20 @@
|
|||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="BasicWM_ColorTable.vb" />
|
||||
<Compile Include="basicwm_infobox.Designer.vb">
|
||||
<DependentUpon>basicwm_infobox.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="basicwm_infobox.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="basicwm_renderer.vb" />
|
||||
<Compile Include="file skimmer.Designer.vb">
|
||||
<DependentUpon>file skimmer.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="file skimmer.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="filesystem.vb" />
|
||||
<Compile Include="Hijack.Designer.vb">
|
||||
<DependentUpon>Hijack.vb</DependentUpon>
|
||||
|
|
@ -106,8 +120,20 @@
|
|||
<Compile Include="Terminal.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="TextPad.Designer.vb">
|
||||
<DependentUpon>TextPad.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="TextPad.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="basicwm_infobox.resx">
|
||||
<DependentUpon>basicwm_infobox.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="file skimmer.resx">
|
||||
<DependentUpon>file skimmer.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Hijack.resx">
|
||||
<DependentUpon>Hijack.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
|
@ -123,6 +149,9 @@
|
|||
<EmbeddedResource Include="Terminal.resx">
|
||||
<DependentUpon>Terminal.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="TextPad.resx">
|
||||
<DependentUpon>TextPad.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
|
|
@ -136,6 +165,15 @@
|
|||
</None>
|
||||
<None Include="App.config" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\TextFile.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Folder.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Folder1.png" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
|
|
|
|||
Loading…
Reference in a new issue