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

Fixed issue with delete

This commit is contained in:
Devine Lu Linvega 2024-05-28 18:47:29 -07:00
parent 6d1037a3cd
commit 12d8d058a9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -70,8 +70,7 @@
DUP #08 NEQ ?{ erase }
DUP #7f NEQ ?{ delete }
DUP #09 LTH ?{ DUP insert }
POP #00 ;on-frame/f STA
BRK
POP BRK
@on-mouse-head ( -> )
[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;mouse-icn <update-cursor>
@ -123,6 +122,8 @@
@|editor )
@insert ( char -- )
DUP #7f LTH ?{ POP JMP2r }
#00 ;on-frame/f STA
get-from scap/ get-page #1000 ADD2 LTH2 ?{ POP JMP2r }
( | convert linebreaks )
DUP #0d EQU #03 MUL SUB .selection/length LDZ2 #0000 EQU2 ?{ erase-selection }
@ -132,6 +133,7 @@
!file-save
@erase ( -- )
#00 ;on-frame/f STA
.selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
get-from get-page NEQ2 [ JMP JMP2r ] get-from #0001 SUB2 DUP2 cut-char <select-from>
!file-save
@ -141,6 +143,7 @@
!file-save
@delete ( -- )
#00 ;on-frame/f STA
get-eof get-from SUB2 ORA #01 [ JCN JMP2r ] .selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
get-from cut-char <redraw>
!file-save