~rabbits/dexe

ef265a0dfc494abda53f7f21ab7fafea6129ea91 — neauoire 6 days ago 0819262 master
Added themes support
1 files changed, 21 insertions(+), 0 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +21 -0
@@ 137,6 137,8 @@

	;untitled-txt ;new-file JSR2
	MEMORY ;select JSR2
	( theme support )
	;load-theme JSR2

BRK



@@ 913,6 915,25 @@ RTN

RTN

( theme )

@theme-txt ".theme $1

@load-theme ( -- )

	;theme-txt .File/name DEO2 
	#0006 .File/length DEO2 
	#fffa .File/load DEO2

	.File/success DEI2 #0006 !! ,&ignore JCN
		#fffa LDA2 .System/r DEO2
		#fffc LDA2 .System/g DEO2
		#fffe LDA2 .System/b DEO2
		&ignore
	;redraw JSR2

RTN

( generics )

@line-hor ( x0* x1* y* color -- )