 objectGetPropertyUInt :: GObjectClass gobj => String -> gobj -> IO Int
 objectGetPropertyUInt = objectGetPropertyInternal GType.uint (\gv -> liftM fromIntegral $ valueGetUInt gv)
 
+objectSetPropertyChar :: GObjectClass gobj => String -> gobj -> Char -> IO ()
+objectSetPropertyChar = objectSetPropertyInternal GType.uint (\gv v -> valueSetUInt gv (fromIntegral (fromEnum v)))
+
+objectGetPropertyChar :: GObjectClass gobj => String -> gobj -> IO Char
+objectGetPropertyChar = objectGetPropertyInternal GType.uint (\gv -> liftM (toEnum . fromIntegral) $ valueGetUInt gv)
+
 objectSetPropertyBool :: GObjectClass gobj => String -> gobj -> Bool -> IO ()
 objectSetPropertyBool = objectSetPropertyInternal GType.bool valueSetBool
 

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

  objectGetPropertyInt,
  objectSetPropertyUInt,
  objectGetPropertyUInt,
  objectSetPropertyChar,
  objectGetPropertyChar,
  objectSetPropertyBool,
  objectGetPropertyBool,
  objectSetPropertyEnum,
