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

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

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

Modified Files:
	Entry.chs 
Log Message:
Compatability fixes for gtk-2.2 & 2.0 and for ghc-5.04.x.
Also fix a typo in TreeModel.chs which caused a linker error in apps.


Index: Entry.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/entry/Entry.chs,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- Entry.chs	4 Aug 2004 19:11:21 -0000	1.11
+++ Entry.chs	6 Aug 2004 01:48:04 -0000	1.12
@@ -52,6 +52,8 @@
   entryGetWidthChars,
   entrySetWidthChars,
 #if GTK_CHECK_VERSION(2,4,0)
+  entrySetAlignment,
+  entryGetAlignment,
   entrySetCompletion,
   entryGetCompletion,
 #endif
@@ -197,6 +199,7 @@
 entrySetWidthChars ec setting = {#call entry_set_width_chars#}
   (toEntry ec) (fromIntegral setting)
 
+#if GTK_CHECK_VERSION(2,4,0)
 -- | Sets the alignment for the contents of the entry. This controls the
 -- horizontal positioning of the contents when the displayed text is shorter
 -- than the width of the entry.
@@ -211,7 +214,6 @@
 entryGetAlignment ec =
   liftM realToFrac $ {#call unsafe entry_get_alignment#} (toEntry ec)
 
-#if GTK_CHECK_VERSION(2,4,0)
 -- | Sets the auxiliary completion object to use with the entry. All further
 -- configuration of the completion mechanism is done on completion using the
 -- "EntryCompletion" API.