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

Print to console with ctrl+p

This commit is contained in:
Devine Lu Linvega 2024-05-29 08:08:40 -07:00
parent 12e156ebec
commit 3dc4405c8b
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gui/notepad/src/notepad.tal
View File

@ -1,6 +1,7 @@
( A port of the macintosh classic notepad ) ( A port of the macintosh classic notepad )
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2 |00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|80 @Controller &vector $2 &button $1 &key $1 |80 @Controller &vector $2 &button $1 &key $1
|90 @Mouse &vector $2 &x $1 &lx $1 &y $1 &ly $1 &state $1 &chord $1 |90 @Mouse &vector $2 &x $1 &lx $1 &y $1 &ly $1 &state $1 &chord $1
@ -36,7 +37,7 @@
( name ) "Note 20 "Pad 0a ( name ) "Note 20 "Pad 0a
( details ) "Original 20 "by 20 "Donn 20 "Denman 0a ( details ) "Original 20 "by 20 "Donn 20 "Denman 0a
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a ( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "May 20 "28, 20 "2024 00 01 ( date ) "May 20 "29, 20 "2024 00 01
( icon ) 83 =appicon ( icon ) 83 =appicon
( (
@ -50,6 +51,7 @@
DUP2 [ LIT2 "x 01 ] NEQ2 ?{ POP2 edit-cut BRK } DUP2 [ LIT2 "x 01 ] NEQ2 ?{ POP2 edit-cut BRK }
DUP2 [ LIT2 "c 01 ] NEQ2 ?{ POP2 edit-copy BRK } DUP2 [ LIT2 "c 01 ] NEQ2 ?{ POP2 edit-copy BRK }
DUP2 [ LIT2 "v 01 ] NEQ2 ?{ POP2 edit-paste BRK } DUP2 [ LIT2 "v 01 ] NEQ2 ?{ POP2 edit-paste BRK }
DUP2 [ LIT2 "p 01 ] NEQ2 ?{ POP2 edit-print BRK }
( | mask shift key ) ( | mask shift key )
#fb AND #fb AND
( | arrows ) ( | arrows )
@ -296,6 +298,14 @@
@edit-paste ( -- ) @edit-paste ( -- )
;snarf-path file-inject !file-save ;snarf-path file-inject !file-save
@edit-print ( -- )
get-to get-from
&>l ( -- )
LDAk .Console/write DEO
INC2 GTH2k ?&>l
POP2 POP2 [ LIT2 0a -Console/write ] DEO
JMP2r
( (
@|core ) @|core )