From 9107510c4985ceb781640163bbb82ab6de2fa35e Mon Sep 17 00:00:00 2001
From: AShifter <loganr.lowe@gmail.com>
Date: Sun, 24 Sep 2017 12:32:50 -0600
Subject: Add proper WM and Remove old source

Added a proper, working WM. I also got rid of the old source as we could
just make a new repo for that.
---
 ShiftOS/ShiftDock.vb | 73 ----------------------------------------------------
 1 file changed, 73 deletions(-)
 delete mode 100644 ShiftOS/ShiftDock.vb

(limited to 'ShiftOS/ShiftDock.vb')

diff --git a/ShiftOS/ShiftDock.vb b/ShiftOS/ShiftDock.vb
deleted file mode 100644
index b11b506..0000000
--- a/ShiftOS/ShiftDock.vb
+++ /dev/null
@@ -1,73 +0,0 @@
-Public Class ShiftDock
-    Dim uod As Integer = 5
-    Private Sub ShiftDock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        mousecheck.Start()
-        Me.Location = New Point((Screen.PrimaryScreen.Bounds.Width / 2) - (Me.Width / 2), Screen.PrimaryScreen.Bounds.Height - Me.Height)
-    End Sub
-
-    Private Sub icn1_Click(sender As Object, e As EventArgs) Handles icn1.Click
-        Downloader.Show()
-    End Sub
-
-    Private Sub icn2_Click(sender As Object, e As EventArgs) Handles icn2.Click
-
-    End Sub
-
-    Private Sub icn3_Click(sender As Object, e As EventArgs) Handles icn3.Click
-
-    End Sub
-
-    Private Sub icn4_Click(sender As Object, e As EventArgs) Handles icn4.Click
-
-    End Sub
-
-    Private Sub icn5_Click(sender As Object, e As EventArgs) Handles icn5.Click
-
-    End Sub
-
-    Private Sub icn6_Click(sender As Object, e As EventArgs) Handles icn6.Click
-
-    End Sub
-
-    Private Sub icn7_Click(sender As Object, e As EventArgs) Handles icn7.Click
-
-    End Sub
-
-    Private Sub icn8_Click(sender As Object, e As EventArgs) Handles icn8.Click
-
-    End Sub
-
-    Private Sub icn9_Click(sender As Object, e As EventArgs) Handles icn9.Click
-
-    End Sub
-
-    Private Sub mousecheck_Tick(sender As Object, e As EventArgs) Handles mousecheck.Tick
-        If (Cursor.Position.Y > Screen.PrimaryScreen.Bounds.Height - 20) And uod > 1 Then
-            uod = -5
-            dockanimate.Start()
-            mousecheck.Stop()
-        ElseIf (Cursor.Position.Y < Screen.PrimaryScreen.Bounds.Height - Me.Height) And uod < 1 Then
-            uod = 5
-            dockanimate.Start()
-            mousecheck.Stop()
-        End If
-        dockimg.Width = Me.Width
-        dockimg.Height = Me.Height
-        Content.Width = Me.Width
-        Content.Height = Me.Height
-    End Sub
-
-    Private Sub dockanimate_Tick(sender As Object, e As EventArgs) Handles dockanimate.Tick
-        Content.Location = New Point(Content.Location.X, Content.Location.Y + uod)
-        uod = uod + uod
-        If (Content.Location.Y < 0) Then
-            Content.Location = New Point(Content.Location.X, 0)
-            dockanimate.Stop()
-            mousecheck.Start()
-        ElseIf (Content.Location.Y > Me.Height) Then
-            Content.Location = New Point(Content.Location.X, Me.Height)
-            dockanimate.Stop()
-            mousecheck.Start()
-        End If
-    End Sub
-End Class
\ No newline at end of file
-- 
cgit v1.2.3