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