racket/gui gtk: fix event handling on choice%

Button-click handling foir `choice%` could continuously
re-queue an event that isn't handled by default, leading
to stack overflow and a crash.

original commit: c7688818fafb478c5ed4afa4c9772c86201386ad
This commit is contained in:
Matthew Flatt 2014-11-02 09:12:22 -07:00
parent 97cf41dfee
commit 6669afac2d

View File

@ -67,11 +67,13 @@
(or v
(begin
(g_signal_handler_unblock gtk other-id)
(set! unblocked? #t)
(let ([r (g_signal_emit gtk
button-press-id
0
event)])
(g_signal_handler_block gtk other-id)
(set! unblocked? #f)
r)))))))
;; Dependence on the implemenation of GtkComboBox: