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 21:02:02 -07:00
parent a658ac408e
commit b4824facec
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gui/notepad/notepad.tal
View File

@ -238,7 +238,6 @@ BRK
@select-from ( addr* -- )
clamp-selection
DUP2 .selection/a STZ2
.selection/b STZ2
@ -323,14 +322,14 @@ JMP2r
JMP2r
@is-selected ( addr* -- f )
@is-selected ( addr* -- addr* f )
DUP2 get-from LTH2 ?&false
DUP2 get-to #0001 SUB2 GTH2 ?&false
POP2 #01
#01
JMP2r
&false POP2 #00 JMP2r
&false #00 JMP2r
(
@|file )
@ -339,7 +338,7 @@ JMP2r
;notepad-txt file-size #0000 EQU2 ?file-new
@file-load ( -- )
( load file )
;notepad-txt .File/name DEO2
#8000 .File/length DEO2
@ -603,7 +602,7 @@ JMP2r
&while
( draw char )
LDAk char-addr .Screen/addr DEO2
DUP2 is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO
is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO
.Screen/x DEI2k #0010 SUB2 ROT DEO2
( draw selector )
get-from get-to NEQ2 ?&block