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

(notepad) Catch non-ascii

This commit is contained in:
Devine Lu Linvega 2023-04-27 08:52:51 -07:00
parent d308a85c89
commit 2b0f747b02
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gui/notepad/notepad.tal
View File

@ -8,9 +8,9 @@
( TODOs:
> Show blinker on last character
> Mouse2 select word
> Select last character in file
> Always select end of note on change
> Up and down arrows
> Display non ascii character as blocks )
> Up and down arrows )
|0000
@ -418,17 +418,21 @@ JMP2r
JMP2r
@get-glyph ( char -- addr* )
@char-addr ( char -- addr* )
DUP #7e GTH ?&missing
#20 SUB #00 SWP #50 SFT2 ;font/glyphs ADD2
JMP2r
&missing POP ;error-icn JMP2r
@char-width ( char -- width* )
DUP #7e GTH ?&missing
#20 SUB #00 SWP ;font ADD2 LDA #00 SWP
JMP2r
&missing POP #0008 JMP2r
@word-width ( str* -- length* )
@ -500,7 +504,7 @@ JMP2r
get-page
&while
( draw char )
LDAk get-glyph .Screen/addr DEO2
LDAk char-addr .Screen/addr DEO2
DUP2 is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO
.Screen/x DEI2k #0010 SUB2 ROT DEO2
( draw selector )
@ -600,6 +604,8 @@ JMP2r
(
@|assets )
@error-icn [
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ]
@blink-icn [
8080 8080 8080 8080 8080 8080 8080 8080 ]
@caret-icn [
@ -783,7 +789,7 @@ JMP2r
"Click 20 "in 20 "the 20 "lower 20 "left 20 "corner 20 "to 20 "turn 20 "to 20 "the 20 "next 20 "previous 20 "page.
$1 &end
|a000 "The 20 "other 20 "page.
|a000 "An 20 "unknown 20 "character: 20 f8 0a 09 "> 20 "Tabbed. 0a 09 "> 20 "Tabbed. $1
|c000 "The 20 "third 20 "page.