[Gtk2hs-commit] gtk2hs/gtk/entry Entry.chs,1.12,1.13

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

Update of /cvsroot/gtk2hs/gtk2hs/gtk/entry
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6171/gtk/entry

Modified Files:
	Entry.chs 
Log Message:
Add #ifndef DISABLE_DEPRECATED bits so everything should build now with
./configure --disabled-deprecated.


Index: Entry.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/entry/Entry.chs,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Entry.chs	6 Aug 2004 01:48:04 -0000	1.12
+++ Entry.chs	8 Aug 2004 19:34:14 -0000	1.13
@@ -38,8 +38,10 @@
   entryNew,
   entrySetText,
   entryGetText,
+#ifndef DISABLE_DEPRECATED
   entryAppendText,
   entryPrependText,
+#endif
   entrySetVisibility,
   entryGetVisibility,
   entrySetInvisibleChar,
@@ -102,6 +104,7 @@
 entryGetText :: EntryClass ec => ec -> IO String
 entryGetText ec = {#call entry_get_text#} (toEntry ec) >>= peekUTFString
 
+#ifndef DISABLE_DEPRECATED
 -- | Append to the text of the 'Entry' widget.
 --
 entryAppendText :: EntryClass ec => ec -> String -> IO ()
@@ -113,6 +116,7 @@
 entryPrependText :: EntryClass ec => ec -> String -> IO ()
 entryPrependText ec str = 
   withUTFString str $ {#call entry_prepend_text#} (toEntry ec)
+#endif
 
 -- | Set whether to use password mode (display stars instead of the text).
 --
@@ -204,12 +208,16 @@
 -- horizontal positioning of the contents when the displayed text is shorter
 -- than the width of the entry.
 --
+-- * Since gtk 2.4
+--
 entrySetAlignment :: EntryClass ec => ec -> Float -> IO ()
 entrySetAlignment ec xalign =
   {#call entry_set_alignment#} (toEntry ec) (realToFrac xalign)
 
 -- | Gets the value set by 'entrySetAlignment'.
 --
+-- * Since gtk 2.4
+--
 entryGetAlignment :: EntryClass ec => ec -> IO Float
 entryGetAlignment ec =
   liftM realToFrac $ {#call unsafe entry_get_alignment#} (toEntry ec)