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:
parent
97cf41dfee
commit
6669afac2d
|
@ -67,11 +67,13 @@
|
||||||
(or v
|
(or v
|
||||||
(begin
|
(begin
|
||||||
(g_signal_handler_unblock gtk other-id)
|
(g_signal_handler_unblock gtk other-id)
|
||||||
|
(set! unblocked? #t)
|
||||||
(let ([r (g_signal_emit gtk
|
(let ([r (g_signal_emit gtk
|
||||||
button-press-id
|
button-press-id
|
||||||
0
|
0
|
||||||
event)])
|
event)])
|
||||||
(g_signal_handler_block gtk other-id)
|
(g_signal_handler_block gtk other-id)
|
||||||
|
(set! unblocked? #f)
|
||||||
r)))))))
|
r)))))))
|
||||||
|
|
||||||
;; Dependence on the implemenation of GtkComboBox:
|
;; Dependence on the implemenation of GtkComboBox:
|
||||||
|
|
Loading…
Reference in New Issue
Block a user