 newAttrFromUIntProperty propName =
   newAttr (objectGetPropertyUInt propName) (objectSetPropertyUInt propName)
 
+newAttrFromCharProperty :: GObjectClass gobj => String -> Attr gobj Char
+newAttrFromCharProperty propName =
+  newAttr (objectGetPropertyChar propName) (objectSetPropertyChar propName)
+
 writeAttrFromUIntProperty :: GObjectClass gobj => String -> WriteAttr gobj Int
 writeAttrFromUIntProperty propName =
   writeAttr (objectSetPropertyUInt propName)

objectGetPropertyUInt :: GObjectClass gobj => String -> gobj -> IO Int
objectGetPropertyUInt = objectGetPropertyInternal GType.uint (\gv -> liftM fromIntegral $ valueGetUInt gv)

objectSetPropertyBool :: GObjectClass gobj => String -> gobj -> Bool -> IO ()
objectSetPropertyBool = objectSetPropertyInternal GType.bool valueSetBool


  newAttrFromIntProperty,
  readAttrFromIntProperty,
  newAttrFromUIntProperty,
  newAttrFromCharProperty,
  writeAttrFromUIntProperty,
  newAttrFromBoolProperty,
  newAttrFromFloatProperty,
