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

Play bell

This commit is contained in:
Devine Lu Linvega 2024-07-24 15:42:07 -07:00
parent 5a514844ff
commit cab3279ddd
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui/teatime/teatime.tal
View File

@ -39,7 +39,8 @@
[ LIT2 40 &f $1 ] INCk ,&f STR [ LIT2 40 &f $1 ] INCk ,&f STR
NEQ ?{ NEQ ?{
[ LIT2 00 _&f ] STR [ LIT2 00 _&f ] STR
DUP2 #0001 SUB2 <set-seconds> } #0001 SUB2 DUP2 <set-seconds>
ORAk ?{ <ring> } }
POP2 BRK POP2 BRK
@on-mouse ( -> ) @on-mouse ( -> )
@ -60,6 +61,10 @@
( (
@|core ) @|core )
@<ring> ( -- )
( bell ) #0718 DEO
JMP2r
@<freeze-timer> ( -- ) @<freeze-timer> ( -- )
;on-frame-freeze .Screen/vector DEO2 ;on-frame-freeze .Screen/vector DEO2
#c0 ;on-frame-freeze/lock STA #c0 ;on-frame-freeze/lock STA