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.

1 files changed, 0 insertions, 302 deletions

diff --git a/ShiftOS/DockWindow.vb b/ShiftOS/DockWindow.vb
deleted file mode 100644
index 666abfe..0000000
--- a/ShiftOS/DockWindow.vb
+++ /dev/null
@@ -1,302 +0,0 @@
-Public Class DockWindow
-
-    Public screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
-    Public screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
-    Dim toleft As Integer = 30
-    Dim tileprogram(100) As String
-    Dim currenttile As String = 0
-    Public loadevents As New DockEngine
-    Public docktopbot As String = "Bottom"
-    Public firststart As Boolean
-
-    Public Sub colours()
-        'Dim img As New Bitmap(picBackColor.Width, picBackColor.Height)
-        'Dim brush As New Drawing.Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(img.Width, img.Height), SystemColors.Window, SystemColors.ControlLight)
-        ' Dim gr As Graphics = Graphics.FromImage(img)
-        'gr.FillRectangle(brush, New RectangleF(0, 0, img.Width, img.Height))
-        'picBackColor.BackgroundImage = img
-    End Sub
-
-    Private Sub Dock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.TopMost = True
-        Me.ShowInTaskbar = False
-        toleft = toleft + 40
-        Dim tile As New PictureBox
-        tile.BackColor = Color.Silver
-        tile.Height = 40
-        tile.Width = 40
-        tile.Top = 54
-        tile.Left = toleft
-        'tile.Image = My.Resources.settings
-        tile.SizeMode = PictureBoxSizeMode.Zoom
-        tile.Name = currenttile
-        toleft = toleft + 45
-        tile.BringToFront()
-        'picBackColor.SendToBack()
-        tile.SizeMode = PictureBoxSizeMode.CenterImage
-        Me.Width = Me.Width + tile.Width + 5
-        Me.Left = (My.Computer.Screen.WorkingArea.Width \ 2) - (Me.Width \ 2)
-        pnlTiles.Controls.Add(tile)
-        currenttile = currenttile + 1
-        AddHandler tile.Click, AddressOf tilesets_click
-        AddHandler tile.MouseHover, AddressOf tile_hover
-        AddHandler tile.MouseLeave, AddressOf tile_leave
-        colours()
-        loadevents.readFile(Application.StartupPath + "\SoftwareData\ShiftDock\tiles.dat")
-        loadevents.readConfFile(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat")
-        loadevents.writeConfFile(Me.Top, docktopbot)
-        Me.Top = loadevents.docktop
-        docktopbot = loadevents.topbottom
-        If firststart = True Then
-            docktopbot = "Bottom"
-            Me.Top = screenHeight - Me.Height + 25
-        End If
-        If docktopbot = "Bottom" Then
-            'Me.Top = screenHeight - Me.Height - 42
-            Me.picBoarder.Top = 96
-            Me.picBoarder.BringToFront()
-            loadevents.writeConfFile(Me.Top, "Bottom")
-        Else
-            Me.picBoarder.Top = 31
-            Me.picBoarder.BringToFront()
-            loadevents.writeConfFile(Me.Top, "Top")
-        End If
-       Me.TopMost = True
-        'tmr_faid.Start()
-    End Sub
-
-    Public Sub createtile(ByVal openPath As String, backcolor As String)
-        Dim tile As New PictureBox
-        If backcolor.Contains("A=") Then
-            Dim newcolor() As String
-            newcolor = backcolor.Split(",")
-            tile.BackColor = Color.FromArgb(newcolor(0).Replace("A=", "").Replace(" ", ""), newcolor(1).Replace("R=", "").Replace(" ", ""), newcolor(2).Replace("G=", "").Replace(" ", ""), newcolor(3).Replace("B=", "").Replace(" ", ""))
-        Else
-            Try
-                tile.BackColor = Color.FromName(backcolor.Replace(" ", ""))
-            Catch
-                Try
-                    tile.BackColor = Color.FromKnownColor(backcolor)
-                Catch
-                    tile.BackColor = Color.Red
-                End Try
-            End Try
-        End If
-        tile.Height = 40
-        tile.Width = 40
-        tile.Top = 54
-        tile.Left = toleft
-        If openPath = "ArtPad" Then
-            tile.Image = ShiftOSDesktop.artpadiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Audio Player" Then
-            tile.Image = ShiftOSDesktop.audioplayericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Bit Note Digger" Then
-            tile.Image = ShiftOSDesktop.bitnotediggericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Bit Note Wallet" Then
-            tile.Image = ShiftOSDesktop.bitnotewalleticonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Calculator" Then
-            tile.Image = ShiftOSDesktop.calculatoriconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-         ElseIf openPath = "Catlyst" Then
-            tile.Image = ShiftOSDesktop.calculatoriconlauncher 'needs new icon
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Clock" Then
-            tile.Image = ShiftOSDesktop.clockiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Dodge" Then
-            tile.Image = ShiftOSDesktop.dodgeiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Downloader" Then
-            tile.Image = ShiftOSDesktop.downloadericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Downloader Manager" Then
-            tile.Image = ShiftOSDesktop.downloadmanagericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "File Skimmer" Then
-            tile.Image = ShiftOSDesktop.fileskimmericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "FloodGate Manager" Then
-            tile.Image = ShiftOSDesktop.floodgateiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Icon Manager" Then
-            tile.Image = ShiftOSDesktop.iconmanagericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Installer" Then
-            tile.Image = ShiftOSDesktop.installericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Knowledge Input" Then
-            tile.Image = ShiftOSDesktop.knowledgeinputiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Labyrinth" Then
-            tile.Image = ShiftOSDesktop.calculatoriconlauncher 'needs new icon
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Name Changer" Then
-            tile.Image = ShiftOSDesktop.namechangericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "OrcWrite" Then
-            tile.Image = ShiftOSDesktop.orcwriteiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Pong" Then
-            tile.Image = ShiftOSDesktop.pongiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Shifter" Then
-            tile.Image = ShiftOSDesktop.shiftericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Shiftorium" Then
-            tile.Image = ShiftOSDesktop.shiftoriumiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Snakey" Then
-            tile.Image = ShiftOSDesktop.snakeyiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Terminal" Then
-            tile.Image = ShiftOSDesktop.terminaliconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "TextPad" Then
-            tile.Image = ShiftOSDesktop.textpadiconlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "Video Player" Then
-            tile.Image = ShiftOSDesktop.videoplayericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "VirusScanner" Then
-            tile.Image = ShiftOSDesktop.virusscannericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "WebBrowser" Then
-            tile.Image = ShiftOSDesktop.webbrowsericonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        ElseIf openPath = "ShiftNet" Then
-            tile.Image = ShiftOSDesktop.shiftneticonlauncher
-            tile.SizeMode = PictureBoxSizeMode.StretchImage
-        End If
-        tile.Name = currenttile
-        tileprogram(currenttile) = openPath
-        toleft = toleft + 45
-        tile.BringToFront()
-        'picBackColor.SendToBack()
-        tile.SizeMode = PictureBoxSizeMode.CenterImage
-        Me.Width = Me.Width + tile.Width + 5
-        Me.Left = (My.Computer.Screen.WorkingArea.Width \ 2) - (Me.Width \ 2)
-        pnlTiles.Controls.Add(tile)
-        currenttile = currenttile + 1
-        AddHandler tile.Click, AddressOf tile_click
-        AddHandler tile.MouseHover, AddressOf tile_hover
-        AddHandler tile.MouseLeave, AddressOf tile_leave
-    End Sub
-
-    'Private Sub btnAddIcon_Click(sender As Object, e As EventArgs) Handles btnAddIcon.Click
-    ' createtile(txtURL.Text)
-    'colours()
-    ' End Sub
-
-    Private Sub tile_click(sender As Object, e As EventArgs)
-        Dim tle As PictureBox = DirectCast(sender, PictureBox)
-        Dim open As String = tle.Name
-        If tileprogram(open) = "ArtPad" Then
-            ArtPad.Show()
-        ElseIf tileprogram(open) = "Audio Player" Then
-            Audio_Player.Show()
-        ElseIf tileprogram(open) = "Bit Note Digger" Then
-            Bitnote_Digger.Show()
-        ElseIf tileprogram(open) = "Bit Note Wallet" Then
-            Bitnote_Wallet.Show()
-        ElseIf tileprogram(open) = "Calculator" Then
-            Calculator.Show()
-        ElseIf tileprogram(open) = "Catlyst" Then
-            Catalyst_Main.Show()
-        ElseIf tileprogram(open) = "Clock" Then
-            Clock.Show()
-        ElseIf tileprogram(open) = "Dodge" Then
-            Dodge.Show()
-        ElseIf tileprogram(open) = "Downloader" Then
-            Downloader.Show()
-        ElseIf tileprogram(open) = "Downloader Manager" Then
-            Downloadmanager.Show()
-        ElseIf tileprogram(open) = "File Skimmer" Then
-            File_Skimmer.Show()
-        ElseIf tileprogram(open) = "FloodGate Manager" Then
-            FloodGate_Manager.Show()
-        ElseIf tileprogram(open) = "Icon Manager" Then
-            Icon_Manager.Show()
-        ElseIf tileprogram(open) = "Installer" Then
-            Installer.Show()
-        ElseIf tileprogram(open) = "Knowledge Input" Then
-            Knowledge_Input.Show()
-        ElseIf tileprogram(open) = "Labyrinth" Then
-            Labyrinth.Show()
-        ElseIf tileprogram(open) = "Name Changer" Then
-            Name_Changer.Show()
-        ElseIf tileprogram(open) = "OrcWrite" Then
-            OrcWrite.Show()
-        ElseIf tileprogram(open) = "Pong" Then
-            Pong.Show()
-        ElseIf tileprogram(open) = "Shifter" Then
-            Shifter.Show()
-        ElseIf tileprogram(open) = "Shiftorium" Then
-            Shiftorium.Show()
-        ElseIf tileprogram(open) = "Snakey" Then
-            Snakey.Show()
-        ElseIf tileprogram(open) = "Terminal" Then
-            Terminal.Show()
-        ElseIf tileprogram(open) = "TextPad" Then
-            TextPad.Show()
-        ElseIf tileprogram(open) = "Video Pad" Then
-            Video_Player.Show()
-        ElseIf tileprogram(open) = "VirusScanner" Then
-            VirusScanner.Show()
-        ElseIf tileprogram(open) = "WebBrowser" Then
-            Web_Browser.Show()
-        ElseIf tileprogram(open) = "ShiftNet" Then
-            Shiftnet.Show()
-        End If
-    End Sub
-
-    Dim dtop As Integer
-
-    Private Sub tile_hover(sender As Object, e As EventArgs)
-        Dim tle As PictureBox = DirectCast(sender, PictureBox)
-        If docktopbot = "Bottom" Then
-            Dim open As String = tle.Name
-            tle.Top = tle.Top - 10
-            Try
-                'lblApp.Text = open
-            Catch
-                'lblApp.Text = "Error"
-            End Try
-        End If
-        If docktopbot = "Top" Then
-            dtop = tle.Top
-            Dim open As String = tle.Name
-            tle.Top = tle.Top + 10
-            Try
-                'lblApp.Text = open
-            Catch
-                'lblApp.Text = "Error"
-            End Try
-        End If
-
-    End Sub
-
-    Private Sub tile_leave(sender As Object, e As EventArgs)
-        Dim tle As PictureBox = DirectCast(sender, PictureBox)
-        If docktopbot = "Bottom" Then
-            tle.Top = tle.Top + 10
-            If tle.Top > 54 Then
-                tle.Top = 54
-            End If
-        End If
-        If docktopbot = "Top" Then
-            tle.Top = tle.Top - 10
-            If tle.Top < dtop Then
-                tle.Top = dtop
-            End If
-        End If
-    End Sub
-
-    Private Sub tilesets_click(sender As Object, e As EventArgs)
-        DockSettingsMenu.Show()
-    End Sub
-
-End Class
\ No newline at end of file