Added GtkWindowGroup's methods

diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd
index 8ba8a67..dcb58b1 100644 (file)
--- 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 (file)
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)