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

Optimized delete

This commit is contained in:
Devine Lu Linvega 2024-05-30 09:22:57 -07:00
parent 18f339995e
commit dd4775eb64
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gui/notepad/src/notepad.tal
View File

@ -182,10 +182,11 @@
@delete ( -- )
#00 ;on-frame/f STA
get-eof get-from INC2 NEQ2 ?{ JMP2r }
.selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
get-from cut-char <redraw>
!file-save
.selection/length LDZ2 ORA ?{
get-from INC2k get-eof NEQ2 ?{ POP2 JMP2r }
cut-char <redraw>
!file-save }
erase-selection !<select-reset>
@get-eof ( -- addr* )
get-page !scap/