d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(notepad) Block erasing

This commit is contained in:
Devine Lu Linvega 2023-04-26 14:17:41 -07:00
parent 5d1ec16e79
commit 95345d5941
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui/notepad/notepad.tal
View File

@ -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