From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 12 Sep 2009 12:51:48 +0000 (+0400)
Subject: Added `window' property of GtkWindowGroup
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=423fdc0e42812b80142d2175f50e1fb2c408c4af;p=cl-gtk2.git

Added `window' property of GtkWindowGroup
---

diff --git a/generating.lisp b/generating.lisp
index db9c512..44b404b 100644
--- a/generating.lisp
+++ b/generating.lisp
@@ -181,6 +181,8 @@
        ("GtkWindow"
         (:cffi gtk::default-widget gtk::window-default-widget (g-object gtk::widget) "gtk_window_get_default_widget" "gtk_window_set_default")
         (:cffi gtk::focus gtk::window-focus (g-object gtk::widget) "gtk_window_get_focus" "gtk_window_set_focus"))
+       ("GtkWindowGroup"
+        (:cffi gtk::windows gtk::window-group-windows (glist (g-object gtk::window)) "gtk_window_group_list_windows" nil))
        ("GtkTextTag"
         (:cffi gtk::priority gtk::text-tag-priority :int "gtk_text_tag_get_priority" "gtk_text_tag_set_priority"))
        ("GtkDialog"
diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp
index cbd3e61..2cd35d4 100644
--- a/gtk/gtk.generated-classes.lisp
+++ b/gtk/gtk.generated-classes.lisp
@@ -2958,7 +2958,9 @@
 (define-g-object-class "GtkWindowGroup" window-group
                        (:superclass g-object :export t :interfaces nil
                         :type-initializer "gtk_window_group_get_type")
-                       nil)
+                       ((:cffi windows window-group-windows
+                         (glist (g-object window))
+                         "gtk_window_group_list_windows" nil)))
 
 (define-g-object-class "GtkToggleAction" toggle-action
                        (:superclass action :export t :interfaces