    -- GENERATED by C->Haskell Compiler, version 0.13.13 (gtk2hs branch) "Bin IO", 27 May 2012 (Haskell)
    -- Edit the ORIGNAL .chs file instead!

    {-# LINE 1 "./System/Glib/Properties.chs" #-}
    -- -*-haskell-*-
    --  GIMP Toolkit (GTK) GObject Properties
    --
    --  Author : Duncan Coutts
    --
    --  Created: 16 April 2005
    --
    --  Copyright (C) 2005 Duncan Coutts
    --
    --  This library is free software; you can redistribute it and/or
    --  modify it under the terms of the GNU Lesser General Public
    --  License as published by the Free Software Foundation; either
    --  version 2.1 of the License, or (at your option) any later version.
    --
    --  This library is distributed in the hope that it will be useful,
    --  but WITHOUT ANY WARRANTY; without even the implied warranty of
    --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    --  Lesser General Public License for more details.
    --
    -- |
    -- Maintainer  : gtk2hs-users@lists.sourceforge.net
    -- Stability   : provisional
    -- Portability : portable (depends on GHC)
    --
    -- Functions for getting and setting GObject properties
    --
    module System.Glib.Properties (
      -- * per-type functions for getting and setting GObject properties
      objectSetPropertyInt,
      objectGetPropertyInt,
      objectSetPropertyUInt,
      objectGetPropertyUInt,
      objectSetPropertyInt64,
      objectGetPropertyInt64,
      objectSetPropertyUInt64,
      objectGetPropertyUInt64,
      objectSetPropertyChar,
      objectGetPropertyChar,
      objectSetPropertyBool,
      objectGetPropertyBool,
      objectSetPropertyEnum,
      objectGetPropertyEnum,
      objectSetPropertyFlags,
      objectGetPropertyFlags,
      objectSetPropertyFloat,
      objectGetPropertyFloat,
      objectSetPropertyDouble,
      objectGetPropertyDouble,
      objectSetPropertyString,
      objectGetPropertyString,
      objectSetPropertyMaybeString,
      objectGetPropertyMaybeString,
      objectSetPropertyFilePath,
      objectGetPropertyFilePath,
      objectSetPropertyMaybeFilePath,
      objectGetPropertyMaybeFilePath,
      objectSetPropertyBoxedOpaque,
      objectGetPropertyBoxedOpaque,
      objectSetPropertyBoxedStorable,
      objectGetPropertyBoxedStorable,
      objectSetPropertyGObject,
      objectGetPropertyGObject,

      -- * constructors for attributes backed by GObject properties
      newAttrFromIntProperty,
      readAttrFromIntProperty,
      newAttrFromUIntProperty,
      readAttrFromUIntProperty,
      writeAttrFromUIntProperty,
      newAttrFromCharProperty,
      readAttrFromCharProperty,
      newAttrFromBoolProperty,
      readAttrFromBoolProperty,
      newAttrFromFloatProperty,
      readAttrFromFloatProperty,
      newAttrFromDoubleProperty,
      readAttrFromDoubleProperty,
      newAttrFromEnumProperty,
      readAttrFromEnumProperty,
      writeAttrFromEnumProperty,
      newAttrFromFlagsProperty,
      readAttrFromFlagsProperty,
      newAttrFromStringProperty,
      readAttrFromStringProperty,
      writeAttrFromStringProperty,
      newAttrFromMaybeStringProperty,
      readAttrFromMaybeStringProperty,
      writeAttrFromMaybeStringProperty,
      newAttrFromFilePathProperty,
      readAttrFromFilePathProperty,
      writeAttrFromFilePathProperty,
      newAttrFromMaybeFilePathProperty,
      readAttrFromMaybeFilePathProperty,
      writeAttrFromMaybeFilePathProperty,
      newAttrFromBoxedOpaqueProperty,
      readAttrFromBoxedOpaqueProperty,
      writeAttrFromBoxedOpaqueProperty,
      newAttrFromBoxedStorableProperty,
      readAttrFromBoxedStorableProperty,
      newAttrFromObjectProperty,
      readAttrFromObjectProperty,
      writeAttrFromObjectProperty,
      newAttrFromMaybeObjectProperty,
      readAttrFromMaybeObjectProperty,
      writeAttrFromMaybeObjectProperty,

      -- TODO: do not export these once we dump the old TreeList API:
      objectGetPropertyInternal,
      objectSetPropertyInternal,
      ) where

    import Control.Monad (liftM)

    import System.Glib.FFI
    import System.Glib.UTFString
    import System.Glib.Flags        (Flags)
    import System.Glib.Types
    {-# LINE 117 "./System/Glib/Properties.chs" #-}
    import System.Glib.GValue   (GValue(GValue), valueInit, allocaGValue)
    import qualified System.Glib.GTypeConstants as GType
    import System.Glib.GType
    import System.Glib.GValueTypes
    import System.Glib.Attributes   (Attr, ReadAttr, WriteAttr, ReadWriteAttr,
                                    newNamedAttr, readNamedAttr, writeNamedAttr)

    {-# LINE 125 "./System/Glib/Properties.chs" #-}

    objectSetPropertyInternal :: GObjectClass gobj => GType -> (GValue -> a -> IO ()) -> String -> gobj -> a -> IO ()
    objectSetPropertyInternal gtype valueSet prop obj val =
      withCString prop $ \propPtr ->
      allocaGValue $ \gvalue -> do
      valueInit gvalue gtype
      valueSet gvalue val
      (\(GObject arg1) arg2 (GValue arg3) -> withForeignPtr arg1 $ \argPtr1 ->g_object_set_property argPtr1 arg2 arg3)
    {-# LINE 133 "./System/Glib/Properties.chs" #-}
        (toGObject obj)
        propPtr
        gvalue

    objectGetPropertyInternal :: GObjectClass gobj => GType -> (GValue -> IO a) -> String -> gobj -> IO a
    objectGetPropertyInternal gtype valueGet prop obj =
      withCString prop $ \propPtr ->
      allocaGValue $ \gvalue -> do
      valueInit gvalue gtype
      (\(GObject arg1) arg2 (GValue arg3) -> withForeignPtr arg1 $ \argPtr1 ->g_object_get_property argPtr1 arg2 arg3)
    {-# LINE 143 "./System/Glib/Properties.chs" #-}
        (toGObject obj)
        propPtr
        gvalue
      valueGet gvalue

    objectSetPropertyInt :: GObjectClass gobj => String -> gobj -> Int -> IO ()
    objectSetPropertyInt = objectSetPropertyInternal GType.int valueSetInt

    objectGetPropertyInt :: GObjectClass gobj => String -> gobj -> IO Int
    objectGetPropertyInt = objectGetPropertyInternal GType.int valueGetInt

    objectSetPropertyUInt :: GObjectClass gobj => String -> gobj -> Int -> IO ()
    objectSetPropertyUInt = objectSetPropertyInternal GType.uint (\gv v -> valueSetUInt gv (fromIntegral v))

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

    objectSetPropertyInt64 :: GObjectClass gobj => String -> gobj -> Int64 -> IO ()
    objectSetPropertyInt64 = objectSetPropertyInternal GType.int64 valueSetInt64

    objectGetPropertyInt64 :: GObjectClass gobj => String -> gobj -> IO Int64
    objectGetPropertyInt64 = objectGetPropertyInternal GType.int64 valueGetInt64

    objectSetPropertyUInt64 :: GObjectClass gobj => String -> gobj -> Word64 -> IO ()
    objectSetPropertyUInt64 = objectSetPropertyInternal GType.uint64 (\gv v -> valueSetUInt64 gv (fromIntegral v))

    objectGetPropertyUInt64 :: GObjectClass gobj => String -> gobj -> IO Word64
    objectGetPropertyUInt64 = objectGetPropertyInternal GType.uint64 (\gv -> liftM fromIntegral $ valueGetUInt64 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

    objectGetPropertyBool :: GObjectClass gobj => String -> gobj -> IO Bool
    objectGetPropertyBool = objectGetPropertyInternal GType.bool valueGetBool

    objectSetPropertyEnum :: (GObjectClass gobj, Enum enum) => GType -> String -> gobj -> enum -> IO ()
    objectSetPropertyEnum gtype = objectSetPropertyInternal gtype valueSetEnum

    objectGetPropertyEnum :: (GObjectClass gobj, Enum enum) => GType -> String -> gobj -> IO enum
    objectGetPropertyEnum gtype = objectGetPropertyInternal gtype valueGetEnum

    objectSetPropertyFlags :: (GObjectClass gobj, Flags flag) => GType -> String -> gobj -> [flag] -> IO ()
    objectSetPropertyFlags gtype = objectSetPropertyInternal gtype valueSetFlags

    objectGetPropertyFlags :: (GObjectClass gobj, Flags flag) => GType -> String -> gobj -> IO [flag]
    objectGetPropertyFlags gtype = objectGetPropertyInternal gtype valueGetFlags

    objectSetPropertyFloat :: GObjectClass gobj => String -> gobj -> Float -> IO ()
    objectSetPropertyFloat = objectSetPropertyInternal GType.float valueSetFloat

    objectGetPropertyFloat :: GObjectClass gobj => String -> gobj -> IO Float
    objectGetPropertyFloat = objectGetPropertyInternal GType.float valueGetFloat

    objectSetPropertyDouble :: GObjectClass gobj => String -> gobj -> Double -> IO ()
    objectSetPropertyDouble = objectSetPropertyInternal GType.double valueSetDouble

    objectGetPropertyDouble :: GObjectClass gobj => String -> gobj -> IO Double
    objectGetPropertyDouble = objectGetPropertyInternal GType.double valueGetDouble

    objectSetPropertyString :: (GObjectClass gobj, GlibString string) => String -> gobj -> string -> IO ()
    objectSetPropertyString = objectSetPropertyInternal GType.string valueSetString

    objectGetPropertyString :: (GObjectClass gobj, GlibString string) => String -> gobj -> IO string
    objectGetPropertyString = objectGetPropertyInternal GType.string valueGetString

    objectSetPropertyMaybeString :: (GObjectClass gobj, GlibString string) => String -> gobj -> Maybe string -> IO ()
    objectSetPropertyMaybeString = objectSetPropertyInternal GType.string valueSetMaybeString

    objectGetPropertyMaybeString :: (GObjectClass gobj, GlibString string) => String -> gobj -> IO (Maybe string)
    objectGetPropertyMaybeString = objectGetPropertyInternal GType.string valueGetMaybeString

    objectSetPropertyFilePath :: (GObjectClass gobj, GlibFilePath string) => String -> gobj -> string -> IO ()
    objectSetPropertyFilePath = objectSetPropertyInternal GType.string valueSetFilePath

    objectGetPropertyFilePath :: (GObjectClass gobj, GlibFilePath string) => String -> gobj -> IO string
    objectGetPropertyFilePath = objectGetPropertyInternal GType.string valueGetFilePath

    objectSetPropertyMaybeFilePath :: (GObjectClass gobj, GlibFilePath string) => String -> gobj -> Maybe string -> IO ()
    objectSetPropertyMaybeFilePath = objectSetPropertyInternal GType.string valueSetMaybeFilePath

    objectGetPropertyMaybeFilePath :: (GObjectClass gobj, GlibFilePath string) => String -> gobj -> IO (Maybe string)
    objectGetPropertyMaybeFilePath = objectGetPropertyInternal GType.string valueGetMaybeFilePath

    objectSetPropertyBoxedOpaque :: GObjectClass gobj => (boxed -> (Ptr boxed -> IO ()) -> IO ()) -> GType -> String -> gobj -> boxed -> IO ()
    objectSetPropertyBoxedOpaque with gtype = objectSetPropertyInternal gtype (valueSetBoxed with)

    objectGetPropertyBoxedOpaque :: GObjectClass gobj => (Ptr boxed -> IO boxed) -> GType -> String -> gobj -> IO boxed
    objectGetPropertyBoxedOpaque peek gtype = objectGetPropertyInternal gtype (valueGetBoxed peek)

    objectSetPropertyBoxedStorable :: (GObjectClass gobj, Storable boxed) => GType -> String -> gobj -> boxed -> IO ()
    objectSetPropertyBoxedStorable = objectSetPropertyBoxedOpaque with

    objectGetPropertyBoxedStorable :: (GObjectClass gobj, Storable boxed) => GType -> String -> gobj -> IO boxed
    objectGetPropertyBoxedStorable = objectGetPropertyBoxedOpaque peek

    objectSetPropertyGObject :: (GObjectClass gobj, GObjectClass gobj') => GType -> String -> gobj -> gobj' -> IO ()
    objectSetPropertyGObject gtype = objectSetPropertyInternal gtype valueSetGObject

    objectGetPropertyGObject :: (GObjectClass gobj, GObjectClass gobj') => GType -> String -> gobj -> IO gobj'
    objectGetPropertyGObject gtype = objectGetPropertyInternal gtype valueGetGObject

    objectSetPropertyMaybeGObject :: (GObjectClass gobj, GObjectClass gobj') => GType -> String -> gobj -> (Maybe gobj') -> IO ()
    objectSetPropertyMaybeGObject gtype = objectSetPropertyInternal gtype valueSetMaybeGObject

    objectGetPropertyMaybeGObject :: (GObjectClass gobj, GObjectClass gobj') => GType -> String -> gobj -> IO (Maybe gobj')
    objectGetPropertyMaybeGObject gtype = objectGetPropertyInternal gtype valueGetMaybeGObject

    -- Convenience functions to make attribute implementations in the other modules
    -- shorter and more easily extensible.
    --

    newAttrFromIntProperty :: GObjectClass gobj => String -> Attr gobj Int
    newAttrFromIntProperty propName =
      newNamedAttr propName (objectGetPropertyInt propName) (objectSetPropertyInt propName)

    readAttrFromIntProperty :: GObjectClass gobj => String -> ReadAttr gobj Int
    readAttrFromIntProperty propName =
      readNamedAttr propName (objectGetPropertyInt propName)

    newAttrFromUIntProperty :: GObjectClass gobj => String -> Attr gobj Int
    newAttrFromUIntProperty propName =
      newNamedAttr propName (objectGetPropertyUInt propName) (objectSetPropertyUInt propName)

    readAttrFromUIntProperty :: GObjectClass gobj => String -> ReadAttr gobj Int
    readAttrFromUIntProperty propName =
      readNamedAttr propName (objectGetPropertyUInt propName)

    newAttrFromCharProperty :: GObjectClass gobj => String -> Attr gobj Char
    newAttrFromCharProperty propName =
      newNamedAttr propName (objectGetPropertyChar propName) (objectSetPropertyChar propName)

    readAttrFromCharProperty :: GObjectClass gobj => String -> ReadAttr gobj Char
    readAttrFromCharProperty propName =
      readNamedAttr propName (objectGetPropertyChar propName)

    writeAttrFromUIntProperty :: GObjectClass gobj => String -> WriteAttr gobj Int
    writeAttrFromUIntProperty propName =
      writeNamedAttr propName (objectSetPropertyUInt propName)

    newAttrFromBoolProperty :: GObjectClass gobj => String -> Attr gobj Bool
    newAttrFromBoolProperty propName =
      newNamedAttr propName (objectGetPropertyBool propName) (objectSetPropertyBool propName)

    readAttrFromBoolProperty :: GObjectClass gobj => String -> ReadAttr gobj Bool
    readAttrFromBoolProperty propName =
      readNamedAttr propName (objectGetPropertyBool propName)

    newAttrFromFloatProperty :: GObjectClass gobj => String -> Attr gobj Float
    newAttrFromFloatProperty propName =
      newNamedAttr propName (objectGetPropertyFloat propName) (objectSetPropertyFloat propName)

    readAttrFromFloatProperty :: GObjectClass gobj => String -> ReadAttr gobj Float
    readAttrFromFloatProperty propName =
      readNamedAttr propName (objectGetPropertyFloat propName)

    newAttrFromDoubleProperty :: GObjectClass gobj => String -> Attr gobj Double
    newAttrFromDoubleProperty propName =
      newNamedAttr propName (objectGetPropertyDouble propName) (objectSetPropertyDouble propName)

    readAttrFromDoubleProperty :: GObjectClass gobj => String -> ReadAttr gobj Double
    readAttrFromDoubleProperty propName =
      readNamedAttr propName (objectGetPropertyDouble propName)

    newAttrFromEnumProperty :: (GObjectClass gobj, Enum enum) => String -> GType -> Attr gobj enum
    newAttrFromEnumProperty propName gtype =
      newNamedAttr propName (objectGetPropertyEnum gtype propName) (objectSetPropertyEnum gtype propName)

    readAttrFromEnumProperty :: (GObjectClass gobj, Enum enum) => String -> GType -> ReadAttr gobj enum
    readAttrFromEnumProperty propName gtype =
      readNamedAttr propName (objectGetPropertyEnum gtype propName)

    writeAttrFromEnumProperty :: (GObjectClass gobj, Enum enum) => String -> GType -> WriteAttr gobj enum
    writeAttrFromEnumProperty propName gtype =
      writeNamedAttr propName (objectSetPropertyEnum gtype propName)

    newAttrFromFlagsProperty :: (GObjectClass gobj, Flags flag) => String -> GType -> Attr gobj [flag]
    newAttrFromFlagsProperty propName gtype =
      newNamedAttr propName (objectGetPropertyFlags gtype propName) (objectSetPropertyFlags gtype propName)

    readAttrFromFlagsProperty :: (GObjectClass gobj, Flags flag) => String -> GType -> ReadAttr gobj [flag]
    readAttrFromFlagsProperty propName gtype =
      readNamedAttr propName (objectGetPropertyFlags gtype propName)

    newAttrFromStringProperty :: (GObjectClass gobj, GlibString string) => String -> Attr gobj string
    newAttrFromStringProperty propName =
      newNamedAttr propName (objectGetPropertyString propName) (objectSetPropertyString propName)

    readAttrFromStringProperty :: (GObjectClass gobj, GlibString string) => String -> ReadAttr gobj string
    readAttrFromStringProperty propName =
      readNamedAttr propName (objectGetPropertyString propName)

    writeAttrFromStringProperty :: (GObjectClass gobj, GlibString string) => String -> WriteAttr gobj string
    writeAttrFromStringProperty propName =
      writeNamedAttr propName (objectSetPropertyString propName)

    newAttrFromMaybeStringProperty :: (GObjectClass gobj, GlibString string) => String -> Attr gobj (Maybe string)
    newAttrFromMaybeStringProperty propName =
      newNamedAttr propName (objectGetPropertyMaybeString propName) (objectSetPropertyMaybeString propName)

    readAttrFromMaybeStringProperty :: (GObjectClass gobj, GlibString string) => String -> ReadAttr gobj (Maybe string)
    readAttrFromMaybeStringProperty propName =
      readNamedAttr propName (objectGetPropertyMaybeString propName)

    writeAttrFromMaybeStringProperty :: (GObjectClass gobj, GlibString string) => String -> WriteAttr gobj (Maybe string)
    writeAttrFromMaybeStringProperty propName =
      writeNamedAttr propName (objectSetPropertyMaybeString propName)

    newAttrFromFilePathProperty :: (GObjectClass gobj, GlibFilePath string) => String -> Attr gobj string
    newAttrFromFilePathProperty propName =
      newNamedAttr propName (objectGetPropertyFilePath propName) (objectSetPropertyFilePath propName)

    readAttrFromFilePathProperty :: (GObjectClass gobj, GlibFilePath string) => String -> ReadAttr gobj string
    readAttrFromFilePathProperty propName =
      readNamedAttr propName (objectGetPropertyFilePath propName)

    writeAttrFromFilePathProperty :: (GObjectClass gobj, GlibFilePath string) => String -> WriteAttr gobj string
    writeAttrFromFilePathProperty propName =
      writeNamedAttr propName (objectSetPropertyFilePath propName)

    newAttrFromMaybeFilePathProperty :: (GObjectClass gobj, GlibFilePath string) => String -> Attr gobj (Maybe string)
    newAttrFromMaybeFilePathProperty propName =
      newNamedAttr propName (objectGetPropertyMaybeFilePath propName) (objectSetPropertyMaybeFilePath propName)

    readAttrFromMaybeFilePathProperty :: (GObjectClass gobj, GlibFilePath string) => String -> ReadAttr gobj (Maybe string)
    readAttrFromMaybeFilePathProperty propName =
      readNamedAttr propName (objectGetPropertyMaybeFilePath propName)

    writeAttrFromMaybeFilePathProperty :: (GObjectClass gobj, GlibFilePath string) => String -> WriteAttr gobj (Maybe string)
    writeAttrFromMaybeFilePathProperty propName =
      writeNamedAttr propName (objectSetPropertyMaybeFilePath propName)

    newAttrFromBoxedOpaqueProperty :: GObjectClass gobj => (Ptr boxed -> IO boxed) -> (boxed -> (Ptr boxed -> IO ()) -> IO ()) -> String -> GType -> Attr gobj boxed
    newAttrFromBoxedOpaqueProperty peek with propName gtype =
      newNamedAttr propName (objectGetPropertyBoxedOpaque peek gtype propName) (objectSetPropertyBoxedOpaque with gtype propName)

    readAttrFromBoxedOpaqueProperty :: GObjectClass gobj => (Ptr boxed -> IO boxed) -> String -> GType -> ReadAttr gobj boxed
    readAttrFromBoxedOpaqueProperty peek propName gtype =
      readNamedAttr propName (objectGetPropertyBoxedOpaque peek gtype propName)

    writeAttrFromBoxedOpaqueProperty :: GObjectClass gobj => (boxed -> (Ptr boxed -> IO ()) -> IO ()) -> String -> GType -> WriteAttr gobj boxed
    writeAttrFromBoxedOpaqueProperty with propName gtype =
      writeNamedAttr propName (objectSetPropertyBoxedOpaque with gtype propName)

    newAttrFromBoxedStorableProperty :: (GObjectClass gobj, Storable boxed) => String -> GType -> Attr gobj boxed
    newAttrFromBoxedStorableProperty propName gtype =
      newNamedAttr propName (objectGetPropertyBoxedStorable gtype propName) (objectSetPropertyBoxedStorable gtype propName)

    readAttrFromBoxedStorableProperty :: (GObjectClass gobj, Storable boxed) => String -> GType -> ReadAttr gobj boxed
    readAttrFromBoxedStorableProperty propName gtype =
      readNamedAttr propName (objectGetPropertyBoxedStorable gtype propName)

    newAttrFromObjectProperty :: (GObjectClass gobj, GObjectClass gobj', GObjectClass gobj'') => String -> GType -> ReadWriteAttr gobj gobj' gobj''
    newAttrFromObjectProperty propName gtype =
      newNamedAttr propName (objectGetPropertyGObject gtype propName) (objectSetPropertyGObject gtype propName)

    writeAttrFromObjectProperty :: (GObjectClass gobj, GObjectClass gobj') => String -> GType -> WriteAttr gobj gobj'
    writeAttrFromObjectProperty propName gtype =
      writeNamedAttr propName (objectSetPropertyGObject gtype propName)

    readAttrFromObjectProperty :: (GObjectClass gobj, GObjectClass gobj') => String -> GType -> ReadAttr gobj gobj'
    readAttrFromObjectProperty propName gtype =
      readNamedAttr propName (objectGetPropertyGObject gtype propName)

    newAttrFromMaybeObjectProperty :: (GObjectClass gobj, GObjectClass gobj', GObjectClass gobj'') => String -> GType -> ReadWriteAttr gobj (Maybe gobj') (Maybe gobj'')
    newAttrFromMaybeObjectProperty propName gtype =
      newNamedAttr propName (objectGetPropertyMaybeGObject gtype propName) (objectSetPropertyMaybeGObject gtype propName)

    writeAttrFromMaybeObjectProperty :: (GObjectClass gobj, GObjectClass gobj') => String -> GType -> WriteAttr gobj (Maybe gobj')
    writeAttrFromMaybeObjectProperty propName gtype =
      writeNamedAttr propName (objectSetPropertyMaybeGObject gtype propName)

    readAttrFromMaybeObjectProperty :: (GObjectClass gobj, GObjectClass gobj') => String -> GType -> ReadAttr gobj (Maybe gobj')
    readAttrFromMaybeObjectProperty propName gtype =
      readNamedAttr propName (objectGetPropertyMaybeGObject gtype propName)

    foreign import ccall safe "g_object_set_property"
      g_object_set_property :: ((Ptr GObject) -> ((Ptr CChar) -> ((Ptr GValue) -> (IO ()))))

    foreign import ccall unsafe "g_object_get_property"
      g_object_get_property :: ((Ptr GObject) -> ((Ptr CChar) -> ((Ptr GValue) -> (IO ()))))