From 95345d5941257c584e2000a2f783e4e8bbdff864 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Wed, 26 Apr 2023 14:17:41 -0700 Subject: [PATCH] (notepad) Block erasing --- gui/notepad/notepad.tal | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gui/notepad/notepad.tal b/gui/notepad/notepad.tal index b08fbb6..c1bc320 100644 --- a/gui/notepad/notepad.tal +++ b/gui/notepad/notepad.tal @@ -180,14 +180,13 @@ BRK @erase ( -- ) - .selection/length LDZ2 #0000 EQU2 ?&no-block + .selection/length LDZ2 #0001 LTH2 ?&no-block erase-selection !reset-selection &no-block .selection/from LDZ2 ;mem NEQ2 [ JMP JMP2r ] - .selection/from LDZ2 #0001 SUB2 DUP2 cut-char @@ -320,6 +319,7 @@ JMP2r @select-to ( addr* -- ) .selection/to STZ2 + .selection/to LDZ2 .selection/from LDZ2 SUB2 .selection/length STZ2 redraw JMP2r