Typo.

[cl-gtk2.git] / gtk / gtk.layout-containers.lisp

diff --git a/gtk/gtk.layout-containers.lisp b/gtk/gtk.layout-containers.lisp
index 31b4771..24e7129 100644 (file)
--- 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))