misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use the (more reliable) plumber mechanism instead of exit-handler

This commit is contained in:
Tony Garnock-Jones 2014-12-17 12:14:00 -05:00
parent 7ef6d4fe9a
commit 11b4a88e62
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ansi/test-raw.rkt
View File

@ -9,10 +9,9 @@
(define (main) (define (main)
(tty-raw!) (tty-raw!)
(define old-exit-handler (exit-handler)) (plumber-add-flush! (current-plumber)
(exit-handler (lambda (v) (lambda (handle)
(display (reset-mode x11-any-event-mouse-tracking-mode)) (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))) (for-each display (list (set-mode x11-any-event-mouse-tracking-mode)))