mirror of
https://github.com/TheUltimateHacker/shiftos-next.git
synced 2025-01-23 00:42:14 +00:00
ccdbbbed18
Yay! ShiftOS Next can finally be Shifted! Yes, that's true. I've added basic skinning to the Basic Window Manager. Currently, the only way to get to it is by typing "open shifter" in the Terminal, and the Shifter will open. Choose the settings you want and hit Apply! This is also the Alpha 3 commit, so after this I'll make the next release.
53 lines
1.6 KiB
VB.net
53 lines
1.6 KiB
VB.net
Module Skins
|
|
'<summary>
|
|
' This module allows for skinning. Simply that.
|
|
'</summary>
|
|
|
|
#Region "Basic Window Manager"
|
|
Public titlebarcolor As Color = Color.Gray
|
|
Public titlebartextcolor As Color = Color.White
|
|
Public desktopbackcolor As Color = Color.Black
|
|
Public newterminalbuttonbackcolor As Color = Color.Black
|
|
Public newterminalbuttontextcolor As Color = Color.White
|
|
|
|
'Load Skin from Save File
|
|
|
|
Public Sub loadskindata()
|
|
Try
|
|
Dim loadlines() As String = IO.File.ReadAllLines(bwmskin + "data.bsk")
|
|
titlebarcolor = Color.FromArgb(loadlines(0))
|
|
titlebartextcolor = Color.FromArgb(loadlines(1))
|
|
desktopbackcolor = Color.FromArgb(loadlines(2))
|
|
newterminalbuttonbackcolor = Color.FromArgb(loadlines(3))
|
|
newterminalbuttontextcolor = Color.FromArgb(loadlines(4))
|
|
BasicWM.Desktop.Redraw()
|
|
Catch ex As Exception
|
|
saveskindata()
|
|
loadskindata()
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
'Save to save data
|
|
|
|
Public Sub saveskindata()
|
|
Dim savelines(200) As String
|
|
savelines(0) = titlebarcolor.ToArgb
|
|
savelines(1) = titlebartextcolor.ToArgb
|
|
savelines(2) = desktopbackcolor.ToArgb
|
|
savelines(3) = newterminalbuttonbackcolor.ToArgb
|
|
savelines(4) = newterminalbuttontextcolor.ToArgb
|
|
Try
|
|
IO.File.WriteAllLines(bwmskin + "data.bsk", savelines)
|
|
Catch ex As Exception
|
|
IO.Directory.CreateDirectory(bwmskin)
|
|
IO.File.WriteAllLines(bwmskin + "data.bsk", savelines)
|
|
End Try
|
|
BasicWM.Desktop.Redraw()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
End Module
|