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

Fixed overflow issue with delete

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

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

@ -38,7 +38,7 @@
( name ) "Note 20 "Pad 0a ( name ) "Note 20 "Pad 0a
( details ) "Original 20 "by 20 "Donn 20 "Denman 0a ( details ) "Original 20 "by 20 "Donn 20 "Denman 0a
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a ( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "May 20 "29, 20 "2024 00 01 ( date ) "May 20 "30, 20 "2024 00 01
( icon ) 83 =appicon ( icon ) 83 =appicon
( (
@ -182,7 +182,8 @@
@delete ( -- ) @delete ( -- )
#00 ;on-frame/f STA #00 ;on-frame/f STA
get-eof get-from SUB2 ORA #01 [ JCN JMP2r ] .selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> } get-eof get-from INC2 NEQ2 ?{ JMP2r }
.selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
get-from cut-char <redraw> get-from cut-char <redraw>
!file-save !file-save
@ -605,7 +606,6 @@
.Screen/y DEI2k #0008 ADD2 ROT DEO2 .Screen/y DEI2k #0008 ADD2 ROT DEO2
INC GTHk ?&>h INC GTHk ?&>h
POP2 JMP2r POP2 JMP2r
&patt [ aa55 aa55 aa55 aa55 ]
@<draw-footer> ( -- ) @<draw-footer> ( -- )
[ LIT2 00 -collapsed ] LDZ EQU ?{ JMP2r } [ LIT2 00 -collapsed ] LDZ EQU ?{ JMP2r }