~rabbits/orca-toy

e35ef8575463e41ced9d55d356eddc97d34d29a4 — Devine Lu Linvega 8 months ago 210754a
Improved theme support
2 files changed, 17 insertions(+), 17 deletions(-)

M src/manifest.tal
M src/orca.tal
M src/manifest.tal => src/manifest.tal +17 -0
@@ 359,6 359,23 @@ JMP2r

JMP2r

( theme )

@load-theme ( -- )

	;&path .File/name DEO2
	#0002 .File/length DEO2
	;&r .File/read DEO2
	;&g .File/read DEO2
	;&b .File/read DEO2
	.File/success DEI2 ORA #01 JCN JMP2r
	LIT2 &r $2 .System/r DEO2
	LIT2 &g $2 .System/g DEO2
	LIT2 &b $2 .System/b DEO2

JMP2r
	&path ".theme $1

@buttons-icns

	0000 0000 387c fefe fe7c 3800 0000 0000

M src/orca.tal => src/orca.tal +0 -17
@@ 951,23 951,6 @@ JMP2r

JMP2r

( theme )

@theme-txt ".theme $1

@load-theme ( -- )

	;theme-txt .File/name DEO2
	#0006 .File/length DEO2
	#fffa .File/read DEO2
	.File/success DEI2 #0006 NEQ2 ,&ignore JCN
		#fffa LDA2 .System/r DEO2
		#fffc LDA2 .System/g DEO2
		#fffe LDA2 .System/b DEO2
		&ignore

JMP2r

( snarf )

@snarf-txt ".snarf $1