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 ( -- ) @erase ( -- )
.selection/length LDZ2 #0000 EQU2 ?&no-block .selection/length LDZ2 #0001 LTH2 ?&no-block
erase-selection erase-selection
!reset-selection !reset-selection
&no-block &no-block
.selection/from LDZ2 ;mem NEQ2 [ JMP JMP2r ] .selection/from LDZ2 ;mem NEQ2 [ JMP JMP2r ]
.selection/from LDZ2 #0001 SUB2 .selection/from LDZ2 #0001 SUB2
DUP2 cut-char DUP2 cut-char
@ -320,6 +319,7 @@ JMP2r
@select-to ( addr* -- ) @select-to ( addr* -- )
.selection/to STZ2 .selection/to STZ2
.selection/to LDZ2 .selection/from LDZ2 SUB2 .selection/length STZ2
redraw redraw
JMP2r JMP2r