@ -370,6 +370,24 @@ JMP2r
JMP2r
( theme )
@load-theme ( -- )
;&path .File/name DEO2
#0002 .File/length DEO2
;&r .File/load DEO2
;&g .File/load DEO2
;&b .File/load DEO2
.File/success DEI2 AND ,&skip JCN
LIT2 &r $2 .System/r DEO2
LIT2 &g $2 .System/g DEO2
LIT2 &b $2 .System/b DEO2
&skip
&path ".theme $1
@buttons-icns
387c fefe fe7c 3800
3844 8282 8244 3800
@ -1091,24 +1091,6 @@ JMP2r
@save-theme ( -- )
.System/r DEI2 #fffa STA2