X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=gtk%2Fgtk.layout-containers.lisp;h=24e7129d2cb0e7b0ac81852a0f289a3c5b1dca32;hb=1f9c939a43d645eaf55e4d375f6b1b609dd1c5bd;hp=f3e5d7fed9ee4b930992476c3ff484060dc41e58;hpb=d84a621183073cc7ca23bbca5ec34371ae51f74e;p=cl-gtk2.git

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