(defcfun gtk-combo-box-get-active-iter :boolean
(combo-box g-object)
- (iter (g-boxed-ref tree-iter)))
+ (iter (g-boxed-foreign tree-iter)))
(defun combo-box-get-active-iter (combo-box)
(let ((i (make-instance 'tree-iter)))
- (if (gtk-combo-box-get-active-iter combo-box i)
- i
- (release i))))
+ (when (gtk-combo-box-get-active-iter combo-box i)
+ i)))
(defcfun (combo-box-active-text "gtk_combo_box_get_active_text") (:string :free-from-foreign t)
(combo-box g-object))
(gtk-combo-box-set-row-separator-func combo-box
(callback gtk-tree-view-row-separator-func-callback)
(allocate-stable-pointer func)
- (callback stable-pointer-free-destroy-notify-callback)))
\ No newline at end of file
+ (callback stable-pointer-free-destroy-notify-callback)))
+
+