From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Tue, 12 May 2009 13:33:20 +0000 (+0400)
Subject: Fix gtk:notebook-remove-page; add gtk:notebook-page-num
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=1105117dee7e664bc7c3dd1f2210960957964eda;p=cl-gtk2.git

Fix gtk:notebook-remove-page; add gtk:notebook-page-num
---

diff --git a/gtk/gtk.layout-containers.lisp b/gtk/gtk.layout-containers.lisp
index f3e5d7f..24e7129 100644
--- a/gtk/gtk.layout-containers.lisp
+++ b/gtk/gtk.layout-containers.lisp
@@ -83,10 +83,21 @@
 
 (export 'notebook-add-page)
 
-(defcfun (notebook-remove-page "gtk_notebook_remove_page") :void
+(defcfun (notebook-page-num "gtk_notebook_page_num") :int
   (notebook g-object)
   (child g-object))
 
+(export 'notebook-page-num)
+
+(defcfun gtk-notebook-remove-page :void
+  (notebook g-object)
+  (page-num :int))
+
+(defun notebook-remove-page (notebook page-or-number)
+  (gtk-notebook-remove-page notebook (etypecase page-or-number
+                                       (integer page-or-number)
+                                       (widget (notebook-page-num notebook page-or-number)))))
+
 (export 'notebook-remove-page)
 
 (defcfun (notebook-next-page "gtk_notebook_next_page") :void