[Gtk2hs-commit] gtk2hs/gtk/Graphics/UI/Gtk/Scrolling ScrolledWindow.chs,1.4,1.5

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

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

Modified Files:
	ScrolledWindow.chs 
Log Message:
Add properties.

For the first round, just the easy properties that are implemented in terms
of existing getter/setter functions and where there are no issues with
NULL/Maybe types.

Add Attributes file to glib package and modify Makefile.am accordingly.


Index: ScrolledWindow.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- ScrolledWindow.chs	25 Feb 2005 22:53:43 -0000	1.4
+++ ScrolledWindow.chs	13 Mar 2005 19:34:37 -0000	1.5
@@ -96,12 +96,19 @@
   scrolledWindowGetShadowType,
   scrolledWindowSetHAdjustment,
   scrolledWindowSetVAdjustment,
+
+-- * Properties
+  scrolledWindowHAdjustment,
+  scrolledWindowVAdjustment,
+  scrolledWindowShadowType,
+  scrolledWindowPlacement
   ) where
 
 import Monad	(liftM)
 import Maybe    (fromMaybe)
 
 import System.Glib.FFI
+import System.Glib.Attributes		(Attr(..))
 import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)
 {#import Graphics.UI.Gtk.Types#}
 {#import Graphics.UI.Gtk.Signals#}
@@ -207,4 +214,36 @@
 scrolledWindowSetVAdjustment w adj = {#call scrolled_window_set_vadjustment#}
   (toScrolledWindow w) adj
 
+--------------------
+-- Properties
+
+-- | The 'Adjustment' for the horizontal position.
+--
+scrolledWindowHAdjustment :: Attr ScrolledWindow Adjustment
+scrolledWindowHAdjustment = Attr 
+  scrolledWindowGetHAdjustment
+  scrolledWindowSetHAdjustment
 
+-- | The 'Adjustment' for the vertical position.
+--
+scrolledWindowVAdjustment :: Attr ScrolledWindow Adjustment
+scrolledWindowVAdjustment = Attr 
+  scrolledWindowGetVAdjustment
+  scrolledWindowSetVAdjustment
+
+-- | Style of bevel around the contents.
+--
+-- Default value: 'ShadowNone'
+--
+scrolledWindowShadowType :: Attr ScrolledWindow ShadowType
+scrolledWindowShadowType = Attr 
+  scrolledWindowGetShadowType
+  scrolledWindowSetShadowType
+
+-- | \'placement\' property. See 'scrolledWindowGetPlacement' and
+-- 'scrolledWindowSetPlacement'
+--
+scrolledWindowPlacement :: Attr ScrolledWindow CornerType
+scrolledWindowPlacement = Attr 
+  scrolledWindowGetPlacement
+  scrolledWindowSetPlacement