diff options
| author | AShifter <[email protected]> | 2017-09-24 12:32:50 -0600 |
|---|---|---|
| committer | AShifter <[email protected]> | 2017-09-24 12:32:50 -0600 |
| commit | 9107510c4985ceb781640163bbb82ab6de2fa35e (patch) | |
| tree | c6a440b7ed182df8f8d1e5d0fdf55e28cf74055f /ShiftOS/ShiftDock.vb | |
| parent | 2992686ec723fa4c854b6de27007a284b484a92e (diff) | |
| download | shiftos-rewind-9107510c4985ceb781640163bbb82ab6de2fa35e.tar.gz shiftos-rewind-9107510c4985ceb781640163bbb82ab6de2fa35e.tar.bz2 shiftos-rewind-9107510c4985ceb781640163bbb82ab6de2fa35e.zip | |
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.
Diffstat (limited to 'ShiftOS/ShiftDock.vb')
| -rw-r--r-- | ShiftOS/ShiftDock.vb | 73 |
1 files changed, 0 insertions, 73 deletions
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 |