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
|
