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
-- |
|
