Routing mouse events

gui/notepad/notepad.tal

@@ -16,7 +16,7 @@
 	#00f8 .Screen/height DEO2
 	( unlock )
 	;on-console .Console/vector DEO2
-	;on-mouse .Mouse/vector DEO2
+	;on-mouse-body .Mouse/vector DEO2
 
 	draw-header
 	draw-footer
@@ -27,9 +27,11 @@ BRK
 
 BRK
 
-@on-mouse ( -> )
+@on-mouse-head ( -> )
 
-	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;caret-icn update-cursor
+	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;mouse-icn update-cursor
+
+	trap-mouse
 
 	.Mouse/state DEI ?&on-mouse-down
 
@@ -39,6 +41,51 @@ BRK
 
 BRK
 
+@on-mouse-body ( -> )
+
+	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;caret-icn update-cursor
+
+	trap-mouse
+
+	.Mouse/state DEI ?&on-mouse-down
+
+BRK
+
+&on-mouse-down ( -> )
+
+BRK
+
+@on-mouse-foot ( -> )
+
+	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;mouse-icn update-cursor
+
+	trap-mouse
+
+	.Mouse/state DEI ?&on-mouse-down
+
+BRK
+
+&on-mouse-down ( -> )
+
+BRK
+
+(
+@|core )
+
+@trap-mouse ( -- )
+
+	.Mouse/y DEI2
+	DUP2 #0018 GTH2 ?&no-head
+		POP2 ;on-mouse-head .Mouse/vector DEO2 JMP2r
+		&no-head
+	DUP2 #00d6 LTH2 ?&no-foot
+		POP2 ;on-mouse-foot .Mouse/vector DEO2 JMP2r
+		&no-foot
+	POP2
+	;on-mouse-body .Mouse/vector DEO2
+
+JMP2r
+
 @update-cursor ( color addr* -- )
 
 	[ LIT2 15 -Screen/auto ] DEO
@@ -114,11 +161,15 @@ JMP2r
 
 JMP2r
 
+@phex ( short* -- ) SWP phex/b &b ( byte -- ) DUP #04 SFT phex/c &c ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
+
 (
 @|assets )
 
 @caret-icn [
 	c628 1010 1010 1010 1010 1010 1010 28c6 ]
+@mouse-icn [
+	80c0 e0f0 f8fc feff f8d8 8c0c 0606 0000 ]
 @bar-icn
 	&a [
 	0000 007e 007e 007e 007e 007e 007e 0000 ]