racket/gui gtk: fix reference count on widget extracted in choice%

Incorrect referencing causes crashes on Kubuntu, for example.
This commit is contained in:
Matthew Flatt 2014-03-13 06:39:54 -06:00
parent 88af96f19a
commit 8cbcba8ed2

View File

@ -85,7 +85,9 @@
ext)
(unless (= 1 (length all))
(error "expected Gtk combobox to have one private child"))
(car all)))
(define combo-gtk (car all))
(gobject-ref combo-gtk)
combo-gtk))
;; More dependence on the implemenation of GtkComboBox:
;; The memnu-popup action is implemented by seeting a button-press-event