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* -- ) @select-from ( addr* -- )
clamp-selection clamp-selection
DUP2 .selection/a STZ2 DUP2 .selection/a STZ2
.selection/b STZ2 .selection/b STZ2
@ -323,14 +322,14 @@ JMP2r
JMP2r JMP2r
@is-selected ( addr* -- f ) @is-selected ( addr* -- addr* f )
DUP2 get-from LTH2 ?&false DUP2 get-from LTH2 ?&false
DUP2 get-to #0001 SUB2 GTH2 ?&false DUP2 get-to #0001 SUB2 GTH2 ?&false
POP2 #01 #01
JMP2r JMP2r
&false POP2 #00 JMP2r &false #00 JMP2r
( (
@|file ) @|file )
@ -339,7 +338,7 @@ JMP2r
;notepad-txt file-size #0000 EQU2 ?file-new ;notepad-txt file-size #0000 EQU2 ?file-new
@file-load ( -- ) ( load file )
;notepad-txt .File/name DEO2 ;notepad-txt .File/name DEO2
#8000 .File/length DEO2 #8000 .File/length DEO2
@ -603,7 +602,7 @@ JMP2r
&while &while
( draw char ) ( draw char )
LDAk char-addr .Screen/addr DEO2 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 .Screen/x DEI2k #0010 SUB2 ROT DEO2
( draw selector ) ( draw selector )
get-from get-to NEQ2 ?&block get-from get-to NEQ2 ?&block