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

(notepad) prev/next button handling

This commit is contained in:
Devine Lu Linvega 2023-04-26 09:07:09 -07:00
parent beb280ddb1
commit 69e3760ce5
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gui/notepad/notepad.tal
View File

@ -8,8 +8,8 @@
|0100
( theme )
#f00f .System/r DEO2
#f00f .System/g DEO2
#f0f0 .System/r DEO2
#f000 .System/g DEO2
#f00f .System/b DEO2
( size )
#00e0 .Screen/width DEO2
@ -61,12 +61,17 @@ BRK
trap-mouse
.Mouse/state DEI ?&on-mouse-down
.Mouse/state DEI #00 NEQ .Mouse/x DEI2 #0018 LTH2 AND ?&on-mouse-down
BRK
&on-mouse-down ( -> )
.Mouse/y DEI2 #00d6 SUB2 NIP
#18 .Mouse/x DEI2 NIP SUB
ADD #18 LTH ?&go-next prev-page BRK
&go-next next-page
BRK
(
@ -86,6 +91,18 @@ BRK
JMP2r
@prev-page ( -- )
#ff phex/b #0a18 DEO
JMP2r
@next-page ( -- )
#01 phex/b #0a18 DEO
JMP2r
@update-cursor ( color addr* -- )
[ LIT2 15 -Screen/auto ] DEO