X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.layout-containers.lisp;h=24e7129d2cb0e7b0ac81852a0f289a3c5b1dca32;hb=47b0bf2bfd057e9b409957e8e5cb2241e2fa6573;hp=31b4771902ecf9955b87783ec9403fbea36db7b9;hpb=e9622209ae8a02f82c2813ea7d358d711e1ba2d0;p=cl-gtk2.git

diff --git a/gtk/gtk.layout-containers.lisp b/gtk/gtk.layout-containers.lisp
index 31b4771..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
@@ -129,7 +140,7 @@
 
 (export 'notebook-tab-label-widget)
 
-(defcfun gtk-notebook-set-menu-label-widget :void
+(defcfun (gtk-notebook-set-menu-label-widget "gtk_notebook_set_menu_label") :void
   (notebook g-object)
   (child g-object)
   (menu-label g-object))
@@ -138,7 +149,7 @@
   (gtk-notebook-set-menu-label-widget notebook child new-value)
   new-value)
 
-(defcfun gtk-notebook-set-tab-label-widget :void
+(defcfun (gtk-notebook-set-tab-label-widget "gtk_notebook_set_tab_label") :void
   (notebook g-object)
   (child g-object)
   (tab-label g-object))