[Gtk2hs-commit] gtk2hs/gtk/Graphics/UI/Gtk/Windows Dialog.chs,1.3,1.4 Window.chs.pp,1.3,1.4

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

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

Modified Files:
	Dialog.chs Window.chs.pp 
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: Dialog.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Windows/Dialog.chs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Dialog.chs	25 Feb 2005 01:11:37 -0000	1.3
+++ Dialog.chs	13 Mar 2005 19:34:39 -0000	1.4
@@ -110,6 +110,9 @@
   dialogSetHasSeparator,
   dialogSetResponseSensitive,
 
+-- * Properties
+  dialogHasSeparator,
+
 -- * Signals
   onResponse,
   afterResponse
@@ -119,6 +122,7 @@
 
 import System.Glib.FFI
 import System.Glib.UTFString
+import System.Glib.Attributes		(Attr(..))
 import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)
 {#import Graphics.UI.Gtk.Types#}
 {#import Graphics.UI.Gtk.Signals#}
@@ -216,6 +220,18 @@
   (fromBool sensitive)
 
 --------------------
+-- Properties
+
+-- | The dialog has a separator bar above its buttons.
+--
+-- Default value: @True@
+--
+dialogHasSeparator :: Attr Dialog Bool
+dialogHasSeparator = Attr 
+  dialogGetHasSeparator
+  dialogSetHasSeparator
+
+--------------------
 -- Signals
 
 -- | This signal is sent when a widget in the action

Index: Window.chs.pp
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Windows/Window.chs.pp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Window.chs.pp	25 Feb 2005 01:11:37 -0000	1.3
+++ Window.chs.pp	13 Mar 2005 19:34:39 -0000	1.4
@@ -83,6 +83,9 @@
   windowStick,
   windowUnstick,
 
+-- * Properties
+  windowResizable,
+
 -- * Signals
   onFrameEvent,
   afterFrameEvent,
@@ -94,6 +97,7 @@
 
 import System.Glib.FFI
 import System.Glib.UTFString
+import System.Glib.Attributes		(Attr(..))
 import Graphics.UI.Gtk.General.Enums	(WindowType(WindowToplevel), WindowPosition(..))
 import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)
 {#import Graphics.UI.Gtk.Types#}
@@ -265,6 +269,18 @@
 windowUnstick w = {#call window_unstick#} (toWindow w)
 
 --------------------
+-- Properties
+
+-- | If @True@, users can resize the window.
+--
+-- Default value: @True@
+--
+windowResizable :: Attr Window Bool
+windowResizable = Attr 
+  windowGetResizable
+  windowSetResizable
+
+--------------------
 -- Signals
 
 -- |