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

(notepad) Added closing behaviors

This commit is contained in:
Devine Lu Linvega 2023-04-26 10:27:36 -07:00
parent eb827b19be
commit bbacbc7af4
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gui/notepad/notepad.tal
View File

@ -38,11 +38,16 @@ BRK
trap-mouse
.Mouse/state DEI ?&on-mouse-down
BRK
&on-mouse-down ( -> )
[ LIT &last $1 ]
.Mouse/state DEI
DUP ,&last STR
EQU ?&unchanged
draw-header
( release on close button )
.Mouse/state DEI #00 NEQ ?&unchanged
.Mouse/x DEI2 #0008 SUB2 #000a GTH2 ?&unchanged
#010f DEO
&unchanged
BRK
@ -153,7 +158,9 @@ JMP2r
;bar-icn/a .Screen/addr DEO2
#01 .Screen/sprite DEO
( close )
;close-icn/default .Screen/addr DEO2
;close-icn/default
#00 .Mouse/state DEI #00 NEQ .Mouse/x DEI2 #0008 SUB2 #000a LTH2 AND
#50 SFT2 ADD2 .Screen/addr DEO2
#01 .Screen/sprite DEOk DEO
( lead )
#e9 &l