From 424931951bf55c2db7a7cb3228bfccc03ea62287 Mon Sep 17 00:00:00 2001
From: TheUltimateHacker <tultimateh@gmail.com>
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/BWM and CMD Apps/TextPad.vb | 76 ++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100644 shiftos_next/BWM and CMD Apps/TextPad.vb

(limited to 'shiftos_next/BWM and CMD Apps/TextPad.vb')

diff --git a/shiftos_next/BWM and CMD Apps/TextPad.vb b/shiftos_next/BWM and CMD Apps/TextPad.vb
new file mode 100644
index 0000000..1bc0d28
--- /dev/null
+++ b/shiftos_next/BWM and CMD Apps/TextPad.vb	
@@ -0,0 +1,76 @@
+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