From 33cca087ada6ded840dd89fa4fb548328d1776af Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 19 Dec 2011 16:28:22 -0500 Subject: [PATCH] Read mouse positions (in an xterm) --- test-raw.rkt | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/test-raw.rkt b/test-raw.rkt index e92437b..126bf11 100644 --- a/test-raw.rkt +++ b/test-raw.rkt @@ -5,6 +5,15 @@ (define (main) (tty-raw!) + + (define old-exit-handler (exit-handler)) + (exit-handler (lambda (v) + (display (reset-mode x11-any-event-mouse-tracking-mode)) + (old-exit-handler v))) + + (for-each display (list (set-mode x11-any-event-mouse-tracking-mode))) + (flush-output) + (let loop () (define ch (read-byte)) (display (select-graphic-rendition ch))