~rabbits/left

74bc1c8d50d56225094fcdc33991ad8dfdfa1c99 — neauoire a month ago ba97908
Fixed issue with clip find
1 files changed, 6 insertions(+), 4 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +6 -4
@@ 416,8 416,10 @@ BRK
			;find JSR2 
			DUP2 #0000 == ,&no-result JCN
				.Controller/button DEI #01 ! ,&no-ctrl-find JCN 
					SELECTION-LENGTH STH2
					;cut-snarf JSR2
					SELECTION-LENGTH --
					STH2kr --
					.selection/from LDZ2 STH2r ++ .selection/to STZ2
					&no-ctrl-find
				DUP2 DUP2 SELECTION-LENGTH ++ ;select-range JSR2
				&no-result


@@ 1118,11 1120,11 @@ RTN
	
	;clear-textarea JSR2
	( erase selection ) .selection/from LDZ2 SELECTION-LENGTH DUP2 #0001 == TOS -- STH2k ++ EOF STH2r ;shiftl JSR2
	( push right ) .selection/from LDZ2 EOF #0008 ;shiftr JSR2
	( push right ) .selection/from LDZ2 EOF SPACE-AVAILABLE STH2k ;shiftr JSR2
	;snarfpath-txt .File/name DEO2 
	#0008 .File/length DEO2 
	STH2kr .File/length DEO2 
	.selection/from LDZ2 .File/load DEO2 
	( pull left ) .selection/from LDZ2 #0008 ++ EOF #0008 .File/success DEI2 -- ;shiftl JSR2
	( pull left ) .selection/from LDZ2 STH2kr ++ EOF STH2r .File/success DEI2 -- ;shiftl JSR2
	( cap ) #00 EOF STA
	.selection/from LDZ2 .File/success DEI2 ++ ;select-addr/no-clear JSR2