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

(notepad) Housekeeping

This commit is contained in:
Devine Lu Linvega 2023-04-28 09:47:57 -07:00
parent 154ba044ff
commit df5930f114
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
gui/notepad/notepad.tal
View File

@ -111,7 +111,7 @@ BRK
trap-mouse trap-mouse
[ LIT &last $1 ] .Mouse/state DEI [ LIT &last $1 ] .Mouse/state DEI
DUP2 #0002 NEQ2 ?&no-mouse2 DUP #02 LTH ?&no-mouse2
get-position select-word get-position select-word
&no-mouse2 &no-mouse2
DUP2 #0001 NEQ2 ?&no-down DUP2 #0001 NEQ2 ?&no-down
@ -237,8 +237,7 @@ BRK
@select-from ( addr* -- ) @select-from ( addr* -- )
( min ) get-page GTH2k [ JMP SWP2 POP2 ] clamp-selection
( max ) get-eof #0001 SUB2 LTH2k [ JMP SWP2 POP2 ]
DUP2 .selection/a STZ2 DUP2 .selection/a STZ2
.selection/b STZ2 .selection/b STZ2
@ -247,8 +246,7 @@ BRK
@select-to ( addr* -- ) @select-to ( addr* -- )
( min ) get-page GTH2k [ JMP SWP2 POP2 ] clamp-selection
( max ) get-eof #0001 SUB2 LTH2k [ JMP SWP2 POP2 ]
.selection/b STZ2 .selection/b STZ2
!select !select
@ -308,19 +306,22 @@ JMP2r
@get-from ( -- addr* ) @get-from ( -- addr* )
.selection/a LDZ2 .selection/b LDZ2 GTH2 ?&rev .selection/b LDZ2 .selection/a LDZ2 LTH2k [ JMP SWP2 POP2 ]
.selection/a LDZ2
JMP2r JMP2r
&rev .selection/b LDZ2 JMP2r
@get-to ( -- addr* ) @get-to ( -- addr* )
.selection/a LDZ2 .selection/b LDZ2 GTH2 ?&rev .selection/a LDZ2 .selection/b LDZ2 GTH2k [ JMP SWP2 POP2 ]
.selection/b LDZ2
JMP2r
@clamp-selection ( addr* -- addr* )
( min ) get-page GTH2k [ JMP SWP2 POP2 ]
( max ) get-eof #0001 SUB2 LTH2k [ JMP SWP2 POP2 ]
JMP2r JMP2r
&rev .selection/a LDZ2 JMP2r
@is-selected ( addr* -- f ) @is-selected ( addr* -- f )
@ -673,6 +674,9 @@ JMP2r
JMP2r JMP2r
(
@|stdlib )
@load-theme ( -- ) @load-theme ( -- )
;&path .File/name DEO2 ;&path .File/name DEO2
@ -688,9 +692,6 @@ JMP2r
JMP2r JMP2r
&path ".theme $1 &path ".theme $1
(
@|stdlib )
@msfl ( b* a* len* -- ) STH2 SWP2 EQU2k ?&e &l DUP2k STH2kr ADD2 LDA ROT ROT STA INC2 GTH2k ?&l POP2 POP2 &e POP2r JMP2r @msfl ( b* a* len* -- ) STH2 SWP2 EQU2k ?&e &l DUP2k STH2kr ADD2 LDA ROT ROT STA INC2 GTH2k ?&l POP2 POP2 &e POP2r JMP2r
@msfr ( b* a* len* -- ) STH2 EQU2k ?&e &l DUP2 LDAk ROT ROT STH2kr ADD2 STA #0001 SUB2 LTH2k ?&l POP2 POP2 &e POP2r JMP2r @msfr ( b* a* len* -- ) STH2 EQU2k ?&e &l DUP2 LDAk ROT ROT STH2kr ADD2 STA #0001 SUB2 LTH2k ?&l POP2 POP2 &e POP2r JMP2r
@scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r @scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r