Merge pull request #21 from pcnerd97/master

ShiftDock

1 files changed, 89 insertions, 0 deletions

diff --git a/ShiftOS/DockEngine.vb b/ShiftOS/DockEngine.vb
new file mode 100644
index 0000000..5c8721e
--- /dev/null
+++ b/ShiftOS/DockEngine.vb
@@ -0,0 +1,89 @@
+Public Class DockEngine
+
+    Public docktop As Integer
+    Public topbottom As String
+
+    Dim allLines As List(Of String) = New List(Of String)
+    Public Function ReadLine(lineNumber As Integer, lines As List(Of String)) As String
+        Return lines(lineNumber - 1)
+    End Function
+
+    Public Sub readFile(ByVal file As String)
+
+        If My.Computer.FileSystem.FileExists(file) Then
+
+            allLines.Clear()
+
+            Dim reader As New System.IO.StreamReader(file)
+            Do While Not reader.EndOfStream
+                allLines.Add(reader.ReadLine())
+            Loop
+            reader.Close()
+
+            For Each item As String In allLines
+                Dim tileinfo() As String
+                tileinfo = item.Split("#")
+                DockWindow.createtile(tileinfo(0), tileinfo(1))
+
+            Next
+        Else
+            Dim filepath As String = file
+            If Not System.IO.File.Exists(filepath) Then
+                If Not My.Computer.FileSystem.DirectoryExists(Application.StartupPath + "\SoftwareData\ShiftDock") Then
+                    My.Computer.FileSystem.CreateDirectory(Application.StartupPath + "\SoftwareData\ShiftDock")
+                End If
+                System.IO.File.Create(filepath).Dispose()
+            End If
+        End If
+
+    End Sub
+
+    Public Sub readConfFile(ByVal file As String)
+
+        If My.Computer.FileSystem.FileExists(file) Then
+
+            allLines.Clear()
+
+            Dim reader As New System.IO.StreamReader(file)
+            Do While Not reader.EndOfStream
+                allLines.Add(reader.ReadLine())
+            Loop
+            reader.Close()
+
+
+            docktop = allLines(0)
+            topbottom = allLines(1)
+
+            DockWindow.Top = docktop
+
+        Else
+            Dim filepath As String = file
+            If Not System.IO.File.Exists(filepath) Then
+                System.IO.File.Create(filepath).Dispose()
+            End If
+        End If
+
+
+    End Sub
+
+    Public Sub writeFile(ByVal path As String, color As String)
+        Dim file As System.IO.StreamWriter
+        file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\tiles.dat", True)
+        file.WriteLine(path + "#" + color)
+        file.Close()
+    End Sub
+
+    Public Sub writeConfFile(ByVal top As String, updown As String)
+        My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat")
+        Dim filepath As String = Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat"
+        If Not System.IO.File.Exists(filepath) Then
+            System.IO.File.Create(filepath).Dispose()
+        End If
+        Dim file As System.IO.StreamWriter
+        file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat", True)
+        file.WriteLine(top)
+        file.WriteLine(updown)
+        file.Close()
+    End Sub
+
+End Class