diff --git a/src/manifest.tal b/src/manifest.tal index bd376df..44bf90c 100644 --- a/src/manifest.tal +++ b/src/manifest.tal @@ -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 + +JMP2r + &path ".theme $1 + @buttons-icns 387c fefe fe7c 3800 3844 8282 8244 3800 diff --git a/src/nasu.tal b/src/nasu.tal index 68826dc..5274c72 100644 --- a/src/nasu.tal +++ b/src/nasu.tal @@ -1091,24 +1091,6 @@ 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 - -JMP2r - &path ".theme $1 - @save-theme ( -- ) .System/r DEI2 #fffa STA2