From 424931951bf55c2db7a7cb3228bfccc03ea62287 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Thu, 28 May 2015 21:42:26 -0400 Subject: Shiftorium - Draggable Windows upgrade + Bugfixes Alright, I've added the Draggable Windows upgrade to the Shiftorium, as well as fixed a quick bug causing "No Items Available" to display when there were items clearly available. I've also fixed a positioning bug with BWM windows causing them to start in the center of the screen, relative to the titlebar, rather than the form. I've also re-arranged the code a bit, organizing files in folders. APIs are in the APIs folder, Desktop Environments are in the Desktop Environments folder, etc. The shiftorium still doesn't have draggable window functionality yet... --- shiftos_next/TextPad.vb | 76 ------------------------------------------------- 1 file changed, 76 deletions(-) delete mode 100644 shiftos_next/TextPad.vb (limited to 'shiftos_next/TextPad.vb') diff --git a/shiftos_next/TextPad.vb b/shiftos_next/TextPad.vb deleted file mode 100644 index 1bc0d28..0000000 --- a/shiftos_next/TextPad.vb +++ /dev/null @@ -1,76 +0,0 @@ -Public Class TextPad - - - Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click - file_skimmer.mode = "open" - file_skimmer.application = "textpad" - file_skimmer.Show() - End Sub - - Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click - file_skimmer.mode = "save" - file_skimmer.application = "textpad" - file_skimmer.Show() - End Sub - - Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click - Me.Close() - End Sub - - Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click - txtfilebody.Text = "" - End Sub - - Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click - txtfilebody.Cut() - End Sub - - Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click - txtfilebody.Copy() - End Sub - - Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click - txtfilebody.Paste() - End Sub - - Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UndoToolStripMenuItem.Click - txtfilebody.Undo() - End Sub - - Private Sub RedoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RedoToolStripMenuItem.Click - txtfilebody.Redo() - End Sub - - Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click - txtfilebody.SelectAll() - End Sub - - Private Sub FindToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FindToolStripMenuItem.Click - basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True) - txtfilebody.Find(basicwm_infobox.userinput) - End Sub - - Private Sub ReplaceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReplaceToolStripMenuItem.Click - basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True) - Dim whattofind As String = basicwm_infobox.userinput - basicwm_infobox.showinfo("Replace", "What shall we replace """ & whattofind & """ with?", True) - txtfilebody.Text = txtfilebody.Text.Replace(whattofind, basicwm_infobox.userinput) - End Sub - - Private Sub TextPad_Load(sender As Object, e As EventArgs) Handles Me.Load - MenuStrip1.Renderer = New basicwm_renderer() - setupmenufonts() - pnltop.DetermineMyVisibility() - End Sub - - Public Sub setupmenufonts() - For Each item In MenuStrip1.Items - item.ForeColor = Color.White - item.Font = New Font("Courier New", 8.25) - For Each SubItem In item.DropDownItems - SubItem.ForeColor = Color.White - SubItem.font = New Font("Courier New", 8.25) - Next - Next - End Sub -End Class \ No newline at end of file -- cgit v1.2.3