X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.generated-classes.lisp;h=fa8a81fbecccde58b3e99214065bfa5d6c351bde;hb=e8e2d1cad48f9b6f1d607651f93cc51387c60216;hp=d8791dc94f9ad5b2b5b051557fc4942c69f34e98;hpb=fa06b5bbafa7b7e2f32fe46203aa978624d84fe7;p=cl-gtk2.git

diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp
index d8791dc..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
@@ -3252,7 +3254,8 @@
                        nil)
 
 (define-g-object-class "GtkIMContext" i-m-context
-                       (:superclass g-object :export t :interfaces nil) nil)
+                       (:superclass g-object :export t :interfaces nil
+                        :type-initializer "gtk_im_context_get_type") nil)
 
 (define-g-object-class "GtkListStore" list-store
                        (:superclass g-object :export t :interfaces