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

(notepad) Fixed issue with paste

This commit is contained in:
Devine Lu Linvega 2023-04-27 11:25:05 -07:00
parent daa7956831
commit 8e68ba904a
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
gui/notepad/notepad.tal
View File

@ -5,7 +5,8 @@
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
( TODOs: ( TODOs:
> Up and down arrows ) > Up and down arrows
> Negative length selection )
|0000 |0000
@ -28,7 +29,7 @@
;on-mouse-body .Mouse/vector DEO2 ;on-mouse-body .Mouse/vector DEO2
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
;on-control .Controller/vector DEO2 ;on-control .Controller/vector DEO2
( let's go! )
file-init file-init
draw-header draw-header
#00 change-page #00 change-page
@ -120,9 +121,6 @@ BRK
DUP2 #0101 NEQ2 ?&no-drag DUP2 #0101 NEQ2 ?&no-drag
get-position select-to get-position select-to
&no-drag &no-drag
DUP2 #0100 NEQ2 ?&no-up
( nothing )
&no-up
,&last STR POP ,&last STR POP
BRK BRK
@ -144,15 +142,15 @@ BRK
.Mouse/y DEI2 #00d6 SUB2 NIP .Mouse/y DEI2 #00d6 SUB2 NIP
#18 .Mouse/x DEI2 NIP SUB #18 .Mouse/x DEI2 NIP SUB
ADD #18 LTH ?&go-next ADD #18 LTH ?&go-next
prev-page prev-page BRK
BRK &go-next
&go-next next-page next-page
BRK BRK
@on-frame ( -> ) @on-frame ( -> )
[ LIT &last $1 ] [ LIT &f $1 ] INCk ,&f STR [ LIT2 &last $1 &f $1 ] INCk ,&f STR
#05 SFT DUP ,&last STR #05 SFT DUP ,&last STR
EQU ?&unchanged EQU ?&unchanged
draw-note draw-note
@ -165,14 +163,15 @@ BRK
@insert ( char -- ) @insert ( char -- )
( move ) #fff0 get-eof SUB2 ORA ?&valid ( space ok )
#fff0 get-eof SUB2 ORA ?&valid
POP JMP2r POP JMP2r
&valid &valid
( convert linebreaks ) ( convert linebreaks )
DUP #0d EQU #03 MUL SUB DUP #0d EQU #03 MUL SUB
.selection/length LDZ2 #0001 EQU2 ?&no-block .selection/length LDZ2 #0000 EQU2 ?&no-block
erase-selection erase-selection
&no-block &no-block
@ -184,7 +183,7 @@ BRK
@erase ( -- ) @erase ( -- )
.selection/length LDZ2 #0001 LTH2 ?&no-block .selection/length LDZ2 #0000 EQU2 ?&no-block
erase-selection erase-selection
!select-reset !select-reset
&no-block &no-block
@ -207,7 +206,7 @@ BRK
get-eof .selection/from LDZ2 SUB2 ORA #01 [ JCN JMP2r ] get-eof .selection/from LDZ2 SUB2 ORA #01 [ JCN JMP2r ]
.selection/length LDZ2 #0001 EQU2 ?&no-block .selection/length LDZ2 #0000 EQU2 ?&no-block
erase-selection erase-selection
!select-reset !select-reset
&no-block &no-block
@ -376,7 +375,7 @@ JMP2r
.File/name DEO2 .File/name DEO2
STH2kr .File/length DEO2 STH2kr .File/length DEO2
( erase when selection length ) ( erase when selection length )
.selection/length LDZ2 #0001 EQU2 ?&no-selection .selection/length LDZ2 #0000 EQU2 ?&no-selection
erase-selection erase-selection
&no-selection &no-selection
( push right ) .selection/from LDZ2 #0001 SUB2 ( push right ) .selection/from LDZ2 #0001 SUB2