diff options
| author | TheUltimateHacker <[email protected]> | 2015-05-29 12:39:04 -0400 |
|---|---|---|
| committer | TheUltimateHacker <[email protected]> | 2015-05-29 12:39:04 -0400 |
| commit | 2bed5c22ff991077bdd1aadd20275c17c1218211 (patch) | |
| tree | 839432ae446669c039974e159e2b2a28a72c3701 /shiftos_next/APIs | |
| parent | ccdbbbed1898c5073dc460a737cdd4b7c7036bb5 (diff) | |
| download | shiftos-next-2bed5c22ff991077bdd1aadd20275c17c1218211.tar.gz shiftos-next-2bed5c22ff991077bdd1aadd20275c17c1218211.tar.bz2 shiftos-next-2bed5c22ff991077bdd1aadd20275c17c1218211.zip | |
Skin Loader for BWM added
Next skinning upgrade has been added, which is the Skin Loader that
allows you to save and load skins.
Diffstat (limited to 'shiftos_next/APIs')
| -rw-r--r-- | shiftos_next/APIs/Skins.vb | 17 |
1 files changed, 17 insertions, 0 deletions
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 |