~rabbits/left

00804dd545b05e9377cacd8cd004a47d6772aee0 — neauoire 4 months ago 79999ff
Fixed drawing bug
1 files changed, 5 insertions(+), 1 deletions(-)

M src/left.tal
M src/left.tal => src/left.tal +5 -1
@@ 815,10 815,11 @@ JMP2
	#0020 .Screen/y DEO2
	.selection/from LDZ2 ;get-current-marker JSR2
		;get-marker JSR2 ;walk-color/scope STA2
	.scroll/y LDZ2 .textarea/lines LDZ2 ADD2 ;line-to-addr JSR2 .scroll/addr LDZ2
	;get-eof JSR2 INC2 .scroll/addr LDZ2
	&loop
		,draw-token JSR
		.Screen/y DEI2 .Screen/height DEI2 GTH2 ,&end JCN
		LDAk #00 EQU ,&end JCN
		GTH2k ,&loop JCN
	&end
	POP2 POP2


@@ 831,14 832,17 @@ JMP2
	;walk-color JSR2 STH
	;walk-ul JSR2 ;draw-ufx/ul STA
	&w
		LDAk #00 EQU ,&end JCN
		,&is-selected JSR STH
		LDAk STH2kr #0d ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr
		INC2 LDAk #20 GTH ,&w JCN
	#00 ;draw-ufx/ul STA
	&w2
		LDAk #00 EQU ,&end JCN
		,&is-selected JSR STH
		LDAk STH2kr #0d ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr
		INC2 LDAk #21 LTH ,&w2 JCN
	&end
	POPr

JMP2r