[Gtk2hs-commit] gtk2hs/gtk/Graphics/UI/Gtk/Scrolling ScrolledWindow.chs.pp,1.2,1.3

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

Update of /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Scrolling
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1916/gtk/Graphics/UI/Gtk/Scrolling

Modified Files:
	ScrolledWindow.chs.pp 
Log Message:
Make the enum and object property constructor functions take the enum/object
GType as an argument. This should make these types of properties actually work.

Pass the appropriate enum/object GType as an extra argument to the property
constructor.


Index: ScrolledWindow.chs.pp
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs.pp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ScrolledWindow.chs.pp	25 Aug 2005 01:16:15 -0000	1.2
+++ ScrolledWindow.chs.pp	29 Aug 2005 11:15:58 -0000	1.3
@@ -327,6 +327,7 @@
 --
 scrolledWindowHscrollbarPolicy :: ScrolledWindowClass self => Attr self PolicyType
 scrolledWindowHscrollbarPolicy = newAttrFromEnumProperty "hscrollbar-policy"
+  {# call pure unsafe gtk_policy_type_get_type #}
 
 -- | When the vertical scrollbar is displayed.
 --
@@ -334,6 +335,7 @@
 --
 scrolledWindowVscrollbarPolicy :: ScrolledWindowClass self => Attr self PolicyType
 scrolledWindowVscrollbarPolicy = newAttrFromEnumProperty "vscrollbar-policy"
+  {# call pure unsafe gtk_policy_type_get_type #}
 
 -- | Where the contents are located with respect to the scrollbars.
 --
@@ -341,6 +343,7 @@
 --
 scrolledWindowWindowPlacement :: ScrolledWindowClass self => Attr self CornerType
 scrolledWindowWindowPlacement = newAttrFromEnumProperty "window-placement"
+  {# call pure unsafe gtk_corner_type_get_type #}
 
 -- | Style of bevel around the contents.
 --