[Gtk2hs-commit] gtk2hs/gtk/Graphics/UI/Gtk/Ornaments Frame.chs,1.3,1.4

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

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

Modified Files:
	Frame.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: Frame.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Ornaments/Frame.chs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Frame.chs	25 Feb 2005 01:11:36 -0000	1.3
+++ Frame.chs	13 Mar 2005 19:34:36 -0000	1.4
@@ -64,13 +64,18 @@
   frameGetLabelAlign,
   ShadowType(..),
   frameSetShadowType,
-  frameGetShadowType
+  frameGetShadowType,
+
+-- * Properties
+  frameLabel,
+  frameShadowType
   ) where
 
 import Monad	(liftM)
 
 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#}
@@ -153,6 +158,23 @@
     "frameGetLabel: the title of the frame was not a Label widget." $
     {#call unsafe frame_get_label#} (toFrame f)
   res <- peekUTFString strPtr
-  {#call unsafe g_free#} (castPtr strPtr)
   return res
 
+--------------------
+-- Properties
+
+-- | Text of the frame's label.
+--
+frameLabel :: Attr Frame String
+frameLabel = Attr 
+  frameGetLabel
+  frameSetLabel
+
+-- | Appearance of the frame border.
+--
+-- Default value: 'ShadowEtchedIn'
+--
+frameShadowType :: Attr Frame ShadowType
+frameShadowType = Attr 
+  frameGetShadowType
+  frameSetShadowType