From dcccd63eed75f5db6a5bb8435670241856986b53 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 12 Sep 2009 16:52:50 +0400 Subject: [PATCH] Added GtkWindowGroup's methods --- gtk/cl-gtk2-gtk.asd | 1 + gtk/gtk.window-group.lisp | 13 +++++++++++++ 2 files changed, 14 insertions(+) create mode 100644 gtk/gtk.window-group.lisp 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) -- 1.7.10.4