From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 12 Sep 2009 12:52:50 +0000 (+0400)
Subject: Added GtkWindowGroup's methods
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=dcccd63eed75f5db6a5bb8435670241856986b53;p=cl-gtk2.git

Added GtkWindowGroup's methods
---

diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd
index 8ba8a67..dcb58b1 100644
--- a/gtk/cl-gtk2-gtk.asd
+++ b/gtk/cl-gtk2-gtk.asd
@@ -13,6 +13,7 @@
                (:file "gtk.base-classes")
                (:file "gtk.dialog")
                (:file "gtk.window")
+               (:file "gtk.window-group")
                (:file "gtk.image")
                (:file "gtk.label")
                (:file "gtk.progress-bar")
diff --git a/gtk/gtk.window-group.lisp b/gtk/gtk.window-group.lisp
new file mode 100644
index 0000000..610b367
--- /dev/null
+++ b/gtk/gtk.window-group.lisp
@@ -0,0 +1,13 @@
+(in-package :gtk)
+
+(defcfun (window-group-add-window "gtk_window_group_add_window") :void
+  (window-group (g-object window-group))
+  (window (g-object gtk-window)))
+
+(export 'window-group-add-window)
+
+(defcfun (window-group-remove-window "gtk_window_group_remove_window") :void
+  (window-group (g-object window-group))
+  (window (g-object gtk-window)))
+
+(export 'window-group-remove-window)