Fixed issue with paste

2023-04-28 10:06:07 -07:00 · 2023-04-28 10:06:07 -07:00 · a658ac408e
parent df5930f114
commit a658ac408e
5 changed files with 5 additions and 5 deletions
--- a/gui/notepad/cursor01x02.icn
+++ b/gui/notepad/cursor01x02.icn
--- a/gui/notepad/head08x02.icn
+++ b/gui/notepad/head08x02.icn
--- a/gui/notepad/head09x02.icn
+++ b/gui/notepad/head09x02.icn
--- a/gui/notepad/head0ax02.icn
+++ b/gui/notepad/head0ax02.icn
--- a/gui/notepad/notepad.tal
+++ b/gui/notepad/notepad.tal
@ -391,7 +391,7 @@ JMP2r
 	STH2kr .File/length DEO2
 	( erase when selection length )
 	.selection/length LDZ2 #0000 EQU2 ?&no-selection
-		erase-selection
+		get-from get-eof .selection/length LDZ2 msfl
 		&no-selection
 	( push right ) get-from #0001 SUB2
 		get-eof STH2kr msfr
@ -406,8 +406,9 @@ JMP2r

 	edit-copy
 	erase-selection
+	select-reset

-!select-reset
+!file-save

@edit-copy ( -- )

@ -421,10 +422,9 @@ JMP2r

@edit-paste ( -- )

-	;snarf-txt
-
-!file-inject
+	;snarf-txt file-inject

+!file-save
 	@snarf-txt ".snarf $1

 (