[Gtk2hs-commit] gtk2hs/gtk/layout Notebook.chs,1.3,1.4

[<ju...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/gtk/layout
In directory sc8-pr-cvs1:/tmp/cvs-serv7385/gtk/layout

Modified Files:
	Notebook.chs 
Log Message:
2003-07-03  Jens Petersen  <pet...@ha...>

	* mogul/Makefile (INSTALLDIR): Set to mogul, so that mogul gets
	installed in its own subdir.

	* gtk/layout/Notebook.chs (notebookGetNPages): New function.
	Export it.

	* gtk/general/Gtk.hs: Import and re-export Gdk.

	* gtk/gdk/Gdk.chs: New module for gdk.h.  Currently just provides beep.

	* gtk/gdk/Drawable.chs (drawPixbuf): Doc fix: s/arg src/arg pb/.

	* gtk/Makefile: Define Pixbuf-HEADER and Gdk-HEADER.

	* gtk2hs.spec.in (Requires): Require ghc5.  Post and preun require
	ghc-pkg.
	(build): Configure --with-hc.
	(preun): Ignore package removal errors.

	* configure.in: --with-hc no longer requires a full-path, when
	requested compiler is in path.  When looking for HOpenGL pass "-l"
	to ghc-pkg, since "--list-packages" confuses ghc-pkg-6.0 built
	with ghc5.

	* VERSION: Bump version to 0.9.3.50.

	* Makefile (dist): LN already includes the "-s" option.


Index: Notebook.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/layout/Notebook.chs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Notebook.chs	12 Jul 2002 13:09:23 -0000	1.3
+++ Notebook.chs	3 Jul 2003 05:19:36 -0000	1.4
@@ -68,6 +68,7 @@
   notebookGetCurrentPage,
   notebookGetMenuLabel,
   notebookGetNthPage,
+  notebookGetNPages,
   notebookGetTabLabel,
   Packing(..), PackType(..),
   notebookQueryTabLabelPacking,
@@ -320,6 +321,12 @@
     (toNotebook nb) (fromIntegral pos)
   if wPtr==nullPtr then return Nothing else liftM Just $
     makeNewObject mkWidget $ return wPtr
+
+-- @method notebookGetNPages@ Get the number of pages in a notebook.
+--
+notebookGetNPages :: NotebookClass nb => nb -> IO Int
+notebookGetNPages nb = liftM fromIntegral $
+  {#call unsafe notebook_get_n_pages#} (toNotebook nb)
 
 -- @method notebookGetTabLabel@ Extract the tab label from the given
 -- @ref arg child@.