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

Incorrect referencing causes crashes on Kubuntu, for example.

original commit: 8cbcba8ed2bb6a50826fa5e760702e4e2dd15ba4
This commit is contained in:
Matthew Flatt 2014-03-13 06:39:54 -06:00
commit cd1c5bfa99

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