+(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)))))
+