diff --git a/gui/notepad/cursor01x02.icn b/gui/notepad/cursor01x02.icn deleted file mode 100644 index 7320d70..0000000 Binary files a/gui/notepad/cursor01x02.icn and /dev/null differ diff --git a/gui/notepad/head08x02.icn b/gui/notepad/head08x02.icn deleted file mode 100644 index 85b9314..0000000 Binary files a/gui/notepad/head08x02.icn and /dev/null differ diff --git a/gui/notepad/head09x02.icn b/gui/notepad/head09x02.icn deleted file mode 100644 index 0ffb829..0000000 Binary files a/gui/notepad/head09x02.icn and /dev/null differ diff --git a/gui/notepad/head0ax02.icn b/gui/notepad/head0ax02.icn deleted file mode 100644 index 62cd1b2..0000000 Binary files a/gui/notepad/head0ax02.icn and /dev/null differ diff --git a/gui/notepad/notepad.tal b/gui/notepad/notepad.tal index b063868..1b4904a 100644 --- 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 (