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

Added theme support

This commit is contained in:
Devine Lu Linvega 2023-04-26 21:06:23 -07:00
parent 5486e6d031
commit eed2d139a3
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gui/notepad/notepad.tal
View File

@ -10,8 +10,7 @@
> Copy/Paste > Copy/Paste
> Clamp selection > Clamp selection
> Mouse2 select word > Mouse2 select word
> Page memory mapping > Page memory mapping )
> Theme support )
|0000 |0000
@ -25,6 +24,7 @@
#f00f .System/r DEO2 #f00f .System/r DEO2
#f00f .System/g DEO2 #f00f .System/g DEO2
#f00f .System/b DEO2 #f00f .System/b DEO2
load-theme
( size ) ( size )
#00e0 .Screen/width DEO2 #00e0 .Screen/width DEO2
#00f8 .Screen/height DEO2 #00f8 .Screen/height DEO2
@ -33,11 +33,9 @@
;on-mouse-body .Mouse/vector DEO2 ;on-mouse-body .Mouse/vector DEO2
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
;on-control .Controller/vector DEO2 ;on-control .Controller/vector DEO2
( init )
;mem/end ;mem SUB2 .textarea/length STZ2 ;mem/end ;mem SUB2 .textarea/length STZ2
;mem select-from ;mem select-from
draw-header draw-header
draw-note draw-note
@ -494,6 +492,22 @@ JMP2r
JMP2r JMP2r
@load-theme ( -- )
;&path .File/name DEO2
#0002 .File/length DEO2
;&r .File/read DEO2
;&g .File/read DEO2
;&b .File/read DEO2
.File/success DEI2 ORA [ #01 JCN JMP2r ]
LIT2 &r $2 .System/r DEO2
LIT2 &g $2 .System/g DEO2
LIT2 &b $2 .System/b DEO2
JMP2r
&path ".theme $1
( (
@|stdlib ) @|stdlib )