From 1be35d7703c593cc41603985d1f7f88dedb6ae67 Mon Sep 17 00:00:00 2001 From: Andrey Kutejko Date: Sun, 15 Aug 2010 14:09:10 +0300 Subject: [PATCH] added group property to GtkRadioButton --- generating.lisp | 3 +++ gtk/gtk.generated-classes.lisp | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/generating.lisp b/generating.lisp index 9e58e08..885ef96 100644 --- a/generating.lisp +++ b/generating.lisp @@ -191,6 +191,9 @@ nil "gtk_menu_tool_button_set_arrow_tooltip_text") (:cffi gtk::arrow-tooltip-markup gtk::menu-tool-button-arrow-tooltip-markup :string nil "gtk_menu_tool_button_set_arrow_tooltip_markup")) + ("GtkRadioButton" + (:cffi gtk::group gtk::radio-button-group (gslist gtk::radio-button :free-from-foreign nil :free-to-foreign nil) + nil "gtk_radio_button_set_group")) ("GtkUIManager" (:cffi gtk::accel-group gtk::ui-manager-accel-group g-object "gtk_ui_manager_get_accel_group" nil)) diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp index 6c98971..fa8a81f 100644 --- a/gtk/gtk.generated-classes.lisp +++ b/gtk/gtk.generated-classes.lisp @@ -1696,8 +1696,10 @@ (:superclass check-button :export t :interfaces ("AtkImplementorIface" "GtkActivatable" "GtkBuildable") :type-initializer "gtk_radio_button_get_type") - ((group radio-button-group "group" "GtkRadioButton" nil - t))) + ((:cffi group radio-button-group + (gslist g-object :free-from-foreign nil + :free-to-foreign nil) + "gtk_radio_button_get_group" "gtk_radio_button_set_group"))) (define-g-object-class "GtkComboBox" combo-box (:superclass bin :export t :interfaces -- 1.7.10.4