From 2bed5c22ff991077bdd1aadd20275c17c1218211 Mon Sep 17 00:00:00 2001
From: TheUltimateHacker <tultimateh@gmail.com>
Date: Fri, 29 May 2015 12:39:04 -0400
Subject: Skin Loader for BWM added

Next skinning upgrade has been added, which is the Skin Loader that
allows you to save and load skins.
---
 shiftos_next/APIs/Skins.vb | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'shiftos_next/APIs')

diff --git a/shiftos_next/APIs/Skins.vb b/shiftos_next/APIs/Skins.vb
index 7b87a5c..b381690 100644
--- a/shiftos_next/APIs/Skins.vb
+++ b/shiftos_next/APIs/Skins.vb
@@ -47,6 +47,23 @@
         BasicWM.Desktop.Redraw()
     End Sub
 
+    'Copy skin file to save data
+
+    Public Sub loadskin(file As String)
+        If IO.Directory.Exists(bwmskin) Then
+            IO.Directory.Delete(bwmskin, True)
+            IO.Directory.CreateDirectory(bwmskin)
+            IO.File.Copy(file, bwmskin + "data.bsk")
+            loadskindata()
+        End If
+    End Sub
+
+    'Copy skin from save data to file
+
+    Public Sub saveskin(file As String)
+        Dim savelines() As String = IO.File.ReadAllLines(bwmskin + "data.bsk")
+        IO.File.WriteAllLines(file, savelines)
+    End Sub
 #End Region
 
 
-- 
cgit v1.2.3