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@.
|
