diff options
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 |