~rabbits/orca-toy

cb316b1b095b54d6343f5291ac6daa2ac5fc017f — neauoire 1 year, 7 months ago af233b8
Moved theme path
2 files changed, 6 insertions(+), 4 deletions(-)

M .gitignore
M src/main.tal
M .gitignore => .gitignore +2 -1
@@ 1,3 1,4 @@
bin/
untitled.orca
*snarf
\ No newline at end of file
*snarf
*theme
\ No newline at end of file

M src/main.tal => src/main.tal +4 -3
@@ 290,7 290,7 @@ BRK
	DUP #1b ! ,&no-escape JCN
		RESET-SELECTION 
		RESET-INSERT
		;redraw JSR2 POP BRK 
		;load-theme JSR2 POP BRK 
		&no-escape
	DUP IS-CHAR-KEY #00 = ,&no-key JCN
		.selection LDZ2 .Controller/key DEI SET-CELL


@@ 1421,9 1421,11 @@ RTN

( theme )

@theme-txt ".theme $1

@load-theme ( -- )

	;&path .File/name DEO2 
	;theme-txt .File/name DEO2 
	#0006 .File/length DEO2 
	#fffa .File/load DEO2
	.File/success DEI2 #0006 !! ,&ignore JCN


@@ 1434,7 1436,6 @@ RTN
	;redraw JSR2

RTN
	&path ".theme $1

( snarf )