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

Toggle button on press

This commit is contained in:
Devine Lu Linvega 2024-02-11 12:04:45 -08:00
parent a82d393406
commit c13389a1e1
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gui/shaviankb/shaviankb.tal
View File

@ -49,9 +49,15 @@
BRK BRK
@on-control ( -> ) @on-control ( -> )
( | release )
.Controller/button DEI2 ORA ?{
#00 .layer STZ
<draw-keyboard>
[ LIT2 00 -lock ] STZ
BRK }
( | toggle layer )
.Controller/button DEI DUP ?&on-button .Controller/button DEI DUP ?&on-button
POP <draw-keyboard> POP .Controller/key DEI tolowercase
.Controller/key DEI tolowercase
( | top row ) ( | top row )
DUP [ LIT "q ] NEQ ?{ #0000 <set-press> } DUP [ LIT "q ] NEQ ?{ #0000 <set-press> }
DUP [ LIT "w ] NEQ ?{ #0001 <set-press> } DUP [ LIT "w ] NEQ ?{ #0001 <set-press> }
@ -82,6 +88,7 @@
POP BRK POP BRK
&on-button ( button -> ) &on-button ( button -> )
#02 SFT #01 AND .layer STZ #02 SFT #01 AND .layer STZ
<draw-keyboard>
BRK BRK
( (
@ -98,6 +105,7 @@
DUP #1b NEQ ?{ POP2 !<toggle-layer> } DUP #1b NEQ ?{ POP2 !<toggle-layer> }
.hover LDZ2 ;btn-chr <draw-key-id> .hover LDZ2 ;btn-chr <draw-key-id>
DUP2 ;btn-press-chr <draw-key-id> DUP2 ;btn-press-chr <draw-key-id>
DUP2 .hover STZ2
( | event ) ( | event )
( key ) #0006 MUL2 ;layout ADD2 ( key ) #0006 MUL2 ;layout ADD2
( layer ) get-layer #10 SFT2 ADD2 LDA2 ( layer ) get-layer #10 SFT2 ADD2 LDA2