[Gtk2hs-commit] gtk2hs/gtk/windows Window.chs,1.7,1.8

[Duncan C. <dun...@us...>]

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