~rabbits/left

0c3b3789264a792c78d5be905584d84dc5853bf6 — neauoire 2 months ago def6d1b
Fixed issue with copy/cut
2 files changed, 13 insertions(+), 5 deletions(-)

M src/assets.tal
M src/main.tal
M src/assets.tal => src/assets.tal +2 -2
@@ 15,7 15,7 @@
	aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55

@font-data-regular 
	0000 0100 0100 0000 0010 0000 0001 0000
	0808 0100 0100 0000 0010 0000 0001 0000
	0808 0808 0808 0808 0808 0808 0808 0808
	0404 050a 070a 0903 0505 0707 0405 0406
	0808 0808 0808 0808 0808 0404 0708 0706


@@ 225,7 225,7 @@
	0000 0000 0000 0000 0000 0000 0000 0000

@font-data-bold
	0000 0100 0100 0000 0010 0000 0001 0000
	0808 0100 0100 0000 0010 0000 0001 0000
	0808 0808 0808 0808 0808 0808 0808 0808
	0405 070b 070e 0a04 0606 0707 0505 0507
	0808 0808 0807 0808 0808 0505 0707 0707

M src/main.tal => src/main.tal +11 -3
@@ 1075,20 1075,28 @@ RTN
( snarf )

@cut-snarf ( -- )
	
	SELECTION-LENGTH STH2k #0001 >> ,&continue JCN
		POP2r RTN
		&continue

	;clear-textarea JSR2
	,copy-snarf JSR
	SELECTION-LENGTH ;shift-left JSR2
	STH2r ;shift-left JSR2
	RESET-SELECTION
	;draw-textarea JSR2

RTN

@copy-snarf ( -- )
	
	SELECTION-LENGTH STH2k #0001 >> ,&continue JCN
		POP2r RTN
		&continue

	;snarfpath-txt .File/name DEO2 
	.selection/to LDZ2 .selection/from LDZ2 STH2k -- .File/length DEO2 
	STH2r .File/save DEO2
	STH2r .File/length DEO2 
	.selection/from LDZ2 .File/save DEO2

RTN