Update of /cvsroot/gtk2hs/gtk2hs/gtk/windows
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6171/gtk/windows
Modified Files:
Window.chs
Log Message:
Add #ifndef DISABLE_DEPRECATED bits so everything should build now with
./configure --disabled-deprecated.
Index: Window.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/windows/Window.chs,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Window.chs 23 May 2004 16:17:53 -0000 1.7
+++ Window.chs 8 Aug 2004 19:34:15 -0000 1.8
@@ -1,3 +1,4 @@
+{-# OPTIONS -cpp #-}
-- -*-haskell-*-
-- GIMP Toolkit (GTK) Window
--
@@ -40,7 +41,9 @@
windowSetModal,
windowSetDefaultSize,
-- windowSetGeometryHints,
+#ifndef DISABLE_DEPRECATED
windowSetPolicy,
+#endif
windowSetPosition,
WindowPosition(..),
windowSetTransientFor,
@@ -118,12 +121,14 @@
windowActivateDefault w =
liftM toBool $ {#call window_activate_default#} (toWindow w)
+#ifndef DISABLE_DEPRECATED
{-# DEPRECATED windowSetPolicy "Use windowSetResizable instead." #-}
-- windowSetPolicy: set the window policy
--
windowSetPolicy :: WindowClass w => w -> Bool -> Bool -> Bool -> IO ()
windowSetPolicy w shrink grow auto = {#call window_set_policy#}
(toWindow w) (fromBool shrink) (fromBool grow) (fromBool auto)
+#endif
-- | make a window application modal
--
|
