packages feed

gi-atk 0.2.18.10 → 0.2.18.12

raw patch · 87 files changed

+14476/−10591 lines, 87 filesdep ~gi-glibdep ~gi-gobjectdep ~haskell-gi-base

Dependency ranges changed: gi-glib, gi-gobject, haskell-gi-base

Files

GI/Atk.hs view
@@ -1,9757 +1,40 @@--- Generated code.--{-# OPTIONS_GHC -fno-warn-unused-imports #-}--{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,-    TypeFamilies, MultiParamTypeClasses, KindSignatures,-    FlexibleInstances, UndecidableInstances, DataKinds,-    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}--module GI.Atk where--import Prelude ()-import Data.GI.Base.ShortPrelude-import Data.Char-import Data.Int-import Data.Word-import qualified Data.ByteString.Char8 as B-import Data.ByteString.Char8 (ByteString)-import qualified Data.Map as Map-import Foreign.C-import Foreign.Ptr-import Foreign.ForeignPtr-import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)-import Foreign.Storable (peek, poke, sizeOf)-import Control.Applicative ((<$>))-import Control.Exception (onException)-import Control.Monad.IO.Class-import qualified Data.Text as T--import Data.GI.Base.Attributes hiding (get, set)-import Data.GI.Base.BasicTypes-import Data.GI.Base.BasicConversions-import Data.GI.Base.Closure-import Data.GI.Base.GError-import Data.GI.Base.GHashTable-import Data.GI.Base.GParamSpec-import Data.GI.Base.GVariant-import Data.GI.Base.GValue-import Data.GI.Base.ManagedPtr-import Data.GI.Base.Overloading-import Data.GI.Base.Properties hiding (new)-import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)-import Data.GI.Base.Utils--import qualified GI.GLib as GLib-import qualified GI.GLibAttributes as GLibA-import qualified GI.GObject as GObject-import qualified GI.GObjectAttributes as GObjectA---- interface Action --newtype Action = Action (ForeignPtr Action)-noAction :: Maybe Action-noAction = Nothing--class ForeignPtrNewtype a => ActionK a-instance (ForeignPtrNewtype o, IsDescendantOf Action o) => ActionK o-type instance ParentTypes Action = '[]---- method Action::do_action--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_action_do_action" atk_action_do_action :: -    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"-    Int32 ->                                -- i : TBasicType TInt32-    IO CInt---actionDoAction ::-    (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Bool-actionDoAction _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_action_do_action _obj' i-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Action::get_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_description" atk_action_get_description :: -    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"-    Int32 ->                                -- i : TBasicType TInt32-    IO CString---actionGetDescription ::-    (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text-actionGetDescription _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_action_get_description _obj' i-    checkUnexpectedReturnNULL "atk_action_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Action::get_keybinding--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_keybinding" atk_action_get_keybinding :: -    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"-    Int32 ->                                -- i : TBasicType TInt32-    IO CString---actionGetKeybinding ::-    (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text-actionGetKeybinding _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_action_get_keybinding _obj' i-    checkUnexpectedReturnNULL "atk_action_get_keybinding" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Action::get_localized_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_localized_name" atk_action_get_localized_name :: -    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"-    Int32 ->                                -- i : TBasicType TInt32-    IO CString---actionGetLocalizedName ::-    (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text-actionGetLocalizedName _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_action_get_localized_name _obj' i-    checkUnexpectedReturnNULL "atk_action_get_localized_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Action::get_n_actions--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_n_actions" atk_action_get_n_actions :: -    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"-    IO Int32---actionGetNActions ::-    (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    m Int32-actionGetNActions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_action_get_n_actions _obj'-    touchManagedPtr _obj-    return result---- method Action::get_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_name" atk_action_get_name :: -    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"-    Int32 ->                                -- i : TBasicType TInt32-    IO CString---actionGetName ::-    (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text-actionGetName _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_action_get_name _obj' i-    checkUnexpectedReturnNULL "atk_action_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Action::set_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_action_set_description" atk_action_set_description :: -    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"-    Int32 ->                                -- i : TBasicType TInt32-    CString ->                              -- desc : TBasicType TUTF8-    IO CInt---actionSetDescription ::-    (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    T.Text ->                               -- desc-    m Bool-actionSetDescription _obj i desc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    desc' <- textToCString desc-    result <- atk_action_set_description _obj' i desc'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem desc'-    return result'---- struct Attribute-newtype Attribute = Attribute (ForeignPtr Attribute)-noAttribute :: Maybe Attribute-noAttribute = Nothing--attributeReadName :: Attribute -> IO T.Text-attributeReadName s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--attributeReadValue :: Attribute -> IO T.Text-attributeReadValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'---- interface Component --newtype Component = Component (ForeignPtr Component)-noComponent :: Maybe Component-noComponent = Nothing--class ForeignPtrNewtype a => ComponentK a-instance (ForeignPtrNewtype o, IsDescendantOf Component o) => ComponentK o-type instance ParentTypes Component = '[]---- method Component::contains--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_component_contains" atk_component_contains :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"-    IO CInt---componentContains ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m Bool-componentContains _obj x y coord_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    result <- atk_component_contains _obj' x y coord_type'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Component::get_alpha--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_alpha" atk_component_get_alpha :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    IO CDouble---componentGetAlpha ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    m Double-componentGetAlpha _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_component_get_alpha _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- method Component::get_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_extents" atk_component_get_extents :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"-    IO ()---componentGetExtents ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    CoordType ->                            -- coord_type-    m ()-componentGetExtents _obj x y width height coord_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    atk_component_get_extents _obj' x y width height coord_type'-    touchManagedPtr _obj-    return ()---- method Component::get_layer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Layer"--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_layer" atk_component_get_layer :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    IO CUInt---componentGetLayer ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    m Layer-componentGetLayer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_component_get_layer _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Component::get_mdi_zorder--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_mdi_zorder" atk_component_get_mdi_zorder :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    IO Int32---componentGetMdiZorder ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    m Int32-componentGetMdiZorder _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_component_get_mdi_zorder _obj'-    touchManagedPtr _obj-    return result---- method Component::get_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_position" atk_component_get_position :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"-    IO ()--{-# DEPRECATED componentGetPosition ["Since 2.12. Use atk_component_get_extents() instead."]#-}-componentGetPosition ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m ()-componentGetPosition _obj x y coord_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    atk_component_get_position _obj' x y coord_type'-    touchManagedPtr _obj-    return ()---- method Component::get_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_size" atk_component_get_size :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO ()--{-# DEPRECATED componentGetSize ["Since 2.12. Use atk_component_get_extents() instead."]#-}-componentGetSize ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- width-    Int32 ->                                -- height-    m ()-componentGetSize _obj width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_component_get_size _obj' width height-    touchManagedPtr _obj-    return ()---- method Component::grab_focus--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_component_grab_focus" atk_component_grab_focus :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    IO CInt---componentGrabFocus ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    m Bool-componentGrabFocus _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_component_grab_focus _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Component::ref_accessible_at_point--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_component_ref_accessible_at_point" atk_component_ref_accessible_at_point :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"-    IO (Ptr Object)---componentRefAccessibleAtPoint ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m Object-componentRefAccessibleAtPoint _obj x y coord_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    result <- atk_component_ref_accessible_at_point _obj' x y coord_type'-    checkUnexpectedReturnNULL "atk_component_ref_accessible_at_point" result-    result' <- (wrapObject Object) result-    touchManagedPtr _obj-    return result'---- method Component::remove_focus_handler--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_component_remove_focus_handler" atk_component_remove_focus_handler :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    Word32 ->                               -- handler_id : TBasicType TUInt32-    IO ()--{-# DEPRECATED componentRemoveFocusHandler ["(Since version 2.9.4)","If you need to track when an object gains or","lose the focus, use the #AtkObject::state-change \"focused\" notification instead."]#-}-componentRemoveFocusHandler ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- handler_id-    m ()-componentRemoveFocusHandler _obj handler_id = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_component_remove_focus_handler _obj' handler_id-    touchManagedPtr _obj-    return ()---- method Component::set_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_component_set_extents" atk_component_set_extents :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"-    IO CInt---componentSetExtents ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    CoordType ->                            -- coord_type-    m Bool-componentSetExtents _obj x y width height coord_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    result <- atk_component_set_extents _obj' x y width height coord_type'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Component::set_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_component_set_position" atk_component_set_position :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"-    IO CInt---componentSetPosition ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m Bool-componentSetPosition _obj x y coord_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    result <- atk_component_set_position _obj' x y coord_type'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Component::set_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_component_set_size" atk_component_set_size :: -    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO CInt---componentSetSize ::-    (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- width-    Int32 ->                                -- height-    m Bool-componentSetSize _obj width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_component_set_size _obj' width height-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- signal Component::bounds-changed-type ComponentBoundsChangedCallback =-    Rectangle ->-    IO ()--noComponentBoundsChangedCallback :: Maybe ComponentBoundsChangedCallback-noComponentBoundsChangedCallback = Nothing--type ComponentBoundsChangedCallbackC =-    Ptr () ->                               -- object-    Ptr Rectangle ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkComponentBoundsChangedCallback :: ComponentBoundsChangedCallbackC -> IO (FunPtr ComponentBoundsChangedCallbackC)--componentBoundsChangedClosure :: ComponentBoundsChangedCallback -> IO Closure-componentBoundsChangedClosure cb = newCClosure =<< mkComponentBoundsChangedCallback wrapped-    where wrapped = componentBoundsChangedCallbackWrapper cb--componentBoundsChangedCallbackWrapper ::-    ComponentBoundsChangedCallback ->-    Ptr () ->-    Ptr Rectangle ->-    Ptr () ->-    IO ()-componentBoundsChangedCallbackWrapper _cb _ arg1 _ = do-    arg1' <- (newBoxed Rectangle) arg1-    _cb  arg1'--onComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId-onComponentBoundsChanged obj cb = liftIO $ connectComponentBoundsChanged obj cb SignalConnectBefore-afterComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId-afterComponentBoundsChanged obj cb = connectComponentBoundsChanged obj cb SignalConnectAfter--connectComponentBoundsChanged :: (GObject a, MonadIO m) =>-                                 a -> ComponentBoundsChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectComponentBoundsChanged obj cb after = liftIO $ do-    cb' <- mkComponentBoundsChangedCallback (componentBoundsChangedCallbackWrapper cb)-    connectSignalFunPtr obj "bounds-changed" cb' after---- Enum CoordType--data CoordType = -      CoordTypeScreen-    | CoordTypeWindow-    | AnotherCoordType Int-    deriving (Show, Eq)--instance Enum CoordType where-    fromEnum CoordTypeScreen = 0-    fromEnum CoordTypeWindow = 1-    fromEnum (AnotherCoordType k) = k--    toEnum 0 = CoordTypeScreen-    toEnum 1 = CoordTypeWindow-    toEnum k = AnotherCoordType k--foreign import ccall "atk_coord_type_get_type" c_atk_coord_type_get_type :: -    IO GType--instance BoxedEnum CoordType where-    boxedEnumType _ = c_atk_coord_type_get_type---- interface Document --newtype Document = Document (ForeignPtr Document)-noDocument :: Maybe Document-noDocument = Nothing--class ForeignPtrNewtype a => DocumentK a-instance (ForeignPtrNewtype o, IsDescendantOf Document o) => DocumentK o-type instance ParentTypes Document = '[]---- method Document::get_attribute_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_attribute_value" atk_document_get_attribute_value :: -    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"-    CString ->                              -- attribute_name : TBasicType TUTF8-    IO CString---documentGetAttributeValue ::-    (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- attribute_name-    m T.Text-documentGetAttributeValue _obj attribute_name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute_name' <- textToCString attribute_name-    result <- atk_document_get_attribute_value _obj' attribute_name'-    checkUnexpectedReturnNULL "atk_document_get_attribute_value" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem attribute_name'-    return result'---- method Document::get_attributes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TBasicType TVoid)--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_attributes" atk_document_get_attributes :: -    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"-    IO (Ptr (GSList (Ptr ())))---documentGetAttributes ::-    (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m [Ptr ()]-documentGetAttributes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_document_get_attributes _obj'-    checkUnexpectedReturnNULL "atk_document_get_attributes" result-    result' <- unpackGSList result-    touchManagedPtr _obj-    return result'---- method Document::get_current_page_number--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_current_page_number" atk_document_get_current_page_number :: -    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"-    IO Int32---documentGetCurrentPageNumber ::-    (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Int32-documentGetCurrentPageNumber _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_document_get_current_page_number _obj'-    touchManagedPtr _obj-    return result---- method Document::get_document--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_document" atk_document_get_document :: -    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"-    IO ()--{-# DEPRECATED documentGetDocument ["Since 2.12. @document is already a representation of","the document. Use it directly, or one of its children, as an","instance of the DOM."]#-}-documentGetDocument ::-    (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m ()-documentGetDocument _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_document_get_document _obj'-    touchManagedPtr _obj-    return ()---- method Document::get_document_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_document_type" atk_document_get_document_type :: -    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"-    IO CString--{-# DEPRECATED documentGetDocumentType ["Since 2.12. Please use atk_document_get_attributes() to","ask for the document type if it applies."]#-}-documentGetDocumentType ::-    (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text-documentGetDocumentType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_document_get_document_type _obj'-    checkUnexpectedReturnNULL "atk_document_get_document_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Document::get_locale--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_locale" atk_document_get_locale :: -    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"-    IO CString--{-# DEPRECATED documentGetLocale ["(Since version 2.7.90)","Please use atk_object_get_object_locale() instead."]#-}-documentGetLocale ::-    (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text-documentGetLocale _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_document_get_locale _obj'-    checkUnexpectedReturnNULL "atk_document_get_locale" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Document::get_page_count--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_page_count" atk_document_get_page_count :: -    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"-    IO Int32---documentGetPageCount ::-    (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Int32-documentGetPageCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_document_get_page_count _obj'-    touchManagedPtr _obj-    return result---- method Document::set_attribute_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_document_set_attribute_value" atk_document_set_attribute_value :: -    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"-    CString ->                              -- attribute_name : TBasicType TUTF8-    CString ->                              -- attribute_value : TBasicType TUTF8-    IO CInt---documentSetAttributeValue ::-    (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- attribute_name-    T.Text ->                               -- attribute_value-    m Bool-documentSetAttributeValue _obj attribute_name attribute_value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute_name' <- textToCString attribute_name-    attribute_value' <- textToCString attribute_value-    result <- atk_document_set_attribute_value _obj' attribute_name' attribute_value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem attribute_name'-    freeMem attribute_value'-    return result'---- signal Document::load-complete-type DocumentLoadCompleteCallback =-    IO ()--noDocumentLoadCompleteCallback :: Maybe DocumentLoadCompleteCallback-noDocumentLoadCompleteCallback = Nothing--type DocumentLoadCompleteCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDocumentLoadCompleteCallback :: DocumentLoadCompleteCallbackC -> IO (FunPtr DocumentLoadCompleteCallbackC)--documentLoadCompleteClosure :: DocumentLoadCompleteCallback -> IO Closure-documentLoadCompleteClosure cb = newCClosure =<< mkDocumentLoadCompleteCallback wrapped-    where wrapped = documentLoadCompleteCallbackWrapper cb--documentLoadCompleteCallbackWrapper ::-    DocumentLoadCompleteCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-documentLoadCompleteCallbackWrapper _cb _ _ = do-    _cb --onDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId-onDocumentLoadComplete obj cb = liftIO $ connectDocumentLoadComplete obj cb SignalConnectBefore-afterDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId-afterDocumentLoadComplete obj cb = connectDocumentLoadComplete obj cb SignalConnectAfter--connectDocumentLoadComplete :: (GObject a, MonadIO m) =>-                               a -> DocumentLoadCompleteCallback -> SignalConnectMode -> m SignalHandlerId-connectDocumentLoadComplete obj cb after = liftIO $ do-    cb' <- mkDocumentLoadCompleteCallback (documentLoadCompleteCallbackWrapper cb)-    connectSignalFunPtr obj "load-complete" cb' after---- signal Document::load-stopped-type DocumentLoadStoppedCallback =-    IO ()--noDocumentLoadStoppedCallback :: Maybe DocumentLoadStoppedCallback-noDocumentLoadStoppedCallback = Nothing--type DocumentLoadStoppedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDocumentLoadStoppedCallback :: DocumentLoadStoppedCallbackC -> IO (FunPtr DocumentLoadStoppedCallbackC)--documentLoadStoppedClosure :: DocumentLoadStoppedCallback -> IO Closure-documentLoadStoppedClosure cb = newCClosure =<< mkDocumentLoadStoppedCallback wrapped-    where wrapped = documentLoadStoppedCallbackWrapper cb--documentLoadStoppedCallbackWrapper ::-    DocumentLoadStoppedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-documentLoadStoppedCallbackWrapper _cb _ _ = do-    _cb --onDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId-onDocumentLoadStopped obj cb = liftIO $ connectDocumentLoadStopped obj cb SignalConnectBefore-afterDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId-afterDocumentLoadStopped obj cb = connectDocumentLoadStopped obj cb SignalConnectAfter--connectDocumentLoadStopped :: (GObject a, MonadIO m) =>-                              a -> DocumentLoadStoppedCallback -> SignalConnectMode -> m SignalHandlerId-connectDocumentLoadStopped obj cb after = liftIO $ do-    cb' <- mkDocumentLoadStoppedCallback (documentLoadStoppedCallbackWrapper cb)-    connectSignalFunPtr obj "load-stopped" cb' after---- signal Document::page-changed-type DocumentPageChangedCallback =-    Int32 ->-    IO ()--noDocumentPageChangedCallback :: Maybe DocumentPageChangedCallback-noDocumentPageChangedCallback = Nothing--type DocumentPageChangedCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDocumentPageChangedCallback :: DocumentPageChangedCallbackC -> IO (FunPtr DocumentPageChangedCallbackC)--documentPageChangedClosure :: DocumentPageChangedCallback -> IO Closure-documentPageChangedClosure cb = newCClosure =<< mkDocumentPageChangedCallback wrapped-    where wrapped = documentPageChangedCallbackWrapper cb--documentPageChangedCallbackWrapper ::-    DocumentPageChangedCallback ->-    Ptr () ->-    Int32 ->-    Ptr () ->-    IO ()-documentPageChangedCallbackWrapper _cb _ page_number _ = do-    _cb  page_number--onDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId-onDocumentPageChanged obj cb = liftIO $ connectDocumentPageChanged obj cb SignalConnectBefore-afterDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId-afterDocumentPageChanged obj cb = connectDocumentPageChanged obj cb SignalConnectAfter--connectDocumentPageChanged :: (GObject a, MonadIO m) =>-                              a -> DocumentPageChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectDocumentPageChanged obj cb after = liftIO $ do-    cb' <- mkDocumentPageChangedCallback (documentPageChangedCallbackWrapper cb)-    connectSignalFunPtr obj "page-changed" cb' after---- signal Document::reload-type DocumentReloadCallback =-    IO ()--noDocumentReloadCallback :: Maybe DocumentReloadCallback-noDocumentReloadCallback = Nothing--type DocumentReloadCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDocumentReloadCallback :: DocumentReloadCallbackC -> IO (FunPtr DocumentReloadCallbackC)--documentReloadClosure :: DocumentReloadCallback -> IO Closure-documentReloadClosure cb = newCClosure =<< mkDocumentReloadCallback wrapped-    where wrapped = documentReloadCallbackWrapper cb--documentReloadCallbackWrapper ::-    DocumentReloadCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-documentReloadCallbackWrapper _cb _ _ = do-    _cb --onDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId-onDocumentReload obj cb = liftIO $ connectDocumentReload obj cb SignalConnectBefore-afterDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId-afterDocumentReload obj cb = connectDocumentReload obj cb SignalConnectAfter--connectDocumentReload :: (GObject a, MonadIO m) =>-                         a -> DocumentReloadCallback -> SignalConnectMode -> m SignalHandlerId-connectDocumentReload obj cb after = liftIO $ do-    cb' <- mkDocumentReloadCallback (documentReloadCallbackWrapper cb)-    connectSignalFunPtr obj "reload" cb' after---- interface EditableText --newtype EditableText = EditableText (ForeignPtr EditableText)-noEditableText :: Maybe EditableText-noEditableText = Nothing--class ForeignPtrNewtype a => EditableTextK a-instance (ForeignPtrNewtype o, IsDescendantOf EditableText o) => EditableTextK o-type instance ParentTypes EditableText = '[]---- method EditableText::copy_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_copy_text" atk_editable_text_copy_text :: -    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"-    Int32 ->                                -- start_pos : TBasicType TInt32-    Int32 ->                                -- end_pos : TBasicType TInt32-    IO ()---editableTextCopyText ::-    (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_pos-    Int32 ->                                -- end_pos-    m ()-editableTextCopyText _obj start_pos end_pos = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_editable_text_copy_text _obj' start_pos end_pos-    touchManagedPtr _obj-    return ()---- method EditableText::cut_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_cut_text" atk_editable_text_cut_text :: -    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"-    Int32 ->                                -- start_pos : TBasicType TInt32-    Int32 ->                                -- end_pos : TBasicType TInt32-    IO ()---editableTextCutText ::-    (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_pos-    Int32 ->                                -- end_pos-    m ()-editableTextCutText _obj start_pos end_pos = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_editable_text_cut_text _obj' start_pos end_pos-    touchManagedPtr _obj-    return ()---- method EditableText::delete_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_delete_text" atk_editable_text_delete_text :: -    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"-    Int32 ->                                -- start_pos : TBasicType TInt32-    Int32 ->                                -- end_pos : TBasicType TInt32-    IO ()---editableTextDeleteText ::-    (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_pos-    Int32 ->                                -- end_pos-    m ()-editableTextDeleteText _obj start_pos end_pos = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_editable_text_delete_text _obj' start_pos end_pos-    touchManagedPtr _obj-    return ()---- method EditableText::insert_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_insert_text" atk_editable_text_insert_text :: -    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"-    CString ->                              -- string : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Int32 ->                                -- position : TBasicType TInt32-    IO ()---editableTextInsertText ::-    (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- string-    Int32 ->                                -- length-    Int32 ->                                -- position-    m ()-editableTextInsertText _obj string length_ position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    string' <- textToCString string-    atk_editable_text_insert_text _obj' string' length_ position-    touchManagedPtr _obj-    freeMem string'-    return ()---- method EditableText::paste_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_paste_text" atk_editable_text_paste_text :: -    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"-    Int32 ->                                -- position : TBasicType TInt32-    IO ()---editableTextPasteText ::-    (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- position-    m ()-editableTextPasteText _obj position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_editable_text_paste_text _obj' position-    touchManagedPtr _obj-    return ()---- method EditableText::set_run_attributes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_set_run_attributes" atk_editable_text_set_run_attributes :: -    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"-    Ptr (GSList (Ptr ())) ->                -- attrib_set : TGSList (TBasicType TVoid)-    Int32 ->                                -- start_offset : TBasicType TInt32-    Int32 ->                                -- end_offset : TBasicType TInt32-    IO CInt---editableTextSetRunAttributes ::-    (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    [Ptr ()] ->                             -- attrib_set-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    m Bool-editableTextSetRunAttributes _obj attrib_set start_offset end_offset = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attrib_set' <- packGSList attrib_set-    result <- atk_editable_text_set_run_attributes _obj' attrib_set' start_offset end_offset-    let result' = (/= 0) result-    touchManagedPtr _obj-    g_slist_free attrib_set'-    return result'---- method EditableText::set_text_contents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_set_text_contents" atk_editable_text_set_text_contents :: -    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"-    CString ->                              -- string : TBasicType TUTF8-    IO ()---editableTextSetTextContents ::-    (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- string-    m ()-editableTextSetTextContents _obj string = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    string' <- textToCString string-    atk_editable_text_set_text_contents _obj' string'-    touchManagedPtr _obj-    freeMem string'-    return ()---- callback EventListener-eventListenerClosure :: EventListener -> IO Closure-eventListenerClosure cb = newCClosure =<< mkEventListener wrapped-    where wrapped = eventListenerWrapper Nothing cb--type EventListenerC =-    Ptr Object ->-    IO ()--foreign import ccall "wrapper"-    mkEventListener :: EventListenerC -> IO (FunPtr EventListenerC)--type EventListener =-    Object ->-    IO ()--noEventListener :: Maybe EventListener-noEventListener = Nothing--eventListenerWrapper ::-    Maybe (Ptr (FunPtr (EventListenerC))) ->-    EventListener ->-    Ptr Object ->-    IO ()-eventListenerWrapper funptrptr _cb obj = do-    obj' <- (newObject Object) obj-    _cb  obj'-    maybeReleaseFunPtr funptrptr---- callback EventListenerInit-eventListenerInitClosure :: EventListenerInit -> IO Closure-eventListenerInitClosure cb = newCClosure =<< mkEventListenerInit wrapped-    where wrapped = eventListenerInitWrapper Nothing cb--type EventListenerInitC =-    IO ()--foreign import ccall "wrapper"-    mkEventListenerInit :: EventListenerInitC -> IO (FunPtr EventListenerInitC)--type EventListenerInit =-    IO ()--noEventListenerInit :: Maybe EventListenerInit-noEventListenerInit = Nothing--eventListenerInitWrapper ::-    Maybe (Ptr (FunPtr (EventListenerInitC))) ->-    EventListenerInit ->-    IO ()-eventListenerInitWrapper funptrptr _cb = do-    _cb -    maybeReleaseFunPtr funptrptr---- callback FocusHandler-focusHandlerClosure :: FocusHandler -> IO Closure-focusHandlerClosure cb = newCClosure =<< mkFocusHandler wrapped-    where wrapped = focusHandlerWrapper Nothing cb--type FocusHandlerC =-    Ptr Object ->-    CInt ->-    IO ()--foreign import ccall "wrapper"-    mkFocusHandler :: FocusHandlerC -> IO (FunPtr FocusHandlerC)--type FocusHandler =-    Object ->-    Bool ->-    IO ()--noFocusHandler :: Maybe FocusHandler-noFocusHandler = Nothing--focusHandlerWrapper ::-    Maybe (Ptr (FunPtr (FocusHandlerC))) ->-    FocusHandler ->-    Ptr Object ->-    CInt ->-    IO ()-focusHandlerWrapper funptrptr _cb object focus_in = do-    object' <- (newObject Object) object-    let focus_in' = (/= 0) focus_in-    _cb  object' focus_in'-    maybeReleaseFunPtr funptrptr---- callback Function-functionClosure :: Function -> IO Closure-functionClosure cb = newCClosure =<< mkFunction wrapped-    where wrapped = functionWrapper Nothing cb--type FunctionC =-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkFunction :: FunctionC -> IO (FunPtr FunctionC)--type Function =-    IO Bool--noFunction :: Maybe Function-noFunction = Nothing--functionWrapper ::-    Maybe (Ptr (FunPtr (FunctionC))) ->-    Function ->-    Ptr () ->-    IO CInt-functionWrapper funptrptr _cb _ = do-    result <- _cb -    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- object GObjectAccessible -newtype GObjectAccessible = GObjectAccessible (ForeignPtr GObjectAccessible)-noGObjectAccessible :: Maybe GObjectAccessible-noGObjectAccessible = Nothing--foreign import ccall "atk_gobject_accessible_get_type"-    c_atk_gobject_accessible_get_type :: IO GType--type instance ParentTypes GObjectAccessible = '[Object, GObject.Object]--instance GObject GObjectAccessible where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_gobject_accessible_get_type-    --class GObject o => GObjectAccessibleK o-instance (GObject o, IsDescendantOf GObjectAccessible o) => GObjectAccessibleK o--toGObjectAccessible :: GObjectAccessibleK o => o -> IO GObjectAccessible-toGObjectAccessible = unsafeCastTo GObjectAccessible---- method GObjectAccessible::get_object--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GObject" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_gobject_accessible_get_object" atk_gobject_accessible_get_object :: -    Ptr GObjectAccessible ->                -- _obj : TInterface "Atk" "GObjectAccessible"-    IO (Ptr GObject.Object)---gObjectAccessibleGetObject ::-    (MonadIO m, GObjectAccessibleK a) =>-    a ->                                    -- _obj-    m GObject.Object-gObjectAccessibleGetObject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_gobject_accessible_get_object _obj'-    checkUnexpectedReturnNULL "atk_gobject_accessible_get_object" result-    result' <- (newObject GObject.Object) result-    touchManagedPtr _obj-    return result'---- method GObjectAccessible::for_object--- method type : MemberFunction--- Args : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_gobject_accessible_for_object" atk_gobject_accessible_for_object :: -    Ptr GObject.Object ->                   -- obj : TInterface "GObject" "Object"-    IO (Ptr Object)---gObjectAccessibleForObject ::-    (MonadIO m, GObject.ObjectK a) =>-    a ->                                    -- obj-    m Object-gObjectAccessibleForObject obj = liftIO $ do-    let obj' = unsafeManagedPtrCastPtr obj-    result <- atk_gobject_accessible_for_object obj'-    checkUnexpectedReturnNULL "atk_gobject_accessible_for_object" result-    result' <- (newObject Object) result-    touchManagedPtr obj-    return result'---- object Hyperlink -newtype Hyperlink = Hyperlink (ForeignPtr Hyperlink)-noHyperlink :: Maybe Hyperlink-noHyperlink = Nothing--foreign import ccall "atk_hyperlink_get_type"-    c_atk_hyperlink_get_type :: IO GType--type instance ParentTypes Hyperlink = '[GObject.Object, Action]--instance GObject Hyperlink where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_hyperlink_get_type-    --class GObject o => HyperlinkK o-instance (GObject o, IsDescendantOf Hyperlink o) => HyperlinkK o--toHyperlink :: HyperlinkK o => o -> IO Hyperlink-toHyperlink = unsafeCastTo Hyperlink---- method Hyperlink::get_end_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_end_index" atk_hyperlink_get_end_index :: -    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"-    IO Int32---hyperlinkGetEndIndex ::-    (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Int32-hyperlinkGetEndIndex _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hyperlink_get_end_index _obj'-    touchManagedPtr _obj-    return result---- method Hyperlink::get_n_anchors--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_n_anchors" atk_hyperlink_get_n_anchors :: -    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"-    IO Int32---hyperlinkGetNAnchors ::-    (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Int32-hyperlinkGetNAnchors _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hyperlink_get_n_anchors _obj'-    touchManagedPtr _obj-    return result---- method Hyperlink::get_object--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_object" atk_hyperlink_get_object :: -    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"-    Int32 ->                                -- i : TBasicType TInt32-    IO (Ptr Object)---hyperlinkGetObject ::-    (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Object-hyperlinkGetObject _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hyperlink_get_object _obj' i-    checkUnexpectedReturnNULL "atk_hyperlink_get_object" result-    result' <- (newObject Object) result-    touchManagedPtr _obj-    return result'---- method Hyperlink::get_start_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_start_index" atk_hyperlink_get_start_index :: -    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"-    IO Int32---hyperlinkGetStartIndex ::-    (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Int32-hyperlinkGetStartIndex _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hyperlink_get_start_index _obj'-    touchManagedPtr _obj-    return result---- method Hyperlink::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_uri" atk_hyperlink_get_uri :: -    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"-    Int32 ->                                -- i : TBasicType TInt32-    IO CString---hyperlinkGetUri ::-    (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text-hyperlinkGetUri _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hyperlink_get_uri _obj' i-    checkUnexpectedReturnNULL "atk_hyperlink_get_uri" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method Hyperlink::is_inline--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_is_inline" atk_hyperlink_is_inline :: -    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"-    IO CInt---hyperlinkIsInline ::-    (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Bool-hyperlinkIsInline _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hyperlink_is_inline _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Hyperlink::is_selected_link--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_is_selected_link" atk_hyperlink_is_selected_link :: -    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"-    IO CInt--{-# DEPRECATED hyperlinkIsSelectedLink ["(Since version 1.8)","Please use ATK_STATE_FOCUSABLE for all links,","and ATK_STATE_FOCUSED for focused links."]#-}-hyperlinkIsSelectedLink ::-    (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Bool-hyperlinkIsSelectedLink _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hyperlink_is_selected_link _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Hyperlink::is_valid--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_is_valid" atk_hyperlink_is_valid :: -    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"-    IO CInt---hyperlinkIsValid ::-    (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Bool-hyperlinkIsValid _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hyperlink_is_valid _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- signal Hyperlink::link-activated-type HyperlinkLinkActivatedCallback =-    IO ()--noHyperlinkLinkActivatedCallback :: Maybe HyperlinkLinkActivatedCallback-noHyperlinkLinkActivatedCallback = Nothing--type HyperlinkLinkActivatedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkHyperlinkLinkActivatedCallback :: HyperlinkLinkActivatedCallbackC -> IO (FunPtr HyperlinkLinkActivatedCallbackC)--hyperlinkLinkActivatedClosure :: HyperlinkLinkActivatedCallback -> IO Closure-hyperlinkLinkActivatedClosure cb = newCClosure =<< mkHyperlinkLinkActivatedCallback wrapped-    where wrapped = hyperlinkLinkActivatedCallbackWrapper cb--hyperlinkLinkActivatedCallbackWrapper ::-    HyperlinkLinkActivatedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-hyperlinkLinkActivatedCallbackWrapper _cb _ _ = do-    _cb --onHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId-onHyperlinkLinkActivated obj cb = liftIO $ connectHyperlinkLinkActivated obj cb SignalConnectBefore-afterHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId-afterHyperlinkLinkActivated obj cb = connectHyperlinkLinkActivated obj cb SignalConnectAfter--connectHyperlinkLinkActivated :: (GObject a, MonadIO m) =>-                                 a -> HyperlinkLinkActivatedCallback -> SignalConnectMode -> m SignalHandlerId-connectHyperlinkLinkActivated obj cb after = liftIO $ do-    cb' <- mkHyperlinkLinkActivatedCallback (hyperlinkLinkActivatedCallbackWrapper cb)-    connectSignalFunPtr obj "link-activated" cb' after---- interface HyperlinkImpl --newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl)-noHyperlinkImpl :: Maybe HyperlinkImpl-noHyperlinkImpl = Nothing--class ForeignPtrNewtype a => HyperlinkImplK a-instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o-type instance ParentTypes HyperlinkImpl = '[]---- method HyperlinkImpl::get_hyperlink--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Hyperlink"--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_impl_get_hyperlink" atk_hyperlink_impl_get_hyperlink :: -    Ptr HyperlinkImpl ->                    -- _obj : TInterface "Atk" "HyperlinkImpl"-    IO (Ptr Hyperlink)---hyperlinkImplGetHyperlink ::-    (MonadIO m, HyperlinkImplK a) =>-    a ->                                    -- _obj-    m Hyperlink-hyperlinkImplGetHyperlink _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hyperlink_impl_get_hyperlink _obj'-    checkUnexpectedReturnNULL "atk_hyperlink_impl_get_hyperlink" result-    result' <- (wrapObject Hyperlink) result-    touchManagedPtr _obj-    return result'---- Flags HyperlinkStateFlags--data HyperlinkStateFlags = -      HyperlinkStateFlagsInline-    | AnotherHyperlinkStateFlags Int-    deriving (Show, Eq)--instance Enum HyperlinkStateFlags where-    fromEnum HyperlinkStateFlagsInline = 1-    fromEnum (AnotherHyperlinkStateFlags k) = k--    toEnum 1 = HyperlinkStateFlagsInline-    toEnum k = AnotherHyperlinkStateFlags k--foreign import ccall "atk_hyperlink_state_flags_get_type" c_atk_hyperlink_state_flags_get_type :: -    IO GType--instance BoxedEnum HyperlinkStateFlags where-    boxedEnumType _ = c_atk_hyperlink_state_flags_get_type--instance IsGFlag HyperlinkStateFlags---- interface Hypertext --newtype Hypertext = Hypertext (ForeignPtr Hypertext)-noHypertext :: Maybe Hypertext-noHypertext = Nothing--class ForeignPtrNewtype a => HypertextK a-instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o-type instance ParentTypes Hypertext = '[]---- method Hypertext::get_link--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Hyperlink"--- throws : False--- Skip return : False--foreign import ccall "atk_hypertext_get_link" atk_hypertext_get_link :: -    Ptr Hypertext ->                        -- _obj : TInterface "Atk" "Hypertext"-    Int32 ->                                -- link_index : TBasicType TInt32-    IO (Ptr Hyperlink)---hypertextGetLink ::-    (MonadIO m, HypertextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- link_index-    m Hyperlink-hypertextGetLink _obj link_index = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hypertext_get_link _obj' link_index-    checkUnexpectedReturnNULL "atk_hypertext_get_link" result-    result' <- (newObject Hyperlink) result-    touchManagedPtr _obj-    return result'---- method Hypertext::get_link_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_hypertext_get_link_index" atk_hypertext_get_link_index :: -    Ptr Hypertext ->                        -- _obj : TInterface "Atk" "Hypertext"-    Int32 ->                                -- char_index : TBasicType TInt32-    IO Int32---hypertextGetLinkIndex ::-    (MonadIO m, HypertextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- char_index-    m Int32-hypertextGetLinkIndex _obj char_index = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hypertext_get_link_index _obj' char_index-    touchManagedPtr _obj-    return result---- method Hypertext::get_n_links--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_hypertext_get_n_links" atk_hypertext_get_n_links :: -    Ptr Hypertext ->                        -- _obj : TInterface "Atk" "Hypertext"-    IO Int32---hypertextGetNLinks ::-    (MonadIO m, HypertextK a) =>-    a ->                                    -- _obj-    m Int32-hypertextGetNLinks _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hypertext_get_n_links _obj'-    touchManagedPtr _obj-    return result---- signal Hypertext::link-selected-type HypertextLinkSelectedCallback =-    Int32 ->-    IO ()--noHypertextLinkSelectedCallback :: Maybe HypertextLinkSelectedCallback-noHypertextLinkSelectedCallback = Nothing--type HypertextLinkSelectedCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkHypertextLinkSelectedCallback :: HypertextLinkSelectedCallbackC -> IO (FunPtr HypertextLinkSelectedCallbackC)--hypertextLinkSelectedClosure :: HypertextLinkSelectedCallback -> IO Closure-hypertextLinkSelectedClosure cb = newCClosure =<< mkHypertextLinkSelectedCallback wrapped-    where wrapped = hypertextLinkSelectedCallbackWrapper cb--hypertextLinkSelectedCallbackWrapper ::-    HypertextLinkSelectedCallback ->-    Ptr () ->-    Int32 ->-    Ptr () ->-    IO ()-hypertextLinkSelectedCallbackWrapper _cb _ arg1 _ = do-    _cb  arg1--onHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId-onHypertextLinkSelected obj cb = liftIO $ connectHypertextLinkSelected obj cb SignalConnectBefore-afterHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId-afterHypertextLinkSelected obj cb = connectHypertextLinkSelected obj cb SignalConnectAfter--connectHypertextLinkSelected :: (GObject a, MonadIO m) =>-                                a -> HypertextLinkSelectedCallback -> SignalConnectMode -> m SignalHandlerId-connectHypertextLinkSelected obj cb after = liftIO $ do-    cb' <- mkHypertextLinkSelectedCallback (hypertextLinkSelectedCallbackWrapper cb)-    connectSignalFunPtr obj "link-selected" cb' after---- interface Image --newtype Image = Image (ForeignPtr Image)-noImage :: Maybe Image-noImage = Nothing--class ForeignPtrNewtype a => ImageK a-instance (ForeignPtrNewtype o, IsDescendantOf Image o) => ImageK o-type instance ParentTypes Image = '[]---- method Image::get_image_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_image_get_image_description" atk_image_get_image_description :: -    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"-    IO CString---imageGetImageDescription ::-    (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    m T.Text-imageGetImageDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_image_get_image_description _obj'-    checkUnexpectedReturnNULL "atk_image_get_image_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Image::get_image_locale--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_image_get_image_locale" atk_image_get_image_locale :: -    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"-    IO CString---imageGetImageLocale ::-    (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    m T.Text-imageGetImageLocale _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_image_get_image_locale _obj'-    checkUnexpectedReturnNULL "atk_image_get_image_locale" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Image::get_image_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_image_get_image_position" atk_image_get_image_position :: -    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"-    IO ()---imageGetImagePosition ::-    (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m ()-imageGetImagePosition _obj x y coord_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    atk_image_get_image_position _obj' x y coord_type'-    touchManagedPtr _obj-    return ()---- method Image::get_image_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_image_get_image_size" atk_image_get_image_size :: -    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO ()---imageGetImageSize ::-    (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- width-    Int32 ->                                -- height-    m ()-imageGetImageSize _obj width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_image_get_image_size _obj' width height-    touchManagedPtr _obj-    return ()---- method Image::set_image_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_image_set_image_description" atk_image_set_image_description :: -    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"-    CString ->                              -- description : TBasicType TUTF8-    IO CInt---imageSetImageDescription ::-    (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- description-    m Bool-imageSetImageDescription _obj description = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    description' <- textToCString description-    result <- atk_image_set_image_description _obj' description'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem description'-    return result'---- struct Implementor-newtype Implementor = Implementor (ForeignPtr Implementor)-noImplementor :: Maybe Implementor-noImplementor = Nothing---- method Implementor::ref_accessible--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Implementor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Implementor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_implementor_ref_accessible" atk_implementor_ref_accessible :: -    Ptr Implementor ->                      -- _obj : TInterface "Atk" "Implementor"-    IO (Ptr Object)---implementorRefAccessible ::-    (MonadIO m) =>-    Implementor ->                          -- _obj-    m Object-implementorRefAccessible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- atk_implementor_ref_accessible _obj'-    checkUnexpectedReturnNULL "atk_implementor_ref_accessible" result-    result' <- (wrapObject Object) result-    touchManagedPtr _obj-    return result'---- interface ImplementorIface --newtype ImplementorIface = ImplementorIface (ForeignPtr ImplementorIface)-noImplementorIface :: Maybe ImplementorIface-noImplementorIface = Nothing--class ForeignPtrNewtype a => ImplementorIfaceK a-instance (ForeignPtrNewtype o, IsDescendantOf ImplementorIface o) => ImplementorIfaceK o-type instance ParentTypes ImplementorIface = '[]---- struct KeyEventStruct-newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct)-noKeyEventStruct :: Maybe KeyEventStruct-noKeyEventStruct = Nothing--keyEventStructReadType :: KeyEventStruct -> IO Int32-keyEventStructReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--keyEventStructReadState :: KeyEventStruct -> IO Word32-keyEventStructReadState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Word32-    return val--keyEventStructReadKeyval :: KeyEventStruct -> IO Word32-keyEventStructReadKeyval s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word32-    return val--keyEventStructReadLength :: KeyEventStruct -> IO Int32-keyEventStructReadLength s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--keyEventStructReadString :: KeyEventStruct -> IO T.Text-keyEventStructReadString s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'--keyEventStructReadKeycode :: KeyEventStruct -> IO Word16-keyEventStructReadKeycode s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Word16-    return val--keyEventStructReadTimestamp :: KeyEventStruct -> IO Word32-keyEventStructReadTimestamp s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Word32-    return val---- Enum KeyEventType--data KeyEventType = -      KeyEventTypePress-    | KeyEventTypeRelease-    | KeyEventTypeLastDefined-    | AnotherKeyEventType Int-    deriving (Show, Eq)--instance Enum KeyEventType where-    fromEnum KeyEventTypePress = 0-    fromEnum KeyEventTypeRelease = 1-    fromEnum KeyEventTypeLastDefined = 2-    fromEnum (AnotherKeyEventType k) = k--    toEnum 0 = KeyEventTypePress-    toEnum 1 = KeyEventTypeRelease-    toEnum 2 = KeyEventTypeLastDefined-    toEnum k = AnotherKeyEventType k--foreign import ccall "atk_key_event_type_get_type" c_atk_key_event_type_get_type :: -    IO GType--instance BoxedEnum KeyEventType where-    boxedEnumType _ = c_atk_key_event_type_get_type---- callback KeySnoopFunc-keySnoopFuncClosure :: KeySnoopFunc -> IO Closure-keySnoopFuncClosure cb = newCClosure =<< mkKeySnoopFunc wrapped-    where wrapped = keySnoopFuncWrapper Nothing cb--type KeySnoopFuncC =-    Ptr KeyEventStruct ->-    Ptr () ->-    IO Int32--foreign import ccall "wrapper"-    mkKeySnoopFunc :: KeySnoopFuncC -> IO (FunPtr KeySnoopFuncC)--type KeySnoopFunc =-    KeyEventStruct ->-    IO Int32--noKeySnoopFunc :: Maybe KeySnoopFunc-noKeySnoopFunc = Nothing--keySnoopFuncWrapper ::-    Maybe (Ptr (FunPtr (KeySnoopFuncC))) ->-    KeySnoopFunc ->-    Ptr KeyEventStruct ->-    Ptr () ->-    IO Int32-keySnoopFuncWrapper funptrptr _cb event _ = do-    event' <- (newPtr 32 KeyEventStruct) event-    result <- _cb  event'-    maybeReleaseFunPtr funptrptr-    return result---- Enum Layer--data Layer = -      LayerInvalid-    | LayerBackground-    | LayerCanvas-    | LayerWidget-    | LayerMdi-    | LayerPopup-    | LayerOverlay-    | LayerWindow-    | AnotherLayer Int-    deriving (Show, Eq)--instance Enum Layer where-    fromEnum LayerInvalid = 0-    fromEnum LayerBackground = 1-    fromEnum LayerCanvas = 2-    fromEnum LayerWidget = 3-    fromEnum LayerMdi = 4-    fromEnum LayerPopup = 5-    fromEnum LayerOverlay = 6-    fromEnum LayerWindow = 7-    fromEnum (AnotherLayer k) = k--    toEnum 0 = LayerInvalid-    toEnum 1 = LayerBackground-    toEnum 2 = LayerCanvas-    toEnum 3 = LayerWidget-    toEnum 4 = LayerMdi-    toEnum 5 = LayerPopup-    toEnum 6 = LayerOverlay-    toEnum 7 = LayerWindow-    toEnum k = AnotherLayer k--foreign import ccall "atk_layer_get_type" c_atk_layer_get_type :: -    IO GType--instance BoxedEnum Layer where-    boxedEnumType _ = c_atk_layer_get_type---- object Misc -newtype Misc = Misc (ForeignPtr Misc)-noMisc :: Maybe Misc-noMisc = Nothing--foreign import ccall "atk_misc_get_type"-    c_atk_misc_get_type :: IO GType--type instance ParentTypes Misc = '[GObject.Object]--instance GObject Misc where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_misc_get_type-    --class GObject o => MiscK o-instance (GObject o, IsDescendantOf Misc o) => MiscK o--toMisc :: MiscK o => o -> IO Misc-toMisc = unsafeCastTo Misc---- method Misc::threads_enter--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_misc_threads_enter" atk_misc_threads_enter :: -    Ptr Misc ->                             -- _obj : TInterface "Atk" "Misc"-    IO ()--{-# DEPRECATED miscThreadsEnter ["Since 2.12."]#-}-miscThreadsEnter ::-    (MonadIO m, MiscK a) =>-    a ->                                    -- _obj-    m ()-miscThreadsEnter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_misc_threads_enter _obj'-    touchManagedPtr _obj-    return ()---- method Misc::threads_leave--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_misc_threads_leave" atk_misc_threads_leave :: -    Ptr Misc ->                             -- _obj : TInterface "Atk" "Misc"-    IO ()--{-# DEPRECATED miscThreadsLeave ["Since 2.12."]#-}-miscThreadsLeave ::-    (MonadIO m, MiscK a) =>-    a ->                                    -- _obj-    m ()-miscThreadsLeave _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_misc_threads_leave _obj'-    touchManagedPtr _obj-    return ()---- method Misc::get_instance--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Atk" "Misc"--- throws : False--- Skip return : False--foreign import ccall "atk_misc_get_instance" atk_misc_get_instance :: -    IO (Ptr Misc)--{-# DEPRECATED miscGetInstance ["Since 2.12."]#-}-miscGetInstance ::-    (MonadIO m) =>-    m Misc-miscGetInstance  = liftIO $ do-    result <- atk_misc_get_instance-    checkUnexpectedReturnNULL "atk_misc_get_instance" result-    result' <- (newObject Misc) result-    return result'---- object NoOpObject -newtype NoOpObject = NoOpObject (ForeignPtr NoOpObject)-noNoOpObject :: Maybe NoOpObject-noNoOpObject = Nothing--foreign import ccall "atk_no_op_object_get_type"-    c_atk_no_op_object_get_type :: IO GType--type instance ParentTypes NoOpObject = '[Object, GObject.Object, Action, Component, Document, EditableText, Hypertext, Image, Selection, Table, TableCell, Text, Value, Window]--instance GObject NoOpObject where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_no_op_object_get_type-    --class GObject o => NoOpObjectK o-instance (GObject o, IsDescendantOf NoOpObject o) => NoOpObjectK o--toNoOpObject :: NoOpObjectK o => o -> IO NoOpObject-toNoOpObject = unsafeCastTo NoOpObject---- method NoOpObject::new--- method type : Constructor--- Args : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "NoOpObject"--- throws : False--- Skip return : False--foreign import ccall "atk_no_op_object_new" atk_no_op_object_new :: -    Ptr GObject.Object ->                   -- obj : TInterface "GObject" "Object"-    IO (Ptr NoOpObject)---noOpObjectNew ::-    (MonadIO m, GObject.ObjectK a) =>-    a ->                                    -- obj-    m NoOpObject-noOpObjectNew obj = liftIO $ do-    let obj' = unsafeManagedPtrCastPtr obj-    result <- atk_no_op_object_new obj'-    checkUnexpectedReturnNULL "atk_no_op_object_new" result-    result' <- (wrapObject NoOpObject) result-    touchManagedPtr obj-    return result'---- object NoOpObjectFactory -newtype NoOpObjectFactory = NoOpObjectFactory (ForeignPtr NoOpObjectFactory)-noNoOpObjectFactory :: Maybe NoOpObjectFactory-noNoOpObjectFactory = Nothing--foreign import ccall "atk_no_op_object_factory_get_type"-    c_atk_no_op_object_factory_get_type :: IO GType--type instance ParentTypes NoOpObjectFactory = '[ObjectFactory, GObject.Object]--instance GObject NoOpObjectFactory where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_no_op_object_factory_get_type-    --class GObject o => NoOpObjectFactoryK o-instance (GObject o, IsDescendantOf NoOpObjectFactory o) => NoOpObjectFactoryK o--toNoOpObjectFactory :: NoOpObjectFactoryK o => o -> IO NoOpObjectFactory-toNoOpObjectFactory = unsafeCastTo NoOpObjectFactory---- method NoOpObjectFactory::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Atk" "NoOpObjectFactory"--- throws : False--- Skip return : False--foreign import ccall "atk_no_op_object_factory_new" atk_no_op_object_factory_new :: -    IO (Ptr NoOpObjectFactory)---noOpObjectFactoryNew ::-    (MonadIO m) =>-    m NoOpObjectFactory-noOpObjectFactoryNew  = liftIO $ do-    result <- atk_no_op_object_factory_new-    checkUnexpectedReturnNULL "atk_no_op_object_factory_new" result-    result' <- (wrapObject NoOpObjectFactory) result-    return result'---- object Object -newtype Object = Object (ForeignPtr Object)-noObject :: Maybe Object-noObject = Nothing--foreign import ccall "atk_object_get_type"-    c_atk_object_get_type :: IO GType--type instance ParentTypes Object = '[GObject.Object]--instance GObject Object where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_object_get_type-    --class GObject o => ObjectK o-instance (GObject o, IsDescendantOf Object o) => ObjectK o--toObject :: ObjectK o => o -> IO Object-toObject = unsafeCastTo Object---- method Object::add_relationship--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_object_add_relationship" atk_object_add_relationship :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"-    Ptr Object ->                           -- target : TInterface "Atk" "Object"-    IO CInt---objectAddRelationship ::-    (MonadIO m, ObjectK a, ObjectK b) =>-    a ->                                    -- _obj-    RelationType ->                         -- relationship-    b ->                                    -- target-    m Bool-objectAddRelationship _obj relationship target = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let relationship' = (fromIntegral . fromEnum) relationship-    let target' = unsafeManagedPtrCastPtr target-    result <- atk_object_add_relationship _obj' relationship' target'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr target-    return result'---- method Object::get_attributes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TBasicType TVoid)--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_attributes" atk_object_get_attributes :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO (Ptr (GSList (Ptr ())))---objectGetAttributes ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m [Ptr ()]-objectGetAttributes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_attributes _obj'-    checkUnexpectedReturnNULL "atk_object_get_attributes" result-    result' <- unpackGSList result-    g_slist_free result-    touchManagedPtr _obj-    return result'---- method Object::get_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_description" atk_object_get_description :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO CString---objectGetDescription ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m T.Text-objectGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_description _obj'-    checkUnexpectedReturnNULL "atk_object_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Object::get_index_in_parent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_index_in_parent" atk_object_get_index_in_parent :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO Int32---objectGetIndexInParent ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m Int32-objectGetIndexInParent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_index_in_parent _obj'-    touchManagedPtr _obj-    return result---- method Object::get_layer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Layer"--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_layer" atk_object_get_layer :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO CUInt--{-# DEPRECATED objectGetLayer ["Use atk_component_get_layer instead."]#-}-objectGetLayer ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m Layer-objectGetLayer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_layer _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Object::get_mdi_zorder--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_mdi_zorder" atk_object_get_mdi_zorder :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO Int32--{-# DEPRECATED objectGetMdiZorder ["Use atk_component_get_mdi_zorder instead."]#-}-objectGetMdiZorder ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m Int32-objectGetMdiZorder _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_mdi_zorder _obj'-    touchManagedPtr _obj-    return result---- method Object::get_n_accessible_children--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_n_accessible_children" atk_object_get_n_accessible_children :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO Int32---objectGetNAccessibleChildren ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m Int32-objectGetNAccessibleChildren _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_n_accessible_children _obj'-    touchManagedPtr _obj-    return result---- method Object::get_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_name" atk_object_get_name :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO CString---objectGetName ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m T.Text-objectGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_name _obj'-    checkUnexpectedReturnNULL "atk_object_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Object::get_object_locale--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_object_locale" atk_object_get_object_locale :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO CString---objectGetObjectLocale ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m T.Text-objectGetObjectLocale _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_object_locale _obj'-    checkUnexpectedReturnNULL "atk_object_get_object_locale" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Object::get_parent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_parent" atk_object_get_parent :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO (Ptr Object)---objectGetParent ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m Object-objectGetParent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_parent _obj'-    checkUnexpectedReturnNULL "atk_object_get_parent" result-    result' <- (newObject Object) result-    touchManagedPtr _obj-    return result'---- method Object::get_role--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Role"--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_role" atk_object_get_role :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO CUInt---objectGetRole ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m Role-objectGetRole _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_get_role _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Object::initialize--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_object_initialize" atk_object_initialize :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    Ptr () ->                               -- data : TBasicType TVoid-    IO ()---objectInitialize ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    Ptr () ->                               -- data-    m ()-objectInitialize _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_object_initialize _obj' data_-    touchManagedPtr _obj-    return ()---- method Object::notify_state_change--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_object_notify_state_change" atk_object_notify_state_change :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    Word64 ->                               -- state : TBasicType TUInt64-    CInt ->                                 -- value : TBasicType TBoolean-    IO ()---objectNotifyStateChange ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    Word64 ->                               -- state-    Bool ->                                 -- value-    m ()-objectNotifyStateChange _obj state value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let value' = (fromIntegral . fromEnum) value-    atk_object_notify_state_change _obj' state value'-    touchManagedPtr _obj-    return ()---- method Object::peek_parent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_object_peek_parent" atk_object_peek_parent :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO (Ptr Object)---objectPeekParent ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m Object-objectPeekParent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_peek_parent _obj'-    checkUnexpectedReturnNULL "atk_object_peek_parent" result-    result' <- (newObject Object) result-    touchManagedPtr _obj-    return result'---- method Object::ref_accessible_child--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_object_ref_accessible_child" atk_object_ref_accessible_child :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    Int32 ->                                -- i : TBasicType TInt32-    IO (Ptr Object)---objectRefAccessibleChild ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Object-objectRefAccessibleChild _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_ref_accessible_child _obj' i-    checkUnexpectedReturnNULL "atk_object_ref_accessible_child" result-    result' <- (wrapObject Object) result-    touchManagedPtr _obj-    return result'---- method Object::ref_relation_set--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "RelationSet"--- throws : False--- Skip return : False--foreign import ccall "atk_object_ref_relation_set" atk_object_ref_relation_set :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO (Ptr RelationSet)---objectRefRelationSet ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m RelationSet-objectRefRelationSet _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_ref_relation_set _obj'-    checkUnexpectedReturnNULL "atk_object_ref_relation_set" result-    result' <- (wrapObject RelationSet) result-    touchManagedPtr _obj-    return result'---- method Object::ref_state_set--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "StateSet"--- throws : False--- Skip return : False--foreign import ccall "atk_object_ref_state_set" atk_object_ref_state_set :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    IO (Ptr StateSet)---objectRefStateSet ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    m StateSet-objectRefStateSet _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_ref_state_set _obj'-    checkUnexpectedReturnNULL "atk_object_ref_state_set" result-    result' <- (wrapObject StateSet) result-    touchManagedPtr _obj-    return result'---- method Object::remove_property_change_handler--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_object_remove_property_change_handler" atk_object_remove_property_change_handler :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    Word32 ->                               -- handler_id : TBasicType TUInt32-    IO ()--{-# DEPRECATED objectRemovePropertyChangeHandler ["Since 2.12.","","Removes a property change handler."]#-}-objectRemovePropertyChangeHandler ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- handler_id-    m ()-objectRemovePropertyChangeHandler _obj handler_id = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_object_remove_property_change_handler _obj' handler_id-    touchManagedPtr _obj-    return ()---- method Object::remove_relationship--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_object_remove_relationship" atk_object_remove_relationship :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"-    Ptr Object ->                           -- target : TInterface "Atk" "Object"-    IO CInt---objectRemoveRelationship ::-    (MonadIO m, ObjectK a, ObjectK b) =>-    a ->                                    -- _obj-    RelationType ->                         -- relationship-    b ->                                    -- target-    m Bool-objectRemoveRelationship _obj relationship target = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let relationship' = (fromIntegral . fromEnum) relationship-    let target' = unsafeManagedPtrCastPtr target-    result <- atk_object_remove_relationship _obj' relationship' target'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr target-    return result'---- method Object::set_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_object_set_description" atk_object_set_description :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    CString ->                              -- description : TBasicType TUTF8-    IO ()---objectSetDescription ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- description-    m ()-objectSetDescription _obj description = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    description' <- textToCString description-    atk_object_set_description _obj' description'-    touchManagedPtr _obj-    freeMem description'-    return ()---- method Object::set_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_object_set_name" atk_object_set_name :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---objectSetName ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- name-    m ()-objectSetName _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    atk_object_set_name _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return ()---- method Object::set_parent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_object_set_parent" atk_object_set_parent :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    Ptr Object ->                           -- parent : TInterface "Atk" "Object"-    IO ()---objectSetParent ::-    (MonadIO m, ObjectK a, ObjectK b) =>-    a ->                                    -- _obj-    b ->                                    -- parent-    m ()-objectSetParent _obj parent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let parent' = unsafeManagedPtrCastPtr parent-    atk_object_set_parent _obj' parent'-    touchManagedPtr _obj-    touchManagedPtr parent-    return ()---- method Object::set_role--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_object_set_role" atk_object_set_role :: -    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"-    CUInt ->                                -- role : TInterface "Atk" "Role"-    IO ()---objectSetRole ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- _obj-    Role ->                                 -- role-    m ()-objectSetRole _obj role = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let role' = (fromIntegral . fromEnum) role-    atk_object_set_role _obj' role'-    touchManagedPtr _obj-    return ()---- signal Object::active-descendant-changed-type ObjectActiveDescendantChangedCallback =-    Ptr () ->-    IO ()--noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback-noObjectActiveDescendantChangedCallback = Nothing--type ObjectActiveDescendantChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkObjectActiveDescendantChangedCallback :: ObjectActiveDescendantChangedCallbackC -> IO (FunPtr ObjectActiveDescendantChangedCallbackC)--objectActiveDescendantChangedClosure :: ObjectActiveDescendantChangedCallback -> IO Closure-objectActiveDescendantChangedClosure cb = newCClosure =<< mkObjectActiveDescendantChangedCallback wrapped-    where wrapped = objectActiveDescendantChangedCallbackWrapper cb--objectActiveDescendantChangedCallbackWrapper ::-    ObjectActiveDescendantChangedCallback ->-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO ()-objectActiveDescendantChangedCallbackWrapper _cb _ arg1 _ = do-    _cb  arg1--onObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId-onObjectActiveDescendantChanged obj cb = liftIO $ connectObjectActiveDescendantChanged obj cb SignalConnectBefore-afterObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId-afterObjectActiveDescendantChanged obj cb = connectObjectActiveDescendantChanged obj cb SignalConnectAfter--connectObjectActiveDescendantChanged :: (GObject a, MonadIO m) =>-                                        a -> ObjectActiveDescendantChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectActiveDescendantChanged obj cb after = liftIO $ do-    cb' <- mkObjectActiveDescendantChangedCallback (objectActiveDescendantChangedCallbackWrapper cb)-    connectSignalFunPtr obj "active-descendant-changed" cb' after---- signal Object::children-changed-type ObjectChildrenChangedCallback =-    Word32 ->-    Ptr () ->-    IO ()--noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback-noObjectChildrenChangedCallback = Nothing--type ObjectChildrenChangedCallbackC =-    Ptr () ->                               -- object-    Word32 ->-    Ptr () ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkObjectChildrenChangedCallback :: ObjectChildrenChangedCallbackC -> IO (FunPtr ObjectChildrenChangedCallbackC)--objectChildrenChangedClosure :: ObjectChildrenChangedCallback -> IO Closure-objectChildrenChangedClosure cb = newCClosure =<< mkObjectChildrenChangedCallback wrapped-    where wrapped = objectChildrenChangedCallbackWrapper cb--objectChildrenChangedCallbackWrapper ::-    ObjectChildrenChangedCallback ->-    Ptr () ->-    Word32 ->-    Ptr () ->-    Ptr () ->-    IO ()-objectChildrenChangedCallbackWrapper _cb _ arg1 arg2 _ = do-    _cb  arg1 arg2--onObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId-onObjectChildrenChanged obj cb = liftIO $ connectObjectChildrenChanged obj cb SignalConnectBefore-afterObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId-afterObjectChildrenChanged obj cb = connectObjectChildrenChanged obj cb SignalConnectAfter--connectObjectChildrenChanged :: (GObject a, MonadIO m) =>-                                a -> ObjectChildrenChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectChildrenChanged obj cb after = liftIO $ do-    cb' <- mkObjectChildrenChangedCallback (objectChildrenChangedCallbackWrapper cb)-    connectSignalFunPtr obj "children-changed" cb' after---- signal Object::focus-event-type ObjectFocusEventCallback =-    Bool ->-    IO ()--noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback-noObjectFocusEventCallback = Nothing--type ObjectFocusEventCallbackC =-    Ptr () ->                               -- object-    CInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkObjectFocusEventCallback :: ObjectFocusEventCallbackC -> IO (FunPtr ObjectFocusEventCallbackC)--objectFocusEventClosure :: ObjectFocusEventCallback -> IO Closure-objectFocusEventClosure cb = newCClosure =<< mkObjectFocusEventCallback wrapped-    where wrapped = objectFocusEventCallbackWrapper cb--objectFocusEventCallbackWrapper ::-    ObjectFocusEventCallback ->-    Ptr () ->-    CInt ->-    Ptr () ->-    IO ()-objectFocusEventCallbackWrapper _cb _ arg1 _ = do-    let arg1' = (/= 0) arg1-    _cb  arg1'--onObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId-onObjectFocusEvent obj cb = liftIO $ connectObjectFocusEvent obj cb SignalConnectBefore-afterObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId-afterObjectFocusEvent obj cb = connectObjectFocusEvent obj cb SignalConnectAfter--connectObjectFocusEvent :: (GObject a, MonadIO m) =>-                           a -> ObjectFocusEventCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectFocusEvent obj cb after = liftIO $ do-    cb' <- mkObjectFocusEventCallback (objectFocusEventCallbackWrapper cb)-    connectSignalFunPtr obj "focus-event" cb' after---- signal Object::property-change-type ObjectPropertyChangeCallback =-    Ptr () ->-    IO ()--noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback-noObjectPropertyChangeCallback = Nothing--type ObjectPropertyChangeCallbackC =-    Ptr () ->                               -- object-    Ptr () ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkObjectPropertyChangeCallback :: ObjectPropertyChangeCallbackC -> IO (FunPtr ObjectPropertyChangeCallbackC)--objectPropertyChangeClosure :: ObjectPropertyChangeCallback -> IO Closure-objectPropertyChangeClosure cb = newCClosure =<< mkObjectPropertyChangeCallback wrapped-    where wrapped = objectPropertyChangeCallbackWrapper cb--objectPropertyChangeCallbackWrapper ::-    ObjectPropertyChangeCallback ->-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO ()-objectPropertyChangeCallbackWrapper _cb _ arg1 _ = do-    _cb  arg1--onObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId-onObjectPropertyChange obj cb = liftIO $ connectObjectPropertyChange obj cb SignalConnectBefore-afterObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId-afterObjectPropertyChange obj cb = connectObjectPropertyChange obj cb SignalConnectAfter--connectObjectPropertyChange :: (GObject a, MonadIO m) =>-                               a -> ObjectPropertyChangeCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectPropertyChange obj cb after = liftIO $ do-    cb' <- mkObjectPropertyChangeCallback (objectPropertyChangeCallbackWrapper cb)-    connectSignalFunPtr obj "property-change" cb' after---- signal Object::state-change-type ObjectStateChangeCallback =-    T.Text ->-    Bool ->-    IO ()--noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback-noObjectStateChangeCallback = Nothing--type ObjectStateChangeCallbackC =-    Ptr () ->                               -- object-    CString ->-    CInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkObjectStateChangeCallback :: ObjectStateChangeCallbackC -> IO (FunPtr ObjectStateChangeCallbackC)--objectStateChangeClosure :: ObjectStateChangeCallback -> IO Closure-objectStateChangeClosure cb = newCClosure =<< mkObjectStateChangeCallback wrapped-    where wrapped = objectStateChangeCallbackWrapper cb--objectStateChangeCallbackWrapper ::-    ObjectStateChangeCallback ->-    Ptr () ->-    CString ->-    CInt ->-    Ptr () ->-    IO ()-objectStateChangeCallbackWrapper _cb _ arg1 arg2 _ = do-    arg1' <- cstringToText arg1-    let arg2' = (/= 0) arg2-    _cb  arg1' arg2'--onObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId-onObjectStateChange obj cb = liftIO $ connectObjectStateChange obj cb SignalConnectBefore-afterObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId-afterObjectStateChange obj cb = connectObjectStateChange obj cb SignalConnectAfter--connectObjectStateChange :: (GObject a, MonadIO m) =>-                            a -> ObjectStateChangeCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectStateChange obj cb after = liftIO $ do-    cb' <- mkObjectStateChangeCallback (objectStateChangeCallbackWrapper cb)-    connectSignalFunPtr obj "state-change" cb' after---- signal Object::visible-data-changed-type ObjectVisibleDataChangedCallback =-    IO ()--noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback-noObjectVisibleDataChangedCallback = Nothing--type ObjectVisibleDataChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkObjectVisibleDataChangedCallback :: ObjectVisibleDataChangedCallbackC -> IO (FunPtr ObjectVisibleDataChangedCallbackC)--objectVisibleDataChangedClosure :: ObjectVisibleDataChangedCallback -> IO Closure-objectVisibleDataChangedClosure cb = newCClosure =<< mkObjectVisibleDataChangedCallback wrapped-    where wrapped = objectVisibleDataChangedCallbackWrapper cb--objectVisibleDataChangedCallbackWrapper ::-    ObjectVisibleDataChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-objectVisibleDataChangedCallbackWrapper _cb _ _ = do-    _cb --onObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId-onObjectVisibleDataChanged obj cb = liftIO $ connectObjectVisibleDataChanged obj cb SignalConnectBefore-afterObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId-afterObjectVisibleDataChanged obj cb = connectObjectVisibleDataChanged obj cb SignalConnectAfter--connectObjectVisibleDataChanged :: (GObject a, MonadIO m) =>-                                   a -> ObjectVisibleDataChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectVisibleDataChanged obj cb after = liftIO $ do-    cb' <- mkObjectVisibleDataChangedCallback (objectVisibleDataChangedCallbackWrapper cb)-    connectSignalFunPtr obj "visible-data-changed" cb' after---- object ObjectFactory -newtype ObjectFactory = ObjectFactory (ForeignPtr ObjectFactory)-noObjectFactory :: Maybe ObjectFactory-noObjectFactory = Nothing--foreign import ccall "atk_object_factory_get_type"-    c_atk_object_factory_get_type :: IO GType--type instance ParentTypes ObjectFactory = '[GObject.Object]--instance GObject ObjectFactory where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_object_factory_get_type-    --class GObject o => ObjectFactoryK o-instance (GObject o, IsDescendantOf ObjectFactory o) => ObjectFactoryK o--toObjectFactory :: ObjectFactoryK o => o -> IO ObjectFactory-toObjectFactory = unsafeCastTo ObjectFactory---- method ObjectFactory::create_accessible--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_object_factory_create_accessible" atk_object_factory_create_accessible :: -    Ptr ObjectFactory ->                    -- _obj : TInterface "Atk" "ObjectFactory"-    Ptr GObject.Object ->                   -- obj : TInterface "GObject" "Object"-    IO (Ptr Object)---objectFactoryCreateAccessible ::-    (MonadIO m, ObjectFactoryK a, GObject.ObjectK b) =>-    a ->                                    -- _obj-    b ->                                    -- obj-    m Object-objectFactoryCreateAccessible _obj obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let obj' = unsafeManagedPtrCastPtr obj-    result <- atk_object_factory_create_accessible _obj' obj'-    checkUnexpectedReturnNULL "atk_object_factory_create_accessible" result-    result' <- (wrapObject Object) result-    touchManagedPtr _obj-    touchManagedPtr obj-    return result'---- method ObjectFactory::get_accessible_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TGType--- throws : False--- Skip return : False--foreign import ccall "atk_object_factory_get_accessible_type" atk_object_factory_get_accessible_type :: -    Ptr ObjectFactory ->                    -- _obj : TInterface "Atk" "ObjectFactory"-    IO CGType---objectFactoryGetAccessibleType ::-    (MonadIO m, ObjectFactoryK a) =>-    a ->                                    -- _obj-    m GType-objectFactoryGetAccessibleType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_object_factory_get_accessible_type _obj'-    let result' = GType result-    touchManagedPtr _obj-    return result'---- method ObjectFactory::invalidate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_object_factory_invalidate" atk_object_factory_invalidate :: -    Ptr ObjectFactory ->                    -- _obj : TInterface "Atk" "ObjectFactory"-    IO ()---objectFactoryInvalidate ::-    (MonadIO m, ObjectFactoryK a) =>-    a ->                                    -- _obj-    m ()-objectFactoryInvalidate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_object_factory_invalidate _obj'-    touchManagedPtr _obj-    return ()---- object Plug -newtype Plug = Plug (ForeignPtr Plug)-noPlug :: Maybe Plug-noPlug = Nothing--foreign import ccall "atk_plug_get_type"-    c_atk_plug_get_type :: IO GType--type instance ParentTypes Plug = '[Object, GObject.Object, Component]--instance GObject Plug where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_plug_get_type-    --class GObject o => PlugK o-instance (GObject o, IsDescendantOf Plug o) => PlugK o--toPlug :: PlugK o => o -> IO Plug-toPlug = unsafeCastTo Plug---- method Plug::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Atk" "Plug"--- throws : False--- Skip return : False--foreign import ccall "atk_plug_new" atk_plug_new :: -    IO (Ptr Plug)---plugNew ::-    (MonadIO m) =>-    m Plug-plugNew  = liftIO $ do-    result <- atk_plug_new-    checkUnexpectedReturnNULL "atk_plug_new" result-    result' <- (wrapObject Plug) result-    return result'---- method Plug::get_id--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_plug_get_id" atk_plug_get_id :: -    Ptr Plug ->                             -- _obj : TInterface "Atk" "Plug"-    IO CString---plugGetId ::-    (MonadIO m, PlugK a) =>-    a ->                                    -- _obj-    m T.Text-plugGetId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_plug_get_id _obj'-    checkUnexpectedReturnNULL "atk_plug_get_id" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- callback PropertyChangeHandler-propertyChangeHandlerClosure :: PropertyChangeHandler -> IO Closure-propertyChangeHandlerClosure cb = newCClosure =<< mkPropertyChangeHandler wrapped-    where wrapped = propertyChangeHandlerWrapper Nothing cb--type PropertyChangeHandlerC =-    Ptr Object ->-    Ptr PropertyValues ->-    IO ()--foreign import ccall "wrapper"-    mkPropertyChangeHandler :: PropertyChangeHandlerC -> IO (FunPtr PropertyChangeHandlerC)--type PropertyChangeHandler =-    Object ->-    PropertyValues ->-    IO ()--noPropertyChangeHandler :: Maybe PropertyChangeHandler-noPropertyChangeHandler = Nothing--propertyChangeHandlerWrapper ::-    Maybe (Ptr (FunPtr (PropertyChangeHandlerC))) ->-    PropertyChangeHandler ->-    Ptr Object ->-    Ptr PropertyValues ->-    IO ()-propertyChangeHandlerWrapper funptrptr _cb obj vals = do-    obj' <- (newObject Object) obj-    vals' <- (newPtr 56 PropertyValues) vals-    _cb  obj' vals'-    maybeReleaseFunPtr funptrptr---- struct PropertyValues-newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues)-noPropertyValues :: Maybe PropertyValues-noPropertyValues = Nothing--propertyValuesReadPropertyName :: PropertyValues -> IO T.Text-propertyValuesReadPropertyName s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--propertyValuesReadOldValue :: PropertyValues -> IO GValue-propertyValuesReadOldValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue)-    val' <- (newBoxed GValue) val-    return val'--propertyValuesReadNewValue :: PropertyValues -> IO GValue-propertyValuesReadNewValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr GValue)-    val' <- (newBoxed GValue) val-    return val'---- struct Range-newtype Range = Range (ForeignPtr Range)-noRange :: Maybe Range-noRange = Nothing--foreign import ccall "atk_range_get_type" c_atk_range_get_type :: -    IO GType--instance BoxedObject Range where-    boxedType _ = c_atk_range_get_type---- method Range::new--- method type : Constructor--- Args : [Arg {argName = "lower_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "lower_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Range"--- throws : False--- Skip return : False--foreign import ccall "atk_range_new" atk_range_new :: -    CDouble ->                              -- lower_limit : TBasicType TDouble-    CDouble ->                              -- upper_limit : TBasicType TDouble-    CString ->                              -- description : TBasicType TUTF8-    IO (Ptr Range)---rangeNew ::-    (MonadIO m) =>-    Double ->                               -- lower_limit-    Double ->                               -- upper_limit-    T.Text ->                               -- description-    m Range-rangeNew lower_limit upper_limit description = liftIO $ do-    let lower_limit' = realToFrac lower_limit-    let upper_limit' = realToFrac upper_limit-    description' <- textToCString description-    result <- atk_range_new lower_limit' upper_limit' description'-    checkUnexpectedReturnNULL "atk_range_new" result-    result' <- (wrapBoxed Range) result-    freeMem description'-    return result'---- method Range::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Range"--- throws : False--- Skip return : False--foreign import ccall "atk_range_copy" atk_range_copy :: -    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"-    IO (Ptr Range)---rangeCopy ::-    (MonadIO m) =>-    Range ->                                -- _obj-    m Range-rangeCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- atk_range_copy _obj'-    checkUnexpectedReturnNULL "atk_range_copy" result-    result' <- (wrapBoxed Range) result-    touchManagedPtr _obj-    return result'---- method Range::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_range_free" atk_range_free :: -    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"-    IO ()---rangeFree ::-    (MonadIO m) =>-    Range ->                                -- _obj-    m ()-rangeFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    atk_range_free _obj'-    touchManagedPtr _obj-    return ()---- method Range::get_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_range_get_description" atk_range_get_description :: -    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"-    IO CString---rangeGetDescription ::-    (MonadIO m) =>-    Range ->                                -- _obj-    m T.Text-rangeGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- atk_range_get_description _obj'-    checkUnexpectedReturnNULL "atk_range_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Range::get_lower_limit--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "atk_range_get_lower_limit" atk_range_get_lower_limit :: -    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"-    IO CDouble---rangeGetLowerLimit ::-    (MonadIO m) =>-    Range ->                                -- _obj-    m Double-rangeGetLowerLimit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- atk_range_get_lower_limit _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- method Range::get_upper_limit--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "atk_range_get_upper_limit" atk_range_get_upper_limit :: -    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"-    IO CDouble---rangeGetUpperLimit ::-    (MonadIO m) =>-    Range ->                                -- _obj-    m Double-rangeGetUpperLimit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- atk_range_get_upper_limit _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- struct Rectangle-newtype Rectangle = Rectangle (ForeignPtr Rectangle)-noRectangle :: Maybe Rectangle-noRectangle = Nothing--foreign import ccall "atk_rectangle_get_type" c_atk_rectangle_get_type :: -    IO GType--instance BoxedObject Rectangle where-    boxedType _ = c_atk_rectangle_get_type--rectangleReadX :: Rectangle -> IO Int32-rectangleReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--rectangleReadY :: Rectangle -> IO Int32-rectangleReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--rectangleReadWidth :: Rectangle -> IO Int32-rectangleReadWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--rectangleReadHeight :: Rectangle -> IO Int32-rectangleReadHeight s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val---- object Registry -newtype Registry = Registry (ForeignPtr Registry)-noRegistry :: Maybe Registry-noRegistry = Nothing--foreign import ccall "atk_registry_get_type"-    c_atk_registry_get_type :: IO GType--type instance ParentTypes Registry = '[GObject.Object]--instance GObject Registry where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_registry_get_type-    --class GObject o => RegistryK o-instance (GObject o, IsDescendantOf Registry o) => RegistryK o--toRegistry :: RegistryK o => o -> IO Registry-toRegistry = unsafeCastTo Registry---- method Registry::get_factory--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "ObjectFactory"--- throws : False--- Skip return : False--foreign import ccall "atk_registry_get_factory" atk_registry_get_factory :: -    Ptr Registry ->                         -- _obj : TInterface "Atk" "Registry"-    CGType ->                               -- type : TBasicType TGType-    IO (Ptr ObjectFactory)---registryGetFactory ::-    (MonadIO m, RegistryK a) =>-    a ->                                    -- _obj-    GType ->                                -- type-    m ObjectFactory-registryGetFactory _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = gtypeToCGType type_-    result <- atk_registry_get_factory _obj' type_'-    checkUnexpectedReturnNULL "atk_registry_get_factory" result-    result' <- (newObject ObjectFactory) result-    touchManagedPtr _obj-    return result'---- method Registry::get_factory_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TGType--- throws : False--- Skip return : False--foreign import ccall "atk_registry_get_factory_type" atk_registry_get_factory_type :: -    Ptr Registry ->                         -- _obj : TInterface "Atk" "Registry"-    CGType ->                               -- type : TBasicType TGType-    IO CGType---registryGetFactoryType ::-    (MonadIO m, RegistryK a) =>-    a ->                                    -- _obj-    GType ->                                -- type-    m GType-registryGetFactoryType _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = gtypeToCGType type_-    result <- atk_registry_get_factory_type _obj' type_'-    let result' = GType result-    touchManagedPtr _obj-    return result'---- method Registry::set_factory_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factory_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factory_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_registry_set_factory_type" atk_registry_set_factory_type :: -    Ptr Registry ->                         -- _obj : TInterface "Atk" "Registry"-    CGType ->                               -- type : TBasicType TGType-    CGType ->                               -- factory_type : TBasicType TGType-    IO ()---registrySetFactoryType ::-    (MonadIO m, RegistryK a) =>-    a ->                                    -- _obj-    GType ->                                -- type-    GType ->                                -- factory_type-    m ()-registrySetFactoryType _obj type_ factory_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = gtypeToCGType type_-    let factory_type' = gtypeToCGType factory_type-    atk_registry_set_factory_type _obj' type_' factory_type'-    touchManagedPtr _obj-    return ()---- object Relation -newtype Relation = Relation (ForeignPtr Relation)-noRelation :: Maybe Relation-noRelation = Nothing--foreign import ccall "atk_relation_get_type"-    c_atk_relation_get_type :: IO GType--type instance ParentTypes Relation = '[GObject.Object]--instance GObject Relation where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_relation_get_type-    --class GObject o => RelationK o-instance (GObject o, IsDescendantOf Relation o) => RelationK o--toRelation :: RelationK o => o -> IO Relation-toRelation = unsafeCastTo Relation---- method Relation::new--- method type : Constructor--- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Atk" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Atk" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Relation"--- throws : False--- Skip return : False--foreign import ccall "atk_relation_new" atk_relation_new :: -    Ptr (Ptr Object) ->                     -- targets : TCArray False (-1) 1 (TInterface "Atk" "Object")-    Int32 ->                                -- n_targets : TBasicType TInt32-    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"-    IO (Ptr Relation)---relationNew ::-    (MonadIO m) =>-    [Object] ->                             -- targets-    RelationType ->                         -- relationship-    m Relation-relationNew targets relationship = liftIO $ do-    let n_targets = fromIntegral $ length targets-    let targets' = map unsafeManagedPtrCastPtr targets-    targets'' <- packPtrArray targets'-    let relationship' = (fromIntegral . fromEnum) relationship-    result <- atk_relation_new targets'' n_targets relationship'-    checkUnexpectedReturnNULL "atk_relation_new" result-    result' <- (wrapObject Relation) result-    mapM_ touchManagedPtr targets-    freeMem targets''-    return result'---- method Relation::add_target--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_relation_add_target" atk_relation_add_target :: -    Ptr Relation ->                         -- _obj : TInterface "Atk" "Relation"-    Ptr Object ->                           -- target : TInterface "Atk" "Object"-    IO ()---relationAddTarget ::-    (MonadIO m, RelationK a, ObjectK b) =>-    a ->                                    -- _obj-    b ->                                    -- target-    m ()-relationAddTarget _obj target = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let target' = unsafeManagedPtrCastPtr target-    atk_relation_add_target _obj' target'-    touchManagedPtr _obj-    touchManagedPtr target-    return ()---- method Relation::get_relation_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "RelationType"--- throws : False--- Skip return : False--foreign import ccall "atk_relation_get_relation_type" atk_relation_get_relation_type :: -    Ptr Relation ->                         -- _obj : TInterface "Atk" "Relation"-    IO CUInt---relationGetRelationType ::-    (MonadIO m, RelationK a) =>-    a ->                                    -- _obj-    m RelationType-relationGetRelationType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_relation_get_relation_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Relation::get_target--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TPtrArray (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_relation_get_target" atk_relation_get_target :: -    Ptr Relation ->                         -- _obj : TInterface "Atk" "Relation"-    IO (Ptr (GPtrArray (Ptr Object)))---relationGetTarget ::-    (MonadIO m, RelationK a) =>-    a ->                                    -- _obj-    m [Object]-relationGetTarget _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_relation_get_target _obj'-    checkUnexpectedReturnNULL "atk_relation_get_target" result-    result' <- unpackGPtrArray result-    result'' <- mapM (newObject Object) result'-    touchManagedPtr _obj-    return result''---- method Relation::remove_target--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_relation_remove_target" atk_relation_remove_target :: -    Ptr Relation ->                         -- _obj : TInterface "Atk" "Relation"-    Ptr Object ->                           -- target : TInterface "Atk" "Object"-    IO CInt---relationRemoveTarget ::-    (MonadIO m, RelationK a, ObjectK b) =>-    a ->                                    -- _obj-    b ->                                    -- target-    m Bool-relationRemoveTarget _obj target = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let target' = unsafeManagedPtrCastPtr target-    result <- atk_relation_remove_target _obj' target'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr target-    return result'---- object RelationSet -newtype RelationSet = RelationSet (ForeignPtr RelationSet)-noRelationSet :: Maybe RelationSet-noRelationSet = Nothing--foreign import ccall "atk_relation_set_get_type"-    c_atk_relation_set_get_type :: IO GType--type instance ParentTypes RelationSet = '[GObject.Object]--instance GObject RelationSet where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_relation_set_get_type-    --class GObject o => RelationSetK o-instance (GObject o, IsDescendantOf RelationSet o) => RelationSetK o--toRelationSet :: RelationSetK o => o -> IO RelationSet-toRelationSet = unsafeCastTo RelationSet---- method RelationSet::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Atk" "RelationSet"--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_new" atk_relation_set_new :: -    IO (Ptr RelationSet)---relationSetNew ::-    (MonadIO m) =>-    m RelationSet-relationSetNew  = liftIO $ do-    result <- atk_relation_set_new-    checkUnexpectedReturnNULL "atk_relation_set_new" result-    result' <- (wrapObject RelationSet) result-    return result'---- method RelationSet::add--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_add" atk_relation_set_add :: -    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"-    Ptr Relation ->                         -- relation : TInterface "Atk" "Relation"-    IO ()---relationSetAdd ::-    (MonadIO m, RelationSetK a, RelationK b) =>-    a ->                                    -- _obj-    b ->                                    -- relation-    m ()-relationSetAdd _obj relation = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let relation' = unsafeManagedPtrCastPtr relation-    atk_relation_set_add _obj' relation'-    touchManagedPtr _obj-    touchManagedPtr relation-    return ()---- method RelationSet::add_relation_by_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_add_relation_by_type" atk_relation_set_add_relation_by_type :: -    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"-    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"-    Ptr Object ->                           -- target : TInterface "Atk" "Object"-    IO ()---relationSetAddRelationByType ::-    (MonadIO m, RelationSetK a, ObjectK b) =>-    a ->                                    -- _obj-    RelationType ->                         -- relationship-    b ->                                    -- target-    m ()-relationSetAddRelationByType _obj relationship target = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let relationship' = (fromIntegral . fromEnum) relationship-    let target' = unsafeManagedPtrCastPtr target-    atk_relation_set_add_relation_by_type _obj' relationship' target'-    touchManagedPtr _obj-    touchManagedPtr target-    return ()---- method RelationSet::contains--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_contains" atk_relation_set_contains :: -    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"-    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"-    IO CInt---relationSetContains ::-    (MonadIO m, RelationSetK a) =>-    a ->                                    -- _obj-    RelationType ->                         -- relationship-    m Bool-relationSetContains _obj relationship = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let relationship' = (fromIntegral . fromEnum) relationship-    result <- atk_relation_set_contains _obj' relationship'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method RelationSet::contains_target--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_contains_target" atk_relation_set_contains_target :: -    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"-    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"-    Ptr Object ->                           -- target : TInterface "Atk" "Object"-    IO CInt---relationSetContainsTarget ::-    (MonadIO m, RelationSetK a, ObjectK b) =>-    a ->                                    -- _obj-    RelationType ->                         -- relationship-    b ->                                    -- target-    m Bool-relationSetContainsTarget _obj relationship target = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let relationship' = (fromIntegral . fromEnum) relationship-    let target' = unsafeManagedPtrCastPtr target-    result <- atk_relation_set_contains_target _obj' relationship' target'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr target-    return result'---- method RelationSet::get_n_relations--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_get_n_relations" atk_relation_set_get_n_relations :: -    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"-    IO Int32---relationSetGetNRelations ::-    (MonadIO m, RelationSetK a) =>-    a ->                                    -- _obj-    m Int32-relationSetGetNRelations _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_relation_set_get_n_relations _obj'-    touchManagedPtr _obj-    return result---- method RelationSet::get_relation--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Relation"--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_get_relation" atk_relation_set_get_relation :: -    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"-    Int32 ->                                -- i : TBasicType TInt32-    IO (Ptr Relation)---relationSetGetRelation ::-    (MonadIO m, RelationSetK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Relation-relationSetGetRelation _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_relation_set_get_relation _obj' i-    checkUnexpectedReturnNULL "atk_relation_set_get_relation" result-    result' <- (newObject Relation) result-    touchManagedPtr _obj-    return result'---- method RelationSet::get_relation_by_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Relation"--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_get_relation_by_type" atk_relation_set_get_relation_by_type :: -    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"-    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"-    IO (Ptr Relation)---relationSetGetRelationByType ::-    (MonadIO m, RelationSetK a) =>-    a ->                                    -- _obj-    RelationType ->                         -- relationship-    m Relation-relationSetGetRelationByType _obj relationship = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let relationship' = (fromIntegral . fromEnum) relationship-    result <- atk_relation_set_get_relation_by_type _obj' relationship'-    checkUnexpectedReturnNULL "atk_relation_set_get_relation_by_type" result-    result' <- (newObject Relation) result-    touchManagedPtr _obj-    return result'---- method RelationSet::remove--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_remove" atk_relation_set_remove :: -    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"-    Ptr Relation ->                         -- relation : TInterface "Atk" "Relation"-    IO ()---relationSetRemove ::-    (MonadIO m, RelationSetK a, RelationK b) =>-    a ->                                    -- _obj-    b ->                                    -- relation-    m ()-relationSetRemove _obj relation = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let relation' = unsafeManagedPtrCastPtr relation-    atk_relation_set_remove _obj' relation'-    touchManagedPtr _obj-    touchManagedPtr relation-    return ()---- Enum RelationType--data RelationType = -      RelationTypeNull-    | RelationTypeControlledBy-    | RelationTypeControllerFor-    | RelationTypeLabelFor-    | RelationTypeLabelledBy-    | RelationTypeMemberOf-    | RelationTypeNodeChildOf-    | RelationTypeFlowsTo-    | RelationTypeFlowsFrom-    | RelationTypeSubwindowOf-    | RelationTypeEmbeds-    | RelationTypeEmbeddedBy-    | RelationTypePopupFor-    | RelationTypeParentWindowOf-    | RelationTypeDescribedBy-    | RelationTypeDescriptionFor-    | RelationTypeNodeParentOf-    | RelationTypeLastDefined-    | AnotherRelationType Int-    deriving (Show, Eq)--instance Enum RelationType where-    fromEnum RelationTypeNull = 0-    fromEnum RelationTypeControlledBy = 1-    fromEnum RelationTypeControllerFor = 2-    fromEnum RelationTypeLabelFor = 3-    fromEnum RelationTypeLabelledBy = 4-    fromEnum RelationTypeMemberOf = 5-    fromEnum RelationTypeNodeChildOf = 6-    fromEnum RelationTypeFlowsTo = 7-    fromEnum RelationTypeFlowsFrom = 8-    fromEnum RelationTypeSubwindowOf = 9-    fromEnum RelationTypeEmbeds = 10-    fromEnum RelationTypeEmbeddedBy = 11-    fromEnum RelationTypePopupFor = 12-    fromEnum RelationTypeParentWindowOf = 13-    fromEnum RelationTypeDescribedBy = 14-    fromEnum RelationTypeDescriptionFor = 15-    fromEnum RelationTypeNodeParentOf = 16-    fromEnum RelationTypeLastDefined = 17-    fromEnum (AnotherRelationType k) = k--    toEnum 0 = RelationTypeNull-    toEnum 1 = RelationTypeControlledBy-    toEnum 2 = RelationTypeControllerFor-    toEnum 3 = RelationTypeLabelFor-    toEnum 4 = RelationTypeLabelledBy-    toEnum 5 = RelationTypeMemberOf-    toEnum 6 = RelationTypeNodeChildOf-    toEnum 7 = RelationTypeFlowsTo-    toEnum 8 = RelationTypeFlowsFrom-    toEnum 9 = RelationTypeSubwindowOf-    toEnum 10 = RelationTypeEmbeds-    toEnum 11 = RelationTypeEmbeddedBy-    toEnum 12 = RelationTypePopupFor-    toEnum 13 = RelationTypeParentWindowOf-    toEnum 14 = RelationTypeDescribedBy-    toEnum 15 = RelationTypeDescriptionFor-    toEnum 16 = RelationTypeNodeParentOf-    toEnum 17 = RelationTypeLastDefined-    toEnum k = AnotherRelationType k--foreign import ccall "atk_relation_type_get_type" c_atk_relation_type_get_type :: -    IO GType--instance BoxedEnum RelationType where-    boxedEnumType _ = c_atk_relation_type_get_type---- Enum Role--data Role = -      RoleInvalid-    | RoleAcceleratorLabel-    | RoleAlert-    | RoleAnimation-    | RoleArrow-    | RoleCalendar-    | RoleCanvas-    | RoleCheckBox-    | RoleCheckMenuItem-    | RoleColorChooser-    | RoleColumnHeader-    | RoleComboBox-    | RoleDateEditor-    | RoleDesktopIcon-    | RoleDesktopFrame-    | RoleDial-    | RoleDialog-    | RoleDirectoryPane-    | RoleDrawingArea-    | RoleFileChooser-    | RoleFiller-    | RoleFontChooser-    | RoleFrame-    | RoleGlassPane-    | RoleHtmlContainer-    | RoleIcon-    | RoleImage-    | RoleInternalFrame-    | RoleLabel-    | RoleLayeredPane-    | RoleList-    | RoleListItem-    | RoleMenu-    | RoleMenuBar-    | RoleMenuItem-    | RoleOptionPane-    | RolePageTab-    | RolePageTabList-    | RolePanel-    | RolePasswordText-    | RolePopupMenu-    | RoleProgressBar-    | RolePushButton-    | RoleRadioButton-    | RoleRadioMenuItem-    | RoleRootPane-    | RoleRowHeader-    | RoleScrollBar-    | RoleScrollPane-    | RoleSeparator-    | RoleSlider-    | RoleSplitPane-    | RoleSpinButton-    | RoleStatusbar-    | RoleTable-    | RoleTableCell-    | RoleTableColumnHeader-    | RoleTableRowHeader-    | RoleTearOffMenuItem-    | RoleTerminal-    | RoleText-    | RoleToggleButton-    | RoleToolBar-    | RoleToolTip-    | RoleTree-    | RoleTreeTable-    | RoleUnknown-    | RoleViewport-    | RoleWindow-    | RoleHeader-    | RoleFooter-    | RoleParagraph-    | RoleRuler-    | RoleApplication-    | RoleAutocomplete-    | RoleEditBar-    | RoleEmbedded-    | RoleEntry-    | RoleChart-    | RoleCaption-    | RoleDocumentFrame-    | RoleHeading-    | RolePage-    | RoleSection-    | RoleRedundantObject-    | RoleForm-    | RoleLink-    | RoleInputMethodWindow-    | RoleTableRow-    | RoleTreeItem-    | RoleDocumentSpreadsheet-    | RoleDocumentPresentation-    | RoleDocumentText-    | RoleDocumentWeb-    | RoleDocumentEmail-    | RoleComment-    | RoleListBox-    | RoleGrouping-    | RoleImageMap-    | RoleNotification-    | RoleInfoBar-    | RoleLevelBar-    | RoleTitleBar-    | RoleBlockQuote-    | RoleAudio-    | RoleVideo-    | RoleDefinition-    | RoleArticle-    | RoleLandmark-    | RoleLog-    | RoleMarquee-    | RoleMath-    | RoleRating-    | RoleTimer-    | RoleDescriptionList-    | RoleDescriptionTerm-    | RoleDescriptionValue-    | RoleStatic-    | RoleMathFraction-    | RoleMathRoot-    | RoleSubscript-    | RoleSuperscript-    | RoleLastDefined-    | AnotherRole Int-    deriving (Show, Eq)--instance Enum Role where-    fromEnum RoleInvalid = 0-    fromEnum RoleAcceleratorLabel = 1-    fromEnum RoleAlert = 2-    fromEnum RoleAnimation = 3-    fromEnum RoleArrow = 4-    fromEnum RoleCalendar = 5-    fromEnum RoleCanvas = 6-    fromEnum RoleCheckBox = 7-    fromEnum RoleCheckMenuItem = 8-    fromEnum RoleColorChooser = 9-    fromEnum RoleColumnHeader = 10-    fromEnum RoleComboBox = 11-    fromEnum RoleDateEditor = 12-    fromEnum RoleDesktopIcon = 13-    fromEnum RoleDesktopFrame = 14-    fromEnum RoleDial = 15-    fromEnum RoleDialog = 16-    fromEnum RoleDirectoryPane = 17-    fromEnum RoleDrawingArea = 18-    fromEnum RoleFileChooser = 19-    fromEnum RoleFiller = 20-    fromEnum RoleFontChooser = 21-    fromEnum RoleFrame = 22-    fromEnum RoleGlassPane = 23-    fromEnum RoleHtmlContainer = 24-    fromEnum RoleIcon = 25-    fromEnum RoleImage = 26-    fromEnum RoleInternalFrame = 27-    fromEnum RoleLabel = 28-    fromEnum RoleLayeredPane = 29-    fromEnum RoleList = 30-    fromEnum RoleListItem = 31-    fromEnum RoleMenu = 32-    fromEnum RoleMenuBar = 33-    fromEnum RoleMenuItem = 34-    fromEnum RoleOptionPane = 35-    fromEnum RolePageTab = 36-    fromEnum RolePageTabList = 37-    fromEnum RolePanel = 38-    fromEnum RolePasswordText = 39-    fromEnum RolePopupMenu = 40-    fromEnum RoleProgressBar = 41-    fromEnum RolePushButton = 42-    fromEnum RoleRadioButton = 43-    fromEnum RoleRadioMenuItem = 44-    fromEnum RoleRootPane = 45-    fromEnum RoleRowHeader = 46-    fromEnum RoleScrollBar = 47-    fromEnum RoleScrollPane = 48-    fromEnum RoleSeparator = 49-    fromEnum RoleSlider = 50-    fromEnum RoleSplitPane = 51-    fromEnum RoleSpinButton = 52-    fromEnum RoleStatusbar = 53-    fromEnum RoleTable = 54-    fromEnum RoleTableCell = 55-    fromEnum RoleTableColumnHeader = 56-    fromEnum RoleTableRowHeader = 57-    fromEnum RoleTearOffMenuItem = 58-    fromEnum RoleTerminal = 59-    fromEnum RoleText = 60-    fromEnum RoleToggleButton = 61-    fromEnum RoleToolBar = 62-    fromEnum RoleToolTip = 63-    fromEnum RoleTree = 64-    fromEnum RoleTreeTable = 65-    fromEnum RoleUnknown = 66-    fromEnum RoleViewport = 67-    fromEnum RoleWindow = 68-    fromEnum RoleHeader = 69-    fromEnum RoleFooter = 70-    fromEnum RoleParagraph = 71-    fromEnum RoleRuler = 72-    fromEnum RoleApplication = 73-    fromEnum RoleAutocomplete = 74-    fromEnum RoleEditBar = 75-    fromEnum RoleEmbedded = 76-    fromEnum RoleEntry = 77-    fromEnum RoleChart = 78-    fromEnum RoleCaption = 79-    fromEnum RoleDocumentFrame = 80-    fromEnum RoleHeading = 81-    fromEnum RolePage = 82-    fromEnum RoleSection = 83-    fromEnum RoleRedundantObject = 84-    fromEnum RoleForm = 85-    fromEnum RoleLink = 86-    fromEnum RoleInputMethodWindow = 87-    fromEnum RoleTableRow = 88-    fromEnum RoleTreeItem = 89-    fromEnum RoleDocumentSpreadsheet = 90-    fromEnum RoleDocumentPresentation = 91-    fromEnum RoleDocumentText = 92-    fromEnum RoleDocumentWeb = 93-    fromEnum RoleDocumentEmail = 94-    fromEnum RoleComment = 95-    fromEnum RoleListBox = 96-    fromEnum RoleGrouping = 97-    fromEnum RoleImageMap = 98-    fromEnum RoleNotification = 99-    fromEnum RoleInfoBar = 100-    fromEnum RoleLevelBar = 101-    fromEnum RoleTitleBar = 102-    fromEnum RoleBlockQuote = 103-    fromEnum RoleAudio = 104-    fromEnum RoleVideo = 105-    fromEnum RoleDefinition = 106-    fromEnum RoleArticle = 107-    fromEnum RoleLandmark = 108-    fromEnum RoleLog = 109-    fromEnum RoleMarquee = 110-    fromEnum RoleMath = 111-    fromEnum RoleRating = 112-    fromEnum RoleTimer = 113-    fromEnum RoleDescriptionList = 114-    fromEnum RoleDescriptionTerm = 115-    fromEnum RoleDescriptionValue = 116-    fromEnum RoleStatic = 117-    fromEnum RoleMathFraction = 118-    fromEnum RoleMathRoot = 119-    fromEnum RoleSubscript = 120-    fromEnum RoleSuperscript = 121-    fromEnum RoleLastDefined = 122-    fromEnum (AnotherRole k) = k--    toEnum 0 = RoleInvalid-    toEnum 1 = RoleAcceleratorLabel-    toEnum 2 = RoleAlert-    toEnum 3 = RoleAnimation-    toEnum 4 = RoleArrow-    toEnum 5 = RoleCalendar-    toEnum 6 = RoleCanvas-    toEnum 7 = RoleCheckBox-    toEnum 8 = RoleCheckMenuItem-    toEnum 9 = RoleColorChooser-    toEnum 10 = RoleColumnHeader-    toEnum 11 = RoleComboBox-    toEnum 12 = RoleDateEditor-    toEnum 13 = RoleDesktopIcon-    toEnum 14 = RoleDesktopFrame-    toEnum 15 = RoleDial-    toEnum 16 = RoleDialog-    toEnum 17 = RoleDirectoryPane-    toEnum 18 = RoleDrawingArea-    toEnum 19 = RoleFileChooser-    toEnum 20 = RoleFiller-    toEnum 21 = RoleFontChooser-    toEnum 22 = RoleFrame-    toEnum 23 = RoleGlassPane-    toEnum 24 = RoleHtmlContainer-    toEnum 25 = RoleIcon-    toEnum 26 = RoleImage-    toEnum 27 = RoleInternalFrame-    toEnum 28 = RoleLabel-    toEnum 29 = RoleLayeredPane-    toEnum 30 = RoleList-    toEnum 31 = RoleListItem-    toEnum 32 = RoleMenu-    toEnum 33 = RoleMenuBar-    toEnum 34 = RoleMenuItem-    toEnum 35 = RoleOptionPane-    toEnum 36 = RolePageTab-    toEnum 37 = RolePageTabList-    toEnum 38 = RolePanel-    toEnum 39 = RolePasswordText-    toEnum 40 = RolePopupMenu-    toEnum 41 = RoleProgressBar-    toEnum 42 = RolePushButton-    toEnum 43 = RoleRadioButton-    toEnum 44 = RoleRadioMenuItem-    toEnum 45 = RoleRootPane-    toEnum 46 = RoleRowHeader-    toEnum 47 = RoleScrollBar-    toEnum 48 = RoleScrollPane-    toEnum 49 = RoleSeparator-    toEnum 50 = RoleSlider-    toEnum 51 = RoleSplitPane-    toEnum 52 = RoleSpinButton-    toEnum 53 = RoleStatusbar-    toEnum 54 = RoleTable-    toEnum 55 = RoleTableCell-    toEnum 56 = RoleTableColumnHeader-    toEnum 57 = RoleTableRowHeader-    toEnum 58 = RoleTearOffMenuItem-    toEnum 59 = RoleTerminal-    toEnum 60 = RoleText-    toEnum 61 = RoleToggleButton-    toEnum 62 = RoleToolBar-    toEnum 63 = RoleToolTip-    toEnum 64 = RoleTree-    toEnum 65 = RoleTreeTable-    toEnum 66 = RoleUnknown-    toEnum 67 = RoleViewport-    toEnum 68 = RoleWindow-    toEnum 69 = RoleHeader-    toEnum 70 = RoleFooter-    toEnum 71 = RoleParagraph-    toEnum 72 = RoleRuler-    toEnum 73 = RoleApplication-    toEnum 74 = RoleAutocomplete-    toEnum 75 = RoleEditBar-    toEnum 76 = RoleEmbedded-    toEnum 77 = RoleEntry-    toEnum 78 = RoleChart-    toEnum 79 = RoleCaption-    toEnum 80 = RoleDocumentFrame-    toEnum 81 = RoleHeading-    toEnum 82 = RolePage-    toEnum 83 = RoleSection-    toEnum 84 = RoleRedundantObject-    toEnum 85 = RoleForm-    toEnum 86 = RoleLink-    toEnum 87 = RoleInputMethodWindow-    toEnum 88 = RoleTableRow-    toEnum 89 = RoleTreeItem-    toEnum 90 = RoleDocumentSpreadsheet-    toEnum 91 = RoleDocumentPresentation-    toEnum 92 = RoleDocumentText-    toEnum 93 = RoleDocumentWeb-    toEnum 94 = RoleDocumentEmail-    toEnum 95 = RoleComment-    toEnum 96 = RoleListBox-    toEnum 97 = RoleGrouping-    toEnum 98 = RoleImageMap-    toEnum 99 = RoleNotification-    toEnum 100 = RoleInfoBar-    toEnum 101 = RoleLevelBar-    toEnum 102 = RoleTitleBar-    toEnum 103 = RoleBlockQuote-    toEnum 104 = RoleAudio-    toEnum 105 = RoleVideo-    toEnum 106 = RoleDefinition-    toEnum 107 = RoleArticle-    toEnum 108 = RoleLandmark-    toEnum 109 = RoleLog-    toEnum 110 = RoleMarquee-    toEnum 111 = RoleMath-    toEnum 112 = RoleRating-    toEnum 113 = RoleTimer-    toEnum 114 = RoleDescriptionList-    toEnum 115 = RoleDescriptionTerm-    toEnum 116 = RoleDescriptionValue-    toEnum 117 = RoleStatic-    toEnum 118 = RoleMathFraction-    toEnum 119 = RoleMathRoot-    toEnum 120 = RoleSubscript-    toEnum 121 = RoleSuperscript-    toEnum 122 = RoleLastDefined-    toEnum k = AnotherRole k--foreign import ccall "atk_role_get_type" c_atk_role_get_type :: -    IO GType--instance BoxedEnum Role where-    boxedEnumType _ = c_atk_role_get_type---- interface Selection --newtype Selection = Selection (ForeignPtr Selection)-noSelection :: Maybe Selection-noSelection = Nothing--class ForeignPtrNewtype a => SelectionK a-instance (ForeignPtrNewtype o, IsDescendantOf Selection o) => SelectionK o-type instance ParentTypes Selection = '[]---- method Selection::add_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_selection_add_selection" atk_selection_add_selection :: -    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"-    Int32 ->                                -- i : TBasicType TInt32-    IO CInt---selectionAddSelection ::-    (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Bool-selectionAddSelection _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_selection_add_selection _obj' i-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Selection::clear_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_selection_clear_selection" atk_selection_clear_selection :: -    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"-    IO CInt---selectionClearSelection ::-    (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    m Bool-selectionClearSelection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_selection_clear_selection _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Selection::get_selection_count--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_selection_get_selection_count" atk_selection_get_selection_count :: -    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"-    IO Int32---selectionGetSelectionCount ::-    (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    m Int32-selectionGetSelectionCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_selection_get_selection_count _obj'-    touchManagedPtr _obj-    return result---- method Selection::is_child_selected--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_selection_is_child_selected" atk_selection_is_child_selected :: -    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"-    Int32 ->                                -- i : TBasicType TInt32-    IO CInt---selectionIsChildSelected ::-    (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Bool-selectionIsChildSelected _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_selection_is_child_selected _obj' i-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Selection::ref_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_selection_ref_selection" atk_selection_ref_selection :: -    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"-    Int32 ->                                -- i : TBasicType TInt32-    IO (Ptr Object)---selectionRefSelection ::-    (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Object-selectionRefSelection _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_selection_ref_selection _obj' i-    checkUnexpectedReturnNULL "atk_selection_ref_selection" result-    result' <- (wrapObject Object) result-    touchManagedPtr _obj-    return result'---- method Selection::remove_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_selection_remove_selection" atk_selection_remove_selection :: -    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"-    Int32 ->                                -- i : TBasicType TInt32-    IO CInt---selectionRemoveSelection ::-    (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Bool-selectionRemoveSelection _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_selection_remove_selection _obj' i-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Selection::select_all_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_selection_select_all_selection" atk_selection_select_all_selection :: -    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"-    IO CInt---selectionSelectAllSelection ::-    (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    m Bool-selectionSelectAllSelection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_selection_select_all_selection _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- signal Selection::selection-changed-type SelectionSelectionChangedCallback =-    IO ()--noSelectionSelectionChangedCallback :: Maybe SelectionSelectionChangedCallback-noSelectionSelectionChangedCallback = Nothing--type SelectionSelectionChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSelectionSelectionChangedCallback :: SelectionSelectionChangedCallbackC -> IO (FunPtr SelectionSelectionChangedCallbackC)--selectionSelectionChangedClosure :: SelectionSelectionChangedCallback -> IO Closure-selectionSelectionChangedClosure cb = newCClosure =<< mkSelectionSelectionChangedCallback wrapped-    where wrapped = selectionSelectionChangedCallbackWrapper cb--selectionSelectionChangedCallbackWrapper ::-    SelectionSelectionChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-selectionSelectionChangedCallbackWrapper _cb _ _ = do-    _cb --onSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId-onSelectionSelectionChanged obj cb = liftIO $ connectSelectionSelectionChanged obj cb SignalConnectBefore-afterSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId-afterSelectionSelectionChanged obj cb = connectSelectionSelectionChanged obj cb SignalConnectAfter--connectSelectionSelectionChanged :: (GObject a, MonadIO m) =>-                                    a -> SelectionSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectSelectionSelectionChanged obj cb after = liftIO $ do-    cb' <- mkSelectionSelectionChangedCallback (selectionSelectionChangedCallbackWrapper cb)-    connectSignalFunPtr obj "selection-changed" cb' after---- object Socket -newtype Socket = Socket (ForeignPtr Socket)-noSocket :: Maybe Socket-noSocket = Nothing--foreign import ccall "atk_socket_get_type"-    c_atk_socket_get_type :: IO GType--type instance ParentTypes Socket = '[Object, GObject.Object, Component]--instance GObject Socket where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_socket_get_type-    --class GObject o => SocketK o-instance (GObject o, IsDescendantOf Socket o) => SocketK o--toSocket :: SocketK o => o -> IO Socket-toSocket = unsafeCastTo Socket---- method Socket::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Atk" "Socket"--- throws : False--- Skip return : False--foreign import ccall "atk_socket_new" atk_socket_new :: -    IO (Ptr Socket)---socketNew ::-    (MonadIO m) =>-    m Socket-socketNew  = liftIO $ do-    result <- atk_socket_new-    checkUnexpectedReturnNULL "atk_socket_new" result-    result' <- (wrapObject Socket) result-    return result'---- method Socket::embed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plug_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plug_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_socket_embed" atk_socket_embed :: -    Ptr Socket ->                           -- _obj : TInterface "Atk" "Socket"-    CString ->                              -- plug_id : TBasicType TUTF8-    IO ()---socketEmbed ::-    (MonadIO m, SocketK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- plug_id-    m ()-socketEmbed _obj plug_id = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    plug_id' <- textToCString plug_id-    atk_socket_embed _obj' plug_id'-    touchManagedPtr _obj-    freeMem plug_id'-    return ()---- method Socket::is_occupied--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_socket_is_occupied" atk_socket_is_occupied :: -    Ptr Socket ->                           -- _obj : TInterface "Atk" "Socket"-    IO CInt---socketIsOccupied ::-    (MonadIO m, SocketK a) =>-    a ->                                    -- _obj-    m Bool-socketIsOccupied _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_socket_is_occupied _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- object StateSet -newtype StateSet = StateSet (ForeignPtr StateSet)-noStateSet :: Maybe StateSet-noStateSet = Nothing--foreign import ccall "atk_state_set_get_type"-    c_atk_state_set_get_type :: IO GType--type instance ParentTypes StateSet = '[GObject.Object]--instance GObject StateSet where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_state_set_get_type-    --class GObject o => StateSetK o-instance (GObject o, IsDescendantOf StateSet o) => StateSetK o--toStateSet :: StateSetK o => o -> IO StateSet-toStateSet = unsafeCastTo StateSet---- method StateSet::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Atk" "StateSet"--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_new" atk_state_set_new :: -    IO (Ptr StateSet)---stateSetNew ::-    (MonadIO m) =>-    m StateSet-stateSetNew  = liftIO $ do-    result <- atk_state_set_new-    checkUnexpectedReturnNULL "atk_state_set_new" result-    result' <- (wrapObject StateSet) result-    return result'---- method StateSet::add_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_add_state" atk_state_set_add_state :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    CUInt ->                                -- type : TInterface "Atk" "StateType"-    IO CInt---stateSetAddState ::-    (MonadIO m, StateSetK a) =>-    a ->                                    -- _obj-    StateType ->                            -- type-    m Bool-stateSetAddState _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    result <- atk_state_set_add_state _obj' type_'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method StateSet::add_states--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_add_states" atk_state_set_add_states :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    Ptr CUInt ->                            -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType")-    Int32 ->                                -- n_types : TBasicType TInt32-    IO ()---stateSetAddStates ::-    (MonadIO m, StateSetK a) =>-    a ->                                    -- _obj-    [StateType] ->                          -- types-    m ()-stateSetAddStates _obj types = liftIO $ do-    let n_types = fromIntegral $ length types-    let _obj' = unsafeManagedPtrCastPtr _obj-    let types' = map (fromIntegral . fromEnum) types-    types'' <- packStorableArray types'-    atk_state_set_add_states _obj' types'' n_types-    touchManagedPtr _obj-    freeMem types''-    return ()---- method StateSet::and_sets--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "StateSet"--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_and_sets" atk_state_set_and_sets :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    Ptr StateSet ->                         -- compare_set : TInterface "Atk" "StateSet"-    IO (Ptr StateSet)---stateSetAndSets ::-    (MonadIO m, StateSetK a, StateSetK b) =>-    a ->                                    -- _obj-    b ->                                    -- compare_set-    m StateSet-stateSetAndSets _obj compare_set = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let compare_set' = unsafeManagedPtrCastPtr compare_set-    result <- atk_state_set_and_sets _obj' compare_set'-    checkUnexpectedReturnNULL "atk_state_set_and_sets" result-    result' <- (wrapObject StateSet) result-    touchManagedPtr _obj-    touchManagedPtr compare_set-    return result'---- method StateSet::clear_states--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_clear_states" atk_state_set_clear_states :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    IO ()---stateSetClearStates ::-    (MonadIO m, StateSetK a) =>-    a ->                                    -- _obj-    m ()-stateSetClearStates _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    atk_state_set_clear_states _obj'-    touchManagedPtr _obj-    return ()---- method StateSet::contains_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_contains_state" atk_state_set_contains_state :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    CUInt ->                                -- type : TInterface "Atk" "StateType"-    IO CInt---stateSetContainsState ::-    (MonadIO m, StateSetK a) =>-    a ->                                    -- _obj-    StateType ->                            -- type-    m Bool-stateSetContainsState _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    result <- atk_state_set_contains_state _obj' type_'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method StateSet::contains_states--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_contains_states" atk_state_set_contains_states :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    Ptr CUInt ->                            -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType")-    Int32 ->                                -- n_types : TBasicType TInt32-    IO CInt---stateSetContainsStates ::-    (MonadIO m, StateSetK a) =>-    a ->                                    -- _obj-    [StateType] ->                          -- types-    m Bool-stateSetContainsStates _obj types = liftIO $ do-    let n_types = fromIntegral $ length types-    let _obj' = unsafeManagedPtrCastPtr _obj-    let types' = map (fromIntegral . fromEnum) types-    types'' <- packStorableArray types'-    result <- atk_state_set_contains_states _obj' types'' n_types-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem types''-    return result'---- method StateSet::is_empty--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_is_empty" atk_state_set_is_empty :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    IO CInt---stateSetIsEmpty ::-    (MonadIO m, StateSetK a) =>-    a ->                                    -- _obj-    m Bool-stateSetIsEmpty _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_state_set_is_empty _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method StateSet::or_sets--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "StateSet"--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_or_sets" atk_state_set_or_sets :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    Ptr StateSet ->                         -- compare_set : TInterface "Atk" "StateSet"-    IO (Ptr StateSet)---stateSetOrSets ::-    (MonadIO m, StateSetK a, StateSetK b) =>-    a ->                                    -- _obj-    b ->                                    -- compare_set-    m StateSet-stateSetOrSets _obj compare_set = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let compare_set' = unsafeManagedPtrCastPtr compare_set-    result <- atk_state_set_or_sets _obj' compare_set'-    checkUnexpectedReturnNULL "atk_state_set_or_sets" result-    result' <- (wrapObject StateSet) result-    touchManagedPtr _obj-    touchManagedPtr compare_set-    return result'---- method StateSet::remove_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_remove_state" atk_state_set_remove_state :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    CUInt ->                                -- type : TInterface "Atk" "StateType"-    IO CInt---stateSetRemoveState ::-    (MonadIO m, StateSetK a) =>-    a ->                                    -- _obj-    StateType ->                            -- type-    m Bool-stateSetRemoveState _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    result <- atk_state_set_remove_state _obj' type_'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method StateSet::xor_sets--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "StateSet"--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_xor_sets" atk_state_set_xor_sets :: -    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"-    Ptr StateSet ->                         -- compare_set : TInterface "Atk" "StateSet"-    IO (Ptr StateSet)---stateSetXorSets ::-    (MonadIO m, StateSetK a, StateSetK b) =>-    a ->                                    -- _obj-    b ->                                    -- compare_set-    m StateSet-stateSetXorSets _obj compare_set = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let compare_set' = unsafeManagedPtrCastPtr compare_set-    result <- atk_state_set_xor_sets _obj' compare_set'-    checkUnexpectedReturnNULL "atk_state_set_xor_sets" result-    result' <- (wrapObject StateSet) result-    touchManagedPtr _obj-    touchManagedPtr compare_set-    return result'---- Enum StateType--data StateType = -      StateTypeInvalid-    | StateTypeActive-    | StateTypeArmed-    | StateTypeBusy-    | StateTypeChecked-    | StateTypeDefunct-    | StateTypeEditable-    | StateTypeEnabled-    | StateTypeExpandable-    | StateTypeExpanded-    | StateTypeFocusable-    | StateTypeFocused-    | StateTypeHorizontal-    | StateTypeIconified-    | StateTypeModal-    | StateTypeMultiLine-    | StateTypeMultiselectable-    | StateTypeOpaque-    | StateTypePressed-    | StateTypeResizable-    | StateTypeSelectable-    | StateTypeSelected-    | StateTypeSensitive-    | StateTypeShowing-    | StateTypeSingleLine-    | StateTypeStale-    | StateTypeTransient-    | StateTypeVertical-    | StateTypeVisible-    | StateTypeManagesDescendants-    | StateTypeIndeterminate-    | StateTypeTruncated-    | StateTypeRequired-    | StateTypeInvalidEntry-    | StateTypeSupportsAutocompletion-    | StateTypeSelectableText-    | StateTypeDefault-    | StateTypeAnimated-    | StateTypeVisited-    | StateTypeCheckable-    | StateTypeHasPopup-    | StateTypeHasTooltip-    | StateTypeReadOnly-    | StateTypeLastDefined-    | AnotherStateType Int-    deriving (Show, Eq)--instance Enum StateType where-    fromEnum StateTypeInvalid = 0-    fromEnum StateTypeActive = 1-    fromEnum StateTypeArmed = 2-    fromEnum StateTypeBusy = 3-    fromEnum StateTypeChecked = 4-    fromEnum StateTypeDefunct = 5-    fromEnum StateTypeEditable = 6-    fromEnum StateTypeEnabled = 7-    fromEnum StateTypeExpandable = 8-    fromEnum StateTypeExpanded = 9-    fromEnum StateTypeFocusable = 10-    fromEnum StateTypeFocused = 11-    fromEnum StateTypeHorizontal = 12-    fromEnum StateTypeIconified = 13-    fromEnum StateTypeModal = 14-    fromEnum StateTypeMultiLine = 15-    fromEnum StateTypeMultiselectable = 16-    fromEnum StateTypeOpaque = 17-    fromEnum StateTypePressed = 18-    fromEnum StateTypeResizable = 19-    fromEnum StateTypeSelectable = 20-    fromEnum StateTypeSelected = 21-    fromEnum StateTypeSensitive = 22-    fromEnum StateTypeShowing = 23-    fromEnum StateTypeSingleLine = 24-    fromEnum StateTypeStale = 25-    fromEnum StateTypeTransient = 26-    fromEnum StateTypeVertical = 27-    fromEnum StateTypeVisible = 28-    fromEnum StateTypeManagesDescendants = 29-    fromEnum StateTypeIndeterminate = 30-    fromEnum StateTypeTruncated = 31-    fromEnum StateTypeRequired = 32-    fromEnum StateTypeInvalidEntry = 33-    fromEnum StateTypeSupportsAutocompletion = 34-    fromEnum StateTypeSelectableText = 35-    fromEnum StateTypeDefault = 36-    fromEnum StateTypeAnimated = 37-    fromEnum StateTypeVisited = 38-    fromEnum StateTypeCheckable = 39-    fromEnum StateTypeHasPopup = 40-    fromEnum StateTypeHasTooltip = 41-    fromEnum StateTypeReadOnly = 42-    fromEnum StateTypeLastDefined = 43-    fromEnum (AnotherStateType k) = k--    toEnum 0 = StateTypeInvalid-    toEnum 1 = StateTypeActive-    toEnum 2 = StateTypeArmed-    toEnum 3 = StateTypeBusy-    toEnum 4 = StateTypeChecked-    toEnum 5 = StateTypeDefunct-    toEnum 6 = StateTypeEditable-    toEnum 7 = StateTypeEnabled-    toEnum 8 = StateTypeExpandable-    toEnum 9 = StateTypeExpanded-    toEnum 10 = StateTypeFocusable-    toEnum 11 = StateTypeFocused-    toEnum 12 = StateTypeHorizontal-    toEnum 13 = StateTypeIconified-    toEnum 14 = StateTypeModal-    toEnum 15 = StateTypeMultiLine-    toEnum 16 = StateTypeMultiselectable-    toEnum 17 = StateTypeOpaque-    toEnum 18 = StateTypePressed-    toEnum 19 = StateTypeResizable-    toEnum 20 = StateTypeSelectable-    toEnum 21 = StateTypeSelected-    toEnum 22 = StateTypeSensitive-    toEnum 23 = StateTypeShowing-    toEnum 24 = StateTypeSingleLine-    toEnum 25 = StateTypeStale-    toEnum 26 = StateTypeTransient-    toEnum 27 = StateTypeVertical-    toEnum 28 = StateTypeVisible-    toEnum 29 = StateTypeManagesDescendants-    toEnum 30 = StateTypeIndeterminate-    toEnum 31 = StateTypeTruncated-    toEnum 32 = StateTypeRequired-    toEnum 33 = StateTypeInvalidEntry-    toEnum 34 = StateTypeSupportsAutocompletion-    toEnum 35 = StateTypeSelectableText-    toEnum 36 = StateTypeDefault-    toEnum 37 = StateTypeAnimated-    toEnum 38 = StateTypeVisited-    toEnum 39 = StateTypeCheckable-    toEnum 40 = StateTypeHasPopup-    toEnum 41 = StateTypeHasTooltip-    toEnum 42 = StateTypeReadOnly-    toEnum 43 = StateTypeLastDefined-    toEnum k = AnotherStateType k--foreign import ccall "atk_state_type_get_type" c_atk_state_type_get_type :: -    IO GType--instance BoxedEnum StateType where-    boxedEnumType _ = c_atk_state_type_get_type---- interface StreamableContent --newtype StreamableContent = StreamableContent (ForeignPtr StreamableContent)-noStreamableContent :: Maybe StreamableContent-noStreamableContent = Nothing--class ForeignPtrNewtype a => StreamableContentK a-instance (ForeignPtrNewtype o, IsDescendantOf StreamableContent o) => StreamableContentK o-type instance ParentTypes StreamableContent = '[]---- method StreamableContent::get_mime_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_streamable_content_get_mime_type" atk_streamable_content_get_mime_type :: -    Ptr StreamableContent ->                -- _obj : TInterface "Atk" "StreamableContent"-    Int32 ->                                -- i : TBasicType TInt32-    IO CString---streamableContentGetMimeType ::-    (MonadIO m, StreamableContentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text-streamableContentGetMimeType _obj i = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_streamable_content_get_mime_type _obj' i-    checkUnexpectedReturnNULL "atk_streamable_content_get_mime_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method StreamableContent::get_n_mime_types--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_streamable_content_get_n_mime_types" atk_streamable_content_get_n_mime_types :: -    Ptr StreamableContent ->                -- _obj : TInterface "Atk" "StreamableContent"-    IO Int32---streamableContentGetNMimeTypes ::-    (MonadIO m, StreamableContentK a) =>-    a ->                                    -- _obj-    m Int32-streamableContentGetNMimeTypes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_streamable_content_get_n_mime_types _obj'-    touchManagedPtr _obj-    return result---- method StreamableContent::get_stream--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOChannel"--- throws : False--- Skip return : False--foreign import ccall "atk_streamable_content_get_stream" atk_streamable_content_get_stream :: -    Ptr StreamableContent ->                -- _obj : TInterface "Atk" "StreamableContent"-    CString ->                              -- mime_type : TBasicType TUTF8-    IO (Ptr GLib.IOChannel)---streamableContentGetStream ::-    (MonadIO m, StreamableContentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- mime_type-    m GLib.IOChannel-streamableContentGetStream _obj mime_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    mime_type' <- textToCString mime_type-    result <- atk_streamable_content_get_stream _obj' mime_type'-    checkUnexpectedReturnNULL "atk_streamable_content_get_stream" result-    result' <- (wrapBoxed GLib.IOChannel) result-    touchManagedPtr _obj-    freeMem mime_type'-    return result'---- method StreamableContent::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_streamable_content_get_uri" atk_streamable_content_get_uri :: -    Ptr StreamableContent ->                -- _obj : TInterface "Atk" "StreamableContent"-    CString ->                              -- mime_type : TBasicType TUTF8-    IO CString---streamableContentGetUri ::-    (MonadIO m, StreamableContentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- mime_type-    m T.Text-streamableContentGetUri _obj mime_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    mime_type' <- textToCString mime_type-    result <- atk_streamable_content_get_uri _obj' mime_type'-    checkUnexpectedReturnNULL "atk_streamable_content_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem mime_type'-    return result'---- interface Table --newtype Table = Table (ForeignPtr Table)-noTable :: Maybe Table-noTable = Nothing--class ForeignPtrNewtype a => TableK a-instance (ForeignPtrNewtype o, IsDescendantOf Table o) => TableK o-type instance ParentTypes Table = '[]---- method Table::add_column_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_table_add_column_selection" atk_table_add_column_selection :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- column : TBasicType TInt32-    IO CInt---tableAddColumnSelection ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m Bool-tableAddColumnSelection _obj column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_add_column_selection _obj' column-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Table::add_row_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_table_add_row_selection" atk_table_add_row_selection :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    IO CInt---tableAddRowSelection ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m Bool-tableAddRowSelection _obj row = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_add_row_selection _obj' row-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Table::get_caption--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_caption" atk_table_get_caption :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    IO (Ptr Object)---tableGetCaption ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    m Object-tableGetCaption _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_caption _obj'-    checkUnexpectedReturnNULL "atk_table_get_caption" result-    result' <- (newObject Object) result-    touchManagedPtr _obj-    return result'---- method Table::get_column_at_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_column_at_index" atk_table_get_column_at_index :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- index_ : TBasicType TInt32-    IO Int32--{-# DEPRECATED tableGetColumnAtIndex ["Since 2.12."]#-}-tableGetColumnAtIndex ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    m Int32-tableGetColumnAtIndex _obj index_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_column_at_index _obj' index_-    touchManagedPtr _obj-    return result---- method Table::get_column_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_column_description" atk_table_get_column_description :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- column : TBasicType TInt32-    IO CString---tableGetColumnDescription ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m T.Text-tableGetColumnDescription _obj column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_column_description _obj' column-    checkUnexpectedReturnNULL "atk_table_get_column_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Table::get_column_extent_at--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_column_extent_at" atk_table_get_column_extent_at :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    Int32 ->                                -- column : TBasicType TInt32-    IO Int32---tableGetColumnExtentAt ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Int32-tableGetColumnExtentAt _obj row column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_column_extent_at _obj' row column-    touchManagedPtr _obj-    return result---- method Table::get_column_header--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_column_header" atk_table_get_column_header :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- column : TBasicType TInt32-    IO (Ptr Object)---tableGetColumnHeader ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m Object-tableGetColumnHeader _obj column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_column_header _obj' column-    checkUnexpectedReturnNULL "atk_table_get_column_header" result-    result' <- (newObject Object) result-    touchManagedPtr _obj-    return result'---- method Table::get_index_at--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_index_at" atk_table_get_index_at :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    Int32 ->                                -- column : TBasicType TInt32-    IO Int32--{-# DEPRECATED tableGetIndexAt ["Since 2.12. Use atk_table_ref_at() in order to get the","accessible that represents the cell at (@row, @column)"]#-}-tableGetIndexAt ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Int32-tableGetIndexAt _obj row column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_index_at _obj' row column-    touchManagedPtr _obj-    return result---- method Table::get_n_columns--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_n_columns" atk_table_get_n_columns :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    IO Int32---tableGetNColumns ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    m Int32-tableGetNColumns _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_n_columns _obj'-    touchManagedPtr _obj-    return result---- method Table::get_n_rows--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_n_rows" atk_table_get_n_rows :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    IO Int32---tableGetNRows ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    m Int32-tableGetNRows _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_n_rows _obj'-    touchManagedPtr _obj-    return result---- method Table::get_row_at_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_row_at_index" atk_table_get_row_at_index :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- index_ : TBasicType TInt32-    IO Int32--{-# DEPRECATED tableGetRowAtIndex ["since 2.12."]#-}-tableGetRowAtIndex ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    m Int32-tableGetRowAtIndex _obj index_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_row_at_index _obj' index_-    touchManagedPtr _obj-    return result---- method Table::get_row_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_row_description" atk_table_get_row_description :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    IO CString---tableGetRowDescription ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m T.Text-tableGetRowDescription _obj row = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_row_description _obj' row-    checkUnexpectedReturnNULL "atk_table_get_row_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Table::get_row_extent_at--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_row_extent_at" atk_table_get_row_extent_at :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    Int32 ->                                -- column : TBasicType TInt32-    IO Int32---tableGetRowExtentAt ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Int32-tableGetRowExtentAt _obj row column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_row_extent_at _obj' row column-    touchManagedPtr _obj-    return result---- method Table::get_row_header--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_row_header" atk_table_get_row_header :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    IO (Ptr Object)---tableGetRowHeader ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m Object-tableGetRowHeader _obj row = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_row_header _obj' row-    checkUnexpectedReturnNULL "atk_table_get_row_header" result-    result' <- (newObject Object) result-    touchManagedPtr _obj-    return result'---- method Table::get_selected_columns--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_selected_columns" atk_table_get_selected_columns :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- selected : TBasicType TInt32-    IO Int32---tableGetSelectedColumns ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selected-    m Int32-tableGetSelectedColumns _obj selected = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_selected_columns _obj' selected-    touchManagedPtr _obj-    return result---- method Table::get_selected_rows--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_selected_rows" atk_table_get_selected_rows :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- selected : TBasicType TInt32-    IO Int32---tableGetSelectedRows ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selected-    m Int32-tableGetSelectedRows _obj selected = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_selected_rows _obj' selected-    touchManagedPtr _obj-    return result---- method Table::get_summary--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_summary" atk_table_get_summary :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    IO (Ptr Object)---tableGetSummary ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    m Object-tableGetSummary _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_summary _obj'-    checkUnexpectedReturnNULL "atk_table_get_summary" result-    result' <- (wrapObject Object) result-    touchManagedPtr _obj-    return result'---- method Table::is_column_selected--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_table_is_column_selected" atk_table_is_column_selected :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- column : TBasicType TInt32-    IO CInt---tableIsColumnSelected ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m Bool-tableIsColumnSelected _obj column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_is_column_selected _obj' column-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Table::is_row_selected--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_table_is_row_selected" atk_table_is_row_selected :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    IO CInt---tableIsRowSelected ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m Bool-tableIsRowSelected _obj row = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_is_row_selected _obj' row-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Table::is_selected--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_table_is_selected" atk_table_is_selected :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    Int32 ->                                -- column : TBasicType TInt32-    IO CInt---tableIsSelected ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Bool-tableIsSelected _obj row column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_is_selected _obj' row column-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Table::ref_at--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_table_ref_at" atk_table_ref_at :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    Int32 ->                                -- column : TBasicType TInt32-    IO (Ptr Object)---tableRefAt ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Object-tableRefAt _obj row column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_ref_at _obj' row column-    checkUnexpectedReturnNULL "atk_table_ref_at" result-    result' <- (wrapObject Object) result-    touchManagedPtr _obj-    return result'---- method Table::remove_column_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_table_remove_column_selection" atk_table_remove_column_selection :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- column : TBasicType TInt32-    IO CInt---tableRemoveColumnSelection ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m Bool-tableRemoveColumnSelection _obj column = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_remove_column_selection _obj' column-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Table::remove_row_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_table_remove_row_selection" atk_table_remove_row_selection :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    IO CInt---tableRemoveRowSelection ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m Bool-tableRemoveRowSelection _obj row = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_remove_row_selection _obj' row-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Table::set_caption--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_caption" atk_table_set_caption :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Ptr Object ->                           -- caption : TInterface "Atk" "Object"-    IO ()---tableSetCaption ::-    (MonadIO m, TableK a, ObjectK b) =>-    a ->                                    -- _obj-    b ->                                    -- caption-    m ()-tableSetCaption _obj caption = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let caption' = unsafeManagedPtrCastPtr caption-    atk_table_set_caption _obj' caption'-    touchManagedPtr _obj-    touchManagedPtr caption-    return ()---- method Table::set_column_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_column_description" atk_table_set_column_description :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- column : TBasicType TInt32-    CString ->                              -- description : TBasicType TUTF8-    IO ()---tableSetColumnDescription ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    T.Text ->                               -- description-    m ()-tableSetColumnDescription _obj column description = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    description' <- textToCString description-    atk_table_set_column_description _obj' column description'-    touchManagedPtr _obj-    freeMem description'-    return ()---- method Table::set_column_header--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_column_header" atk_table_set_column_header :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- column : TBasicType TInt32-    Ptr Object ->                           -- header : TInterface "Atk" "Object"-    IO ()---tableSetColumnHeader ::-    (MonadIO m, TableK a, ObjectK b) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    b ->                                    -- header-    m ()-tableSetColumnHeader _obj column header = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let header' = unsafeManagedPtrCastPtr header-    atk_table_set_column_header _obj' column header'-    touchManagedPtr _obj-    touchManagedPtr header-    return ()---- method Table::set_row_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_row_description" atk_table_set_row_description :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    CString ->                              -- description : TBasicType TUTF8-    IO ()---tableSetRowDescription ::-    (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    T.Text ->                               -- description-    m ()-tableSetRowDescription _obj row description = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    description' <- textToCString description-    atk_table_set_row_description _obj' row description'-    touchManagedPtr _obj-    freeMem description'-    return ()---- method Table::set_row_header--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_row_header" atk_table_set_row_header :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Int32 ->                                -- row : TBasicType TInt32-    Ptr Object ->                           -- header : TInterface "Atk" "Object"-    IO ()---tableSetRowHeader ::-    (MonadIO m, TableK a, ObjectK b) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    b ->                                    -- header-    m ()-tableSetRowHeader _obj row header = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let header' = unsafeManagedPtrCastPtr header-    atk_table_set_row_header _obj' row header'-    touchManagedPtr _obj-    touchManagedPtr header-    return ()---- method Table::set_summary--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_summary" atk_table_set_summary :: -    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"-    Ptr Object ->                           -- accessible : TInterface "Atk" "Object"-    IO ()---tableSetSummary ::-    (MonadIO m, TableK a, ObjectK b) =>-    a ->                                    -- _obj-    b ->                                    -- accessible-    m ()-tableSetSummary _obj accessible = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let accessible' = unsafeManagedPtrCastPtr accessible-    atk_table_set_summary _obj' accessible'-    touchManagedPtr _obj-    touchManagedPtr accessible-    return ()---- signal Table::column-deleted-type TableColumnDeletedCallback =-    Int32 ->-    Int32 ->-    IO ()--noTableColumnDeletedCallback :: Maybe TableColumnDeletedCallback-noTableColumnDeletedCallback = Nothing--type TableColumnDeletedCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTableColumnDeletedCallback :: TableColumnDeletedCallbackC -> IO (FunPtr TableColumnDeletedCallbackC)--tableColumnDeletedClosure :: TableColumnDeletedCallback -> IO Closure-tableColumnDeletedClosure cb = newCClosure =<< mkTableColumnDeletedCallback wrapped-    where wrapped = tableColumnDeletedCallbackWrapper cb--tableColumnDeletedCallbackWrapper ::-    TableColumnDeletedCallback ->-    Ptr () ->-    Int32 ->-    Int32 ->-    Ptr () ->-    IO ()-tableColumnDeletedCallbackWrapper _cb _ arg1 arg2 _ = do-    _cb  arg1 arg2--onTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId-onTableColumnDeleted obj cb = liftIO $ connectTableColumnDeleted obj cb SignalConnectBefore-afterTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId-afterTableColumnDeleted obj cb = connectTableColumnDeleted obj cb SignalConnectAfter--connectTableColumnDeleted :: (GObject a, MonadIO m) =>-                             a -> TableColumnDeletedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableColumnDeleted obj cb after = liftIO $ do-    cb' <- mkTableColumnDeletedCallback (tableColumnDeletedCallbackWrapper cb)-    connectSignalFunPtr obj "column-deleted" cb' after---- signal Table::column-inserted-type TableColumnInsertedCallback =-    Int32 ->-    Int32 ->-    IO ()--noTableColumnInsertedCallback :: Maybe TableColumnInsertedCallback-noTableColumnInsertedCallback = Nothing--type TableColumnInsertedCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTableColumnInsertedCallback :: TableColumnInsertedCallbackC -> IO (FunPtr TableColumnInsertedCallbackC)--tableColumnInsertedClosure :: TableColumnInsertedCallback -> IO Closure-tableColumnInsertedClosure cb = newCClosure =<< mkTableColumnInsertedCallback wrapped-    where wrapped = tableColumnInsertedCallbackWrapper cb--tableColumnInsertedCallbackWrapper ::-    TableColumnInsertedCallback ->-    Ptr () ->-    Int32 ->-    Int32 ->-    Ptr () ->-    IO ()-tableColumnInsertedCallbackWrapper _cb _ arg1 arg2 _ = do-    _cb  arg1 arg2--onTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId-onTableColumnInserted obj cb = liftIO $ connectTableColumnInserted obj cb SignalConnectBefore-afterTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId-afterTableColumnInserted obj cb = connectTableColumnInserted obj cb SignalConnectAfter--connectTableColumnInserted :: (GObject a, MonadIO m) =>-                              a -> TableColumnInsertedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableColumnInserted obj cb after = liftIO $ do-    cb' <- mkTableColumnInsertedCallback (tableColumnInsertedCallbackWrapper cb)-    connectSignalFunPtr obj "column-inserted" cb' after---- signal Table::column-reordered-type TableColumnReorderedCallback =-    IO ()--noTableColumnReorderedCallback :: Maybe TableColumnReorderedCallback-noTableColumnReorderedCallback = Nothing--type TableColumnReorderedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTableColumnReorderedCallback :: TableColumnReorderedCallbackC -> IO (FunPtr TableColumnReorderedCallbackC)--tableColumnReorderedClosure :: TableColumnReorderedCallback -> IO Closure-tableColumnReorderedClosure cb = newCClosure =<< mkTableColumnReorderedCallback wrapped-    where wrapped = tableColumnReorderedCallbackWrapper cb--tableColumnReorderedCallbackWrapper ::-    TableColumnReorderedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-tableColumnReorderedCallbackWrapper _cb _ _ = do-    _cb --onTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId-onTableColumnReordered obj cb = liftIO $ connectTableColumnReordered obj cb SignalConnectBefore-afterTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId-afterTableColumnReordered obj cb = connectTableColumnReordered obj cb SignalConnectAfter--connectTableColumnReordered :: (GObject a, MonadIO m) =>-                               a -> TableColumnReorderedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableColumnReordered obj cb after = liftIO $ do-    cb' <- mkTableColumnReorderedCallback (tableColumnReorderedCallbackWrapper cb)-    connectSignalFunPtr obj "column-reordered" cb' after---- signal Table::model-changed-type TableModelChangedCallback =-    IO ()--noTableModelChangedCallback :: Maybe TableModelChangedCallback-noTableModelChangedCallback = Nothing--type TableModelChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTableModelChangedCallback :: TableModelChangedCallbackC -> IO (FunPtr TableModelChangedCallbackC)--tableModelChangedClosure :: TableModelChangedCallback -> IO Closure-tableModelChangedClosure cb = newCClosure =<< mkTableModelChangedCallback wrapped-    where wrapped = tableModelChangedCallbackWrapper cb--tableModelChangedCallbackWrapper ::-    TableModelChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-tableModelChangedCallbackWrapper _cb _ _ = do-    _cb --onTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId-onTableModelChanged obj cb = liftIO $ connectTableModelChanged obj cb SignalConnectBefore-afterTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId-afterTableModelChanged obj cb = connectTableModelChanged obj cb SignalConnectAfter--connectTableModelChanged :: (GObject a, MonadIO m) =>-                            a -> TableModelChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableModelChanged obj cb after = liftIO $ do-    cb' <- mkTableModelChangedCallback (tableModelChangedCallbackWrapper cb)-    connectSignalFunPtr obj "model-changed" cb' after---- signal Table::row-deleted-type TableRowDeletedCallback =-    Int32 ->-    Int32 ->-    IO ()--noTableRowDeletedCallback :: Maybe TableRowDeletedCallback-noTableRowDeletedCallback = Nothing--type TableRowDeletedCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTableRowDeletedCallback :: TableRowDeletedCallbackC -> IO (FunPtr TableRowDeletedCallbackC)--tableRowDeletedClosure :: TableRowDeletedCallback -> IO Closure-tableRowDeletedClosure cb = newCClosure =<< mkTableRowDeletedCallback wrapped-    where wrapped = tableRowDeletedCallbackWrapper cb--tableRowDeletedCallbackWrapper ::-    TableRowDeletedCallback ->-    Ptr () ->-    Int32 ->-    Int32 ->-    Ptr () ->-    IO ()-tableRowDeletedCallbackWrapper _cb _ arg1 arg2 _ = do-    _cb  arg1 arg2--onTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId-onTableRowDeleted obj cb = liftIO $ connectTableRowDeleted obj cb SignalConnectBefore-afterTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId-afterTableRowDeleted obj cb = connectTableRowDeleted obj cb SignalConnectAfter--connectTableRowDeleted :: (GObject a, MonadIO m) =>-                          a -> TableRowDeletedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableRowDeleted obj cb after = liftIO $ do-    cb' <- mkTableRowDeletedCallback (tableRowDeletedCallbackWrapper cb)-    connectSignalFunPtr obj "row-deleted" cb' after---- signal Table::row-inserted-type TableRowInsertedCallback =-    Int32 ->-    Int32 ->-    IO ()--noTableRowInsertedCallback :: Maybe TableRowInsertedCallback-noTableRowInsertedCallback = Nothing--type TableRowInsertedCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTableRowInsertedCallback :: TableRowInsertedCallbackC -> IO (FunPtr TableRowInsertedCallbackC)--tableRowInsertedClosure :: TableRowInsertedCallback -> IO Closure-tableRowInsertedClosure cb = newCClosure =<< mkTableRowInsertedCallback wrapped-    where wrapped = tableRowInsertedCallbackWrapper cb--tableRowInsertedCallbackWrapper ::-    TableRowInsertedCallback ->-    Ptr () ->-    Int32 ->-    Int32 ->-    Ptr () ->-    IO ()-tableRowInsertedCallbackWrapper _cb _ arg1 arg2 _ = do-    _cb  arg1 arg2--onTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId-onTableRowInserted obj cb = liftIO $ connectTableRowInserted obj cb SignalConnectBefore-afterTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId-afterTableRowInserted obj cb = connectTableRowInserted obj cb SignalConnectAfter--connectTableRowInserted :: (GObject a, MonadIO m) =>-                           a -> TableRowInsertedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableRowInserted obj cb after = liftIO $ do-    cb' <- mkTableRowInsertedCallback (tableRowInsertedCallbackWrapper cb)-    connectSignalFunPtr obj "row-inserted" cb' after---- signal Table::row-reordered-type TableRowReorderedCallback =-    IO ()--noTableRowReorderedCallback :: Maybe TableRowReorderedCallback-noTableRowReorderedCallback = Nothing--type TableRowReorderedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTableRowReorderedCallback :: TableRowReorderedCallbackC -> IO (FunPtr TableRowReorderedCallbackC)--tableRowReorderedClosure :: TableRowReorderedCallback -> IO Closure-tableRowReorderedClosure cb = newCClosure =<< mkTableRowReorderedCallback wrapped-    where wrapped = tableRowReorderedCallbackWrapper cb--tableRowReorderedCallbackWrapper ::-    TableRowReorderedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-tableRowReorderedCallbackWrapper _cb _ _ = do-    _cb --onTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId-onTableRowReordered obj cb = liftIO $ connectTableRowReordered obj cb SignalConnectBefore-afterTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId-afterTableRowReordered obj cb = connectTableRowReordered obj cb SignalConnectAfter--connectTableRowReordered :: (GObject a, MonadIO m) =>-                            a -> TableRowReorderedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableRowReordered obj cb after = liftIO $ do-    cb' <- mkTableRowReorderedCallback (tableRowReorderedCallbackWrapper cb)-    connectSignalFunPtr obj "row-reordered" cb' after---- interface TableCell --newtype TableCell = TableCell (ForeignPtr TableCell)-noTableCell :: Maybe TableCell-noTableCell = Nothing--foreign import ccall "atk_table_cell_get_type"-    c_atk_table_cell_get_type :: IO GType--type instance ParentTypes TableCell = '[Object, GObject.Object]--instance GObject TableCell where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_table_cell_get_type-    --class GObject o => TableCellK o-instance (GObject o, IsDescendantOf TableCell o) => TableCellK o--toTableCell :: TableCellK o => o -> IO TableCell-toTableCell = unsafeCastTo TableCell---- method TableCell::get_column_header_cells--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TPtrArray (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_column_header_cells" atk_table_cell_get_column_header_cells :: -    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"-    IO (Ptr (GPtrArray (Ptr Object)))---tableCellGetColumnHeaderCells ::-    (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m [Object]-tableCellGetColumnHeaderCells _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_cell_get_column_header_cells _obj'-    checkUnexpectedReturnNULL "atk_table_cell_get_column_header_cells" result-    result' <- unpackGPtrArray result-    result'' <- mapM (wrapObject Object) result'-    unrefPtrArray result-    touchManagedPtr _obj-    return result''---- method TableCell::get_column_span--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_column_span" atk_table_cell_get_column_span :: -    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"-    IO Int32---tableCellGetColumnSpan ::-    (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m Int32-tableCellGetColumnSpan _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_cell_get_column_span _obj'-    touchManagedPtr _obj-    return result---- method TableCell::get_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_position" atk_table_cell_get_position :: -    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"-    Ptr Int32 ->                            -- row : TBasicType TInt32-    Ptr Int32 ->                            -- column : TBasicType TInt32-    IO CInt---tableCellGetPosition ::-    (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m (Bool,Int32,Int32)-tableCellGetPosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    row <- allocMem :: IO (Ptr Int32)-    column <- allocMem :: IO (Ptr Int32)-    result <- atk_table_cell_get_position _obj' row column-    let result' = (/= 0) result-    row' <- peek row-    column' <- peek column-    touchManagedPtr _obj-    freeMem row-    freeMem column-    return (result', row', column')---- method TableCell::get_row_column_span--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_row_column_span" atk_table_cell_get_row_column_span :: -    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"-    Ptr Int32 ->                            -- row : TBasicType TInt32-    Ptr Int32 ->                            -- column : TBasicType TInt32-    Ptr Int32 ->                            -- row_span : TBasicType TInt32-    Ptr Int32 ->                            -- column_span : TBasicType TInt32-    IO CInt---tableCellGetRowColumnSpan ::-    (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m (Bool,Int32,Int32,Int32,Int32)-tableCellGetRowColumnSpan _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    row <- allocMem :: IO (Ptr Int32)-    column <- allocMem :: IO (Ptr Int32)-    row_span <- allocMem :: IO (Ptr Int32)-    column_span <- allocMem :: IO (Ptr Int32)-    result <- atk_table_cell_get_row_column_span _obj' row column row_span column_span-    let result' = (/= 0) result-    row' <- peek row-    column' <- peek column-    row_span' <- peek row_span-    column_span' <- peek column_span-    touchManagedPtr _obj-    freeMem row-    freeMem column-    freeMem row_span-    freeMem column_span-    return (result', row', column', row_span', column_span')---- method TableCell::get_row_header_cells--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TPtrArray (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_row_header_cells" atk_table_cell_get_row_header_cells :: -    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"-    IO (Ptr (GPtrArray (Ptr Object)))---tableCellGetRowHeaderCells ::-    (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m [Object]-tableCellGetRowHeaderCells _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_cell_get_row_header_cells _obj'-    checkUnexpectedReturnNULL "atk_table_cell_get_row_header_cells" result-    result' <- unpackGPtrArray result-    result'' <- mapM (wrapObject Object) result'-    unrefPtrArray result-    touchManagedPtr _obj-    return result''---- method TableCell::get_row_span--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_row_span" atk_table_cell_get_row_span :: -    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"-    IO Int32---tableCellGetRowSpan ::-    (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m Int32-tableCellGetRowSpan _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_cell_get_row_span _obj'-    touchManagedPtr _obj-    return result---- method TableCell::get_table--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_table" atk_table_cell_get_table :: -    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"-    IO (Ptr Object)---tableCellGetTable ::-    (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m Object-tableCellGetTable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_cell_get_table _obj'-    checkUnexpectedReturnNULL "atk_table_cell_get_table" result-    result' <- (wrapObject Object) result-    touchManagedPtr _obj-    return result'---- interface Text --newtype Text = Text (ForeignPtr Text)-noText :: Maybe Text-noText = Nothing--class ForeignPtrNewtype a => TextK a-instance (ForeignPtrNewtype o, IsDescendantOf Text o) => TextK o-type instance ParentTypes Text = '[]---- method Text::add_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_text_add_selection" atk_text_add_selection :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- start_offset : TBasicType TInt32-    Int32 ->                                -- end_offset : TBasicType TInt32-    IO CInt---textAddSelection ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    m Bool-textAddSelection _obj start_offset end_offset = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_add_selection _obj' start_offset end_offset-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Text::get_bounded_ranges--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TInterface "Atk" "TextRange")--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_bounded_ranges" atk_text_get_bounded_ranges :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Ptr TextRectangle ->                    -- rect : TInterface "Atk" "TextRectangle"-    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"-    CUInt ->                                -- x_clip_type : TInterface "Atk" "TextClipType"-    CUInt ->                                -- y_clip_type : TInterface "Atk" "TextClipType"-    IO (Ptr (Ptr TextRange))---textGetBoundedRanges ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    TextRectangle ->                        -- rect-    CoordType ->                            -- coord_type-    TextClipType ->                         -- x_clip_type-    TextClipType ->                         -- y_clip_type-    m [TextRange]-textGetBoundedRanges _obj rect coord_type x_clip_type y_clip_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let rect' = unsafeManagedPtrGetPtr rect-    let coord_type' = (fromIntegral . fromEnum) coord_type-    let x_clip_type' = (fromIntegral . fromEnum) x_clip_type-    let y_clip_type' = (fromIntegral . fromEnum) y_clip_type-    result <- atk_text_get_bounded_ranges _obj' rect' coord_type' x_clip_type' y_clip_type'-    checkUnexpectedReturnNULL "atk_text_get_bounded_ranges" result-    result' <- unpackZeroTerminatedPtrArray result-    result'' <- mapM (wrapBoxed TextRange) result'-    freeMem result-    touchManagedPtr _obj-    touchManagedPtr rect-    return result''---- method Text::get_caret_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_caret_offset" atk_text_get_caret_offset :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    IO Int32---textGetCaretOffset ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    m Int32-textGetCaretOffset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_get_caret_offset _obj'-    touchManagedPtr _obj-    return result---- method Text::get_character_at_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUniChar--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_character_at_offset" atk_text_get_character_at_offset :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- offset : TBasicType TInt32-    IO CInt---textGetCharacterAtOffset ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    m Char-textGetCharacterAtOffset _obj offset = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_get_character_at_offset _obj' offset-    let result' = (chr . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Text::get_character_count--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_character_count" atk_text_get_character_count :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    IO Int32---textGetCharacterCount ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    m Int32-textGetCharacterCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_get_character_count _obj'-    touchManagedPtr _obj-    return result---- method Text::get_character_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_character_extents" atk_text_get_character_extents :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- offset : TBasicType TInt32-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    CUInt ->                                -- coords : TInterface "Atk" "CoordType"-    IO ()---textGetCharacterExtents ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    CoordType ->                            -- coords-    m ()-textGetCharacterExtents _obj offset x y width height coords = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coords' = (fromIntegral . fromEnum) coords-    atk_text_get_character_extents _obj' offset x y width height coords'-    touchManagedPtr _obj-    return ()---- method Text::get_default_attributes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TBasicType TVoid)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_default_attributes" atk_text_get_default_attributes :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    IO (Ptr (GSList (Ptr ())))---textGetDefaultAttributes ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    m [Ptr ()]-textGetDefaultAttributes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_get_default_attributes _obj'-    checkUnexpectedReturnNULL "atk_text_get_default_attributes" result-    result' <- unpackGSList result-    g_slist_free result-    touchManagedPtr _obj-    return result'---- method Text::get_n_selections--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_n_selections" atk_text_get_n_selections :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    IO Int32---textGetNSelections ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    m Int32-textGetNSelections _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_get_n_selections _obj'-    touchManagedPtr _obj-    return result---- method Text::get_offset_at_point--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_offset_at_point" atk_text_get_offset_at_point :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    CUInt ->                                -- coords : TInterface "Atk" "CoordType"-    IO Int32---textGetOffsetAtPoint ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coords-    m Int32-textGetOffsetAtPoint _obj x y coords = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coords' = (fromIntegral . fromEnum) coords-    result <- atk_text_get_offset_at_point _obj' x y coords'-    touchManagedPtr _obj-    return result---- method Text::get_range_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_range_extents" atk_text_get_range_extents :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- start_offset : TBasicType TInt32-    Int32 ->                                -- end_offset : TBasicType TInt32-    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"-    Ptr TextRectangle ->                    -- rect : TInterface "Atk" "TextRectangle"-    IO ()---textGetRangeExtents ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    CoordType ->                            -- coord_type-    TextRectangle ->                        -- rect-    m ()-textGetRangeExtents _obj start_offset end_offset coord_type rect = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    let rect' = unsafeManagedPtrGetPtr rect-    atk_text_get_range_extents _obj' start_offset end_offset coord_type' rect'-    touchManagedPtr _obj-    touchManagedPtr rect-    return ()---- method Text::get_run_attributes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TBasicType TVoid)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_run_attributes" atk_text_get_run_attributes :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- offset : TBasicType TInt32-    Ptr Int32 ->                            -- start_offset : TBasicType TInt32-    Ptr Int32 ->                            -- end_offset : TBasicType TInt32-    IO (Ptr (GSList (Ptr ())))---textGetRunAttributes ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    m ([Ptr ()],Int32,Int32)-textGetRunAttributes _obj offset = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_run_attributes _obj' offset start_offset end_offset-    checkUnexpectedReturnNULL "atk_text_get_run_attributes" result-    result' <- unpackGSList result-    g_slist_free result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset-    touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')---- method Text::get_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_selection" atk_text_get_selection :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- selection_num : TBasicType TInt32-    Ptr Int32 ->                            -- start_offset : TBasicType TInt32-    Ptr Int32 ->                            -- end_offset : TBasicType TInt32-    IO CString---textGetSelection ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selection_num-    m (T.Text,Int32,Int32)-textGetSelection _obj selection_num = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_selection _obj' selection_num start_offset end_offset-    checkUnexpectedReturnNULL "atk_text_get_selection" result-    result' <- cstringToText result-    freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset-    touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')---- method Text::get_string_at_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_string_at_offset" atk_text_get_string_at_offset :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- offset : TBasicType TInt32-    CUInt ->                                -- granularity : TInterface "Atk" "TextGranularity"-    Ptr Int32 ->                            -- start_offset : TBasicType TInt32-    Ptr Int32 ->                            -- end_offset : TBasicType TInt32-    IO CString---textGetStringAtOffset ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    TextGranularity ->                      -- granularity-    m (T.Text,Int32,Int32)-textGetStringAtOffset _obj offset granularity = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let granularity' = (fromIntegral . fromEnum) granularity-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_string_at_offset _obj' offset granularity' start_offset end_offset-    checkUnexpectedReturnNULL "atk_text_get_string_at_offset" result-    result' <- cstringToText result-    freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset-    touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')---- method Text::get_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_text" atk_text_get_text :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- start_offset : TBasicType TInt32-    Int32 ->                                -- end_offset : TBasicType TInt32-    IO CString---textGetText ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    m T.Text-textGetText _obj start_offset end_offset = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_get_text _obj' start_offset end_offset-    checkUnexpectedReturnNULL "atk_text_get_text" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method Text::get_text_after_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_text_after_offset" atk_text_get_text_after_offset :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- offset : TBasicType TInt32-    CUInt ->                                -- boundary_type : TInterface "Atk" "TextBoundary"-    Ptr Int32 ->                            -- start_offset : TBasicType TInt32-    Ptr Int32 ->                            -- end_offset : TBasicType TInt32-    IO CString--{-# DEPRECATED textGetTextAfterOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-}-textGetTextAfterOffset ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    TextBoundary ->                         -- boundary_type-    m (T.Text,Int32,Int32)-textGetTextAfterOffset _obj offset boundary_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let boundary_type' = (fromIntegral . fromEnum) boundary_type-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_text_after_offset _obj' offset boundary_type' start_offset end_offset-    checkUnexpectedReturnNULL "atk_text_get_text_after_offset" result-    result' <- cstringToText result-    freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset-    touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')---- method Text::get_text_at_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_text_at_offset" atk_text_get_text_at_offset :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- offset : TBasicType TInt32-    CUInt ->                                -- boundary_type : TInterface "Atk" "TextBoundary"-    Ptr Int32 ->                            -- start_offset : TBasicType TInt32-    Ptr Int32 ->                            -- end_offset : TBasicType TInt32-    IO CString--{-# DEPRECATED textGetTextAtOffset ["This method is deprecated since ATK version","2.9.4. Please use atk_text_get_string_at_offset() instead."]#-}-textGetTextAtOffset ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    TextBoundary ->                         -- boundary_type-    m (T.Text,Int32,Int32)-textGetTextAtOffset _obj offset boundary_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let boundary_type' = (fromIntegral . fromEnum) boundary_type-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_text_at_offset _obj' offset boundary_type' start_offset end_offset-    checkUnexpectedReturnNULL "atk_text_get_text_at_offset" result-    result' <- cstringToText result-    freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset-    touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')---- method Text::get_text_before_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_text_before_offset" atk_text_get_text_before_offset :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- offset : TBasicType TInt32-    CUInt ->                                -- boundary_type : TInterface "Atk" "TextBoundary"-    Ptr Int32 ->                            -- start_offset : TBasicType TInt32-    Ptr Int32 ->                            -- end_offset : TBasicType TInt32-    IO CString--{-# DEPRECATED textGetTextBeforeOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-}-textGetTextBeforeOffset ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    TextBoundary ->                         -- boundary_type-    m (T.Text,Int32,Int32)-textGetTextBeforeOffset _obj offset boundary_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let boundary_type' = (fromIntegral . fromEnum) boundary_type-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_text_before_offset _obj' offset boundary_type' start_offset end_offset-    checkUnexpectedReturnNULL "atk_text_get_text_before_offset" result-    result' <- cstringToText result-    freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset-    touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')---- method Text::remove_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_text_remove_selection" atk_text_remove_selection :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- selection_num : TBasicType TInt32-    IO CInt---textRemoveSelection ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selection_num-    m Bool-textRemoveSelection _obj selection_num = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_remove_selection _obj' selection_num-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Text::set_caret_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_text_set_caret_offset" atk_text_set_caret_offset :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- offset : TBasicType TInt32-    IO CInt---textSetCaretOffset ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    m Bool-textSetCaretOffset _obj offset = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_set_caret_offset _obj' offset-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Text::set_selection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_text_set_selection" atk_text_set_selection :: -    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"-    Int32 ->                                -- selection_num : TBasicType TInt32-    Int32 ->                                -- start_offset : TBasicType TInt32-    Int32 ->                                -- end_offset : TBasicType TInt32-    IO CInt---textSetSelection ::-    (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selection_num-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    m Bool-textSetSelection _obj selection_num start_offset end_offset = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_set_selection _obj' selection_num start_offset end_offset-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- signal Text::text-attributes-changed-type TextTextAttributesChangedCallback =-    IO ()--noTextTextAttributesChangedCallback :: Maybe TextTextAttributesChangedCallback-noTextTextAttributesChangedCallback = Nothing--type TextTextAttributesChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTextTextAttributesChangedCallback :: TextTextAttributesChangedCallbackC -> IO (FunPtr TextTextAttributesChangedCallbackC)--textTextAttributesChangedClosure :: TextTextAttributesChangedCallback -> IO Closure-textTextAttributesChangedClosure cb = newCClosure =<< mkTextTextAttributesChangedCallback wrapped-    where wrapped = textTextAttributesChangedCallbackWrapper cb--textTextAttributesChangedCallbackWrapper ::-    TextTextAttributesChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-textTextAttributesChangedCallbackWrapper _cb _ _ = do-    _cb --onTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId-onTextTextAttributesChanged obj cb = liftIO $ connectTextTextAttributesChanged obj cb SignalConnectBefore-afterTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId-afterTextTextAttributesChanged obj cb = connectTextTextAttributesChanged obj cb SignalConnectAfter--connectTextTextAttributesChanged :: (GObject a, MonadIO m) =>-                                    a -> TextTextAttributesChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextAttributesChanged obj cb after = liftIO $ do-    cb' <- mkTextTextAttributesChangedCallback (textTextAttributesChangedCallbackWrapper cb)-    connectSignalFunPtr obj "text-attributes-changed" cb' after---- signal Text::text-caret-moved-type TextTextCaretMovedCallback =-    Int32 ->-    IO ()--noTextTextCaretMovedCallback :: Maybe TextTextCaretMovedCallback-noTextTextCaretMovedCallback = Nothing--type TextTextCaretMovedCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTextTextCaretMovedCallback :: TextTextCaretMovedCallbackC -> IO (FunPtr TextTextCaretMovedCallbackC)--textTextCaretMovedClosure :: TextTextCaretMovedCallback -> IO Closure-textTextCaretMovedClosure cb = newCClosure =<< mkTextTextCaretMovedCallback wrapped-    where wrapped = textTextCaretMovedCallbackWrapper cb--textTextCaretMovedCallbackWrapper ::-    TextTextCaretMovedCallback ->-    Ptr () ->-    Int32 ->-    Ptr () ->-    IO ()-textTextCaretMovedCallbackWrapper _cb _ arg1 _ = do-    _cb  arg1--onTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId-onTextTextCaretMoved obj cb = liftIO $ connectTextTextCaretMoved obj cb SignalConnectBefore-afterTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId-afterTextTextCaretMoved obj cb = connectTextTextCaretMoved obj cb SignalConnectAfter--connectTextTextCaretMoved :: (GObject a, MonadIO m) =>-                             a -> TextTextCaretMovedCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextCaretMoved obj cb after = liftIO $ do-    cb' <- mkTextTextCaretMovedCallback (textTextCaretMovedCallbackWrapper cb)-    connectSignalFunPtr obj "text-caret-moved" cb' after---- signal Text::text-changed-type TextTextChangedCallback =-    Int32 ->-    Int32 ->-    IO ()--noTextTextChangedCallback :: Maybe TextTextChangedCallback-noTextTextChangedCallback = Nothing--type TextTextChangedCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTextTextChangedCallback :: TextTextChangedCallbackC -> IO (FunPtr TextTextChangedCallbackC)--textTextChangedClosure :: TextTextChangedCallback -> IO Closure-textTextChangedClosure cb = newCClosure =<< mkTextTextChangedCallback wrapped-    where wrapped = textTextChangedCallbackWrapper cb--textTextChangedCallbackWrapper ::-    TextTextChangedCallback ->-    Ptr () ->-    Int32 ->-    Int32 ->-    Ptr () ->-    IO ()-textTextChangedCallbackWrapper _cb _ arg1 arg2 _ = do-    _cb  arg1 arg2--onTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId-onTextTextChanged obj cb = liftIO $ connectTextTextChanged obj cb SignalConnectBefore-afterTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId-afterTextTextChanged obj cb = connectTextTextChanged obj cb SignalConnectAfter--connectTextTextChanged :: (GObject a, MonadIO m) =>-                          a -> TextTextChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextChanged obj cb after = liftIO $ do-    cb' <- mkTextTextChangedCallback (textTextChangedCallbackWrapper cb)-    connectSignalFunPtr obj "text-changed" cb' after---- signal Text::text-insert-type TextTextInsertCallback =-    Int32 ->-    Int32 ->-    T.Text ->-    IO ()--noTextTextInsertCallback :: Maybe TextTextInsertCallback-noTextTextInsertCallback = Nothing--type TextTextInsertCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTextTextInsertCallback :: TextTextInsertCallbackC -> IO (FunPtr TextTextInsertCallbackC)--textTextInsertClosure :: TextTextInsertCallback -> IO Closure-textTextInsertClosure cb = newCClosure =<< mkTextTextInsertCallback wrapped-    where wrapped = textTextInsertCallbackWrapper cb--textTextInsertCallbackWrapper ::-    TextTextInsertCallback ->-    Ptr () ->-    Int32 ->-    Int32 ->-    CString ->-    Ptr () ->-    IO ()-textTextInsertCallbackWrapper _cb _ arg1 arg2 arg3 _ = do-    arg3' <- cstringToText arg3-    _cb  arg1 arg2 arg3'--onTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId-onTextTextInsert obj cb = liftIO $ connectTextTextInsert obj cb SignalConnectBefore-afterTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId-afterTextTextInsert obj cb = connectTextTextInsert obj cb SignalConnectAfter--connectTextTextInsert :: (GObject a, MonadIO m) =>-                         a -> TextTextInsertCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextInsert obj cb after = liftIO $ do-    cb' <- mkTextTextInsertCallback (textTextInsertCallbackWrapper cb)-    connectSignalFunPtr obj "text-insert" cb' after---- signal Text::text-remove-type TextTextRemoveCallback =-    Int32 ->-    Int32 ->-    T.Text ->-    IO ()--noTextTextRemoveCallback :: Maybe TextTextRemoveCallback-noTextTextRemoveCallback = Nothing--type TextTextRemoveCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTextTextRemoveCallback :: TextTextRemoveCallbackC -> IO (FunPtr TextTextRemoveCallbackC)--textTextRemoveClosure :: TextTextRemoveCallback -> IO Closure-textTextRemoveClosure cb = newCClosure =<< mkTextTextRemoveCallback wrapped-    where wrapped = textTextRemoveCallbackWrapper cb--textTextRemoveCallbackWrapper ::-    TextTextRemoveCallback ->-    Ptr () ->-    Int32 ->-    Int32 ->-    CString ->-    Ptr () ->-    IO ()-textTextRemoveCallbackWrapper _cb _ arg1 arg2 arg3 _ = do-    arg3' <- cstringToText arg3-    _cb  arg1 arg2 arg3'--onTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId-onTextTextRemove obj cb = liftIO $ connectTextTextRemove obj cb SignalConnectBefore-afterTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId-afterTextTextRemove obj cb = connectTextTextRemove obj cb SignalConnectAfter--connectTextTextRemove :: (GObject a, MonadIO m) =>-                         a -> TextTextRemoveCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextRemove obj cb after = liftIO $ do-    cb' <- mkTextTextRemoveCallback (textTextRemoveCallbackWrapper cb)-    connectSignalFunPtr obj "text-remove" cb' after---- signal Text::text-selection-changed-type TextTextSelectionChangedCallback =-    IO ()--noTextTextSelectionChangedCallback :: Maybe TextTextSelectionChangedCallback-noTextTextSelectionChangedCallback = Nothing--type TextTextSelectionChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkTextTextSelectionChangedCallback :: TextTextSelectionChangedCallbackC -> IO (FunPtr TextTextSelectionChangedCallbackC)--textTextSelectionChangedClosure :: TextTextSelectionChangedCallback -> IO Closure-textTextSelectionChangedClosure cb = newCClosure =<< mkTextTextSelectionChangedCallback wrapped-    where wrapped = textTextSelectionChangedCallbackWrapper cb--textTextSelectionChangedCallbackWrapper ::-    TextTextSelectionChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-textTextSelectionChangedCallbackWrapper _cb _ _ = do-    _cb --onTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId-onTextTextSelectionChanged obj cb = liftIO $ connectTextTextSelectionChanged obj cb SignalConnectBefore-afterTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId-afterTextTextSelectionChanged obj cb = connectTextTextSelectionChanged obj cb SignalConnectAfter--connectTextTextSelectionChanged :: (GObject a, MonadIO m) =>-                                   a -> TextTextSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextSelectionChanged obj cb after = liftIO $ do-    cb' <- mkTextTextSelectionChangedCallback (textTextSelectionChangedCallbackWrapper cb)-    connectSignalFunPtr obj "text-selection-changed" cb' after---- Enum TextAttribute--data TextAttribute = -      TextAttributeInvalid-    | TextAttributeLeftMargin-    | TextAttributeRightMargin-    | TextAttributeIndent-    | TextAttributeInvisible-    | TextAttributeEditable-    | TextAttributePixelsAboveLines-    | TextAttributePixelsBelowLines-    | TextAttributePixelsInsideWrap-    | TextAttributeBgFullHeight-    | TextAttributeRise-    | TextAttributeUnderline-    | TextAttributeStrikethrough-    | TextAttributeSize-    | TextAttributeScale-    | TextAttributeWeight-    | TextAttributeLanguage-    | TextAttributeFamilyName-    | TextAttributeBgColor-    | TextAttributeFgColor-    | TextAttributeBgStipple-    | TextAttributeFgStipple-    | TextAttributeWrapMode-    | TextAttributeDirection-    | TextAttributeJustification-    | TextAttributeStretch-    | TextAttributeVariant-    | TextAttributeStyle-    | TextAttributeLastDefined-    | AnotherTextAttribute Int-    deriving (Show, Eq)--instance Enum TextAttribute where-    fromEnum TextAttributeInvalid = 0-    fromEnum TextAttributeLeftMargin = 1-    fromEnum TextAttributeRightMargin = 2-    fromEnum TextAttributeIndent = 3-    fromEnum TextAttributeInvisible = 4-    fromEnum TextAttributeEditable = 5-    fromEnum TextAttributePixelsAboveLines = 6-    fromEnum TextAttributePixelsBelowLines = 7-    fromEnum TextAttributePixelsInsideWrap = 8-    fromEnum TextAttributeBgFullHeight = 9-    fromEnum TextAttributeRise = 10-    fromEnum TextAttributeUnderline = 11-    fromEnum TextAttributeStrikethrough = 12-    fromEnum TextAttributeSize = 13-    fromEnum TextAttributeScale = 14-    fromEnum TextAttributeWeight = 15-    fromEnum TextAttributeLanguage = 16-    fromEnum TextAttributeFamilyName = 17-    fromEnum TextAttributeBgColor = 18-    fromEnum TextAttributeFgColor = 19-    fromEnum TextAttributeBgStipple = 20-    fromEnum TextAttributeFgStipple = 21-    fromEnum TextAttributeWrapMode = 22-    fromEnum TextAttributeDirection = 23-    fromEnum TextAttributeJustification = 24-    fromEnum TextAttributeStretch = 25-    fromEnum TextAttributeVariant = 26-    fromEnum TextAttributeStyle = 27-    fromEnum TextAttributeLastDefined = 28-    fromEnum (AnotherTextAttribute k) = k--    toEnum 0 = TextAttributeInvalid-    toEnum 1 = TextAttributeLeftMargin-    toEnum 2 = TextAttributeRightMargin-    toEnum 3 = TextAttributeIndent-    toEnum 4 = TextAttributeInvisible-    toEnum 5 = TextAttributeEditable-    toEnum 6 = TextAttributePixelsAboveLines-    toEnum 7 = TextAttributePixelsBelowLines-    toEnum 8 = TextAttributePixelsInsideWrap-    toEnum 9 = TextAttributeBgFullHeight-    toEnum 10 = TextAttributeRise-    toEnum 11 = TextAttributeUnderline-    toEnum 12 = TextAttributeStrikethrough-    toEnum 13 = TextAttributeSize-    toEnum 14 = TextAttributeScale-    toEnum 15 = TextAttributeWeight-    toEnum 16 = TextAttributeLanguage-    toEnum 17 = TextAttributeFamilyName-    toEnum 18 = TextAttributeBgColor-    toEnum 19 = TextAttributeFgColor-    toEnum 20 = TextAttributeBgStipple-    toEnum 21 = TextAttributeFgStipple-    toEnum 22 = TextAttributeWrapMode-    toEnum 23 = TextAttributeDirection-    toEnum 24 = TextAttributeJustification-    toEnum 25 = TextAttributeStretch-    toEnum 26 = TextAttributeVariant-    toEnum 27 = TextAttributeStyle-    toEnum 28 = TextAttributeLastDefined-    toEnum k = AnotherTextAttribute k--foreign import ccall "atk_text_attribute_get_type" c_atk_text_attribute_get_type :: -    IO GType--instance BoxedEnum TextAttribute where-    boxedEnumType _ = c_atk_text_attribute_get_type---- Enum TextBoundary--data TextBoundary = -      TextBoundaryChar-    | TextBoundaryWordStart-    | TextBoundaryWordEnd-    | TextBoundarySentenceStart-    | TextBoundarySentenceEnd-    | TextBoundaryLineStart-    | TextBoundaryLineEnd-    | AnotherTextBoundary Int-    deriving (Show, Eq)--instance Enum TextBoundary where-    fromEnum TextBoundaryChar = 0-    fromEnum TextBoundaryWordStart = 1-    fromEnum TextBoundaryWordEnd = 2-    fromEnum TextBoundarySentenceStart = 3-    fromEnum TextBoundarySentenceEnd = 4-    fromEnum TextBoundaryLineStart = 5-    fromEnum TextBoundaryLineEnd = 6-    fromEnum (AnotherTextBoundary k) = k--    toEnum 0 = TextBoundaryChar-    toEnum 1 = TextBoundaryWordStart-    toEnum 2 = TextBoundaryWordEnd-    toEnum 3 = TextBoundarySentenceStart-    toEnum 4 = TextBoundarySentenceEnd-    toEnum 5 = TextBoundaryLineStart-    toEnum 6 = TextBoundaryLineEnd-    toEnum k = AnotherTextBoundary k--foreign import ccall "atk_text_boundary_get_type" c_atk_text_boundary_get_type :: -    IO GType--instance BoxedEnum TextBoundary where-    boxedEnumType _ = c_atk_text_boundary_get_type---- Enum TextClipType--data TextClipType = -      TextClipTypeNone-    | TextClipTypeMin-    | TextClipTypeMax-    | TextClipTypeBoth-    | AnotherTextClipType Int-    deriving (Show, Eq)--instance Enum TextClipType where-    fromEnum TextClipTypeNone = 0-    fromEnum TextClipTypeMin = 1-    fromEnum TextClipTypeMax = 2-    fromEnum TextClipTypeBoth = 3-    fromEnum (AnotherTextClipType k) = k--    toEnum 0 = TextClipTypeNone-    toEnum 1 = TextClipTypeMin-    toEnum 2 = TextClipTypeMax-    toEnum 3 = TextClipTypeBoth-    toEnum k = AnotherTextClipType k--foreign import ccall "atk_text_clip_type_get_type" c_atk_text_clip_type_get_type :: -    IO GType--instance BoxedEnum TextClipType where-    boxedEnumType _ = c_atk_text_clip_type_get_type---- Enum TextGranularity--data TextGranularity = -      TextGranularityChar-    | TextGranularityWord-    | TextGranularitySentence-    | TextGranularityLine-    | TextGranularityParagraph-    | AnotherTextGranularity Int-    deriving (Show, Eq)--instance Enum TextGranularity where-    fromEnum TextGranularityChar = 0-    fromEnum TextGranularityWord = 1-    fromEnum TextGranularitySentence = 2-    fromEnum TextGranularityLine = 3-    fromEnum TextGranularityParagraph = 4-    fromEnum (AnotherTextGranularity k) = k--    toEnum 0 = TextGranularityChar-    toEnum 1 = TextGranularityWord-    toEnum 2 = TextGranularitySentence-    toEnum 3 = TextGranularityLine-    toEnum 4 = TextGranularityParagraph-    toEnum k = AnotherTextGranularity k--foreign import ccall "atk_text_granularity_get_type" c_atk_text_granularity_get_type :: -    IO GType--instance BoxedEnum TextGranularity where-    boxedEnumType _ = c_atk_text_granularity_get_type---- struct TextRange-newtype TextRange = TextRange (ForeignPtr TextRange)-noTextRange :: Maybe TextRange-noTextRange = Nothing--foreign import ccall "atk_text_range_get_type" c_atk_text_range_get_type :: -    IO GType--instance BoxedObject TextRange where-    boxedType _ = c_atk_text_range_get_type--textRangeReadBounds :: TextRange -> IO TextRectangle-textRangeReadBounds s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr TextRectangle)-    val' <- (newPtr 16 TextRectangle) val-    return val'--textRangeReadStartOffset :: TextRange -> IO Int32-textRangeReadStartOffset s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--textRangeReadEndOffset :: TextRange -> IO Int32-textRangeReadEndOffset s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--textRangeReadContent :: TextRange -> IO T.Text-textRangeReadContent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    val' <- cstringToText val-    return val'---- struct TextRectangle-newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle)-noTextRectangle :: Maybe TextRectangle-noTextRectangle = Nothing--textRectangleReadX :: TextRectangle -> IO Int32-textRectangleReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--textRectangleReadY :: TextRectangle -> IO Int32-textRectangleReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--textRectangleReadWidth :: TextRectangle -> IO Int32-textRectangleReadWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--textRectangleReadHeight :: TextRectangle -> IO Int32-textRectangleReadHeight s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val---- object Util -newtype Util = Util (ForeignPtr Util)-noUtil :: Maybe Util-noUtil = Nothing--foreign import ccall "atk_util_get_type"-    c_atk_util_get_type :: IO GType--type instance ParentTypes Util = '[GObject.Object]--instance GObject Util where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_util_get_type-    --class GObject o => UtilK o-instance (GObject o, IsDescendantOf Util o) => UtilK o--toUtil :: UtilK o => o -> IO Util-toUtil = unsafeCastTo Util---- interface Value --newtype Value = Value (ForeignPtr Value)-noValue :: Maybe Value-noValue = Nothing--class ForeignPtrNewtype a => ValueK a-instance (ForeignPtrNewtype o, IsDescendantOf Value o) => ValueK o-type instance ParentTypes Value = '[]---- method Value::get_current_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_current_value" atk_value_get_current_value :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    IO ()--{-# DEPRECATED valueGetCurrentValue ["Since 2.12. Use atk_value_get_value_and_text()","instead."]#-}-valueGetCurrentValue ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m ()-valueGetCurrentValue _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let value' = unsafeManagedPtrGetPtr value-    atk_value_get_current_value _obj' value'-    touchManagedPtr _obj-    touchManagedPtr value-    return ()---- method Value::get_increment--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_increment" atk_value_get_increment :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    IO CDouble---valueGetIncrement ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    m Double-valueGetIncrement _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_value_get_increment _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- method Value::get_maximum_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_maximum_value" atk_value_get_maximum_value :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    IO ()--{-# DEPRECATED valueGetMaximumValue ["Since 2.12. Use atk_value_get_range() instead."]#-}-valueGetMaximumValue ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m ()-valueGetMaximumValue _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let value' = unsafeManagedPtrGetPtr value-    atk_value_get_maximum_value _obj' value'-    touchManagedPtr _obj-    touchManagedPtr value-    return ()---- method Value::get_minimum_increment--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_minimum_increment" atk_value_get_minimum_increment :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    IO ()--{-# DEPRECATED valueGetMinimumIncrement ["Since 2.12. Use atk_value_get_increment() instead."]#-}-valueGetMinimumIncrement ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m ()-valueGetMinimumIncrement _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let value' = unsafeManagedPtrGetPtr value-    atk_value_get_minimum_increment _obj' value'-    touchManagedPtr _obj-    touchManagedPtr value-    return ()---- method Value::get_minimum_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_minimum_value" atk_value_get_minimum_value :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    IO ()--{-# DEPRECATED valueGetMinimumValue ["Since 2.12. Use atk_value_get_range() instead."]#-}-valueGetMinimumValue ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m ()-valueGetMinimumValue _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let value' = unsafeManagedPtrGetPtr value-    atk_value_get_minimum_value _obj' value'-    touchManagedPtr _obj-    touchManagedPtr value-    return ()---- method Value::get_range--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Range"--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_range" atk_value_get_range :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    IO (Ptr Range)---valueGetRange ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    m Range-valueGetRange _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_value_get_range _obj'-    checkUnexpectedReturnNULL "atk_value_get_range" result-    result' <- (wrapBoxed Range) result-    touchManagedPtr _obj-    return result'---- method Value::get_sub_ranges--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Atk" "Range")--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_sub_ranges" atk_value_get_sub_ranges :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    IO (Ptr (GSList (Ptr Range)))---valueGetSubRanges ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    m [Range]-valueGetSubRanges _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_value_get_sub_ranges _obj'-    checkUnexpectedReturnNULL "atk_value_get_sub_ranges" result-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Range) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''---- method Value::get_value_and_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_value_and_text" atk_value_get_value_and_text :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    Ptr CDouble ->                          -- value : TBasicType TDouble-    Ptr CString ->                          -- text : TBasicType TUTF8-    IO ()---valueGetValueAndText ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    m (Double,T.Text)-valueGetValueAndText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    value <- allocMem :: IO (Ptr CDouble)-    text <- allocMem :: IO (Ptr CString)-    atk_value_get_value_and_text _obj' value text-    value' <- peek value-    let value'' = realToFrac value'-    text' <- peek text-    text'' <- cstringToText text'-    freeMem text'-    touchManagedPtr _obj-    freeMem value-    freeMem text-    return (value'', text'')---- method Value::set_current_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "atk_value_set_current_value" atk_value_set_current_value :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    IO CInt--{-# DEPRECATED valueSetCurrentValue ["Since 2.12. Use atk_value_set_value() instead."]#-}-valueSetCurrentValue ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m Bool-valueSetCurrentValue _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let value' = unsafeManagedPtrGetPtr value-    result <- atk_value_set_current_value _obj' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr value-    return result'---- method Value::set_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_value_set_value" atk_value_set_value :: -    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"-    CDouble ->                              -- new_value : TBasicType TDouble-    IO ()---valueSetValue ::-    (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    Double ->                               -- new_value-    m ()-valueSetValue _obj new_value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let new_value' = realToFrac new_value-    atk_value_set_value _obj' new_value'-    touchManagedPtr _obj-    return ()---- signal Value::value-changed-type ValueValueChangedCallback =-    Double ->-    T.Text ->-    IO ()--noValueValueChangedCallback :: Maybe ValueValueChangedCallback-noValueValueChangedCallback = Nothing--type ValueValueChangedCallbackC =-    Ptr () ->                               -- object-    CDouble ->-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkValueValueChangedCallback :: ValueValueChangedCallbackC -> IO (FunPtr ValueValueChangedCallbackC)--valueValueChangedClosure :: ValueValueChangedCallback -> IO Closure-valueValueChangedClosure cb = newCClosure =<< mkValueValueChangedCallback wrapped-    where wrapped = valueValueChangedCallbackWrapper cb--valueValueChangedCallbackWrapper ::-    ValueValueChangedCallback ->-    Ptr () ->-    CDouble ->-    CString ->-    Ptr () ->-    IO ()-valueValueChangedCallbackWrapper _cb _ value text _ = do-    let value' = realToFrac value-    text' <- cstringToText text-    _cb  value' text'--onValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId-onValueValueChanged obj cb = liftIO $ connectValueValueChanged obj cb SignalConnectBefore-afterValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId-afterValueValueChanged obj cb = connectValueValueChanged obj cb SignalConnectAfter--connectValueValueChanged :: (GObject a, MonadIO m) =>-                            a -> ValueValueChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectValueValueChanged obj cb after = liftIO $ do-    cb' <- mkValueValueChangedCallback (valueValueChangedCallbackWrapper cb)-    connectSignalFunPtr obj "value-changed" cb' after---- Enum ValueType--data ValueType = -      ValueTypeVeryWeak-    | ValueTypeWeak-    | ValueTypeAcceptable-    | ValueTypeStrong-    | ValueTypeVeryStrong-    | ValueTypeVeryLow-    | ValueTypeLow-    | ValueTypeMedium-    | ValueTypeHigh-    | ValueTypeVeryHigh-    | ValueTypeVeryBad-    | ValueTypeBad-    | ValueTypeGood-    | ValueTypeVeryGood-    | ValueTypeBest-    | ValueTypeLastDefined-    | AnotherValueType Int-    deriving (Show, Eq)--instance Enum ValueType where-    fromEnum ValueTypeVeryWeak = 0-    fromEnum ValueTypeWeak = 1-    fromEnum ValueTypeAcceptable = 2-    fromEnum ValueTypeStrong = 3-    fromEnum ValueTypeVeryStrong = 4-    fromEnum ValueTypeVeryLow = 5-    fromEnum ValueTypeLow = 6-    fromEnum ValueTypeMedium = 7-    fromEnum ValueTypeHigh = 8-    fromEnum ValueTypeVeryHigh = 9-    fromEnum ValueTypeVeryBad = 10-    fromEnum ValueTypeBad = 11-    fromEnum ValueTypeGood = 12-    fromEnum ValueTypeVeryGood = 13-    fromEnum ValueTypeBest = 14-    fromEnum ValueTypeLastDefined = 15-    fromEnum (AnotherValueType k) = k--    toEnum 0 = ValueTypeVeryWeak-    toEnum 1 = ValueTypeWeak-    toEnum 2 = ValueTypeAcceptable-    toEnum 3 = ValueTypeStrong-    toEnum 4 = ValueTypeVeryStrong-    toEnum 5 = ValueTypeVeryLow-    toEnum 6 = ValueTypeLow-    toEnum 7 = ValueTypeMedium-    toEnum 8 = ValueTypeHigh-    toEnum 9 = ValueTypeVeryHigh-    toEnum 10 = ValueTypeVeryBad-    toEnum 11 = ValueTypeBad-    toEnum 12 = ValueTypeGood-    toEnum 13 = ValueTypeVeryGood-    toEnum 14 = ValueTypeBest-    toEnum 15 = ValueTypeLastDefined-    toEnum k = AnotherValueType k--foreign import ccall "atk_value_type_get_type" c_atk_value_type_get_type :: -    IO GType--instance BoxedEnum ValueType where-    boxedEnumType _ = c_atk_value_type_get_type---- interface Window --newtype Window = Window (ForeignPtr Window)-noWindow :: Maybe Window-noWindow = Nothing--foreign import ccall "atk_window_get_type"-    c_atk_window_get_type :: IO GType--type instance ParentTypes Window = '[Object, GObject.Object]--instance GObject Window where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_atk_window_get_type-    --class GObject o => WindowK o-instance (GObject o, IsDescendantOf Window o) => WindowK o--toWindow :: WindowK o => o -> IO Window-toWindow = unsafeCastTo Window---- signal Window::activate-type WindowActivateCallback =-    IO ()--noWindowActivateCallback :: Maybe WindowActivateCallback-noWindowActivateCallback = Nothing--type WindowActivateCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowActivateCallback :: WindowActivateCallbackC -> IO (FunPtr WindowActivateCallbackC)--windowActivateClosure :: WindowActivateCallback -> IO Closure-windowActivateClosure cb = newCClosure =<< mkWindowActivateCallback wrapped-    where wrapped = windowActivateCallbackWrapper cb--windowActivateCallbackWrapper ::-    WindowActivateCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-windowActivateCallbackWrapper _cb _ _ = do-    _cb --onWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId-onWindowActivate obj cb = liftIO $ connectWindowActivate obj cb SignalConnectBefore-afterWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId-afterWindowActivate obj cb = connectWindowActivate obj cb SignalConnectAfter--connectWindowActivate :: (GObject a, MonadIO m) =>-                         a -> WindowActivateCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowActivate obj cb after = liftIO $ do-    cb' <- mkWindowActivateCallback (windowActivateCallbackWrapper cb)-    connectSignalFunPtr obj "activate" cb' after---- signal Window::create-type WindowCreateCallback =-    IO ()--noWindowCreateCallback :: Maybe WindowCreateCallback-noWindowCreateCallback = Nothing--type WindowCreateCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowCreateCallback :: WindowCreateCallbackC -> IO (FunPtr WindowCreateCallbackC)--windowCreateClosure :: WindowCreateCallback -> IO Closure-windowCreateClosure cb = newCClosure =<< mkWindowCreateCallback wrapped-    where wrapped = windowCreateCallbackWrapper cb--windowCreateCallbackWrapper ::-    WindowCreateCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-windowCreateCallbackWrapper _cb _ _ = do-    _cb --onWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId-onWindowCreate obj cb = liftIO $ connectWindowCreate obj cb SignalConnectBefore-afterWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId-afterWindowCreate obj cb = connectWindowCreate obj cb SignalConnectAfter--connectWindowCreate :: (GObject a, MonadIO m) =>-                       a -> WindowCreateCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowCreate obj cb after = liftIO $ do-    cb' <- mkWindowCreateCallback (windowCreateCallbackWrapper cb)-    connectSignalFunPtr obj "create" cb' after---- signal Window::deactivate-type WindowDeactivateCallback =-    IO ()--noWindowDeactivateCallback :: Maybe WindowDeactivateCallback-noWindowDeactivateCallback = Nothing--type WindowDeactivateCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowDeactivateCallback :: WindowDeactivateCallbackC -> IO (FunPtr WindowDeactivateCallbackC)--windowDeactivateClosure :: WindowDeactivateCallback -> IO Closure-windowDeactivateClosure cb = newCClosure =<< mkWindowDeactivateCallback wrapped-    where wrapped = windowDeactivateCallbackWrapper cb--windowDeactivateCallbackWrapper ::-    WindowDeactivateCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-windowDeactivateCallbackWrapper _cb _ _ = do-    _cb --onWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId-onWindowDeactivate obj cb = liftIO $ connectWindowDeactivate obj cb SignalConnectBefore-afterWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId-afterWindowDeactivate obj cb = connectWindowDeactivate obj cb SignalConnectAfter--connectWindowDeactivate :: (GObject a, MonadIO m) =>-                           a -> WindowDeactivateCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowDeactivate obj cb after = liftIO $ do-    cb' <- mkWindowDeactivateCallback (windowDeactivateCallbackWrapper cb)-    connectSignalFunPtr obj "deactivate" cb' after---- signal Window::destroy-type WindowDestroyCallback =-    IO ()--noWindowDestroyCallback :: Maybe WindowDestroyCallback-noWindowDestroyCallback = Nothing--type WindowDestroyCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowDestroyCallback :: WindowDestroyCallbackC -> IO (FunPtr WindowDestroyCallbackC)--windowDestroyClosure :: WindowDestroyCallback -> IO Closure-windowDestroyClosure cb = newCClosure =<< mkWindowDestroyCallback wrapped-    where wrapped = windowDestroyCallbackWrapper cb--windowDestroyCallbackWrapper ::-    WindowDestroyCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-windowDestroyCallbackWrapper _cb _ _ = do-    _cb --onWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId-onWindowDestroy obj cb = liftIO $ connectWindowDestroy obj cb SignalConnectBefore-afterWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId-afterWindowDestroy obj cb = connectWindowDestroy obj cb SignalConnectAfter--connectWindowDestroy :: (GObject a, MonadIO m) =>-                        a -> WindowDestroyCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowDestroy obj cb after = liftIO $ do-    cb' <- mkWindowDestroyCallback (windowDestroyCallbackWrapper cb)-    connectSignalFunPtr obj "destroy" cb' after---- signal Window::maximize-type WindowMaximizeCallback =-    IO ()--noWindowMaximizeCallback :: Maybe WindowMaximizeCallback-noWindowMaximizeCallback = Nothing--type WindowMaximizeCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowMaximizeCallback :: WindowMaximizeCallbackC -> IO (FunPtr WindowMaximizeCallbackC)--windowMaximizeClosure :: WindowMaximizeCallback -> IO Closure-windowMaximizeClosure cb = newCClosure =<< mkWindowMaximizeCallback wrapped-    where wrapped = windowMaximizeCallbackWrapper cb--windowMaximizeCallbackWrapper ::-    WindowMaximizeCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-windowMaximizeCallbackWrapper _cb _ _ = do-    _cb --onWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId-onWindowMaximize obj cb = liftIO $ connectWindowMaximize obj cb SignalConnectBefore-afterWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId-afterWindowMaximize obj cb = connectWindowMaximize obj cb SignalConnectAfter--connectWindowMaximize :: (GObject a, MonadIO m) =>-                         a -> WindowMaximizeCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowMaximize obj cb after = liftIO $ do-    cb' <- mkWindowMaximizeCallback (windowMaximizeCallbackWrapper cb)-    connectSignalFunPtr obj "maximize" cb' after---- signal Window::minimize-type WindowMinimizeCallback =-    IO ()--noWindowMinimizeCallback :: Maybe WindowMinimizeCallback-noWindowMinimizeCallback = Nothing--type WindowMinimizeCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowMinimizeCallback :: WindowMinimizeCallbackC -> IO (FunPtr WindowMinimizeCallbackC)--windowMinimizeClosure :: WindowMinimizeCallback -> IO Closure-windowMinimizeClosure cb = newCClosure =<< mkWindowMinimizeCallback wrapped-    where wrapped = windowMinimizeCallbackWrapper cb--windowMinimizeCallbackWrapper ::-    WindowMinimizeCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-windowMinimizeCallbackWrapper _cb _ _ = do-    _cb --onWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId-onWindowMinimize obj cb = liftIO $ connectWindowMinimize obj cb SignalConnectBefore-afterWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId-afterWindowMinimize obj cb = connectWindowMinimize obj cb SignalConnectAfter--connectWindowMinimize :: (GObject a, MonadIO m) =>-                         a -> WindowMinimizeCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowMinimize obj cb after = liftIO $ do-    cb' <- mkWindowMinimizeCallback (windowMinimizeCallbackWrapper cb)-    connectSignalFunPtr obj "minimize" cb' after---- signal Window::move-type WindowMoveCallback =-    IO ()--noWindowMoveCallback :: Maybe WindowMoveCallback-noWindowMoveCallback = Nothing--type WindowMoveCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowMoveCallback :: WindowMoveCallbackC -> IO (FunPtr WindowMoveCallbackC)--windowMoveClosure :: WindowMoveCallback -> IO Closure-windowMoveClosure cb = newCClosure =<< mkWindowMoveCallback wrapped-    where wrapped = windowMoveCallbackWrapper cb--windowMoveCallbackWrapper ::-    WindowMoveCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-windowMoveCallbackWrapper _cb _ _ = do-    _cb --onWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId-onWindowMove obj cb = liftIO $ connectWindowMove obj cb SignalConnectBefore-afterWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId-afterWindowMove obj cb = connectWindowMove obj cb SignalConnectAfter--connectWindowMove :: (GObject a, MonadIO m) =>-                     a -> WindowMoveCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowMove obj cb after = liftIO $ do-    cb' <- mkWindowMoveCallback (windowMoveCallbackWrapper cb)-    connectSignalFunPtr obj "move" cb' after---- signal Window::resize-type WindowResizeCallback =-    IO ()--noWindowResizeCallback :: Maybe WindowResizeCallback-noWindowResizeCallback = Nothing--type WindowResizeCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowResizeCallback :: WindowResizeCallbackC -> IO (FunPtr WindowResizeCallbackC)--windowResizeClosure :: WindowResizeCallback -> IO Closure-windowResizeClosure cb = newCClosure =<< mkWindowResizeCallback wrapped-    where wrapped = windowResizeCallbackWrapper cb--windowResizeCallbackWrapper ::-    WindowResizeCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-windowResizeCallbackWrapper _cb _ _ = do-    _cb --onWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId-onWindowResize obj cb = liftIO $ connectWindowResize obj cb SignalConnectBefore-afterWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId-afterWindowResize obj cb = connectWindowResize obj cb SignalConnectAfter--connectWindowResize :: (GObject a, MonadIO m) =>-                       a -> WindowResizeCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowResize obj cb after = liftIO $ do-    cb' <- mkWindowResizeCallback (windowResizeCallbackWrapper cb)-    connectSignalFunPtr obj "resize" cb' after---- signal Window::restore-type WindowRestoreCallback =-    IO ()--noWindowRestoreCallback :: Maybe WindowRestoreCallback-noWindowRestoreCallback = Nothing--type WindowRestoreCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowRestoreCallback :: WindowRestoreCallbackC -> IO (FunPtr WindowRestoreCallbackC)--windowRestoreClosure :: WindowRestoreCallback -> IO Closure-windowRestoreClosure cb = newCClosure =<< mkWindowRestoreCallback wrapped-    where wrapped = windowRestoreCallbackWrapper cb--windowRestoreCallbackWrapper ::-    WindowRestoreCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-windowRestoreCallbackWrapper _cb _ _ = do-    _cb --onWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId-onWindowRestore obj cb = liftIO $ connectWindowRestore obj cb SignalConnectBefore-afterWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId-afterWindowRestore obj cb = connectWindowRestore obj cb SignalConnectAfter--connectWindowRestore :: (GObject a, MonadIO m) =>-                        a -> WindowRestoreCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowRestore obj cb after = liftIO $ do-    cb' <- mkWindowRestoreCallback (windowRestoreCallbackWrapper cb)-    connectSignalFunPtr obj "restore" cb' after---- constant _BINARY_AGE--_BINARY_AGE :: Int32-_BINARY_AGE = 21810--- constant _INTERFACE_AGE--_INTERFACE_AGE :: Int32-_INTERFACE_AGE = 1--- constant _MAJOR_VERSION--_MAJOR_VERSION :: Int32-_MAJOR_VERSION = 2--- constant _MICRO_VERSION--_MICRO_VERSION :: Int32-_MICRO_VERSION = 0--- constant _MINOR_VERSION--_MINOR_VERSION :: Int32-_MINOR_VERSION = 18--- constant _VERSION_MIN_REQUIRED--_VERSION_MIN_REQUIRED :: Int32-_VERSION_MIN_REQUIRED = 2--- function atk_attribute_set_free--- Args : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_attribute_set_free" atk_attribute_set_free :: -    Ptr (GSList (Ptr ())) ->                -- attrib_set : TGSList (TBasicType TVoid)-    IO ()---attributeSetFree ::-    (MonadIO m) =>-    [Ptr ()] ->                             -- attrib_set-    m ()-attributeSetFree attrib_set = liftIO $ do-    attrib_set' <- packGSList attrib_set-    atk_attribute_set_free attrib_set'-    g_slist_free attrib_set'-    return ()---- function atk_focus_tracker_notify--- Args : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_focus_tracker_notify" atk_focus_tracker_notify :: -    Ptr Object ->                           -- object : TInterface "Atk" "Object"-    IO ()--{-# DEPRECATED focusTrackerNotify ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. As #AtkObject::focus-event was","deprecated in favor of a #AtkObject::state-change signal, in order","to notify a focus change on your implementation, you can use","atk_object_notify_state_change() instead."]#-}-focusTrackerNotify ::-    (MonadIO m, ObjectK a) =>-    a ->                                    -- object-    m ()-focusTrackerNotify object = liftIO $ do-    let object' = unsafeManagedPtrCastPtr object-    atk_focus_tracker_notify object'-    touchManagedPtr object-    return ()---- function atk_get_binary_age--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "atk_get_binary_age" atk_get_binary_age :: -    IO Word32---getBinaryAge ::-    (MonadIO m) =>-    m Word32-getBinaryAge  = liftIO $ do-    result <- atk_get_binary_age-    return result---- function atk_get_default_registry--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Atk" "Registry"--- throws : False--- Skip return : False--foreign import ccall "atk_get_default_registry" atk_get_default_registry :: -    IO (Ptr Registry)---getDefaultRegistry ::-    (MonadIO m) =>-    m Registry-getDefaultRegistry  = liftIO $ do-    result <- atk_get_default_registry-    checkUnexpectedReturnNULL "atk_get_default_registry" result-    result' <- (wrapObject Registry) result-    return result'---- function atk_get_focus_object--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_get_focus_object" atk_get_focus_object :: -    IO (Ptr Object)---getFocusObject ::-    (MonadIO m) =>-    m Object-getFocusObject  = liftIO $ do-    result <- atk_get_focus_object-    checkUnexpectedReturnNULL "atk_get_focus_object" result-    result' <- (newObject Object) result-    return result'---- function atk_get_interface_age--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "atk_get_interface_age" atk_get_interface_age :: -    IO Word32---getInterfaceAge ::-    (MonadIO m) =>-    m Word32-getInterfaceAge  = liftIO $ do-    result <- atk_get_interface_age-    return result---- function atk_get_major_version--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "atk_get_major_version" atk_get_major_version :: -    IO Word32---getMajorVersion ::-    (MonadIO m) =>-    m Word32-getMajorVersion  = liftIO $ do-    result <- atk_get_major_version-    return result---- function atk_get_micro_version--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "atk_get_micro_version" atk_get_micro_version :: -    IO Word32---getMicroVersion ::-    (MonadIO m) =>-    m Word32-getMicroVersion  = liftIO $ do-    result <- atk_get_micro_version-    return result---- function atk_get_minor_version--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "atk_get_minor_version" atk_get_minor_version :: -    IO Word32---getMinorVersion ::-    (MonadIO m) =>-    m Word32-getMinorVersion  = liftIO $ do-    result <- atk_get_minor_version-    return result---- function atk_get_root--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Atk" "Object"--- throws : False--- Skip return : False--foreign import ccall "atk_get_root" atk_get_root :: -    IO (Ptr Object)---getRoot ::-    (MonadIO m) =>-    m Object-getRoot  = liftIO $ do-    result <- atk_get_root-    checkUnexpectedReturnNULL "atk_get_root" result-    result' <- (newObject Object) result-    return result'---- function atk_get_toolkit_name--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_get_toolkit_name" atk_get_toolkit_name :: -    IO CString---getToolkitName ::-    (MonadIO m) =>-    m T.Text-getToolkitName  = liftIO $ do-    result <- atk_get_toolkit_name-    checkUnexpectedReturnNULL "atk_get_toolkit_name" result-    result' <- cstringToText result-    return result'---- function atk_get_toolkit_version--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_get_toolkit_version" atk_get_toolkit_version :: -    IO CString---getToolkitVersion ::-    (MonadIO m) =>-    m T.Text-getToolkitVersion  = liftIO $ do-    result <- atk_get_toolkit_version-    checkUnexpectedReturnNULL "atk_get_toolkit_version" result-    result' <- cstringToText result-    return result'---- function atk_get_version--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_get_version" atk_get_version :: -    IO CString---getVersion ::-    (MonadIO m) =>-    m T.Text-getVersion  = liftIO $ do-    result <- atk_get_version-    checkUnexpectedReturnNULL "atk_get_version" result-    result' <- cstringToText result-    return result'---- function atk_relation_type_for_name--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "RelationType"--- throws : False--- Skip return : False--foreign import ccall "atk_relation_type_for_name" atk_relation_type_for_name :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---relationTypeForName ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m RelationType-relationTypeForName name = liftIO $ do-    name' <- textToCString name-    result <- atk_relation_type_for_name name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'---- function atk_relation_type_get_name--- Args : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_relation_type_get_name" atk_relation_type_get_name :: -    CUInt ->                                -- type : TInterface "Atk" "RelationType"-    IO CString---relationTypeGetName ::-    (MonadIO m) =>-    RelationType ->                         -- type-    m T.Text-relationTypeGetName type_ = liftIO $ do-    let type_' = (fromIntegral . fromEnum) type_-    result <- atk_relation_type_get_name type_'-    checkUnexpectedReturnNULL "atk_relation_type_get_name" result-    result' <- cstringToText result-    return result'---- function atk_relation_type_register--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "RelationType"--- throws : False--- Skip return : False--foreign import ccall "atk_relation_type_register" atk_relation_type_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---relationTypeRegister ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m RelationType-relationTypeRegister name = liftIO $ do-    name' <- textToCString name-    result <- atk_relation_type_register name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'---- function atk_remove_focus_tracker--- Args : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_remove_focus_tracker" atk_remove_focus_tracker :: -    Word32 ->                               -- tracker_id : TBasicType TUInt32-    IO ()--{-# DEPRECATED removeFocusTracker ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. If you need focus tracking on your","implementation, subscribe to the #AtkObject::state-change \"focused\" signal.","","Removes the specified focus tracker from the list of functions","to be called when any object receives focus."]#-}-removeFocusTracker ::-    (MonadIO m) =>-    Word32 ->                               -- tracker_id-    m ()-removeFocusTracker tracker_id = liftIO $ do-    atk_remove_focus_tracker tracker_id-    return ()---- function atk_remove_global_event_listener--- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_remove_global_event_listener" atk_remove_global_event_listener :: -    Word32 ->                               -- listener_id : TBasicType TUInt32-    IO ()---removeGlobalEventListener ::-    (MonadIO m) =>-    Word32 ->                               -- listener_id-    m ()-removeGlobalEventListener listener_id = liftIO $ do-    atk_remove_global_event_listener listener_id-    return ()---- function atk_remove_key_event_listener--- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_remove_key_event_listener" atk_remove_key_event_listener :: -    Word32 ->                               -- listener_id : TBasicType TUInt32-    IO ()---removeKeyEventListener ::-    (MonadIO m) =>-    Word32 ->                               -- listener_id-    m ()-removeKeyEventListener listener_id = liftIO $ do-    atk_remove_key_event_listener listener_id-    return ()---- function atk_role_for_name--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Role"--- throws : False--- Skip return : False--foreign import ccall "atk_role_for_name" atk_role_for_name :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---roleForName ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m Role-roleForName name = liftIO $ do-    name' <- textToCString name-    result <- atk_role_for_name name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'---- function atk_role_get_localized_name--- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_role_get_localized_name" atk_role_get_localized_name :: -    CUInt ->                                -- role : TInterface "Atk" "Role"-    IO CString---roleGetLocalizedName ::-    (MonadIO m) =>-    Role ->                                 -- role-    m T.Text-roleGetLocalizedName role = liftIO $ do-    let role' = (fromIntegral . fromEnum) role-    result <- atk_role_get_localized_name role'-    checkUnexpectedReturnNULL "atk_role_get_localized_name" result-    result' <- cstringToText result-    return result'---- function atk_role_get_name--- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_role_get_name" atk_role_get_name :: -    CUInt ->                                -- role : TInterface "Atk" "Role"-    IO CString---roleGetName ::-    (MonadIO m) =>-    Role ->                                 -- role-    m T.Text-roleGetName role = liftIO $ do-    let role' = (fromIntegral . fromEnum) role-    result <- atk_role_get_name role'-    checkUnexpectedReturnNULL "atk_role_get_name" result-    result' <- cstringToText result-    return result'---- function atk_role_register--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "Role"--- throws : False--- Skip return : False--foreign import ccall "atk_role_register" atk_role_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt--{-# DEPRECATED roleRegister ["Since 2.12. If your application/toolkit doesn't find a","suitable role for a specific object defined at #AtkRole, please","submit a bug in order to add a new role to the specification."]#-}-roleRegister ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m Role-roleRegister name = liftIO $ do-    name' <- textToCString name-    result <- atk_role_register name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'---- function atk_state_type_for_name--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "StateType"--- throws : False--- Skip return : False--foreign import ccall "atk_state_type_for_name" atk_state_type_for_name :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---stateTypeForName ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m StateType-stateTypeForName name = liftIO $ do-    name' <- textToCString name-    result <- atk_state_type_for_name name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'---- function atk_state_type_get_name--- Args : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_state_type_get_name" atk_state_type_get_name :: -    CUInt ->                                -- type : TInterface "Atk" "StateType"-    IO CString---stateTypeGetName ::-    (MonadIO m) =>-    StateType ->                            -- type-    m T.Text-stateTypeGetName type_ = liftIO $ do-    let type_' = (fromIntegral . fromEnum) type_-    result <- atk_state_type_get_name type_'-    checkUnexpectedReturnNULL "atk_state_type_get_name" result-    result' <- cstringToText result-    return result'---- function atk_state_type_register--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "StateType"--- throws : False--- Skip return : False--foreign import ccall "atk_state_type_register" atk_state_type_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---stateTypeRegister ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m StateType-stateTypeRegister name = liftIO $ do-    name' <- textToCString name-    result <- atk_state_type_register name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'---- function atk_text_attribute_for_name--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "TextAttribute"--- throws : False--- Skip return : False--foreign import ccall "atk_text_attribute_for_name" atk_text_attribute_for_name :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---textAttributeForName ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m TextAttribute-textAttributeForName name = liftIO $ do-    name' <- textToCString name-    result <- atk_text_attribute_for_name name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'---- function atk_text_attribute_get_name--- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_attribute_get_name" atk_text_attribute_get_name :: -    CUInt ->                                -- attr : TInterface "Atk" "TextAttribute"-    IO CString---textAttributeGetName ::-    (MonadIO m) =>-    TextAttribute ->                        -- attr-    m T.Text-textAttributeGetName attr = liftIO $ do-    let attr' = (fromIntegral . fromEnum) attr-    result <- atk_text_attribute_get_name attr'-    checkUnexpectedReturnNULL "atk_text_attribute_get_name" result-    result' <- cstringToText result-    return result'---- function atk_text_attribute_get_value--- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_attribute_get_value" atk_text_attribute_get_value :: -    CUInt ->                                -- attr : TInterface "Atk" "TextAttribute"-    Int32 ->                                -- index_ : TBasicType TInt32-    IO CString---textAttributeGetValue ::-    (MonadIO m) =>-    TextAttribute ->                        -- attr-    Int32 ->                                -- index_-    m T.Text-textAttributeGetValue attr index_ = liftIO $ do-    let attr' = (fromIntegral . fromEnum) attr-    result <- atk_text_attribute_get_value attr' index_-    checkUnexpectedReturnNULL "atk_text_attribute_get_value" result-    result' <- cstringToText result-    return result'---- function atk_text_attribute_register--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Atk" "TextAttribute"--- throws : False--- Skip return : False--foreign import ccall "atk_text_attribute_register" atk_text_attribute_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---textAttributeRegister ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m TextAttribute-textAttributeRegister name = liftIO $ do-    name' <- textToCString name-    result <- atk_text_attribute_register name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'---- function atk_text_free_ranges--- Args : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_text_free_ranges" atk_text_free_ranges :: -    Ptr (Ptr TextRange) ->                  -- ranges : TCArray False (-1) (-1) (TInterface "Atk" "TextRange")-    IO ()---textFreeRanges ::-    (MonadIO m) =>-    Ptr (Ptr TextRange) ->                  -- ranges-    m ()-textFreeRanges ranges = liftIO $ do-    atk_text_free_ranges ranges-    return ()---- function atk_value_type_get_localized_name--- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_value_type_get_localized_name" atk_value_type_get_localized_name :: -    CUInt ->                                -- value_type : TInterface "Atk" "ValueType"-    IO CString---valueTypeGetLocalizedName ::-    (MonadIO m) =>-    ValueType ->                            -- value_type-    m T.Text-valueTypeGetLocalizedName value_type = liftIO $ do-    let value_type' = (fromIntegral . fromEnum) value_type-    result <- atk_value_type_get_localized_name value_type'-    checkUnexpectedReturnNULL "atk_value_type_get_localized_name" result-    result' <- cstringToText result-    return result'---- function atk_value_type_get_name--- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_value_type_get_name" atk_value_type_get_name :: -    CUInt ->                                -- value_type : TInterface "Atk" "ValueType"-    IO CString---valueTypeGetName ::-    (MonadIO m) =>-    ValueType ->                            -- value_type-    m T.Text-valueTypeGetName value_type = liftIO $ do-    let value_type' = (fromIntegral . fromEnum) value_type-    result <- atk_value_type_get_name value_type'-    checkUnexpectedReturnNULL "atk_value_type_get_name" result-    result' <- cstringToText result-    return result'++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk+    (     module GI.Atk.Callbacks                 ,+    module GI.Atk.Constants                 ,+    module GI.Atk.Enums                     ,+    module GI.Atk.Flags                     ,+    module GI.Atk.Functions                 ,+    module GI.Atk.Interfaces                ,+    module GI.Atk.Objects                   ,+    module GI.Atk.Structs                   ,+++    ) where++import GI.Atk.Callbacks+import GI.Atk.Constants+import GI.Atk.Enums+import GI.Atk.Flags+import GI.Atk.Functions+import GI.Atk.Interfaces+import GI.Atk.Objects+import GI.Atk.Structs++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+
+ GI/Atk/Callbacks.hs view
@@ -0,0 +1,261 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Callbacks+    ( ++ -- * Signals+-- ** EventListener+    EventListener                           ,+    EventListenerC                          ,+    eventListenerClosure                    ,+    eventListenerWrapper                    ,+    mkEventListener                         ,+    noEventListener                         ,+++-- ** EventListenerInit+    EventListenerInit                       ,+    EventListenerInitC                      ,+    eventListenerInitClosure                ,+    eventListenerInitWrapper                ,+    mkEventListenerInit                     ,+    noEventListenerInit                     ,+++-- ** FocusHandler+    FocusHandler                            ,+    FocusHandlerC                           ,+    focusHandlerClosure                     ,+    focusHandlerWrapper                     ,+    mkFocusHandler                          ,+    noFocusHandler                          ,+++-- ** Function+    Function                                ,+    FunctionC                               ,+    functionClosure                         ,+    functionWrapper                         ,+    mkFunction                              ,+    noFunction                              ,+++-- ** KeySnoopFunc+    KeySnoopFunc                            ,+    KeySnoopFuncC                           ,+    keySnoopFuncClosure                     ,+    keySnoopFuncWrapper                     ,+    mkKeySnoopFunc                          ,+    noKeySnoopFunc                          ,+++-- ** PropertyChangeHandler+    PropertyChangeHandler                   ,+    PropertyChangeHandlerC                  ,+    mkPropertyChangeHandler                 ,+    noPropertyChangeHandler                 ,+    propertyChangeHandlerClosure            ,+    propertyChangeHandlerWrapper            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+++-- callback PropertyChangeHandler+propertyChangeHandlerClosure :: PropertyChangeHandler -> IO Closure+propertyChangeHandlerClosure cb = newCClosure =<< mkPropertyChangeHandler wrapped+    where wrapped = propertyChangeHandlerWrapper Nothing cb++type PropertyChangeHandlerC =+    Ptr Object ->+    Ptr PropertyValues ->+    IO ()++foreign import ccall "wrapper"+    mkPropertyChangeHandler :: PropertyChangeHandlerC -> IO (FunPtr PropertyChangeHandlerC)++type PropertyChangeHandler =+    Object ->+    PropertyValues ->+    IO ()++noPropertyChangeHandler :: Maybe PropertyChangeHandler+noPropertyChangeHandler = Nothing++propertyChangeHandlerWrapper ::+    Maybe (Ptr (FunPtr (PropertyChangeHandlerC))) ->+    PropertyChangeHandler ->+    Ptr Object ->+    Ptr PropertyValues ->+    IO ()+propertyChangeHandlerWrapper funptrptr _cb obj vals = do+    obj' <- (newObject Object) obj+    vals' <- (newPtr 56 PropertyValues) vals+    _cb  obj' vals'+    maybeReleaseFunPtr funptrptr++-- callback KeySnoopFunc+keySnoopFuncClosure :: KeySnoopFunc -> IO Closure+keySnoopFuncClosure cb = newCClosure =<< mkKeySnoopFunc wrapped+    where wrapped = keySnoopFuncWrapper Nothing cb++type KeySnoopFuncC =+    Ptr KeyEventStruct ->+    Ptr () ->+    IO Int32++foreign import ccall "wrapper"+    mkKeySnoopFunc :: KeySnoopFuncC -> IO (FunPtr KeySnoopFuncC)++type KeySnoopFunc =+    KeyEventStruct ->+    IO Int32++noKeySnoopFunc :: Maybe KeySnoopFunc+noKeySnoopFunc = Nothing++keySnoopFuncWrapper ::+    Maybe (Ptr (FunPtr (KeySnoopFuncC))) ->+    KeySnoopFunc ->+    Ptr KeyEventStruct ->+    Ptr () ->+    IO Int32+keySnoopFuncWrapper funptrptr _cb event _ = do+    event' <- (newPtr 32 KeyEventStruct) event+    result <- _cb  event'+    maybeReleaseFunPtr funptrptr+    return result++-- callback Function+functionClosure :: Function -> IO Closure+functionClosure cb = newCClosure =<< mkFunction wrapped+    where wrapped = functionWrapper Nothing cb++type FunctionC =+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkFunction :: FunctionC -> IO (FunPtr FunctionC)++type Function =+    IO Bool++noFunction :: Maybe Function+noFunction = Nothing++functionWrapper ::+    Maybe (Ptr (FunPtr (FunctionC))) ->+    Function ->+    Ptr () ->+    IO CInt+functionWrapper funptrptr _cb _ = do+    result <- _cb +    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback FocusHandler+focusHandlerClosure :: FocusHandler -> IO Closure+focusHandlerClosure cb = newCClosure =<< mkFocusHandler wrapped+    where wrapped = focusHandlerWrapper Nothing cb++type FocusHandlerC =+    Ptr Object ->+    CInt ->+    IO ()++foreign import ccall "wrapper"+    mkFocusHandler :: FocusHandlerC -> IO (FunPtr FocusHandlerC)++type FocusHandler =+    Object ->+    Bool ->+    IO ()++noFocusHandler :: Maybe FocusHandler+noFocusHandler = Nothing++focusHandlerWrapper ::+    Maybe (Ptr (FunPtr (FocusHandlerC))) ->+    FocusHandler ->+    Ptr Object ->+    CInt ->+    IO ()+focusHandlerWrapper funptrptr _cb object focus_in = do+    object' <- (newObject Object) object+    let focus_in' = (/= 0) focus_in+    _cb  object' focus_in'+    maybeReleaseFunPtr funptrptr++-- callback EventListenerInit+eventListenerInitClosure :: EventListenerInit -> IO Closure+eventListenerInitClosure cb = newCClosure =<< mkEventListenerInit wrapped+    where wrapped = eventListenerInitWrapper Nothing cb++type EventListenerInitC =+    IO ()++foreign import ccall "wrapper"+    mkEventListenerInit :: EventListenerInitC -> IO (FunPtr EventListenerInitC)++type EventListenerInit =+    IO ()++noEventListenerInit :: Maybe EventListenerInit+noEventListenerInit = Nothing++eventListenerInitWrapper ::+    Maybe (Ptr (FunPtr (EventListenerInitC))) ->+    EventListenerInit ->+    IO ()+eventListenerInitWrapper funptrptr _cb = do+    _cb +    maybeReleaseFunPtr funptrptr++-- callback EventListener+eventListenerClosure :: EventListener -> IO Closure+eventListenerClosure cb = newCClosure =<< mkEventListener wrapped+    where wrapped = eventListenerWrapper Nothing cb++type EventListenerC =+    Ptr Object ->+    IO ()++foreign import ccall "wrapper"+    mkEventListener :: EventListenerC -> IO (FunPtr EventListenerC)++type EventListener =+    Object ->+    IO ()++noEventListener :: Maybe EventListener+noEventListener = Nothing++eventListenerWrapper ::+    Maybe (Ptr (FunPtr (EventListenerC))) ->+    EventListener ->+    Ptr Object ->+    IO ()+eventListenerWrapper funptrptr _cb obj = do+    obj' <- (newObject Object) obj+    _cb  obj'+    maybeReleaseFunPtr funptrptr++
+ GI/Atk/Constants.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Constants+    ( +    pattern VERSION_MIN_REQUIRED            ,+    pattern MINOR_VERSION                   ,+    pattern MICRO_VERSION                   ,+    pattern MAJOR_VERSION                   ,+    pattern INTERFACE_AGE                   ,+    pattern BINARY_AGE                      ,++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+++pattern VERSION_MIN_REQUIRED = 2 :: Int32+++pattern MINOR_VERSION = 18 :: Int32+++pattern MICRO_VERSION = 0 :: Int32+++pattern MAJOR_VERSION = 2 :: Int32+++pattern INTERFACE_AGE = 1 :: Int32+++pattern BINARY_AGE = 21810 :: Int32++
+ GI/Atk/Enums.hs view
@@ -0,0 +1,1001 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Enums+    ( ++-- * Exported types+    ValueType(..)                           ,+    TextGranularity(..)                     ,+    TextClipType(..)                        ,+    TextBoundary(..)                        ,+    TextAttribute(..)                       ,+    StateType(..)                           ,+    Role(..)                                ,+    RelationType(..)                        ,+    Layer(..)                               ,+    KeyEventType(..)                        ,+    CoordType(..)                           ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+++++-- Enum ValueType++data ValueType = +      ValueTypeVeryWeak+    | ValueTypeWeak+    | ValueTypeAcceptable+    | ValueTypeStrong+    | ValueTypeVeryStrong+    | ValueTypeVeryLow+    | ValueTypeLow+    | ValueTypeMedium+    | ValueTypeHigh+    | ValueTypeVeryHigh+    | ValueTypeVeryBad+    | ValueTypeBad+    | ValueTypeGood+    | ValueTypeVeryGood+    | ValueTypeBest+    | ValueTypeLastDefined+    | AnotherValueType Int+    deriving (Show, Eq)++instance Enum ValueType where+    fromEnum ValueTypeVeryWeak = 0+    fromEnum ValueTypeWeak = 1+    fromEnum ValueTypeAcceptable = 2+    fromEnum ValueTypeStrong = 3+    fromEnum ValueTypeVeryStrong = 4+    fromEnum ValueTypeVeryLow = 5+    fromEnum ValueTypeLow = 6+    fromEnum ValueTypeMedium = 7+    fromEnum ValueTypeHigh = 8+    fromEnum ValueTypeVeryHigh = 9+    fromEnum ValueTypeVeryBad = 10+    fromEnum ValueTypeBad = 11+    fromEnum ValueTypeGood = 12+    fromEnum ValueTypeVeryGood = 13+    fromEnum ValueTypeBest = 14+    fromEnum ValueTypeLastDefined = 15+    fromEnum (AnotherValueType k) = k++    toEnum 0 = ValueTypeVeryWeak+    toEnum 1 = ValueTypeWeak+    toEnum 2 = ValueTypeAcceptable+    toEnum 3 = ValueTypeStrong+    toEnum 4 = ValueTypeVeryStrong+    toEnum 5 = ValueTypeVeryLow+    toEnum 6 = ValueTypeLow+    toEnum 7 = ValueTypeMedium+    toEnum 8 = ValueTypeHigh+    toEnum 9 = ValueTypeVeryHigh+    toEnum 10 = ValueTypeVeryBad+    toEnum 11 = ValueTypeBad+    toEnum 12 = ValueTypeGood+    toEnum 13 = ValueTypeVeryGood+    toEnum 14 = ValueTypeBest+    toEnum 15 = ValueTypeLastDefined+    toEnum k = AnotherValueType k++foreign import ccall "atk_value_type_get_type" c_atk_value_type_get_type :: +    IO GType++instance BoxedEnum ValueType where+    boxedEnumType _ = c_atk_value_type_get_type++-- Enum TextGranularity++data TextGranularity = +      TextGranularityChar+    | TextGranularityWord+    | TextGranularitySentence+    | TextGranularityLine+    | TextGranularityParagraph+    | AnotherTextGranularity Int+    deriving (Show, Eq)++instance Enum TextGranularity where+    fromEnum TextGranularityChar = 0+    fromEnum TextGranularityWord = 1+    fromEnum TextGranularitySentence = 2+    fromEnum TextGranularityLine = 3+    fromEnum TextGranularityParagraph = 4+    fromEnum (AnotherTextGranularity k) = k++    toEnum 0 = TextGranularityChar+    toEnum 1 = TextGranularityWord+    toEnum 2 = TextGranularitySentence+    toEnum 3 = TextGranularityLine+    toEnum 4 = TextGranularityParagraph+    toEnum k = AnotherTextGranularity k++foreign import ccall "atk_text_granularity_get_type" c_atk_text_granularity_get_type :: +    IO GType++instance BoxedEnum TextGranularity where+    boxedEnumType _ = c_atk_text_granularity_get_type++-- Enum TextClipType++data TextClipType = +      TextClipTypeNone+    | TextClipTypeMin+    | TextClipTypeMax+    | TextClipTypeBoth+    | AnotherTextClipType Int+    deriving (Show, Eq)++instance Enum TextClipType where+    fromEnum TextClipTypeNone = 0+    fromEnum TextClipTypeMin = 1+    fromEnum TextClipTypeMax = 2+    fromEnum TextClipTypeBoth = 3+    fromEnum (AnotherTextClipType k) = k++    toEnum 0 = TextClipTypeNone+    toEnum 1 = TextClipTypeMin+    toEnum 2 = TextClipTypeMax+    toEnum 3 = TextClipTypeBoth+    toEnum k = AnotherTextClipType k++foreign import ccall "atk_text_clip_type_get_type" c_atk_text_clip_type_get_type :: +    IO GType++instance BoxedEnum TextClipType where+    boxedEnumType _ = c_atk_text_clip_type_get_type++-- Enum TextBoundary++data TextBoundary = +      TextBoundaryChar+    | TextBoundaryWordStart+    | TextBoundaryWordEnd+    | TextBoundarySentenceStart+    | TextBoundarySentenceEnd+    | TextBoundaryLineStart+    | TextBoundaryLineEnd+    | AnotherTextBoundary Int+    deriving (Show, Eq)++instance Enum TextBoundary where+    fromEnum TextBoundaryChar = 0+    fromEnum TextBoundaryWordStart = 1+    fromEnum TextBoundaryWordEnd = 2+    fromEnum TextBoundarySentenceStart = 3+    fromEnum TextBoundarySentenceEnd = 4+    fromEnum TextBoundaryLineStart = 5+    fromEnum TextBoundaryLineEnd = 6+    fromEnum (AnotherTextBoundary k) = k++    toEnum 0 = TextBoundaryChar+    toEnum 1 = TextBoundaryWordStart+    toEnum 2 = TextBoundaryWordEnd+    toEnum 3 = TextBoundarySentenceStart+    toEnum 4 = TextBoundarySentenceEnd+    toEnum 5 = TextBoundaryLineStart+    toEnum 6 = TextBoundaryLineEnd+    toEnum k = AnotherTextBoundary k++foreign import ccall "atk_text_boundary_get_type" c_atk_text_boundary_get_type :: +    IO GType++instance BoxedEnum TextBoundary where+    boxedEnumType _ = c_atk_text_boundary_get_type++-- Enum TextAttribute++data TextAttribute = +      TextAttributeInvalid+    | TextAttributeLeftMargin+    | TextAttributeRightMargin+    | TextAttributeIndent+    | TextAttributeInvisible+    | TextAttributeEditable+    | TextAttributePixelsAboveLines+    | TextAttributePixelsBelowLines+    | TextAttributePixelsInsideWrap+    | TextAttributeBgFullHeight+    | TextAttributeRise+    | TextAttributeUnderline+    | TextAttributeStrikethrough+    | TextAttributeSize+    | TextAttributeScale+    | TextAttributeWeight+    | TextAttributeLanguage+    | TextAttributeFamilyName+    | TextAttributeBgColor+    | TextAttributeFgColor+    | TextAttributeBgStipple+    | TextAttributeFgStipple+    | TextAttributeWrapMode+    | TextAttributeDirection+    | TextAttributeJustification+    | TextAttributeStretch+    | TextAttributeVariant+    | TextAttributeStyle+    | TextAttributeLastDefined+    | AnotherTextAttribute Int+    deriving (Show, Eq)++instance Enum TextAttribute where+    fromEnum TextAttributeInvalid = 0+    fromEnum TextAttributeLeftMargin = 1+    fromEnum TextAttributeRightMargin = 2+    fromEnum TextAttributeIndent = 3+    fromEnum TextAttributeInvisible = 4+    fromEnum TextAttributeEditable = 5+    fromEnum TextAttributePixelsAboveLines = 6+    fromEnum TextAttributePixelsBelowLines = 7+    fromEnum TextAttributePixelsInsideWrap = 8+    fromEnum TextAttributeBgFullHeight = 9+    fromEnum TextAttributeRise = 10+    fromEnum TextAttributeUnderline = 11+    fromEnum TextAttributeStrikethrough = 12+    fromEnum TextAttributeSize = 13+    fromEnum TextAttributeScale = 14+    fromEnum TextAttributeWeight = 15+    fromEnum TextAttributeLanguage = 16+    fromEnum TextAttributeFamilyName = 17+    fromEnum TextAttributeBgColor = 18+    fromEnum TextAttributeFgColor = 19+    fromEnum TextAttributeBgStipple = 20+    fromEnum TextAttributeFgStipple = 21+    fromEnum TextAttributeWrapMode = 22+    fromEnum TextAttributeDirection = 23+    fromEnum TextAttributeJustification = 24+    fromEnum TextAttributeStretch = 25+    fromEnum TextAttributeVariant = 26+    fromEnum TextAttributeStyle = 27+    fromEnum TextAttributeLastDefined = 28+    fromEnum (AnotherTextAttribute k) = k++    toEnum 0 = TextAttributeInvalid+    toEnum 1 = TextAttributeLeftMargin+    toEnum 2 = TextAttributeRightMargin+    toEnum 3 = TextAttributeIndent+    toEnum 4 = TextAttributeInvisible+    toEnum 5 = TextAttributeEditable+    toEnum 6 = TextAttributePixelsAboveLines+    toEnum 7 = TextAttributePixelsBelowLines+    toEnum 8 = TextAttributePixelsInsideWrap+    toEnum 9 = TextAttributeBgFullHeight+    toEnum 10 = TextAttributeRise+    toEnum 11 = TextAttributeUnderline+    toEnum 12 = TextAttributeStrikethrough+    toEnum 13 = TextAttributeSize+    toEnum 14 = TextAttributeScale+    toEnum 15 = TextAttributeWeight+    toEnum 16 = TextAttributeLanguage+    toEnum 17 = TextAttributeFamilyName+    toEnum 18 = TextAttributeBgColor+    toEnum 19 = TextAttributeFgColor+    toEnum 20 = TextAttributeBgStipple+    toEnum 21 = TextAttributeFgStipple+    toEnum 22 = TextAttributeWrapMode+    toEnum 23 = TextAttributeDirection+    toEnum 24 = TextAttributeJustification+    toEnum 25 = TextAttributeStretch+    toEnum 26 = TextAttributeVariant+    toEnum 27 = TextAttributeStyle+    toEnum 28 = TextAttributeLastDefined+    toEnum k = AnotherTextAttribute k++foreign import ccall "atk_text_attribute_get_type" c_atk_text_attribute_get_type :: +    IO GType++instance BoxedEnum TextAttribute where+    boxedEnumType _ = c_atk_text_attribute_get_type++-- Enum StateType++data StateType = +      StateTypeInvalid+    | StateTypeActive+    | StateTypeArmed+    | StateTypeBusy+    | StateTypeChecked+    | StateTypeDefunct+    | StateTypeEditable+    | StateTypeEnabled+    | StateTypeExpandable+    | StateTypeExpanded+    | StateTypeFocusable+    | StateTypeFocused+    | StateTypeHorizontal+    | StateTypeIconified+    | StateTypeModal+    | StateTypeMultiLine+    | StateTypeMultiselectable+    | StateTypeOpaque+    | StateTypePressed+    | StateTypeResizable+    | StateTypeSelectable+    | StateTypeSelected+    | StateTypeSensitive+    | StateTypeShowing+    | StateTypeSingleLine+    | StateTypeStale+    | StateTypeTransient+    | StateTypeVertical+    | StateTypeVisible+    | StateTypeManagesDescendants+    | StateTypeIndeterminate+    | StateTypeTruncated+    | StateTypeRequired+    | StateTypeInvalidEntry+    | StateTypeSupportsAutocompletion+    | StateTypeSelectableText+    | StateTypeDefault+    | StateTypeAnimated+    | StateTypeVisited+    | StateTypeCheckable+    | StateTypeHasPopup+    | StateTypeHasTooltip+    | StateTypeReadOnly+    | StateTypeLastDefined+    | AnotherStateType Int+    deriving (Show, Eq)++instance Enum StateType where+    fromEnum StateTypeInvalid = 0+    fromEnum StateTypeActive = 1+    fromEnum StateTypeArmed = 2+    fromEnum StateTypeBusy = 3+    fromEnum StateTypeChecked = 4+    fromEnum StateTypeDefunct = 5+    fromEnum StateTypeEditable = 6+    fromEnum StateTypeEnabled = 7+    fromEnum StateTypeExpandable = 8+    fromEnum StateTypeExpanded = 9+    fromEnum StateTypeFocusable = 10+    fromEnum StateTypeFocused = 11+    fromEnum StateTypeHorizontal = 12+    fromEnum StateTypeIconified = 13+    fromEnum StateTypeModal = 14+    fromEnum StateTypeMultiLine = 15+    fromEnum StateTypeMultiselectable = 16+    fromEnum StateTypeOpaque = 17+    fromEnum StateTypePressed = 18+    fromEnum StateTypeResizable = 19+    fromEnum StateTypeSelectable = 20+    fromEnum StateTypeSelected = 21+    fromEnum StateTypeSensitive = 22+    fromEnum StateTypeShowing = 23+    fromEnum StateTypeSingleLine = 24+    fromEnum StateTypeStale = 25+    fromEnum StateTypeTransient = 26+    fromEnum StateTypeVertical = 27+    fromEnum StateTypeVisible = 28+    fromEnum StateTypeManagesDescendants = 29+    fromEnum StateTypeIndeterminate = 30+    fromEnum StateTypeTruncated = 31+    fromEnum StateTypeRequired = 32+    fromEnum StateTypeInvalidEntry = 33+    fromEnum StateTypeSupportsAutocompletion = 34+    fromEnum StateTypeSelectableText = 35+    fromEnum StateTypeDefault = 36+    fromEnum StateTypeAnimated = 37+    fromEnum StateTypeVisited = 38+    fromEnum StateTypeCheckable = 39+    fromEnum StateTypeHasPopup = 40+    fromEnum StateTypeHasTooltip = 41+    fromEnum StateTypeReadOnly = 42+    fromEnum StateTypeLastDefined = 43+    fromEnum (AnotherStateType k) = k++    toEnum 0 = StateTypeInvalid+    toEnum 1 = StateTypeActive+    toEnum 2 = StateTypeArmed+    toEnum 3 = StateTypeBusy+    toEnum 4 = StateTypeChecked+    toEnum 5 = StateTypeDefunct+    toEnum 6 = StateTypeEditable+    toEnum 7 = StateTypeEnabled+    toEnum 8 = StateTypeExpandable+    toEnum 9 = StateTypeExpanded+    toEnum 10 = StateTypeFocusable+    toEnum 11 = StateTypeFocused+    toEnum 12 = StateTypeHorizontal+    toEnum 13 = StateTypeIconified+    toEnum 14 = StateTypeModal+    toEnum 15 = StateTypeMultiLine+    toEnum 16 = StateTypeMultiselectable+    toEnum 17 = StateTypeOpaque+    toEnum 18 = StateTypePressed+    toEnum 19 = StateTypeResizable+    toEnum 20 = StateTypeSelectable+    toEnum 21 = StateTypeSelected+    toEnum 22 = StateTypeSensitive+    toEnum 23 = StateTypeShowing+    toEnum 24 = StateTypeSingleLine+    toEnum 25 = StateTypeStale+    toEnum 26 = StateTypeTransient+    toEnum 27 = StateTypeVertical+    toEnum 28 = StateTypeVisible+    toEnum 29 = StateTypeManagesDescendants+    toEnum 30 = StateTypeIndeterminate+    toEnum 31 = StateTypeTruncated+    toEnum 32 = StateTypeRequired+    toEnum 33 = StateTypeInvalidEntry+    toEnum 34 = StateTypeSupportsAutocompletion+    toEnum 35 = StateTypeSelectableText+    toEnum 36 = StateTypeDefault+    toEnum 37 = StateTypeAnimated+    toEnum 38 = StateTypeVisited+    toEnum 39 = StateTypeCheckable+    toEnum 40 = StateTypeHasPopup+    toEnum 41 = StateTypeHasTooltip+    toEnum 42 = StateTypeReadOnly+    toEnum 43 = StateTypeLastDefined+    toEnum k = AnotherStateType k++foreign import ccall "atk_state_type_get_type" c_atk_state_type_get_type :: +    IO GType++instance BoxedEnum StateType where+    boxedEnumType _ = c_atk_state_type_get_type++-- Enum Role++data Role = +      RoleInvalid+    | RoleAcceleratorLabel+    | RoleAlert+    | RoleAnimation+    | RoleArrow+    | RoleCalendar+    | RoleCanvas+    | RoleCheckBox+    | RoleCheckMenuItem+    | RoleColorChooser+    | RoleColumnHeader+    | RoleComboBox+    | RoleDateEditor+    | RoleDesktopIcon+    | RoleDesktopFrame+    | RoleDial+    | RoleDialog+    | RoleDirectoryPane+    | RoleDrawingArea+    | RoleFileChooser+    | RoleFiller+    | RoleFontChooser+    | RoleFrame+    | RoleGlassPane+    | RoleHtmlContainer+    | RoleIcon+    | RoleImage+    | RoleInternalFrame+    | RoleLabel+    | RoleLayeredPane+    | RoleList+    | RoleListItem+    | RoleMenu+    | RoleMenuBar+    | RoleMenuItem+    | RoleOptionPane+    | RolePageTab+    | RolePageTabList+    | RolePanel+    | RolePasswordText+    | RolePopupMenu+    | RoleProgressBar+    | RolePushButton+    | RoleRadioButton+    | RoleRadioMenuItem+    | RoleRootPane+    | RoleRowHeader+    | RoleScrollBar+    | RoleScrollPane+    | RoleSeparator+    | RoleSlider+    | RoleSplitPane+    | RoleSpinButton+    | RoleStatusbar+    | RoleTable+    | RoleTableCell+    | RoleTableColumnHeader+    | RoleTableRowHeader+    | RoleTearOffMenuItem+    | RoleTerminal+    | RoleText+    | RoleToggleButton+    | RoleToolBar+    | RoleToolTip+    | RoleTree+    | RoleTreeTable+    | RoleUnknown+    | RoleViewport+    | RoleWindow+    | RoleHeader+    | RoleFooter+    | RoleParagraph+    | RoleRuler+    | RoleApplication+    | RoleAutocomplete+    | RoleEditBar+    | RoleEmbedded+    | RoleEntry+    | RoleChart+    | RoleCaption+    | RoleDocumentFrame+    | RoleHeading+    | RolePage+    | RoleSection+    | RoleRedundantObject+    | RoleForm+    | RoleLink+    | RoleInputMethodWindow+    | RoleTableRow+    | RoleTreeItem+    | RoleDocumentSpreadsheet+    | RoleDocumentPresentation+    | RoleDocumentText+    | RoleDocumentWeb+    | RoleDocumentEmail+    | RoleComment+    | RoleListBox+    | RoleGrouping+    | RoleImageMap+    | RoleNotification+    | RoleInfoBar+    | RoleLevelBar+    | RoleTitleBar+    | RoleBlockQuote+    | RoleAudio+    | RoleVideo+    | RoleDefinition+    | RoleArticle+    | RoleLandmark+    | RoleLog+    | RoleMarquee+    | RoleMath+    | RoleRating+    | RoleTimer+    | RoleDescriptionList+    | RoleDescriptionTerm+    | RoleDescriptionValue+    | RoleStatic+    | RoleMathFraction+    | RoleMathRoot+    | RoleSubscript+    | RoleSuperscript+    | RoleLastDefined+    | AnotherRole Int+    deriving (Show, Eq)++instance Enum Role where+    fromEnum RoleInvalid = 0+    fromEnum RoleAcceleratorLabel = 1+    fromEnum RoleAlert = 2+    fromEnum RoleAnimation = 3+    fromEnum RoleArrow = 4+    fromEnum RoleCalendar = 5+    fromEnum RoleCanvas = 6+    fromEnum RoleCheckBox = 7+    fromEnum RoleCheckMenuItem = 8+    fromEnum RoleColorChooser = 9+    fromEnum RoleColumnHeader = 10+    fromEnum RoleComboBox = 11+    fromEnum RoleDateEditor = 12+    fromEnum RoleDesktopIcon = 13+    fromEnum RoleDesktopFrame = 14+    fromEnum RoleDial = 15+    fromEnum RoleDialog = 16+    fromEnum RoleDirectoryPane = 17+    fromEnum RoleDrawingArea = 18+    fromEnum RoleFileChooser = 19+    fromEnum RoleFiller = 20+    fromEnum RoleFontChooser = 21+    fromEnum RoleFrame = 22+    fromEnum RoleGlassPane = 23+    fromEnum RoleHtmlContainer = 24+    fromEnum RoleIcon = 25+    fromEnum RoleImage = 26+    fromEnum RoleInternalFrame = 27+    fromEnum RoleLabel = 28+    fromEnum RoleLayeredPane = 29+    fromEnum RoleList = 30+    fromEnum RoleListItem = 31+    fromEnum RoleMenu = 32+    fromEnum RoleMenuBar = 33+    fromEnum RoleMenuItem = 34+    fromEnum RoleOptionPane = 35+    fromEnum RolePageTab = 36+    fromEnum RolePageTabList = 37+    fromEnum RolePanel = 38+    fromEnum RolePasswordText = 39+    fromEnum RolePopupMenu = 40+    fromEnum RoleProgressBar = 41+    fromEnum RolePushButton = 42+    fromEnum RoleRadioButton = 43+    fromEnum RoleRadioMenuItem = 44+    fromEnum RoleRootPane = 45+    fromEnum RoleRowHeader = 46+    fromEnum RoleScrollBar = 47+    fromEnum RoleScrollPane = 48+    fromEnum RoleSeparator = 49+    fromEnum RoleSlider = 50+    fromEnum RoleSplitPane = 51+    fromEnum RoleSpinButton = 52+    fromEnum RoleStatusbar = 53+    fromEnum RoleTable = 54+    fromEnum RoleTableCell = 55+    fromEnum RoleTableColumnHeader = 56+    fromEnum RoleTableRowHeader = 57+    fromEnum RoleTearOffMenuItem = 58+    fromEnum RoleTerminal = 59+    fromEnum RoleText = 60+    fromEnum RoleToggleButton = 61+    fromEnum RoleToolBar = 62+    fromEnum RoleToolTip = 63+    fromEnum RoleTree = 64+    fromEnum RoleTreeTable = 65+    fromEnum RoleUnknown = 66+    fromEnum RoleViewport = 67+    fromEnum RoleWindow = 68+    fromEnum RoleHeader = 69+    fromEnum RoleFooter = 70+    fromEnum RoleParagraph = 71+    fromEnum RoleRuler = 72+    fromEnum RoleApplication = 73+    fromEnum RoleAutocomplete = 74+    fromEnum RoleEditBar = 75+    fromEnum RoleEmbedded = 76+    fromEnum RoleEntry = 77+    fromEnum RoleChart = 78+    fromEnum RoleCaption = 79+    fromEnum RoleDocumentFrame = 80+    fromEnum RoleHeading = 81+    fromEnum RolePage = 82+    fromEnum RoleSection = 83+    fromEnum RoleRedundantObject = 84+    fromEnum RoleForm = 85+    fromEnum RoleLink = 86+    fromEnum RoleInputMethodWindow = 87+    fromEnum RoleTableRow = 88+    fromEnum RoleTreeItem = 89+    fromEnum RoleDocumentSpreadsheet = 90+    fromEnum RoleDocumentPresentation = 91+    fromEnum RoleDocumentText = 92+    fromEnum RoleDocumentWeb = 93+    fromEnum RoleDocumentEmail = 94+    fromEnum RoleComment = 95+    fromEnum RoleListBox = 96+    fromEnum RoleGrouping = 97+    fromEnum RoleImageMap = 98+    fromEnum RoleNotification = 99+    fromEnum RoleInfoBar = 100+    fromEnum RoleLevelBar = 101+    fromEnum RoleTitleBar = 102+    fromEnum RoleBlockQuote = 103+    fromEnum RoleAudio = 104+    fromEnum RoleVideo = 105+    fromEnum RoleDefinition = 106+    fromEnum RoleArticle = 107+    fromEnum RoleLandmark = 108+    fromEnum RoleLog = 109+    fromEnum RoleMarquee = 110+    fromEnum RoleMath = 111+    fromEnum RoleRating = 112+    fromEnum RoleTimer = 113+    fromEnum RoleDescriptionList = 114+    fromEnum RoleDescriptionTerm = 115+    fromEnum RoleDescriptionValue = 116+    fromEnum RoleStatic = 117+    fromEnum RoleMathFraction = 118+    fromEnum RoleMathRoot = 119+    fromEnum RoleSubscript = 120+    fromEnum RoleSuperscript = 121+    fromEnum RoleLastDefined = 122+    fromEnum (AnotherRole k) = k++    toEnum 0 = RoleInvalid+    toEnum 1 = RoleAcceleratorLabel+    toEnum 2 = RoleAlert+    toEnum 3 = RoleAnimation+    toEnum 4 = RoleArrow+    toEnum 5 = RoleCalendar+    toEnum 6 = RoleCanvas+    toEnum 7 = RoleCheckBox+    toEnum 8 = RoleCheckMenuItem+    toEnum 9 = RoleColorChooser+    toEnum 10 = RoleColumnHeader+    toEnum 11 = RoleComboBox+    toEnum 12 = RoleDateEditor+    toEnum 13 = RoleDesktopIcon+    toEnum 14 = RoleDesktopFrame+    toEnum 15 = RoleDial+    toEnum 16 = RoleDialog+    toEnum 17 = RoleDirectoryPane+    toEnum 18 = RoleDrawingArea+    toEnum 19 = RoleFileChooser+    toEnum 20 = RoleFiller+    toEnum 21 = RoleFontChooser+    toEnum 22 = RoleFrame+    toEnum 23 = RoleGlassPane+    toEnum 24 = RoleHtmlContainer+    toEnum 25 = RoleIcon+    toEnum 26 = RoleImage+    toEnum 27 = RoleInternalFrame+    toEnum 28 = RoleLabel+    toEnum 29 = RoleLayeredPane+    toEnum 30 = RoleList+    toEnum 31 = RoleListItem+    toEnum 32 = RoleMenu+    toEnum 33 = RoleMenuBar+    toEnum 34 = RoleMenuItem+    toEnum 35 = RoleOptionPane+    toEnum 36 = RolePageTab+    toEnum 37 = RolePageTabList+    toEnum 38 = RolePanel+    toEnum 39 = RolePasswordText+    toEnum 40 = RolePopupMenu+    toEnum 41 = RoleProgressBar+    toEnum 42 = RolePushButton+    toEnum 43 = RoleRadioButton+    toEnum 44 = RoleRadioMenuItem+    toEnum 45 = RoleRootPane+    toEnum 46 = RoleRowHeader+    toEnum 47 = RoleScrollBar+    toEnum 48 = RoleScrollPane+    toEnum 49 = RoleSeparator+    toEnum 50 = RoleSlider+    toEnum 51 = RoleSplitPane+    toEnum 52 = RoleSpinButton+    toEnum 53 = RoleStatusbar+    toEnum 54 = RoleTable+    toEnum 55 = RoleTableCell+    toEnum 56 = RoleTableColumnHeader+    toEnum 57 = RoleTableRowHeader+    toEnum 58 = RoleTearOffMenuItem+    toEnum 59 = RoleTerminal+    toEnum 60 = RoleText+    toEnum 61 = RoleToggleButton+    toEnum 62 = RoleToolBar+    toEnum 63 = RoleToolTip+    toEnum 64 = RoleTree+    toEnum 65 = RoleTreeTable+    toEnum 66 = RoleUnknown+    toEnum 67 = RoleViewport+    toEnum 68 = RoleWindow+    toEnum 69 = RoleHeader+    toEnum 70 = RoleFooter+    toEnum 71 = RoleParagraph+    toEnum 72 = RoleRuler+    toEnum 73 = RoleApplication+    toEnum 74 = RoleAutocomplete+    toEnum 75 = RoleEditBar+    toEnum 76 = RoleEmbedded+    toEnum 77 = RoleEntry+    toEnum 78 = RoleChart+    toEnum 79 = RoleCaption+    toEnum 80 = RoleDocumentFrame+    toEnum 81 = RoleHeading+    toEnum 82 = RolePage+    toEnum 83 = RoleSection+    toEnum 84 = RoleRedundantObject+    toEnum 85 = RoleForm+    toEnum 86 = RoleLink+    toEnum 87 = RoleInputMethodWindow+    toEnum 88 = RoleTableRow+    toEnum 89 = RoleTreeItem+    toEnum 90 = RoleDocumentSpreadsheet+    toEnum 91 = RoleDocumentPresentation+    toEnum 92 = RoleDocumentText+    toEnum 93 = RoleDocumentWeb+    toEnum 94 = RoleDocumentEmail+    toEnum 95 = RoleComment+    toEnum 96 = RoleListBox+    toEnum 97 = RoleGrouping+    toEnum 98 = RoleImageMap+    toEnum 99 = RoleNotification+    toEnum 100 = RoleInfoBar+    toEnum 101 = RoleLevelBar+    toEnum 102 = RoleTitleBar+    toEnum 103 = RoleBlockQuote+    toEnum 104 = RoleAudio+    toEnum 105 = RoleVideo+    toEnum 106 = RoleDefinition+    toEnum 107 = RoleArticle+    toEnum 108 = RoleLandmark+    toEnum 109 = RoleLog+    toEnum 110 = RoleMarquee+    toEnum 111 = RoleMath+    toEnum 112 = RoleRating+    toEnum 113 = RoleTimer+    toEnum 114 = RoleDescriptionList+    toEnum 115 = RoleDescriptionTerm+    toEnum 116 = RoleDescriptionValue+    toEnum 117 = RoleStatic+    toEnum 118 = RoleMathFraction+    toEnum 119 = RoleMathRoot+    toEnum 120 = RoleSubscript+    toEnum 121 = RoleSuperscript+    toEnum 122 = RoleLastDefined+    toEnum k = AnotherRole k++foreign import ccall "atk_role_get_type" c_atk_role_get_type :: +    IO GType++instance BoxedEnum Role where+    boxedEnumType _ = c_atk_role_get_type++-- Enum RelationType++data RelationType = +      RelationTypeNull+    | RelationTypeControlledBy+    | RelationTypeControllerFor+    | RelationTypeLabelFor+    | RelationTypeLabelledBy+    | RelationTypeMemberOf+    | RelationTypeNodeChildOf+    | RelationTypeFlowsTo+    | RelationTypeFlowsFrom+    | RelationTypeSubwindowOf+    | RelationTypeEmbeds+    | RelationTypeEmbeddedBy+    | RelationTypePopupFor+    | RelationTypeParentWindowOf+    | RelationTypeDescribedBy+    | RelationTypeDescriptionFor+    | RelationTypeNodeParentOf+    | RelationTypeLastDefined+    | AnotherRelationType Int+    deriving (Show, Eq)++instance Enum RelationType where+    fromEnum RelationTypeNull = 0+    fromEnum RelationTypeControlledBy = 1+    fromEnum RelationTypeControllerFor = 2+    fromEnum RelationTypeLabelFor = 3+    fromEnum RelationTypeLabelledBy = 4+    fromEnum RelationTypeMemberOf = 5+    fromEnum RelationTypeNodeChildOf = 6+    fromEnum RelationTypeFlowsTo = 7+    fromEnum RelationTypeFlowsFrom = 8+    fromEnum RelationTypeSubwindowOf = 9+    fromEnum RelationTypeEmbeds = 10+    fromEnum RelationTypeEmbeddedBy = 11+    fromEnum RelationTypePopupFor = 12+    fromEnum RelationTypeParentWindowOf = 13+    fromEnum RelationTypeDescribedBy = 14+    fromEnum RelationTypeDescriptionFor = 15+    fromEnum RelationTypeNodeParentOf = 16+    fromEnum RelationTypeLastDefined = 17+    fromEnum (AnotherRelationType k) = k++    toEnum 0 = RelationTypeNull+    toEnum 1 = RelationTypeControlledBy+    toEnum 2 = RelationTypeControllerFor+    toEnum 3 = RelationTypeLabelFor+    toEnum 4 = RelationTypeLabelledBy+    toEnum 5 = RelationTypeMemberOf+    toEnum 6 = RelationTypeNodeChildOf+    toEnum 7 = RelationTypeFlowsTo+    toEnum 8 = RelationTypeFlowsFrom+    toEnum 9 = RelationTypeSubwindowOf+    toEnum 10 = RelationTypeEmbeds+    toEnum 11 = RelationTypeEmbeddedBy+    toEnum 12 = RelationTypePopupFor+    toEnum 13 = RelationTypeParentWindowOf+    toEnum 14 = RelationTypeDescribedBy+    toEnum 15 = RelationTypeDescriptionFor+    toEnum 16 = RelationTypeNodeParentOf+    toEnum 17 = RelationTypeLastDefined+    toEnum k = AnotherRelationType k++foreign import ccall "atk_relation_type_get_type" c_atk_relation_type_get_type :: +    IO GType++instance BoxedEnum RelationType where+    boxedEnumType _ = c_atk_relation_type_get_type++-- Enum Layer++data Layer = +      LayerInvalid+    | LayerBackground+    | LayerCanvas+    | LayerWidget+    | LayerMdi+    | LayerPopup+    | LayerOverlay+    | LayerWindow+    | AnotherLayer Int+    deriving (Show, Eq)++instance Enum Layer where+    fromEnum LayerInvalid = 0+    fromEnum LayerBackground = 1+    fromEnum LayerCanvas = 2+    fromEnum LayerWidget = 3+    fromEnum LayerMdi = 4+    fromEnum LayerPopup = 5+    fromEnum LayerOverlay = 6+    fromEnum LayerWindow = 7+    fromEnum (AnotherLayer k) = k++    toEnum 0 = LayerInvalid+    toEnum 1 = LayerBackground+    toEnum 2 = LayerCanvas+    toEnum 3 = LayerWidget+    toEnum 4 = LayerMdi+    toEnum 5 = LayerPopup+    toEnum 6 = LayerOverlay+    toEnum 7 = LayerWindow+    toEnum k = AnotherLayer k++foreign import ccall "atk_layer_get_type" c_atk_layer_get_type :: +    IO GType++instance BoxedEnum Layer where+    boxedEnumType _ = c_atk_layer_get_type++-- Enum KeyEventType++data KeyEventType = +      KeyEventTypePress+    | KeyEventTypeRelease+    | KeyEventTypeLastDefined+    | AnotherKeyEventType Int+    deriving (Show, Eq)++instance Enum KeyEventType where+    fromEnum KeyEventTypePress = 0+    fromEnum KeyEventTypeRelease = 1+    fromEnum KeyEventTypeLastDefined = 2+    fromEnum (AnotherKeyEventType k) = k++    toEnum 0 = KeyEventTypePress+    toEnum 1 = KeyEventTypeRelease+    toEnum 2 = KeyEventTypeLastDefined+    toEnum k = AnotherKeyEventType k++foreign import ccall "atk_key_event_type_get_type" c_atk_key_event_type_get_type :: +    IO GType++instance BoxedEnum KeyEventType where+    boxedEnumType _ = c_atk_key_event_type_get_type++-- Enum CoordType++data CoordType = +      CoordTypeScreen+    | CoordTypeWindow+    | AnotherCoordType Int+    deriving (Show, Eq)++instance Enum CoordType where+    fromEnum CoordTypeScreen = 0+    fromEnum CoordTypeWindow = 1+    fromEnum (AnotherCoordType k) = k++    toEnum 0 = CoordTypeScreen+    toEnum 1 = CoordTypeWindow+    toEnum k = AnotherCoordType k++foreign import ccall "atk_coord_type_get_type" c_atk_coord_type_get_type :: +    IO GType++instance BoxedEnum CoordType where+    boxedEnumType _ = c_atk_coord_type_get_type++
+ GI/Atk/Flags.hs view
@@ -0,0 +1,49 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Flags+    ( ++-- * Exported types+    HyperlinkStateFlags(..)                 ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+++++-- Flags HyperlinkStateFlags++data HyperlinkStateFlags = +      HyperlinkStateFlagsInline+    | AnotherHyperlinkStateFlags Int+    deriving (Show, Eq)++instance Enum HyperlinkStateFlags where+    fromEnum HyperlinkStateFlagsInline = 1+    fromEnum (AnotherHyperlinkStateFlags k) = k++    toEnum 1 = HyperlinkStateFlagsInline+    toEnum k = AnotherHyperlinkStateFlags k++foreign import ccall "atk_hyperlink_state_flags_get_type" c_atk_hyperlink_state_flags_get_type :: +    IO GType++instance BoxedEnum HyperlinkStateFlags where+    boxedEnumType _ = c_atk_hyperlink_state_flags_get_type++instance IsGFlag HyperlinkStateFlags++
+ GI/Atk/Functions.hs view
@@ -0,0 +1,928 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Functions+    ( ++ -- * Methods+-- ** attributeSetFree+    attributeSetFree                        ,+++-- ** focusTrackerNotify+    focusTrackerNotify                      ,+++-- ** getBinaryAge+    getBinaryAge                            ,+++-- ** getDefaultRegistry+    getDefaultRegistry                      ,+++-- ** getFocusObject+    getFocusObject                          ,+++-- ** getInterfaceAge+    getInterfaceAge                         ,+++-- ** getMajorVersion+    getMajorVersion                         ,+++-- ** getMicroVersion+    getMicroVersion                         ,+++-- ** getMinorVersion+    getMinorVersion                         ,+++-- ** getRoot+    getRoot                                 ,+++-- ** getToolkitName+    getToolkitName                          ,+++-- ** getToolkitVersion+    getToolkitVersion                       ,+++-- ** getVersion+    getVersion                              ,+++-- ** relationTypeForName+    relationTypeForName                     ,+++-- ** relationTypeGetName+    relationTypeGetName                     ,+++-- ** relationTypeRegister+    relationTypeRegister                    ,+++-- ** removeFocusTracker+    removeFocusTracker                      ,+++-- ** removeGlobalEventListener+    removeGlobalEventListener               ,+++-- ** removeKeyEventListener+    removeKeyEventListener                  ,+++-- ** roleForName+    roleForName                             ,+++-- ** roleGetLocalizedName+    roleGetLocalizedName                    ,+++-- ** roleGetName+    roleGetName                             ,+++-- ** roleRegister+    roleRegister                            ,+++-- ** stateTypeForName+    stateTypeForName                        ,+++-- ** stateTypeGetName+    stateTypeGetName                        ,+++-- ** stateTypeRegister+    stateTypeRegister                       ,+++-- ** textAttributeForName+    textAttributeForName                    ,+++-- ** textAttributeGetName+    textAttributeGetName                    ,+++-- ** textAttributeGetValue+    textAttributeGetValue                   ,+++-- ** textAttributeRegister+    textAttributeRegister                   ,+++-- ** textFreeRanges+    textFreeRanges                          ,+++-- ** valueTypeGetLocalizedName+    valueTypeGetLocalizedName               ,+++-- ** valueTypeGetName+    valueTypeGetName                        ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- function atk_value_type_get_name+-- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_type_get_name" atk_value_type_get_name :: +    CUInt ->                                -- value_type : TInterface "Atk" "ValueType"+    IO CString+++valueTypeGetName ::+    (MonadIO m) =>+    ValueType ->                            -- value_type+    m T.Text+valueTypeGetName value_type = liftIO $ do+    let value_type' = (fromIntegral . fromEnum) value_type+    result <- atk_value_type_get_name value_type'+    checkUnexpectedReturnNULL "atk_value_type_get_name" result+    result' <- cstringToText result+    return result'+++-- function atk_value_type_get_localized_name+-- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_type_get_localized_name" atk_value_type_get_localized_name :: +    CUInt ->                                -- value_type : TInterface "Atk" "ValueType"+    IO CString+++valueTypeGetLocalizedName ::+    (MonadIO m) =>+    ValueType ->                            -- value_type+    m T.Text+valueTypeGetLocalizedName value_type = liftIO $ do+    let value_type' = (fromIntegral . fromEnum) value_type+    result <- atk_value_type_get_localized_name value_type'+    checkUnexpectedReturnNULL "atk_value_type_get_localized_name" result+    result' <- cstringToText result+    return result'+++-- function atk_text_free_ranges+-- Args : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_free_ranges" atk_text_free_ranges :: +    Ptr (Ptr TextRange) ->                  -- ranges : TCArray False (-1) (-1) (TInterface "Atk" "TextRange")+    IO ()+++textFreeRanges ::+    (MonadIO m) =>+    Ptr (Ptr TextRange) ->                  -- ranges+    m ()+textFreeRanges ranges = liftIO $ do+    atk_text_free_ranges ranges+    return ()+++-- function atk_text_attribute_register+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "TextAttribute"+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_attribute_register" atk_text_attribute_register :: +    CString ->                              -- name : TBasicType TUTF8+    IO CUInt+++textAttributeRegister ::+    (MonadIO m) =>+    T.Text ->                               -- name+    m TextAttribute+textAttributeRegister name = liftIO $ do+    name' <- textToCString name+    result <- atk_text_attribute_register name'+    let result' = (toEnum . fromIntegral) result+    freeMem name'+    return result'+++-- function atk_text_attribute_get_value+-- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_attribute_get_value" atk_text_attribute_get_value :: +    CUInt ->                                -- attr : TInterface "Atk" "TextAttribute"+    Int32 ->                                -- index_ : TBasicType TInt32+    IO CString+++textAttributeGetValue ::+    (MonadIO m) =>+    TextAttribute ->                        -- attr+    Int32 ->                                -- index_+    m T.Text+textAttributeGetValue attr index_ = liftIO $ do+    let attr' = (fromIntegral . fromEnum) attr+    result <- atk_text_attribute_get_value attr' index_+    checkUnexpectedReturnNULL "atk_text_attribute_get_value" result+    result' <- cstringToText result+    return result'+++-- function atk_text_attribute_get_name+-- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_attribute_get_name" atk_text_attribute_get_name :: +    CUInt ->                                -- attr : TInterface "Atk" "TextAttribute"+    IO CString+++textAttributeGetName ::+    (MonadIO m) =>+    TextAttribute ->                        -- attr+    m T.Text+textAttributeGetName attr = liftIO $ do+    let attr' = (fromIntegral . fromEnum) attr+    result <- atk_text_attribute_get_name attr'+    checkUnexpectedReturnNULL "atk_text_attribute_get_name" result+    result' <- cstringToText result+    return result'+++-- function atk_text_attribute_for_name+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "TextAttribute"+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_attribute_for_name" atk_text_attribute_for_name :: +    CString ->                              -- name : TBasicType TUTF8+    IO CUInt+++textAttributeForName ::+    (MonadIO m) =>+    T.Text ->                               -- name+    m TextAttribute+textAttributeForName name = liftIO $ do+    name' <- textToCString name+    result <- atk_text_attribute_for_name name'+    let result' = (toEnum . fromIntegral) result+    freeMem name'+    return result'+++-- function atk_state_type_register+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "StateType"+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_type_register" atk_state_type_register :: +    CString ->                              -- name : TBasicType TUTF8+    IO CUInt+++stateTypeRegister ::+    (MonadIO m) =>+    T.Text ->                               -- name+    m StateType+stateTypeRegister name = liftIO $ do+    name' <- textToCString name+    result <- atk_state_type_register name'+    let result' = (toEnum . fromIntegral) result+    freeMem name'+    return result'+++-- function atk_state_type_get_name+-- Args : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_type_get_name" atk_state_type_get_name :: +    CUInt ->                                -- type : TInterface "Atk" "StateType"+    IO CString+++stateTypeGetName ::+    (MonadIO m) =>+    StateType ->                            -- type+    m T.Text+stateTypeGetName type_ = liftIO $ do+    let type_' = (fromIntegral . fromEnum) type_+    result <- atk_state_type_get_name type_'+    checkUnexpectedReturnNULL "atk_state_type_get_name" result+    result' <- cstringToText result+    return result'+++-- function atk_state_type_for_name+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "StateType"+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_type_for_name" atk_state_type_for_name :: +    CString ->                              -- name : TBasicType TUTF8+    IO CUInt+++stateTypeForName ::+    (MonadIO m) =>+    T.Text ->                               -- name+    m StateType+stateTypeForName name = liftIO $ do+    name' <- textToCString name+    result <- atk_state_type_for_name name'+    let result' = (toEnum . fromIntegral) result+    freeMem name'+    return result'+++-- function atk_role_register+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Role"+-- throws : False+-- Skip return : False++foreign import ccall "atk_role_register" atk_role_register :: +    CString ->                              -- name : TBasicType TUTF8+    IO CUInt++{-# DEPRECATED roleRegister ["Since 2.12. If your application/toolkit doesn't find a","suitable role for a specific object defined at #AtkRole, please","submit a bug in order to add a new role to the specification."]#-}+roleRegister ::+    (MonadIO m) =>+    T.Text ->                               -- name+    m Role+roleRegister name = liftIO $ do+    name' <- textToCString name+    result <- atk_role_register name'+    let result' = (toEnum . fromIntegral) result+    freeMem name'+    return result'+++-- function atk_role_get_name+-- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_role_get_name" atk_role_get_name :: +    CUInt ->                                -- role : TInterface "Atk" "Role"+    IO CString+++roleGetName ::+    (MonadIO m) =>+    Role ->                                 -- role+    m T.Text+roleGetName role = liftIO $ do+    let role' = (fromIntegral . fromEnum) role+    result <- atk_role_get_name role'+    checkUnexpectedReturnNULL "atk_role_get_name" result+    result' <- cstringToText result+    return result'+++-- function atk_role_get_localized_name+-- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_role_get_localized_name" atk_role_get_localized_name :: +    CUInt ->                                -- role : TInterface "Atk" "Role"+    IO CString+++roleGetLocalizedName ::+    (MonadIO m) =>+    Role ->                                 -- role+    m T.Text+roleGetLocalizedName role = liftIO $ do+    let role' = (fromIntegral . fromEnum) role+    result <- atk_role_get_localized_name role'+    checkUnexpectedReturnNULL "atk_role_get_localized_name" result+    result' <- cstringToText result+    return result'+++-- function atk_role_for_name+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Role"+-- throws : False+-- Skip return : False++foreign import ccall "atk_role_for_name" atk_role_for_name :: +    CString ->                              -- name : TBasicType TUTF8+    IO CUInt+++roleForName ::+    (MonadIO m) =>+    T.Text ->                               -- name+    m Role+roleForName name = liftIO $ do+    name' <- textToCString name+    result <- atk_role_for_name name'+    let result' = (toEnum . fromIntegral) result+    freeMem name'+    return result'+++-- function atk_remove_key_event_listener+-- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_remove_key_event_listener" atk_remove_key_event_listener :: +    Word32 ->                               -- listener_id : TBasicType TUInt32+    IO ()+++removeKeyEventListener ::+    (MonadIO m) =>+    Word32 ->                               -- listener_id+    m ()+removeKeyEventListener listener_id = liftIO $ do+    atk_remove_key_event_listener listener_id+    return ()+++-- function atk_remove_global_event_listener+-- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_remove_global_event_listener" atk_remove_global_event_listener :: +    Word32 ->                               -- listener_id : TBasicType TUInt32+    IO ()+++removeGlobalEventListener ::+    (MonadIO m) =>+    Word32 ->                               -- listener_id+    m ()+removeGlobalEventListener listener_id = liftIO $ do+    atk_remove_global_event_listener listener_id+    return ()+++-- function atk_remove_focus_tracker+-- Args : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_remove_focus_tracker" atk_remove_focus_tracker :: +    Word32 ->                               -- tracker_id : TBasicType TUInt32+    IO ()++{-# DEPRECATED removeFocusTracker ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. If you need focus tracking on your","implementation, subscribe to the #AtkObject::state-change \"focused\" signal.","","Removes the specified focus tracker from the list of functions","to be called when any object receives focus."]#-}+removeFocusTracker ::+    (MonadIO m) =>+    Word32 ->                               -- tracker_id+    m ()+removeFocusTracker tracker_id = liftIO $ do+    atk_remove_focus_tracker tracker_id+    return ()+++-- function atk_relation_type_register+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "RelationType"+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_type_register" atk_relation_type_register :: +    CString ->                              -- name : TBasicType TUTF8+    IO CUInt+++relationTypeRegister ::+    (MonadIO m) =>+    T.Text ->                               -- name+    m RelationType+relationTypeRegister name = liftIO $ do+    name' <- textToCString name+    result <- atk_relation_type_register name'+    let result' = (toEnum . fromIntegral) result+    freeMem name'+    return result'+++-- function atk_relation_type_get_name+-- Args : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_type_get_name" atk_relation_type_get_name :: +    CUInt ->                                -- type : TInterface "Atk" "RelationType"+    IO CString+++relationTypeGetName ::+    (MonadIO m) =>+    RelationType ->                         -- type+    m T.Text+relationTypeGetName type_ = liftIO $ do+    let type_' = (fromIntegral . fromEnum) type_+    result <- atk_relation_type_get_name type_'+    checkUnexpectedReturnNULL "atk_relation_type_get_name" result+    result' <- cstringToText result+    return result'+++-- function atk_relation_type_for_name+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "RelationType"+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_type_for_name" atk_relation_type_for_name :: +    CString ->                              -- name : TBasicType TUTF8+    IO CUInt+++relationTypeForName ::+    (MonadIO m) =>+    T.Text ->                               -- name+    m RelationType+relationTypeForName name = liftIO $ do+    name' <- textToCString name+    result <- atk_relation_type_for_name name'+    let result' = (toEnum . fromIntegral) result+    freeMem name'+    return result'+++-- function atk_get_version+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_version" atk_get_version :: +    IO CString+++getVersion ::+    (MonadIO m) =>+    m T.Text+getVersion  = liftIO $ do+    result <- atk_get_version+    checkUnexpectedReturnNULL "atk_get_version" result+    result' <- cstringToText result+    return result'+++-- function atk_get_toolkit_version+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_toolkit_version" atk_get_toolkit_version :: +    IO CString+++getToolkitVersion ::+    (MonadIO m) =>+    m T.Text+getToolkitVersion  = liftIO $ do+    result <- atk_get_toolkit_version+    checkUnexpectedReturnNULL "atk_get_toolkit_version" result+    result' <- cstringToText result+    return result'+++-- function atk_get_toolkit_name+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_toolkit_name" atk_get_toolkit_name :: +    IO CString+++getToolkitName ::+    (MonadIO m) =>+    m T.Text+getToolkitName  = liftIO $ do+    result <- atk_get_toolkit_name+    checkUnexpectedReturnNULL "atk_get_toolkit_name" result+    result' <- cstringToText result+    return result'+++-- function atk_get_root+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_root" atk_get_root :: +    IO (Ptr Object)+++getRoot ::+    (MonadIO m) =>+    m Object+getRoot  = liftIO $ do+    result <- atk_get_root+    checkUnexpectedReturnNULL "atk_get_root" result+    result' <- (newObject Object) result+    return result'+++-- function atk_get_minor_version+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_minor_version" atk_get_minor_version :: +    IO Word32+++getMinorVersion ::+    (MonadIO m) =>+    m Word32+getMinorVersion  = liftIO $ do+    result <- atk_get_minor_version+    return result+++-- function atk_get_micro_version+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_micro_version" atk_get_micro_version :: +    IO Word32+++getMicroVersion ::+    (MonadIO m) =>+    m Word32+getMicroVersion  = liftIO $ do+    result <- atk_get_micro_version+    return result+++-- function atk_get_major_version+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_major_version" atk_get_major_version :: +    IO Word32+++getMajorVersion ::+    (MonadIO m) =>+    m Word32+getMajorVersion  = liftIO $ do+    result <- atk_get_major_version+    return result+++-- function atk_get_interface_age+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_interface_age" atk_get_interface_age :: +    IO Word32+++getInterfaceAge ::+    (MonadIO m) =>+    m Word32+getInterfaceAge  = liftIO $ do+    result <- atk_get_interface_age+    return result+++-- function atk_get_focus_object+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_focus_object" atk_get_focus_object :: +    IO (Ptr Object)+++getFocusObject ::+    (MonadIO m) =>+    m Object+getFocusObject  = liftIO $ do+    result <- atk_get_focus_object+    checkUnexpectedReturnNULL "atk_get_focus_object" result+    result' <- (newObject Object) result+    return result'+++-- function atk_get_default_registry+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Atk" "Registry"+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_default_registry" atk_get_default_registry :: +    IO (Ptr Registry)+++getDefaultRegistry ::+    (MonadIO m) =>+    m Registry+getDefaultRegistry  = liftIO $ do+    result <- atk_get_default_registry+    checkUnexpectedReturnNULL "atk_get_default_registry" result+    result' <- (wrapObject Registry) result+    return result'+++-- function atk_get_binary_age+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_get_binary_age" atk_get_binary_age :: +    IO Word32+++getBinaryAge ::+    (MonadIO m) =>+    m Word32+getBinaryAge  = liftIO $ do+    result <- atk_get_binary_age+    return result+++-- function atk_focus_tracker_notify+-- Args : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_focus_tracker_notify" atk_focus_tracker_notify :: +    Ptr Object ->                           -- object : TInterface "Atk" "Object"+    IO ()++{-# DEPRECATED focusTrackerNotify ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. As #AtkObject::focus-event was","deprecated in favor of a #AtkObject::state-change signal, in order","to notify a focus change on your implementation, you can use","atk_object_notify_state_change() instead."]#-}+focusTrackerNotify ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- object+    m ()+focusTrackerNotify object = liftIO $ do+    let object' = unsafeManagedPtrCastPtr object+    atk_focus_tracker_notify object'+    touchManagedPtr object+    return ()+++-- function atk_attribute_set_free+-- Args : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_attribute_set_free" atk_attribute_set_free :: +    Ptr (GSList (Ptr ())) ->                -- attrib_set : TGSList (TBasicType TVoid)+    IO ()+++attributeSetFree ::+    (MonadIO m) =>+    [Ptr ()] ->                             -- attrib_set+    m ()+attributeSetFree attrib_set = liftIO $ do+    attrib_set' <- packGSList attrib_set+    atk_attribute_set_free attrib_set'+    g_slist_free attrib_set'+    return ()+++
+ GI/Atk/Interfaces.hs view
@@ -0,0 +1,54 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces+    (     module GI.Atk.Interfaces.Action         ,+    module GI.Atk.Interfaces.Component      ,+    module GI.Atk.Interfaces.Document       ,+    module GI.Atk.Interfaces.EditableText   ,+    module GI.Atk.Interfaces.HyperlinkImpl  ,+    module GI.Atk.Interfaces.Hypertext      ,+    module GI.Atk.Interfaces.Image          ,+    module GI.Atk.Interfaces.ImplementorIface,+    module GI.Atk.Interfaces.Selection      ,+    module GI.Atk.Interfaces.StreamableContent,+    module GI.Atk.Interfaces.Table          ,+    module GI.Atk.Interfaces.TableCell      ,+    module GI.Atk.Interfaces.Text           ,+    module GI.Atk.Interfaces.Value          ,+    module GI.Atk.Interfaces.Window         ,+++    ) where++import GI.Atk.Interfaces.Action+import GI.Atk.Interfaces.Component+import GI.Atk.Interfaces.Document+import GI.Atk.Interfaces.EditableText+import GI.Atk.Interfaces.HyperlinkImpl+import GI.Atk.Interfaces.Hypertext+import GI.Atk.Interfaces.Image+import GI.Atk.Interfaces.ImplementorIface+import GI.Atk.Interfaces.Selection+import GI.Atk.Interfaces.StreamableContent+import GI.Atk.Interfaces.Table+import GI.Atk.Interfaces.TableCell+import GI.Atk.Interfaces.Text+import GI.Atk.Interfaces.Value+import GI.Atk.Interfaces.Window++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++
+ GI/Atk/Interfaces/Action.hs view
@@ -0,0 +1,271 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Action+    ( ++-- * Exported types+    Action(..)                              ,+    noAction                                ,+    ActionK                                 ,+++ -- * Methods+-- ** actionDoAction+    actionDoAction                          ,+++-- ** actionGetDescription+    actionGetDescription                    ,+++-- ** actionGetKeybinding+    actionGetKeybinding                     ,+++-- ** actionGetLocalizedName+    actionGetLocalizedName                  ,+++-- ** actionGetNActions+    actionGetNActions                       ,+++-- ** actionGetName+    actionGetName                           ,+++-- ** actionSetDescription+    actionSetDescription                    ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface Action ++newtype Action = Action (ForeignPtr Action)+noAction :: Maybe Action+noAction = Nothing++type instance AttributeList Action = ActionAttributeList+type ActionAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList Action = ActionSignalList+type ActionSignalList = ('[ ] :: [(Symbol, *)])++class ForeignPtrNewtype a => ActionK a+instance (ForeignPtrNewtype o, IsDescendantOf Action o) => ActionK o+type instance ParentTypes Action = ActionParentTypes+type ActionParentTypes = '[]++-- method Action::do_action+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_action_do_action" atk_action_do_action :: +    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"+    Int32 ->                                -- i : TBasicType TInt32+    IO CInt+++actionDoAction ::+    (MonadIO m, ActionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m Bool+actionDoAction _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_action_do_action _obj' i+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Action::get_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_action_get_description" atk_action_get_description :: +    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"+    Int32 ->                                -- i : TBasicType TInt32+    IO CString+++actionGetDescription ::+    (MonadIO m, ActionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m T.Text+actionGetDescription _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_action_get_description _obj' i+    checkUnexpectedReturnNULL "atk_action_get_description" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Action::get_keybinding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_action_get_keybinding" atk_action_get_keybinding :: +    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"+    Int32 ->                                -- i : TBasicType TInt32+    IO CString+++actionGetKeybinding ::+    (MonadIO m, ActionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m T.Text+actionGetKeybinding _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_action_get_keybinding _obj' i+    checkUnexpectedReturnNULL "atk_action_get_keybinding" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Action::get_localized_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_action_get_localized_name" atk_action_get_localized_name :: +    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"+    Int32 ->                                -- i : TBasicType TInt32+    IO CString+++actionGetLocalizedName ::+    (MonadIO m, ActionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m T.Text+actionGetLocalizedName _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_action_get_localized_name _obj' i+    checkUnexpectedReturnNULL "atk_action_get_localized_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Action::get_n_actions+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_action_get_n_actions" atk_action_get_n_actions :: +    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"+    IO Int32+++actionGetNActions ::+    (MonadIO m, ActionK a) =>+    a ->                                    -- _obj+    m Int32+actionGetNActions _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_action_get_n_actions _obj'+    touchManagedPtr _obj+    return result++-- method Action::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_action_get_name" atk_action_get_name :: +    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"+    Int32 ->                                -- i : TBasicType TInt32+    IO CString+++actionGetName ::+    (MonadIO m, ActionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m T.Text+actionGetName _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_action_get_name _obj' i+    checkUnexpectedReturnNULL "atk_action_get_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Action::set_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_action_set_description" atk_action_set_description :: +    Ptr Action ->                           -- _obj : TInterface "Atk" "Action"+    Int32 ->                                -- i : TBasicType TInt32+    CString ->                              -- desc : TBasicType TUTF8+    IO CInt+++actionSetDescription ::+    (MonadIO m, ActionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    T.Text ->                               -- desc+    m Bool+actionSetDescription _obj i desc = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    desc' <- textToCString desc+    result <- atk_action_set_description _obj' i desc'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem desc'+    return result'++
+ GI/Atk/Interfaces/Action.hs-boot view
@@ -0,0 +1,12 @@+module GI.Atk.Interfaces.Action where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Action = Action (ForeignPtr Action)+class ForeignPtrNewtype a => ActionK a+instance (ForeignPtrNewtype o, IsDescendantOf Action o) => ActionK o
+ GI/Atk/Interfaces/Component.hs view
@@ -0,0 +1,544 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Component+    ( ++-- * Exported types+    Component(..)                           ,+    noComponent                             ,+    ComponentK                              ,+++ -- * Methods+-- ** componentContains+    componentContains                       ,+++-- ** componentGetAlpha+    componentGetAlpha                       ,+++-- ** componentGetExtents+    componentGetExtents                     ,+++-- ** componentGetLayer+    componentGetLayer                       ,+++-- ** componentGetMdiZorder+    componentGetMdiZorder                   ,+++-- ** componentGetPosition+    componentGetPosition                    ,+++-- ** componentGetSize+    componentGetSize                        ,+++-- ** componentGrabFocus+    componentGrabFocus                      ,+++-- ** componentRefAccessibleAtPoint+    componentRefAccessibleAtPoint           ,+++-- ** componentRemoveFocusHandler+    componentRemoveFocusHandler             ,+++-- ** componentSetExtents+    componentSetExtents                     ,+++-- ** componentSetPosition+    componentSetPosition                    ,+++-- ** componentSetSize+    componentSetSize                        ,+++++ -- * Signals+-- ** BoundsChanged+    ComponentBoundsChangedCallback          ,+    ComponentBoundsChangedCallbackC         ,+    ComponentBoundsChangedSignalInfo        ,+    afterComponentBoundsChanged             ,+    componentBoundsChangedCallbackWrapper   ,+    componentBoundsChangedClosure           ,+    mkComponentBoundsChangedCallback        ,+    noComponentBoundsChangedCallback        ,+    onComponentBoundsChanged                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface Component ++newtype Component = Component (ForeignPtr Component)+noComponent :: Maybe Component+noComponent = Nothing++-- signal Component::bounds-changed+type ComponentBoundsChangedCallback =+    Rectangle ->+    IO ()++noComponentBoundsChangedCallback :: Maybe ComponentBoundsChangedCallback+noComponentBoundsChangedCallback = Nothing++type ComponentBoundsChangedCallbackC =+    Ptr () ->                               -- object+    Ptr Rectangle ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkComponentBoundsChangedCallback :: ComponentBoundsChangedCallbackC -> IO (FunPtr ComponentBoundsChangedCallbackC)++componentBoundsChangedClosure :: ComponentBoundsChangedCallback -> IO Closure+componentBoundsChangedClosure cb = newCClosure =<< mkComponentBoundsChangedCallback wrapped+    where wrapped = componentBoundsChangedCallbackWrapper cb++componentBoundsChangedCallbackWrapper ::+    ComponentBoundsChangedCallback ->+    Ptr () ->+    Ptr Rectangle ->+    Ptr () ->+    IO ()+componentBoundsChangedCallbackWrapper _cb _ arg1 _ = do+    arg1' <- (newBoxed Rectangle) arg1+    _cb  arg1'++onComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId+onComponentBoundsChanged obj cb = liftIO $ connectComponentBoundsChanged obj cb SignalConnectBefore+afterComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId+afterComponentBoundsChanged obj cb = connectComponentBoundsChanged obj cb SignalConnectAfter++connectComponentBoundsChanged :: (GObject a, MonadIO m) =>+                                 a -> ComponentBoundsChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectComponentBoundsChanged obj cb after = liftIO $ do+    cb' <- mkComponentBoundsChangedCallback (componentBoundsChangedCallbackWrapper cb)+    connectSignalFunPtr obj "bounds-changed" cb' after++type instance AttributeList Component = ComponentAttributeList+type ComponentAttributeList = ('[ ] :: [(Symbol, *)])++data ComponentBoundsChangedSignalInfo+instance SignalInfo ComponentBoundsChangedSignalInfo where+    type HaskellCallbackType ComponentBoundsChangedSignalInfo = ComponentBoundsChangedCallback+    connectSignal _ = connectComponentBoundsChanged++type instance SignalList Component = ComponentSignalList+type ComponentSignalList = ('[ '("bounds-changed", ComponentBoundsChangedSignalInfo)] :: [(Symbol, *)])++class ForeignPtrNewtype a => ComponentK a+instance (ForeignPtrNewtype o, IsDescendantOf Component o) => ComponentK o+type instance ParentTypes Component = ComponentParentTypes+type ComponentParentTypes = '[]++-- method Component::contains+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_contains" atk_component_contains :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"+    IO CInt+++componentContains ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    CoordType ->                            -- coord_type+    m Bool+componentContains _obj x y coord_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coord_type' = (fromIntegral . fromEnum) coord_type+    result <- atk_component_contains _obj' x y coord_type'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Component::get_alpha+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_get_alpha" atk_component_get_alpha :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    IO CDouble+++componentGetAlpha ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    m Double+componentGetAlpha _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_component_get_alpha _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method Component::get_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_get_extents" atk_component_get_extents :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"+    IO ()+++componentGetExtents ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    Int32 ->                                -- width+    Int32 ->                                -- height+    CoordType ->                            -- coord_type+    m ()+componentGetExtents _obj x y width height coord_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coord_type' = (fromIntegral . fromEnum) coord_type+    atk_component_get_extents _obj' x y width height coord_type'+    touchManagedPtr _obj+    return ()++-- method Component::get_layer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Layer"+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_get_layer" atk_component_get_layer :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    IO CUInt+++componentGetLayer ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    m Layer+componentGetLayer _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_component_get_layer _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Component::get_mdi_zorder+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_get_mdi_zorder" atk_component_get_mdi_zorder :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    IO Int32+++componentGetMdiZorder ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    m Int32+componentGetMdiZorder _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_component_get_mdi_zorder _obj'+    touchManagedPtr _obj+    return result++-- method Component::get_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_get_position" atk_component_get_position :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"+    IO ()++{-# DEPRECATED componentGetPosition ["Since 2.12. Use atk_component_get_extents() instead."]#-}+componentGetPosition ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    CoordType ->                            -- coord_type+    m ()+componentGetPosition _obj x y coord_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coord_type' = (fromIntegral . fromEnum) coord_type+    atk_component_get_position _obj' x y coord_type'+    touchManagedPtr _obj+    return ()++-- method Component::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_get_size" atk_component_get_size :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO ()++{-# DEPRECATED componentGetSize ["Since 2.12. Use atk_component_get_extents() instead."]#-}+componentGetSize ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- width+    Int32 ->                                -- height+    m ()+componentGetSize _obj width height = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_component_get_size _obj' width height+    touchManagedPtr _obj+    return ()++-- method Component::grab_focus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_grab_focus" atk_component_grab_focus :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    IO CInt+++componentGrabFocus ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    m Bool+componentGrabFocus _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_component_grab_focus _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Component::ref_accessible_at_point+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_ref_accessible_at_point" atk_component_ref_accessible_at_point :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"+    IO (Ptr Object)+++componentRefAccessibleAtPoint ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    CoordType ->                            -- coord_type+    m Object+componentRefAccessibleAtPoint _obj x y coord_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coord_type' = (fromIntegral . fromEnum) coord_type+    result <- atk_component_ref_accessible_at_point _obj' x y coord_type'+    checkUnexpectedReturnNULL "atk_component_ref_accessible_at_point" result+    result' <- (wrapObject Object) result+    touchManagedPtr _obj+    return result'++-- method Component::remove_focus_handler+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_remove_focus_handler" atk_component_remove_focus_handler :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    Word32 ->                               -- handler_id : TBasicType TUInt32+    IO ()++{-# DEPRECATED componentRemoveFocusHandler ["(Since version 2.9.4)","If you need to track when an object gains or","lose the focus, use the #AtkObject::state-change \"focused\" notification instead."]#-}+componentRemoveFocusHandler ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- handler_id+    m ()+componentRemoveFocusHandler _obj handler_id = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_component_remove_focus_handler _obj' handler_id+    touchManagedPtr _obj+    return ()++-- method Component::set_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_set_extents" atk_component_set_extents :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"+    IO CInt+++componentSetExtents ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    Int32 ->                                -- width+    Int32 ->                                -- height+    CoordType ->                            -- coord_type+    m Bool+componentSetExtents _obj x y width height coord_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coord_type' = (fromIntegral . fromEnum) coord_type+    result <- atk_component_set_extents _obj' x y width height coord_type'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Component::set_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_set_position" atk_component_set_position :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"+    IO CInt+++componentSetPosition ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    CoordType ->                            -- coord_type+    m Bool+componentSetPosition _obj x y coord_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coord_type' = (fromIntegral . fromEnum) coord_type+    result <- atk_component_set_position _obj' x y coord_type'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Component::set_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_component_set_size" atk_component_set_size :: +    Ptr Component ->                        -- _obj : TInterface "Atk" "Component"+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO CInt+++componentSetSize ::+    (MonadIO m, ComponentK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- width+    Int32 ->                                -- height+    m Bool+componentSetSize _obj width height = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_component_set_size _obj' width height+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Interfaces/Component.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Interfaces.Component where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Component = Component (ForeignPtr Component)+data ComponentBoundsChangedSignalInfo+class ForeignPtrNewtype a => ComponentK a+instance (ForeignPtrNewtype o, IsDescendantOf Component o) => ComponentK o
+ GI/Atk/Interfaces/Document.hs view
@@ -0,0 +1,520 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Document+    ( ++-- * Exported types+    Document(..)                            ,+    noDocument                              ,+    DocumentK                               ,+++ -- * Methods+-- ** documentGetAttributeValue+    documentGetAttributeValue               ,+++-- ** documentGetAttributes+    documentGetAttributes                   ,+++-- ** documentGetCurrentPageNumber+    documentGetCurrentPageNumber            ,+++-- ** documentGetDocument+    documentGetDocument                     ,+++-- ** documentGetDocumentType+    documentGetDocumentType                 ,+++-- ** documentGetLocale+    documentGetLocale                       ,+++-- ** documentGetPageCount+    documentGetPageCount                    ,+++-- ** documentSetAttributeValue+    documentSetAttributeValue               ,+++++ -- * Signals+-- ** LoadComplete+    DocumentLoadCompleteCallback            ,+    DocumentLoadCompleteCallbackC           ,+    DocumentLoadCompleteSignalInfo          ,+    afterDocumentLoadComplete               ,+    documentLoadCompleteCallbackWrapper     ,+    documentLoadCompleteClosure             ,+    mkDocumentLoadCompleteCallback          ,+    noDocumentLoadCompleteCallback          ,+    onDocumentLoadComplete                  ,+++-- ** LoadStopped+    DocumentLoadStoppedCallback             ,+    DocumentLoadStoppedCallbackC            ,+    DocumentLoadStoppedSignalInfo           ,+    afterDocumentLoadStopped                ,+    documentLoadStoppedCallbackWrapper      ,+    documentLoadStoppedClosure              ,+    mkDocumentLoadStoppedCallback           ,+    noDocumentLoadStoppedCallback           ,+    onDocumentLoadStopped                   ,+++-- ** PageChanged+    DocumentPageChangedCallback             ,+    DocumentPageChangedCallbackC            ,+    DocumentPageChangedSignalInfo           ,+    afterDocumentPageChanged                ,+    documentPageChangedCallbackWrapper      ,+    documentPageChangedClosure              ,+    mkDocumentPageChangedCallback           ,+    noDocumentPageChangedCallback           ,+    onDocumentPageChanged                   ,+++-- ** Reload+    DocumentReloadCallback                  ,+    DocumentReloadCallbackC                 ,+    DocumentReloadSignalInfo                ,+    afterDocumentReload                     ,+    documentReloadCallbackWrapper           ,+    documentReloadClosure                   ,+    mkDocumentReloadCallback                ,+    noDocumentReloadCallback                ,+    onDocumentReload                        ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface Document ++newtype Document = Document (ForeignPtr Document)+noDocument :: Maybe Document+noDocument = Nothing++-- signal Document::load-complete+type DocumentLoadCompleteCallback =+    IO ()++noDocumentLoadCompleteCallback :: Maybe DocumentLoadCompleteCallback+noDocumentLoadCompleteCallback = Nothing++type DocumentLoadCompleteCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkDocumentLoadCompleteCallback :: DocumentLoadCompleteCallbackC -> IO (FunPtr DocumentLoadCompleteCallbackC)++documentLoadCompleteClosure :: DocumentLoadCompleteCallback -> IO Closure+documentLoadCompleteClosure cb = newCClosure =<< mkDocumentLoadCompleteCallback wrapped+    where wrapped = documentLoadCompleteCallbackWrapper cb++documentLoadCompleteCallbackWrapper ::+    DocumentLoadCompleteCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+documentLoadCompleteCallbackWrapper _cb _ _ = do+    _cb ++onDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId+onDocumentLoadComplete obj cb = liftIO $ connectDocumentLoadComplete obj cb SignalConnectBefore+afterDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId+afterDocumentLoadComplete obj cb = connectDocumentLoadComplete obj cb SignalConnectAfter++connectDocumentLoadComplete :: (GObject a, MonadIO m) =>+                               a -> DocumentLoadCompleteCallback -> SignalConnectMode -> m SignalHandlerId+connectDocumentLoadComplete obj cb after = liftIO $ do+    cb' <- mkDocumentLoadCompleteCallback (documentLoadCompleteCallbackWrapper cb)+    connectSignalFunPtr obj "load-complete" cb' after++-- signal Document::load-stopped+type DocumentLoadStoppedCallback =+    IO ()++noDocumentLoadStoppedCallback :: Maybe DocumentLoadStoppedCallback+noDocumentLoadStoppedCallback = Nothing++type DocumentLoadStoppedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkDocumentLoadStoppedCallback :: DocumentLoadStoppedCallbackC -> IO (FunPtr DocumentLoadStoppedCallbackC)++documentLoadStoppedClosure :: DocumentLoadStoppedCallback -> IO Closure+documentLoadStoppedClosure cb = newCClosure =<< mkDocumentLoadStoppedCallback wrapped+    where wrapped = documentLoadStoppedCallbackWrapper cb++documentLoadStoppedCallbackWrapper ::+    DocumentLoadStoppedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+documentLoadStoppedCallbackWrapper _cb _ _ = do+    _cb ++onDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId+onDocumentLoadStopped obj cb = liftIO $ connectDocumentLoadStopped obj cb SignalConnectBefore+afterDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId+afterDocumentLoadStopped obj cb = connectDocumentLoadStopped obj cb SignalConnectAfter++connectDocumentLoadStopped :: (GObject a, MonadIO m) =>+                              a -> DocumentLoadStoppedCallback -> SignalConnectMode -> m SignalHandlerId+connectDocumentLoadStopped obj cb after = liftIO $ do+    cb' <- mkDocumentLoadStoppedCallback (documentLoadStoppedCallbackWrapper cb)+    connectSignalFunPtr obj "load-stopped" cb' after++-- signal Document::page-changed+type DocumentPageChangedCallback =+    Int32 ->+    IO ()++noDocumentPageChangedCallback :: Maybe DocumentPageChangedCallback+noDocumentPageChangedCallback = Nothing++type DocumentPageChangedCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkDocumentPageChangedCallback :: DocumentPageChangedCallbackC -> IO (FunPtr DocumentPageChangedCallbackC)++documentPageChangedClosure :: DocumentPageChangedCallback -> IO Closure+documentPageChangedClosure cb = newCClosure =<< mkDocumentPageChangedCallback wrapped+    where wrapped = documentPageChangedCallbackWrapper cb++documentPageChangedCallbackWrapper ::+    DocumentPageChangedCallback ->+    Ptr () ->+    Int32 ->+    Ptr () ->+    IO ()+documentPageChangedCallbackWrapper _cb _ page_number _ = do+    _cb  page_number++onDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId+onDocumentPageChanged obj cb = liftIO $ connectDocumentPageChanged obj cb SignalConnectBefore+afterDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId+afterDocumentPageChanged obj cb = connectDocumentPageChanged obj cb SignalConnectAfter++connectDocumentPageChanged :: (GObject a, MonadIO m) =>+                              a -> DocumentPageChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectDocumentPageChanged obj cb after = liftIO $ do+    cb' <- mkDocumentPageChangedCallback (documentPageChangedCallbackWrapper cb)+    connectSignalFunPtr obj "page-changed" cb' after++-- signal Document::reload+type DocumentReloadCallback =+    IO ()++noDocumentReloadCallback :: Maybe DocumentReloadCallback+noDocumentReloadCallback = Nothing++type DocumentReloadCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkDocumentReloadCallback :: DocumentReloadCallbackC -> IO (FunPtr DocumentReloadCallbackC)++documentReloadClosure :: DocumentReloadCallback -> IO Closure+documentReloadClosure cb = newCClosure =<< mkDocumentReloadCallback wrapped+    where wrapped = documentReloadCallbackWrapper cb++documentReloadCallbackWrapper ::+    DocumentReloadCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+documentReloadCallbackWrapper _cb _ _ = do+    _cb ++onDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId+onDocumentReload obj cb = liftIO $ connectDocumentReload obj cb SignalConnectBefore+afterDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId+afterDocumentReload obj cb = connectDocumentReload obj cb SignalConnectAfter++connectDocumentReload :: (GObject a, MonadIO m) =>+                         a -> DocumentReloadCallback -> SignalConnectMode -> m SignalHandlerId+connectDocumentReload obj cb after = liftIO $ do+    cb' <- mkDocumentReloadCallback (documentReloadCallbackWrapper cb)+    connectSignalFunPtr obj "reload" cb' after++type instance AttributeList Document = DocumentAttributeList+type DocumentAttributeList = ('[ ] :: [(Symbol, *)])++data DocumentLoadCompleteSignalInfo+instance SignalInfo DocumentLoadCompleteSignalInfo where+    type HaskellCallbackType DocumentLoadCompleteSignalInfo = DocumentLoadCompleteCallback+    connectSignal _ = connectDocumentLoadComplete++data DocumentLoadStoppedSignalInfo+instance SignalInfo DocumentLoadStoppedSignalInfo where+    type HaskellCallbackType DocumentLoadStoppedSignalInfo = DocumentLoadStoppedCallback+    connectSignal _ = connectDocumentLoadStopped++data DocumentPageChangedSignalInfo+instance SignalInfo DocumentPageChangedSignalInfo where+    type HaskellCallbackType DocumentPageChangedSignalInfo = DocumentPageChangedCallback+    connectSignal _ = connectDocumentPageChanged++data DocumentReloadSignalInfo+instance SignalInfo DocumentReloadSignalInfo where+    type HaskellCallbackType DocumentReloadSignalInfo = DocumentReloadCallback+    connectSignal _ = connectDocumentReload++type instance SignalList Document = DocumentSignalList+type DocumentSignalList = ('[ '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("reload", DocumentReloadSignalInfo)] :: [(Symbol, *)])++class ForeignPtrNewtype a => DocumentK a+instance (ForeignPtrNewtype o, IsDescendantOf Document o) => DocumentK o+type instance ParentTypes Document = DocumentParentTypes+type DocumentParentTypes = '[]++-- method Document::get_attribute_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_document_get_attribute_value" atk_document_get_attribute_value :: +    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"+    CString ->                              -- attribute_name : TBasicType TUTF8+    IO CString+++documentGetAttributeValue ::+    (MonadIO m, DocumentK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- attribute_name+    m T.Text+documentGetAttributeValue _obj attribute_name = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    attribute_name' <- textToCString attribute_name+    result <- atk_document_get_attribute_value _obj' attribute_name'+    checkUnexpectedReturnNULL "atk_document_get_attribute_value" result+    result' <- cstringToText result+    touchManagedPtr _obj+    freeMem attribute_name'+    return result'++-- method Document::get_attributes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TBasicType TVoid)+-- throws : False+-- Skip return : False++foreign import ccall "atk_document_get_attributes" atk_document_get_attributes :: +    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"+    IO (Ptr (GSList (Ptr ())))+++documentGetAttributes ::+    (MonadIO m, DocumentK a) =>+    a ->                                    -- _obj+    m [Ptr ()]+documentGetAttributes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_document_get_attributes _obj'+    checkUnexpectedReturnNULL "atk_document_get_attributes" result+    result' <- unpackGSList result+    touchManagedPtr _obj+    return result'++-- method Document::get_current_page_number+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_document_get_current_page_number" atk_document_get_current_page_number :: +    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"+    IO Int32+++documentGetCurrentPageNumber ::+    (MonadIO m, DocumentK a) =>+    a ->                                    -- _obj+    m Int32+documentGetCurrentPageNumber _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_document_get_current_page_number _obj'+    touchManagedPtr _obj+    return result++-- method Document::get_document+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_document_get_document" atk_document_get_document :: +    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"+    IO ()++{-# DEPRECATED documentGetDocument ["Since 2.12. @document is already a representation of","the document. Use it directly, or one of its children, as an","instance of the DOM."]#-}+documentGetDocument ::+    (MonadIO m, DocumentK a) =>+    a ->                                    -- _obj+    m ()+documentGetDocument _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_document_get_document _obj'+    touchManagedPtr _obj+    return ()++-- method Document::get_document_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_document_get_document_type" atk_document_get_document_type :: +    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"+    IO CString++{-# DEPRECATED documentGetDocumentType ["Since 2.12. Please use atk_document_get_attributes() to","ask for the document type if it applies."]#-}+documentGetDocumentType ::+    (MonadIO m, DocumentK a) =>+    a ->                                    -- _obj+    m T.Text+documentGetDocumentType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_document_get_document_type _obj'+    checkUnexpectedReturnNULL "atk_document_get_document_type" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Document::get_locale+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_document_get_locale" atk_document_get_locale :: +    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"+    IO CString++{-# DEPRECATED documentGetLocale ["(Since version 2.7.90)","Please use atk_object_get_object_locale() instead."]#-}+documentGetLocale ::+    (MonadIO m, DocumentK a) =>+    a ->                                    -- _obj+    m T.Text+documentGetLocale _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_document_get_locale _obj'+    checkUnexpectedReturnNULL "atk_document_get_locale" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Document::get_page_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_document_get_page_count" atk_document_get_page_count :: +    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"+    IO Int32+++documentGetPageCount ::+    (MonadIO m, DocumentK a) =>+    a ->                                    -- _obj+    m Int32+documentGetPageCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_document_get_page_count _obj'+    touchManagedPtr _obj+    return result++-- method Document::set_attribute_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_document_set_attribute_value" atk_document_set_attribute_value :: +    Ptr Document ->                         -- _obj : TInterface "Atk" "Document"+    CString ->                              -- attribute_name : TBasicType TUTF8+    CString ->                              -- attribute_value : TBasicType TUTF8+    IO CInt+++documentSetAttributeValue ::+    (MonadIO m, DocumentK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- attribute_name+    T.Text ->                               -- attribute_value+    m Bool+documentSetAttributeValue _obj attribute_name attribute_value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    attribute_name' <- textToCString attribute_name+    attribute_value' <- textToCString attribute_value+    result <- atk_document_set_attribute_value _obj' attribute_name' attribute_value'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem attribute_name'+    freeMem attribute_value'+    return result'++
+ GI/Atk/Interfaces/Document.hs-boot view
@@ -0,0 +1,16 @@+module GI.Atk.Interfaces.Document where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Document = Document (ForeignPtr Document)+data DocumentLoadCompleteSignalInfo+data DocumentLoadStoppedSignalInfo+data DocumentPageChangedSignalInfo+data DocumentReloadSignalInfo+class ForeignPtrNewtype a => DocumentK a+instance (ForeignPtrNewtype o, IsDescendantOf Document o) => DocumentK o
+ GI/Atk/Interfaces/EditableText.hs view
@@ -0,0 +1,280 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.EditableText+    ( ++-- * Exported types+    EditableText(..)                        ,+    noEditableText                          ,+    EditableTextK                           ,+++ -- * Methods+-- ** editableTextCopyText+    editableTextCopyText                    ,+++-- ** editableTextCutText+    editableTextCutText                     ,+++-- ** editableTextDeleteText+    editableTextDeleteText                  ,+++-- ** editableTextInsertText+    editableTextInsertText                  ,+++-- ** editableTextPasteText+    editableTextPasteText                   ,+++-- ** editableTextSetRunAttributes+    editableTextSetRunAttributes            ,+++-- ** editableTextSetTextContents+    editableTextSetTextContents             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface EditableText ++newtype EditableText = EditableText (ForeignPtr EditableText)+noEditableText :: Maybe EditableText+noEditableText = Nothing++type instance AttributeList EditableText = EditableTextAttributeList+type EditableTextAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList EditableText = EditableTextSignalList+type EditableTextSignalList = ('[ ] :: [(Symbol, *)])++class ForeignPtrNewtype a => EditableTextK a+instance (ForeignPtrNewtype o, IsDescendantOf EditableText o) => EditableTextK o+type instance ParentTypes EditableText = EditableTextParentTypes+type EditableTextParentTypes = '[]++-- method EditableText::copy_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_editable_text_copy_text" atk_editable_text_copy_text :: +    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"+    Int32 ->                                -- start_pos : TBasicType TInt32+    Int32 ->                                -- end_pos : TBasicType TInt32+    IO ()+++editableTextCopyText ::+    (MonadIO m, EditableTextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- start_pos+    Int32 ->                                -- end_pos+    m ()+editableTextCopyText _obj start_pos end_pos = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_editable_text_copy_text _obj' start_pos end_pos+    touchManagedPtr _obj+    return ()++-- method EditableText::cut_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_editable_text_cut_text" atk_editable_text_cut_text :: +    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"+    Int32 ->                                -- start_pos : TBasicType TInt32+    Int32 ->                                -- end_pos : TBasicType TInt32+    IO ()+++editableTextCutText ::+    (MonadIO m, EditableTextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- start_pos+    Int32 ->                                -- end_pos+    m ()+editableTextCutText _obj start_pos end_pos = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_editable_text_cut_text _obj' start_pos end_pos+    touchManagedPtr _obj+    return ()++-- method EditableText::delete_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_editable_text_delete_text" atk_editable_text_delete_text :: +    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"+    Int32 ->                                -- start_pos : TBasicType TInt32+    Int32 ->                                -- end_pos : TBasicType TInt32+    IO ()+++editableTextDeleteText ::+    (MonadIO m, EditableTextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- start_pos+    Int32 ->                                -- end_pos+    m ()+editableTextDeleteText _obj start_pos end_pos = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_editable_text_delete_text _obj' start_pos end_pos+    touchManagedPtr _obj+    return ()++-- method EditableText::insert_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_editable_text_insert_text" atk_editable_text_insert_text :: +    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"+    CString ->                              -- string : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- position : TBasicType TInt32+    IO ()+++editableTextInsertText ::+    (MonadIO m, EditableTextK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- string+    Int32 ->                                -- length+    Int32 ->                                -- position+    m ()+editableTextInsertText _obj string length_ position = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    string' <- textToCString string+    atk_editable_text_insert_text _obj' string' length_ position+    touchManagedPtr _obj+    freeMem string'+    return ()++-- method EditableText::paste_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_editable_text_paste_text" atk_editable_text_paste_text :: +    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"+    Int32 ->                                -- position : TBasicType TInt32+    IO ()+++editableTextPasteText ::+    (MonadIO m, EditableTextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- position+    m ()+editableTextPasteText _obj position = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_editable_text_paste_text _obj' position+    touchManagedPtr _obj+    return ()++-- method EditableText::set_run_attributes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_editable_text_set_run_attributes" atk_editable_text_set_run_attributes :: +    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"+    Ptr (GSList (Ptr ())) ->                -- attrib_set : TGSList (TBasicType TVoid)+    Int32 ->                                -- start_offset : TBasicType TInt32+    Int32 ->                                -- end_offset : TBasicType TInt32+    IO CInt+++editableTextSetRunAttributes ::+    (MonadIO m, EditableTextK a) =>+    a ->                                    -- _obj+    [Ptr ()] ->                             -- attrib_set+    Int32 ->                                -- start_offset+    Int32 ->                                -- end_offset+    m Bool+editableTextSetRunAttributes _obj attrib_set start_offset end_offset = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    attrib_set' <- packGSList attrib_set+    result <- atk_editable_text_set_run_attributes _obj' attrib_set' start_offset end_offset+    let result' = (/= 0) result+    touchManagedPtr _obj+    g_slist_free attrib_set'+    return result'++-- method EditableText::set_text_contents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_editable_text_set_text_contents" atk_editable_text_set_text_contents :: +    Ptr EditableText ->                     -- _obj : TInterface "Atk" "EditableText"+    CString ->                              -- string : TBasicType TUTF8+    IO ()+++editableTextSetTextContents ::+    (MonadIO m, EditableTextK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- string+    m ()+editableTextSetTextContents _obj string = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    string' <- textToCString string+    atk_editable_text_set_text_contents _obj' string'+    touchManagedPtr _obj+    freeMem string'+    return ()++
+ GI/Atk/Interfaces/EditableText.hs-boot view
@@ -0,0 +1,12 @@+module GI.Atk.Interfaces.EditableText where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype EditableText = EditableText (ForeignPtr EditableText)+class ForeignPtrNewtype a => EditableTextK a+instance (ForeignPtrNewtype o, IsDescendantOf EditableText o) => EditableTextK o
+ GI/Atk/Interfaces/HyperlinkImpl.hs view
@@ -0,0 +1,79 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.HyperlinkImpl+    ( ++-- * Exported types+    HyperlinkImpl(..)                       ,+    noHyperlinkImpl                         ,+    HyperlinkImplK                          ,+++ -- * Methods+-- ** hyperlinkImplGetHyperlink+    hyperlinkImplGetHyperlink               ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface HyperlinkImpl ++newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl)+noHyperlinkImpl :: Maybe HyperlinkImpl+noHyperlinkImpl = Nothing++type instance AttributeList HyperlinkImpl = HyperlinkImplAttributeList+type HyperlinkImplAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList HyperlinkImpl = HyperlinkImplSignalList+type HyperlinkImplSignalList = ('[ ] :: [(Symbol, *)])++class ForeignPtrNewtype a => HyperlinkImplK a+instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o+type instance ParentTypes HyperlinkImpl = HyperlinkImplParentTypes+type HyperlinkImplParentTypes = '[]++-- method HyperlinkImpl::get_hyperlink+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Hyperlink"+-- throws : False+-- Skip return : False++foreign import ccall "atk_hyperlink_impl_get_hyperlink" atk_hyperlink_impl_get_hyperlink :: +    Ptr HyperlinkImpl ->                    -- _obj : TInterface "Atk" "HyperlinkImpl"+    IO (Ptr Hyperlink)+++hyperlinkImplGetHyperlink ::+    (MonadIO m, HyperlinkImplK a) =>+    a ->                                    -- _obj+    m Hyperlink+hyperlinkImplGetHyperlink _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hyperlink_impl_get_hyperlink _obj'+    checkUnexpectedReturnNULL "atk_hyperlink_impl_get_hyperlink" result+    result' <- (wrapObject Hyperlink) result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Interfaces/HyperlinkImpl.hs-boot view
@@ -0,0 +1,12 @@+module GI.Atk.Interfaces.HyperlinkImpl where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl)+class ForeignPtrNewtype a => HyperlinkImplK a+instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o
+ GI/Atk/Interfaces/Hypertext.hs view
@@ -0,0 +1,200 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Hypertext+    ( ++-- * Exported types+    Hypertext(..)                           ,+    noHypertext                             ,+    HypertextK                              ,+++ -- * Methods+-- ** hypertextGetLink+    hypertextGetLink                        ,+++-- ** hypertextGetLinkIndex+    hypertextGetLinkIndex                   ,+++-- ** hypertextGetNLinks+    hypertextGetNLinks                      ,+++++ -- * Signals+-- ** LinkSelected+    HypertextLinkSelectedCallback           ,+    HypertextLinkSelectedCallbackC          ,+    HypertextLinkSelectedSignalInfo         ,+    afterHypertextLinkSelected              ,+    hypertextLinkSelectedCallbackWrapper    ,+    hypertextLinkSelectedClosure            ,+    mkHypertextLinkSelectedCallback         ,+    noHypertextLinkSelectedCallback         ,+    onHypertextLinkSelected                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface Hypertext ++newtype Hypertext = Hypertext (ForeignPtr Hypertext)+noHypertext :: Maybe Hypertext+noHypertext = Nothing++-- signal Hypertext::link-selected+type HypertextLinkSelectedCallback =+    Int32 ->+    IO ()++noHypertextLinkSelectedCallback :: Maybe HypertextLinkSelectedCallback+noHypertextLinkSelectedCallback = Nothing++type HypertextLinkSelectedCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkHypertextLinkSelectedCallback :: HypertextLinkSelectedCallbackC -> IO (FunPtr HypertextLinkSelectedCallbackC)++hypertextLinkSelectedClosure :: HypertextLinkSelectedCallback -> IO Closure+hypertextLinkSelectedClosure cb = newCClosure =<< mkHypertextLinkSelectedCallback wrapped+    where wrapped = hypertextLinkSelectedCallbackWrapper cb++hypertextLinkSelectedCallbackWrapper ::+    HypertextLinkSelectedCallback ->+    Ptr () ->+    Int32 ->+    Ptr () ->+    IO ()+hypertextLinkSelectedCallbackWrapper _cb _ arg1 _ = do+    _cb  arg1++onHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId+onHypertextLinkSelected obj cb = liftIO $ connectHypertextLinkSelected obj cb SignalConnectBefore+afterHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId+afterHypertextLinkSelected obj cb = connectHypertextLinkSelected obj cb SignalConnectAfter++connectHypertextLinkSelected :: (GObject a, MonadIO m) =>+                                a -> HypertextLinkSelectedCallback -> SignalConnectMode -> m SignalHandlerId+connectHypertextLinkSelected obj cb after = liftIO $ do+    cb' <- mkHypertextLinkSelectedCallback (hypertextLinkSelectedCallbackWrapper cb)+    connectSignalFunPtr obj "link-selected" cb' after++type instance AttributeList Hypertext = HypertextAttributeList+type HypertextAttributeList = ('[ ] :: [(Symbol, *)])++data HypertextLinkSelectedSignalInfo+instance SignalInfo HypertextLinkSelectedSignalInfo where+    type HaskellCallbackType HypertextLinkSelectedSignalInfo = HypertextLinkSelectedCallback+    connectSignal _ = connectHypertextLinkSelected++type instance SignalList Hypertext = HypertextSignalList+type HypertextSignalList = ('[ '("link-selected", HypertextLinkSelectedSignalInfo)] :: [(Symbol, *)])++class ForeignPtrNewtype a => HypertextK a+instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o+type instance ParentTypes Hypertext = HypertextParentTypes+type HypertextParentTypes = '[]++-- method Hypertext::get_link+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Hyperlink"+-- throws : False+-- Skip return : False++foreign import ccall "atk_hypertext_get_link" atk_hypertext_get_link :: +    Ptr Hypertext ->                        -- _obj : TInterface "Atk" "Hypertext"+    Int32 ->                                -- link_index : TBasicType TInt32+    IO (Ptr Hyperlink)+++hypertextGetLink ::+    (MonadIO m, HypertextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- link_index+    m Hyperlink+hypertextGetLink _obj link_index = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hypertext_get_link _obj' link_index+    checkUnexpectedReturnNULL "atk_hypertext_get_link" result+    result' <- (newObject Hyperlink) result+    touchManagedPtr _obj+    return result'++-- method Hypertext::get_link_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_hypertext_get_link_index" atk_hypertext_get_link_index :: +    Ptr Hypertext ->                        -- _obj : TInterface "Atk" "Hypertext"+    Int32 ->                                -- char_index : TBasicType TInt32+    IO Int32+++hypertextGetLinkIndex ::+    (MonadIO m, HypertextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- char_index+    m Int32+hypertextGetLinkIndex _obj char_index = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hypertext_get_link_index _obj' char_index+    touchManagedPtr _obj+    return result++-- method Hypertext::get_n_links+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_hypertext_get_n_links" atk_hypertext_get_n_links :: +    Ptr Hypertext ->                        -- _obj : TInterface "Atk" "Hypertext"+    IO Int32+++hypertextGetNLinks ::+    (MonadIO m, HypertextK a) =>+    a ->                                    -- _obj+    m Int32+hypertextGetNLinks _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hypertext_get_n_links _obj'+    touchManagedPtr _obj+    return result++
+ GI/Atk/Interfaces/Hypertext.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Interfaces.Hypertext where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Hypertext = Hypertext (ForeignPtr Hypertext)+data HypertextLinkSelectedSignalInfo+class ForeignPtrNewtype a => HypertextK a+instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o
+ GI/Atk/Interfaces/Image.hs view
@@ -0,0 +1,209 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Image+    ( ++-- * Exported types+    Image(..)                               ,+    noImage                                 ,+    ImageK                                  ,+++ -- * Methods+-- ** imageGetImageDescription+    imageGetImageDescription                ,+++-- ** imageGetImageLocale+    imageGetImageLocale                     ,+++-- ** imageGetImagePosition+    imageGetImagePosition                   ,+++-- ** imageGetImageSize+    imageGetImageSize                       ,+++-- ** imageSetImageDescription+    imageSetImageDescription                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface Image ++newtype Image = Image (ForeignPtr Image)+noImage :: Maybe Image+noImage = Nothing++type instance AttributeList Image = ImageAttributeList+type ImageAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList Image = ImageSignalList+type ImageSignalList = ('[ ] :: [(Symbol, *)])++class ForeignPtrNewtype a => ImageK a+instance (ForeignPtrNewtype o, IsDescendantOf Image o) => ImageK o+type instance ParentTypes Image = ImageParentTypes+type ImageParentTypes = '[]++-- method Image::get_image_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_image_get_image_description" atk_image_get_image_description :: +    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"+    IO CString+++imageGetImageDescription ::+    (MonadIO m, ImageK a) =>+    a ->                                    -- _obj+    m T.Text+imageGetImageDescription _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_image_get_image_description _obj'+    checkUnexpectedReturnNULL "atk_image_get_image_description" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Image::get_image_locale+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_image_get_image_locale" atk_image_get_image_locale :: +    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"+    IO CString+++imageGetImageLocale ::+    (MonadIO m, ImageK a) =>+    a ->                                    -- _obj+    m T.Text+imageGetImageLocale _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_image_get_image_locale _obj'+    checkUnexpectedReturnNULL "atk_image_get_image_locale" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Image::get_image_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_image_get_image_position" atk_image_get_image_position :: +    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"+    IO ()+++imageGetImagePosition ::+    (MonadIO m, ImageK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    CoordType ->                            -- coord_type+    m ()+imageGetImagePosition _obj x y coord_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coord_type' = (fromIntegral . fromEnum) coord_type+    atk_image_get_image_position _obj' x y coord_type'+    touchManagedPtr _obj+    return ()++-- method Image::get_image_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_image_get_image_size" atk_image_get_image_size :: +    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO ()+++imageGetImageSize ::+    (MonadIO m, ImageK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- width+    Int32 ->                                -- height+    m ()+imageGetImageSize _obj width height = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_image_get_image_size _obj' width height+    touchManagedPtr _obj+    return ()++-- method Image::set_image_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_image_set_image_description" atk_image_set_image_description :: +    Ptr Image ->                            -- _obj : TInterface "Atk" "Image"+    CString ->                              -- description : TBasicType TUTF8+    IO CInt+++imageSetImageDescription ::+    (MonadIO m, ImageK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- description+    m Bool+imageSetImageDescription _obj description = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    description' <- textToCString description+    result <- atk_image_set_image_description _obj' description'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem description'+    return result'++
+ GI/Atk/Interfaces/Image.hs-boot view
@@ -0,0 +1,12 @@+module GI.Atk.Interfaces.Image where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Image = Image (ForeignPtr Image)+class ForeignPtrNewtype a => ImageK a+instance (ForeignPtrNewtype o, IsDescendantOf Image o) => ImageK o
+ GI/Atk/Interfaces/ImplementorIface.hs view
@@ -0,0 +1,46 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.ImplementorIface+    ( ++-- * Exported types+    ImplementorIface(..)                    ,+    noImplementorIface                      ,+    ImplementorIfaceK                       ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface ImplementorIface ++newtype ImplementorIface = ImplementorIface (ForeignPtr ImplementorIface)+noImplementorIface :: Maybe ImplementorIface+noImplementorIface = Nothing++type instance AttributeList ImplementorIface = ImplementorIfaceAttributeList+type ImplementorIfaceAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList ImplementorIface = ImplementorIfaceSignalList+type ImplementorIfaceSignalList = ('[ ] :: [(Symbol, *)])++class ForeignPtrNewtype a => ImplementorIfaceK a+instance (ForeignPtrNewtype o, IsDescendantOf ImplementorIface o) => ImplementorIfaceK o+type instance ParentTypes ImplementorIface = ImplementorIfaceParentTypes+type ImplementorIfaceParentTypes = '[]++
+ GI/Atk/Interfaces/ImplementorIface.hs-boot view
@@ -0,0 +1,12 @@+module GI.Atk.Interfaces.ImplementorIface where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ImplementorIface = ImplementorIface (ForeignPtr ImplementorIface)+class ForeignPtrNewtype a => ImplementorIfaceK a+instance (ForeignPtrNewtype o, IsDescendantOf ImplementorIface o) => ImplementorIfaceK o
+ GI/Atk/Interfaces/Selection.hs view
@@ -0,0 +1,318 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Selection+    ( ++-- * Exported types+    Selection(..)                           ,+    noSelection                             ,+    SelectionK                              ,+++ -- * Methods+-- ** selectionAddSelection+    selectionAddSelection                   ,+++-- ** selectionClearSelection+    selectionClearSelection                 ,+++-- ** selectionGetSelectionCount+    selectionGetSelectionCount              ,+++-- ** selectionIsChildSelected+    selectionIsChildSelected                ,+++-- ** selectionRefSelection+    selectionRefSelection                   ,+++-- ** selectionRemoveSelection+    selectionRemoveSelection                ,+++-- ** selectionSelectAllSelection+    selectionSelectAllSelection             ,+++++ -- * Signals+-- ** SelectionChanged+    SelectionSelectionChangedCallback       ,+    SelectionSelectionChangedCallbackC      ,+    SelectionSelectionChangedSignalInfo     ,+    afterSelectionSelectionChanged          ,+    mkSelectionSelectionChangedCallback     ,+    noSelectionSelectionChangedCallback     ,+    onSelectionSelectionChanged             ,+    selectionSelectionChangedCallbackWrapper,+    selectionSelectionChangedClosure        ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface Selection ++newtype Selection = Selection (ForeignPtr Selection)+noSelection :: Maybe Selection+noSelection = Nothing++-- signal Selection::selection-changed+type SelectionSelectionChangedCallback =+    IO ()++noSelectionSelectionChangedCallback :: Maybe SelectionSelectionChangedCallback+noSelectionSelectionChangedCallback = Nothing++type SelectionSelectionChangedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSelectionSelectionChangedCallback :: SelectionSelectionChangedCallbackC -> IO (FunPtr SelectionSelectionChangedCallbackC)++selectionSelectionChangedClosure :: SelectionSelectionChangedCallback -> IO Closure+selectionSelectionChangedClosure cb = newCClosure =<< mkSelectionSelectionChangedCallback wrapped+    where wrapped = selectionSelectionChangedCallbackWrapper cb++selectionSelectionChangedCallbackWrapper ::+    SelectionSelectionChangedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+selectionSelectionChangedCallbackWrapper _cb _ _ = do+    _cb ++onSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId+onSelectionSelectionChanged obj cb = liftIO $ connectSelectionSelectionChanged obj cb SignalConnectBefore+afterSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId+afterSelectionSelectionChanged obj cb = connectSelectionSelectionChanged obj cb SignalConnectAfter++connectSelectionSelectionChanged :: (GObject a, MonadIO m) =>+                                    a -> SelectionSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectSelectionSelectionChanged obj cb after = liftIO $ do+    cb' <- mkSelectionSelectionChangedCallback (selectionSelectionChangedCallbackWrapper cb)+    connectSignalFunPtr obj "selection-changed" cb' after++type instance AttributeList Selection = SelectionAttributeList+type SelectionAttributeList = ('[ ] :: [(Symbol, *)])++data SelectionSelectionChangedSignalInfo+instance SignalInfo SelectionSelectionChangedSignalInfo where+    type HaskellCallbackType SelectionSelectionChangedSignalInfo = SelectionSelectionChangedCallback+    connectSignal _ = connectSelectionSelectionChanged++type instance SignalList Selection = SelectionSignalList+type SelectionSignalList = ('[ '("selection-changed", SelectionSelectionChangedSignalInfo)] :: [(Symbol, *)])++class ForeignPtrNewtype a => SelectionK a+instance (ForeignPtrNewtype o, IsDescendantOf Selection o) => SelectionK o+type instance ParentTypes Selection = SelectionParentTypes+type SelectionParentTypes = '[]++-- method Selection::add_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_selection_add_selection" atk_selection_add_selection :: +    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"+    Int32 ->                                -- i : TBasicType TInt32+    IO CInt+++selectionAddSelection ::+    (MonadIO m, SelectionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m Bool+selectionAddSelection _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_selection_add_selection _obj' i+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Selection::clear_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_selection_clear_selection" atk_selection_clear_selection :: +    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"+    IO CInt+++selectionClearSelection ::+    (MonadIO m, SelectionK a) =>+    a ->                                    -- _obj+    m Bool+selectionClearSelection _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_selection_clear_selection _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Selection::get_selection_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_selection_get_selection_count" atk_selection_get_selection_count :: +    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"+    IO Int32+++selectionGetSelectionCount ::+    (MonadIO m, SelectionK a) =>+    a ->                                    -- _obj+    m Int32+selectionGetSelectionCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_selection_get_selection_count _obj'+    touchManagedPtr _obj+    return result++-- method Selection::is_child_selected+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_selection_is_child_selected" atk_selection_is_child_selected :: +    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"+    Int32 ->                                -- i : TBasicType TInt32+    IO CInt+++selectionIsChildSelected ::+    (MonadIO m, SelectionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m Bool+selectionIsChildSelected _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_selection_is_child_selected _obj' i+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Selection::ref_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_selection_ref_selection" atk_selection_ref_selection :: +    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"+    Int32 ->                                -- i : TBasicType TInt32+    IO (Ptr Object)+++selectionRefSelection ::+    (MonadIO m, SelectionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m Object+selectionRefSelection _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_selection_ref_selection _obj' i+    checkUnexpectedReturnNULL "atk_selection_ref_selection" result+    result' <- (wrapObject Object) result+    touchManagedPtr _obj+    return result'++-- method Selection::remove_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_selection_remove_selection" atk_selection_remove_selection :: +    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"+    Int32 ->                                -- i : TBasicType TInt32+    IO CInt+++selectionRemoveSelection ::+    (MonadIO m, SelectionK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m Bool+selectionRemoveSelection _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_selection_remove_selection _obj' i+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Selection::select_all_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_selection_select_all_selection" atk_selection_select_all_selection :: +    Ptr Selection ->                        -- _obj : TInterface "Atk" "Selection"+    IO CInt+++selectionSelectAllSelection ::+    (MonadIO m, SelectionK a) =>+    a ->                                    -- _obj+    m Bool+selectionSelectAllSelection _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_selection_select_all_selection _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Interfaces/Selection.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Interfaces.Selection where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Selection = Selection (ForeignPtr Selection)+data SelectionSelectionChangedSignalInfo+class ForeignPtrNewtype a => SelectionK a+instance (ForeignPtrNewtype o, IsDescendantOf Selection o) => SelectionK o
+ GI/Atk/Interfaces/StreamableContent.hs view
@@ -0,0 +1,178 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.StreamableContent+    ( ++-- * Exported types+    StreamableContent(..)                   ,+    noStreamableContent                     ,+    StreamableContentK                      ,+++ -- * Methods+-- ** streamableContentGetMimeType+    streamableContentGetMimeType            ,+++-- ** streamableContentGetNMimeTypes+    streamableContentGetNMimeTypes          ,+++-- ** streamableContentGetStream+    streamableContentGetStream              ,+++-- ** streamableContentGetUri+    streamableContentGetUri                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GLib as GLib++-- interface StreamableContent ++newtype StreamableContent = StreamableContent (ForeignPtr StreamableContent)+noStreamableContent :: Maybe StreamableContent+noStreamableContent = Nothing++type instance AttributeList StreamableContent = StreamableContentAttributeList+type StreamableContentAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList StreamableContent = StreamableContentSignalList+type StreamableContentSignalList = ('[ ] :: [(Symbol, *)])++class ForeignPtrNewtype a => StreamableContentK a+instance (ForeignPtrNewtype o, IsDescendantOf StreamableContent o) => StreamableContentK o+type instance ParentTypes StreamableContent = StreamableContentParentTypes+type StreamableContentParentTypes = '[]++-- method StreamableContent::get_mime_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_streamable_content_get_mime_type" atk_streamable_content_get_mime_type :: +    Ptr StreamableContent ->                -- _obj : TInterface "Atk" "StreamableContent"+    Int32 ->                                -- i : TBasicType TInt32+    IO CString+++streamableContentGetMimeType ::+    (MonadIO m, StreamableContentK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m T.Text+streamableContentGetMimeType _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_streamable_content_get_mime_type _obj' i+    checkUnexpectedReturnNULL "atk_streamable_content_get_mime_type" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method StreamableContent::get_n_mime_types+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_streamable_content_get_n_mime_types" atk_streamable_content_get_n_mime_types :: +    Ptr StreamableContent ->                -- _obj : TInterface "Atk" "StreamableContent"+    IO Int32+++streamableContentGetNMimeTypes ::+    (MonadIO m, StreamableContentK a) =>+    a ->                                    -- _obj+    m Int32+streamableContentGetNMimeTypes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_streamable_content_get_n_mime_types _obj'+    touchManagedPtr _obj+    return result++-- method StreamableContent::get_stream+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOChannel"+-- throws : False+-- Skip return : False++foreign import ccall "atk_streamable_content_get_stream" atk_streamable_content_get_stream :: +    Ptr StreamableContent ->                -- _obj : TInterface "Atk" "StreamableContent"+    CString ->                              -- mime_type : TBasicType TUTF8+    IO (Ptr GLib.IOChannel)+++streamableContentGetStream ::+    (MonadIO m, StreamableContentK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- mime_type+    m GLib.IOChannel+streamableContentGetStream _obj mime_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    mime_type' <- textToCString mime_type+    result <- atk_streamable_content_get_stream _obj' mime_type'+    checkUnexpectedReturnNULL "atk_streamable_content_get_stream" result+    result' <- (wrapBoxed GLib.IOChannel) result+    touchManagedPtr _obj+    freeMem mime_type'+    return result'++-- method StreamableContent::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_streamable_content_get_uri" atk_streamable_content_get_uri :: +    Ptr StreamableContent ->                -- _obj : TInterface "Atk" "StreamableContent"+    CString ->                              -- mime_type : TBasicType TUTF8+    IO CString+++streamableContentGetUri ::+    (MonadIO m, StreamableContentK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- mime_type+    m T.Text+streamableContentGetUri _obj mime_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    mime_type' <- textToCString mime_type+    result <- atk_streamable_content_get_uri _obj' mime_type'+    checkUnexpectedReturnNULL "atk_streamable_content_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    freeMem mime_type'+    return result'++
+ GI/Atk/Interfaces/StreamableContent.hs-boot view
@@ -0,0 +1,12 @@+module GI.Atk.Interfaces.StreamableContent where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype StreamableContent = StreamableContent (ForeignPtr StreamableContent)+class ForeignPtrNewtype a => StreamableContentK a+instance (ForeignPtrNewtype o, IsDescendantOf StreamableContent o) => StreamableContentK o
+ GI/Atk/Interfaces/Table.hs view
@@ -0,0 +1,1374 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Table+    ( ++-- * Exported types+    Table(..)                               ,+    noTable                                 ,+    TableK                                  ,+++ -- * Methods+-- ** tableAddColumnSelection+    tableAddColumnSelection                 ,+++-- ** tableAddRowSelection+    tableAddRowSelection                    ,+++-- ** tableGetCaption+    tableGetCaption                         ,+++-- ** tableGetColumnAtIndex+    tableGetColumnAtIndex                   ,+++-- ** tableGetColumnDescription+    tableGetColumnDescription               ,+++-- ** tableGetColumnExtentAt+    tableGetColumnExtentAt                  ,+++-- ** tableGetColumnHeader+    tableGetColumnHeader                    ,+++-- ** tableGetIndexAt+    tableGetIndexAt                         ,+++-- ** tableGetNColumns+    tableGetNColumns                        ,+++-- ** tableGetNRows+    tableGetNRows                           ,+++-- ** tableGetRowAtIndex+    tableGetRowAtIndex                      ,+++-- ** tableGetRowDescription+    tableGetRowDescription                  ,+++-- ** tableGetRowExtentAt+    tableGetRowExtentAt                     ,+++-- ** tableGetRowHeader+    tableGetRowHeader                       ,+++-- ** tableGetSelectedColumns+    tableGetSelectedColumns                 ,+++-- ** tableGetSelectedRows+    tableGetSelectedRows                    ,+++-- ** tableGetSummary+    tableGetSummary                         ,+++-- ** tableIsColumnSelected+    tableIsColumnSelected                   ,+++-- ** tableIsRowSelected+    tableIsRowSelected                      ,+++-- ** tableIsSelected+    tableIsSelected                         ,+++-- ** tableRefAt+    tableRefAt                              ,+++-- ** tableRemoveColumnSelection+    tableRemoveColumnSelection              ,+++-- ** tableRemoveRowSelection+    tableRemoveRowSelection                 ,+++-- ** tableSetCaption+    tableSetCaption                         ,+++-- ** tableSetColumnDescription+    tableSetColumnDescription               ,+++-- ** tableSetColumnHeader+    tableSetColumnHeader                    ,+++-- ** tableSetRowDescription+    tableSetRowDescription                  ,+++-- ** tableSetRowHeader+    tableSetRowHeader                       ,+++-- ** tableSetSummary+    tableSetSummary                         ,+++++ -- * Signals+-- ** ColumnDeleted+    TableColumnDeletedCallback              ,+    TableColumnDeletedCallbackC             ,+    TableColumnDeletedSignalInfo            ,+    afterTableColumnDeleted                 ,+    mkTableColumnDeletedCallback            ,+    noTableColumnDeletedCallback            ,+    onTableColumnDeleted                    ,+    tableColumnDeletedCallbackWrapper       ,+    tableColumnDeletedClosure               ,+++-- ** ColumnInserted+    TableColumnInsertedCallback             ,+    TableColumnInsertedCallbackC            ,+    TableColumnInsertedSignalInfo           ,+    afterTableColumnInserted                ,+    mkTableColumnInsertedCallback           ,+    noTableColumnInsertedCallback           ,+    onTableColumnInserted                   ,+    tableColumnInsertedCallbackWrapper      ,+    tableColumnInsertedClosure              ,+++-- ** ColumnReordered+    TableColumnReorderedCallback            ,+    TableColumnReorderedCallbackC           ,+    TableColumnReorderedSignalInfo          ,+    afterTableColumnReordered               ,+    mkTableColumnReorderedCallback          ,+    noTableColumnReorderedCallback          ,+    onTableColumnReordered                  ,+    tableColumnReorderedCallbackWrapper     ,+    tableColumnReorderedClosure             ,+++-- ** ModelChanged+    TableModelChangedCallback               ,+    TableModelChangedCallbackC              ,+    TableModelChangedSignalInfo             ,+    afterTableModelChanged                  ,+    mkTableModelChangedCallback             ,+    noTableModelChangedCallback             ,+    onTableModelChanged                     ,+    tableModelChangedCallbackWrapper        ,+    tableModelChangedClosure                ,+++-- ** RowDeleted+    TableRowDeletedCallback                 ,+    TableRowDeletedCallbackC                ,+    TableRowDeletedSignalInfo               ,+    afterTableRowDeleted                    ,+    mkTableRowDeletedCallback               ,+    noTableRowDeletedCallback               ,+    onTableRowDeleted                       ,+    tableRowDeletedCallbackWrapper          ,+    tableRowDeletedClosure                  ,+++-- ** RowInserted+    TableRowInsertedCallback                ,+    TableRowInsertedCallbackC               ,+    TableRowInsertedSignalInfo              ,+    afterTableRowInserted                   ,+    mkTableRowInsertedCallback              ,+    noTableRowInsertedCallback              ,+    onTableRowInserted                      ,+    tableRowInsertedCallbackWrapper         ,+    tableRowInsertedClosure                 ,+++-- ** RowReordered+    TableRowReorderedCallback               ,+    TableRowReorderedCallbackC              ,+    TableRowReorderedSignalInfo             ,+    afterTableRowReordered                  ,+    mkTableRowReorderedCallback             ,+    noTableRowReorderedCallback             ,+    onTableRowReordered                     ,+    tableRowReorderedCallbackWrapper        ,+    tableRowReorderedClosure                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface Table ++newtype Table = Table (ForeignPtr Table)+noTable :: Maybe Table+noTable = Nothing++-- signal Table::column-deleted+type TableColumnDeletedCallback =+    Int32 ->+    Int32 ->+    IO ()++noTableColumnDeletedCallback :: Maybe TableColumnDeletedCallback+noTableColumnDeletedCallback = Nothing++type TableColumnDeletedCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Int32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTableColumnDeletedCallback :: TableColumnDeletedCallbackC -> IO (FunPtr TableColumnDeletedCallbackC)++tableColumnDeletedClosure :: TableColumnDeletedCallback -> IO Closure+tableColumnDeletedClosure cb = newCClosure =<< mkTableColumnDeletedCallback wrapped+    where wrapped = tableColumnDeletedCallbackWrapper cb++tableColumnDeletedCallbackWrapper ::+    TableColumnDeletedCallback ->+    Ptr () ->+    Int32 ->+    Int32 ->+    Ptr () ->+    IO ()+tableColumnDeletedCallbackWrapper _cb _ arg1 arg2 _ = do+    _cb  arg1 arg2++onTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId+onTableColumnDeleted obj cb = liftIO $ connectTableColumnDeleted obj cb SignalConnectBefore+afterTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId+afterTableColumnDeleted obj cb = connectTableColumnDeleted obj cb SignalConnectAfter++connectTableColumnDeleted :: (GObject a, MonadIO m) =>+                             a -> TableColumnDeletedCallback -> SignalConnectMode -> m SignalHandlerId+connectTableColumnDeleted obj cb after = liftIO $ do+    cb' <- mkTableColumnDeletedCallback (tableColumnDeletedCallbackWrapper cb)+    connectSignalFunPtr obj "column-deleted" cb' after++-- signal Table::column-inserted+type TableColumnInsertedCallback =+    Int32 ->+    Int32 ->+    IO ()++noTableColumnInsertedCallback :: Maybe TableColumnInsertedCallback+noTableColumnInsertedCallback = Nothing++type TableColumnInsertedCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Int32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTableColumnInsertedCallback :: TableColumnInsertedCallbackC -> IO (FunPtr TableColumnInsertedCallbackC)++tableColumnInsertedClosure :: TableColumnInsertedCallback -> IO Closure+tableColumnInsertedClosure cb = newCClosure =<< mkTableColumnInsertedCallback wrapped+    where wrapped = tableColumnInsertedCallbackWrapper cb++tableColumnInsertedCallbackWrapper ::+    TableColumnInsertedCallback ->+    Ptr () ->+    Int32 ->+    Int32 ->+    Ptr () ->+    IO ()+tableColumnInsertedCallbackWrapper _cb _ arg1 arg2 _ = do+    _cb  arg1 arg2++onTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId+onTableColumnInserted obj cb = liftIO $ connectTableColumnInserted obj cb SignalConnectBefore+afterTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId+afterTableColumnInserted obj cb = connectTableColumnInserted obj cb SignalConnectAfter++connectTableColumnInserted :: (GObject a, MonadIO m) =>+                              a -> TableColumnInsertedCallback -> SignalConnectMode -> m SignalHandlerId+connectTableColumnInserted obj cb after = liftIO $ do+    cb' <- mkTableColumnInsertedCallback (tableColumnInsertedCallbackWrapper cb)+    connectSignalFunPtr obj "column-inserted" cb' after++-- signal Table::column-reordered+type TableColumnReorderedCallback =+    IO ()++noTableColumnReorderedCallback :: Maybe TableColumnReorderedCallback+noTableColumnReorderedCallback = Nothing++type TableColumnReorderedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTableColumnReorderedCallback :: TableColumnReorderedCallbackC -> IO (FunPtr TableColumnReorderedCallbackC)++tableColumnReorderedClosure :: TableColumnReorderedCallback -> IO Closure+tableColumnReorderedClosure cb = newCClosure =<< mkTableColumnReorderedCallback wrapped+    where wrapped = tableColumnReorderedCallbackWrapper cb++tableColumnReorderedCallbackWrapper ::+    TableColumnReorderedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+tableColumnReorderedCallbackWrapper _cb _ _ = do+    _cb ++onTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId+onTableColumnReordered obj cb = liftIO $ connectTableColumnReordered obj cb SignalConnectBefore+afterTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId+afterTableColumnReordered obj cb = connectTableColumnReordered obj cb SignalConnectAfter++connectTableColumnReordered :: (GObject a, MonadIO m) =>+                               a -> TableColumnReorderedCallback -> SignalConnectMode -> m SignalHandlerId+connectTableColumnReordered obj cb after = liftIO $ do+    cb' <- mkTableColumnReorderedCallback (tableColumnReorderedCallbackWrapper cb)+    connectSignalFunPtr obj "column-reordered" cb' after++-- signal Table::model-changed+type TableModelChangedCallback =+    IO ()++noTableModelChangedCallback :: Maybe TableModelChangedCallback+noTableModelChangedCallback = Nothing++type TableModelChangedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTableModelChangedCallback :: TableModelChangedCallbackC -> IO (FunPtr TableModelChangedCallbackC)++tableModelChangedClosure :: TableModelChangedCallback -> IO Closure+tableModelChangedClosure cb = newCClosure =<< mkTableModelChangedCallback wrapped+    where wrapped = tableModelChangedCallbackWrapper cb++tableModelChangedCallbackWrapper ::+    TableModelChangedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+tableModelChangedCallbackWrapper _cb _ _ = do+    _cb ++onTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId+onTableModelChanged obj cb = liftIO $ connectTableModelChanged obj cb SignalConnectBefore+afterTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId+afterTableModelChanged obj cb = connectTableModelChanged obj cb SignalConnectAfter++connectTableModelChanged :: (GObject a, MonadIO m) =>+                            a -> TableModelChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectTableModelChanged obj cb after = liftIO $ do+    cb' <- mkTableModelChangedCallback (tableModelChangedCallbackWrapper cb)+    connectSignalFunPtr obj "model-changed" cb' after++-- signal Table::row-deleted+type TableRowDeletedCallback =+    Int32 ->+    Int32 ->+    IO ()++noTableRowDeletedCallback :: Maybe TableRowDeletedCallback+noTableRowDeletedCallback = Nothing++type TableRowDeletedCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Int32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTableRowDeletedCallback :: TableRowDeletedCallbackC -> IO (FunPtr TableRowDeletedCallbackC)++tableRowDeletedClosure :: TableRowDeletedCallback -> IO Closure+tableRowDeletedClosure cb = newCClosure =<< mkTableRowDeletedCallback wrapped+    where wrapped = tableRowDeletedCallbackWrapper cb++tableRowDeletedCallbackWrapper ::+    TableRowDeletedCallback ->+    Ptr () ->+    Int32 ->+    Int32 ->+    Ptr () ->+    IO ()+tableRowDeletedCallbackWrapper _cb _ arg1 arg2 _ = do+    _cb  arg1 arg2++onTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId+onTableRowDeleted obj cb = liftIO $ connectTableRowDeleted obj cb SignalConnectBefore+afterTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId+afterTableRowDeleted obj cb = connectTableRowDeleted obj cb SignalConnectAfter++connectTableRowDeleted :: (GObject a, MonadIO m) =>+                          a -> TableRowDeletedCallback -> SignalConnectMode -> m SignalHandlerId+connectTableRowDeleted obj cb after = liftIO $ do+    cb' <- mkTableRowDeletedCallback (tableRowDeletedCallbackWrapper cb)+    connectSignalFunPtr obj "row-deleted" cb' after++-- signal Table::row-inserted+type TableRowInsertedCallback =+    Int32 ->+    Int32 ->+    IO ()++noTableRowInsertedCallback :: Maybe TableRowInsertedCallback+noTableRowInsertedCallback = Nothing++type TableRowInsertedCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Int32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTableRowInsertedCallback :: TableRowInsertedCallbackC -> IO (FunPtr TableRowInsertedCallbackC)++tableRowInsertedClosure :: TableRowInsertedCallback -> IO Closure+tableRowInsertedClosure cb = newCClosure =<< mkTableRowInsertedCallback wrapped+    where wrapped = tableRowInsertedCallbackWrapper cb++tableRowInsertedCallbackWrapper ::+    TableRowInsertedCallback ->+    Ptr () ->+    Int32 ->+    Int32 ->+    Ptr () ->+    IO ()+tableRowInsertedCallbackWrapper _cb _ arg1 arg2 _ = do+    _cb  arg1 arg2++onTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId+onTableRowInserted obj cb = liftIO $ connectTableRowInserted obj cb SignalConnectBefore+afterTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId+afterTableRowInserted obj cb = connectTableRowInserted obj cb SignalConnectAfter++connectTableRowInserted :: (GObject a, MonadIO m) =>+                           a -> TableRowInsertedCallback -> SignalConnectMode -> m SignalHandlerId+connectTableRowInserted obj cb after = liftIO $ do+    cb' <- mkTableRowInsertedCallback (tableRowInsertedCallbackWrapper cb)+    connectSignalFunPtr obj "row-inserted" cb' after++-- signal Table::row-reordered+type TableRowReorderedCallback =+    IO ()++noTableRowReorderedCallback :: Maybe TableRowReorderedCallback+noTableRowReorderedCallback = Nothing++type TableRowReorderedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTableRowReorderedCallback :: TableRowReorderedCallbackC -> IO (FunPtr TableRowReorderedCallbackC)++tableRowReorderedClosure :: TableRowReorderedCallback -> IO Closure+tableRowReorderedClosure cb = newCClosure =<< mkTableRowReorderedCallback wrapped+    where wrapped = tableRowReorderedCallbackWrapper cb++tableRowReorderedCallbackWrapper ::+    TableRowReorderedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+tableRowReorderedCallbackWrapper _cb _ _ = do+    _cb ++onTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId+onTableRowReordered obj cb = liftIO $ connectTableRowReordered obj cb SignalConnectBefore+afterTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId+afterTableRowReordered obj cb = connectTableRowReordered obj cb SignalConnectAfter++connectTableRowReordered :: (GObject a, MonadIO m) =>+                            a -> TableRowReorderedCallback -> SignalConnectMode -> m SignalHandlerId+connectTableRowReordered obj cb after = liftIO $ do+    cb' <- mkTableRowReorderedCallback (tableRowReorderedCallbackWrapper cb)+    connectSignalFunPtr obj "row-reordered" cb' after++type instance AttributeList Table = TableAttributeList+type TableAttributeList = ('[ ] :: [(Symbol, *)])++data TableColumnDeletedSignalInfo+instance SignalInfo TableColumnDeletedSignalInfo where+    type HaskellCallbackType TableColumnDeletedSignalInfo = TableColumnDeletedCallback+    connectSignal _ = connectTableColumnDeleted++data TableColumnInsertedSignalInfo+instance SignalInfo TableColumnInsertedSignalInfo where+    type HaskellCallbackType TableColumnInsertedSignalInfo = TableColumnInsertedCallback+    connectSignal _ = connectTableColumnInserted++data TableColumnReorderedSignalInfo+instance SignalInfo TableColumnReorderedSignalInfo where+    type HaskellCallbackType TableColumnReorderedSignalInfo = TableColumnReorderedCallback+    connectSignal _ = connectTableColumnReordered++data TableModelChangedSignalInfo+instance SignalInfo TableModelChangedSignalInfo where+    type HaskellCallbackType TableModelChangedSignalInfo = TableModelChangedCallback+    connectSignal _ = connectTableModelChanged++data TableRowDeletedSignalInfo+instance SignalInfo TableRowDeletedSignalInfo where+    type HaskellCallbackType TableRowDeletedSignalInfo = TableRowDeletedCallback+    connectSignal _ = connectTableRowDeleted++data TableRowInsertedSignalInfo+instance SignalInfo TableRowInsertedSignalInfo where+    type HaskellCallbackType TableRowInsertedSignalInfo = TableRowInsertedCallback+    connectSignal _ = connectTableRowInserted++data TableRowReorderedSignalInfo+instance SignalInfo TableRowReorderedSignalInfo where+    type HaskellCallbackType TableRowReorderedSignalInfo = TableRowReorderedCallback+    connectSignal _ = connectTableRowReordered++type instance SignalList Table = TableSignalList+type TableSignalList = ('[ '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo)] :: [(Symbol, *)])++class ForeignPtrNewtype a => TableK a+instance (ForeignPtrNewtype o, IsDescendantOf Table o) => TableK o+type instance ParentTypes Table = TableParentTypes+type TableParentTypes = '[]++-- method Table::add_column_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_add_column_selection" atk_table_add_column_selection :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- column : TBasicType TInt32+    IO CInt+++tableAddColumnSelection ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- column+    m Bool+tableAddColumnSelection _obj column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_add_column_selection _obj' column+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Table::add_row_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_add_row_selection" atk_table_add_row_selection :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    IO CInt+++tableAddRowSelection ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    m Bool+tableAddRowSelection _obj row = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_add_row_selection _obj' row+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Table::get_caption+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_caption" atk_table_get_caption :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    IO (Ptr Object)+++tableGetCaption ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    m Object+tableGetCaption _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_caption _obj'+    checkUnexpectedReturnNULL "atk_table_get_caption" result+    result' <- (newObject Object) result+    touchManagedPtr _obj+    return result'++-- method Table::get_column_at_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_column_at_index" atk_table_get_column_at_index :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- index_ : TBasicType TInt32+    IO Int32++{-# DEPRECATED tableGetColumnAtIndex ["Since 2.12."]#-}+tableGetColumnAtIndex ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- index_+    m Int32+tableGetColumnAtIndex _obj index_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_column_at_index _obj' index_+    touchManagedPtr _obj+    return result++-- method Table::get_column_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_column_description" atk_table_get_column_description :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- column : TBasicType TInt32+    IO CString+++tableGetColumnDescription ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- column+    m T.Text+tableGetColumnDescription _obj column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_column_description _obj' column+    checkUnexpectedReturnNULL "atk_table_get_column_description" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Table::get_column_extent_at+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_column_extent_at" atk_table_get_column_extent_at :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    Int32 ->                                -- column : TBasicType TInt32+    IO Int32+++tableGetColumnExtentAt ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    Int32 ->                                -- column+    m Int32+tableGetColumnExtentAt _obj row column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_column_extent_at _obj' row column+    touchManagedPtr _obj+    return result++-- method Table::get_column_header+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_column_header" atk_table_get_column_header :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- column : TBasicType TInt32+    IO (Ptr Object)+++tableGetColumnHeader ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- column+    m Object+tableGetColumnHeader _obj column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_column_header _obj' column+    checkUnexpectedReturnNULL "atk_table_get_column_header" result+    result' <- (newObject Object) result+    touchManagedPtr _obj+    return result'++-- method Table::get_index_at+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_index_at" atk_table_get_index_at :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    Int32 ->                                -- column : TBasicType TInt32+    IO Int32++{-# DEPRECATED tableGetIndexAt ["Since 2.12. Use atk_table_ref_at() in order to get the","accessible that represents the cell at (@row, @column)"]#-}+tableGetIndexAt ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    Int32 ->                                -- column+    m Int32+tableGetIndexAt _obj row column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_index_at _obj' row column+    touchManagedPtr _obj+    return result++-- method Table::get_n_columns+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_n_columns" atk_table_get_n_columns :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    IO Int32+++tableGetNColumns ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    m Int32+tableGetNColumns _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_n_columns _obj'+    touchManagedPtr _obj+    return result++-- method Table::get_n_rows+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_n_rows" atk_table_get_n_rows :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    IO Int32+++tableGetNRows ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    m Int32+tableGetNRows _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_n_rows _obj'+    touchManagedPtr _obj+    return result++-- method Table::get_row_at_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_row_at_index" atk_table_get_row_at_index :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- index_ : TBasicType TInt32+    IO Int32++{-# DEPRECATED tableGetRowAtIndex ["since 2.12."]#-}+tableGetRowAtIndex ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- index_+    m Int32+tableGetRowAtIndex _obj index_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_row_at_index _obj' index_+    touchManagedPtr _obj+    return result++-- method Table::get_row_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_row_description" atk_table_get_row_description :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    IO CString+++tableGetRowDescription ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    m T.Text+tableGetRowDescription _obj row = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_row_description _obj' row+    checkUnexpectedReturnNULL "atk_table_get_row_description" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Table::get_row_extent_at+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_row_extent_at" atk_table_get_row_extent_at :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    Int32 ->                                -- column : TBasicType TInt32+    IO Int32+++tableGetRowExtentAt ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    Int32 ->                                -- column+    m Int32+tableGetRowExtentAt _obj row column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_row_extent_at _obj' row column+    touchManagedPtr _obj+    return result++-- method Table::get_row_header+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_row_header" atk_table_get_row_header :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    IO (Ptr Object)+++tableGetRowHeader ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    m Object+tableGetRowHeader _obj row = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_row_header _obj' row+    checkUnexpectedReturnNULL "atk_table_get_row_header" result+    result' <- (newObject Object) result+    touchManagedPtr _obj+    return result'++-- method Table::get_selected_columns+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_selected_columns" atk_table_get_selected_columns :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- selected : TBasicType TInt32+    IO Int32+++tableGetSelectedColumns ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- selected+    m Int32+tableGetSelectedColumns _obj selected = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_selected_columns _obj' selected+    touchManagedPtr _obj+    return result++-- method Table::get_selected_rows+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_selected_rows" atk_table_get_selected_rows :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- selected : TBasicType TInt32+    IO Int32+++tableGetSelectedRows ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- selected+    m Int32+tableGetSelectedRows _obj selected = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_selected_rows _obj' selected+    touchManagedPtr _obj+    return result++-- method Table::get_summary+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_get_summary" atk_table_get_summary :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    IO (Ptr Object)+++tableGetSummary ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    m Object+tableGetSummary _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_get_summary _obj'+    checkUnexpectedReturnNULL "atk_table_get_summary" result+    result' <- (wrapObject Object) result+    touchManagedPtr _obj+    return result'++-- method Table::is_column_selected+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_is_column_selected" atk_table_is_column_selected :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- column : TBasicType TInt32+    IO CInt+++tableIsColumnSelected ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- column+    m Bool+tableIsColumnSelected _obj column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_is_column_selected _obj' column+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Table::is_row_selected+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_is_row_selected" atk_table_is_row_selected :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    IO CInt+++tableIsRowSelected ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    m Bool+tableIsRowSelected _obj row = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_is_row_selected _obj' row+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Table::is_selected+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_is_selected" atk_table_is_selected :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    Int32 ->                                -- column : TBasicType TInt32+    IO CInt+++tableIsSelected ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    Int32 ->                                -- column+    m Bool+tableIsSelected _obj row column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_is_selected _obj' row column+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Table::ref_at+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_ref_at" atk_table_ref_at :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    Int32 ->                                -- column : TBasicType TInt32+    IO (Ptr Object)+++tableRefAt ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    Int32 ->                                -- column+    m Object+tableRefAt _obj row column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_ref_at _obj' row column+    checkUnexpectedReturnNULL "atk_table_ref_at" result+    result' <- (wrapObject Object) result+    touchManagedPtr _obj+    return result'++-- method Table::remove_column_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_remove_column_selection" atk_table_remove_column_selection :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- column : TBasicType TInt32+    IO CInt+++tableRemoveColumnSelection ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- column+    m Bool+tableRemoveColumnSelection _obj column = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_remove_column_selection _obj' column+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Table::remove_row_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_remove_row_selection" atk_table_remove_row_selection :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    IO CInt+++tableRemoveRowSelection ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    m Bool+tableRemoveRowSelection _obj row = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_remove_row_selection _obj' row+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Table::set_caption+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_set_caption" atk_table_set_caption :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Ptr Object ->                           -- caption : TInterface "Atk" "Object"+    IO ()+++tableSetCaption ::+    (MonadIO m, TableK a, ObjectK b) =>+    a ->                                    -- _obj+    b ->                                    -- caption+    m ()+tableSetCaption _obj caption = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let caption' = unsafeManagedPtrCastPtr caption+    atk_table_set_caption _obj' caption'+    touchManagedPtr _obj+    touchManagedPtr caption+    return ()++-- method Table::set_column_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_set_column_description" atk_table_set_column_description :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- column : TBasicType TInt32+    CString ->                              -- description : TBasicType TUTF8+    IO ()+++tableSetColumnDescription ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- column+    T.Text ->                               -- description+    m ()+tableSetColumnDescription _obj column description = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    description' <- textToCString description+    atk_table_set_column_description _obj' column description'+    touchManagedPtr _obj+    freeMem description'+    return ()++-- method Table::set_column_header+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_set_column_header" atk_table_set_column_header :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- column : TBasicType TInt32+    Ptr Object ->                           -- header : TInterface "Atk" "Object"+    IO ()+++tableSetColumnHeader ::+    (MonadIO m, TableK a, ObjectK b) =>+    a ->                                    -- _obj+    Int32 ->                                -- column+    b ->                                    -- header+    m ()+tableSetColumnHeader _obj column header = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let header' = unsafeManagedPtrCastPtr header+    atk_table_set_column_header _obj' column header'+    touchManagedPtr _obj+    touchManagedPtr header+    return ()++-- method Table::set_row_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_set_row_description" atk_table_set_row_description :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    CString ->                              -- description : TBasicType TUTF8+    IO ()+++tableSetRowDescription ::+    (MonadIO m, TableK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    T.Text ->                               -- description+    m ()+tableSetRowDescription _obj row description = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    description' <- textToCString description+    atk_table_set_row_description _obj' row description'+    touchManagedPtr _obj+    freeMem description'+    return ()++-- method Table::set_row_header+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_set_row_header" atk_table_set_row_header :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Int32 ->                                -- row : TBasicType TInt32+    Ptr Object ->                           -- header : TInterface "Atk" "Object"+    IO ()+++tableSetRowHeader ::+    (MonadIO m, TableK a, ObjectK b) =>+    a ->                                    -- _obj+    Int32 ->                                -- row+    b ->                                    -- header+    m ()+tableSetRowHeader _obj row header = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let header' = unsafeManagedPtrCastPtr header+    atk_table_set_row_header _obj' row header'+    touchManagedPtr _obj+    touchManagedPtr header+    return ()++-- method Table::set_summary+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_set_summary" atk_table_set_summary :: +    Ptr Table ->                            -- _obj : TInterface "Atk" "Table"+    Ptr Object ->                           -- accessible : TInterface "Atk" "Object"+    IO ()+++tableSetSummary ::+    (MonadIO m, TableK a, ObjectK b) =>+    a ->                                    -- _obj+    b ->                                    -- accessible+    m ()+tableSetSummary _obj accessible = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let accessible' = unsafeManagedPtrCastPtr accessible+    atk_table_set_summary _obj' accessible'+    touchManagedPtr _obj+    touchManagedPtr accessible+    return ()++
+ GI/Atk/Interfaces/Table.hs-boot view
@@ -0,0 +1,19 @@+module GI.Atk.Interfaces.Table where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Table = Table (ForeignPtr Table)+data TableColumnDeletedSignalInfo+data TableColumnInsertedSignalInfo+data TableColumnReorderedSignalInfo+data TableModelChangedSignalInfo+data TableRowDeletedSignalInfo+data TableRowInsertedSignalInfo+data TableRowReorderedSignalInfo+class ForeignPtrNewtype a => TableK a+instance (ForeignPtrNewtype o, IsDescendantOf Table o) => TableK o
+ GI/Atk/Interfaces/TableCell.hs view
@@ -0,0 +1,295 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.TableCell+    ( ++-- * Exported types+    TableCell(..)                           ,+    noTableCell                             ,+    TableCellK                              ,+    toTableCell                             ,+++ -- * Methods+-- ** tableCellGetColumnHeaderCells+    tableCellGetColumnHeaderCells           ,+++-- ** tableCellGetColumnSpan+    tableCellGetColumnSpan                  ,+++-- ** tableCellGetPosition+    tableCellGetPosition                    ,+++-- ** tableCellGetRowColumnSpan+    tableCellGetRowColumnSpan               ,+++-- ** tableCellGetRowHeaderCells+    tableCellGetRowHeaderCells              ,+++-- ** tableCellGetRowSpan+    tableCellGetRowSpan                     ,+++-- ** tableCellGetTable+    tableCellGetTable                       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++-- interface TableCell ++newtype TableCell = TableCell (ForeignPtr TableCell)+noTableCell :: Maybe TableCell+noTableCell = Nothing++type instance AttributeList TableCell = TableCellAttributeList+type TableCellAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])++type instance SignalList TableCell = TableCellSignalList+type TableCellSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++foreign import ccall "atk_table_cell_get_type"+    c_atk_table_cell_get_type :: IO GType++type instance ParentTypes TableCell = TableCellParentTypes+type TableCellParentTypes = '[Object, GObject.Object]++instance GObject TableCell where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_table_cell_get_type+    ++class GObject o => TableCellK o+instance (GObject o, IsDescendantOf TableCell o) => TableCellK o++toTableCell :: TableCellK o => o -> IO TableCell+toTableCell = unsafeCastTo TableCell++-- method TableCell::get_column_header_cells+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TPtrArray (TInterface "Atk" "Object")+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_cell_get_column_header_cells" atk_table_cell_get_column_header_cells :: +    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"+    IO (Ptr (GPtrArray (Ptr Object)))+++tableCellGetColumnHeaderCells ::+    (MonadIO m, TableCellK a) =>+    a ->                                    -- _obj+    m [Object]+tableCellGetColumnHeaderCells _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_cell_get_column_header_cells _obj'+    checkUnexpectedReturnNULL "atk_table_cell_get_column_header_cells" result+    result' <- unpackGPtrArray result+    result'' <- mapM (wrapObject Object) result'+    unrefPtrArray result+    touchManagedPtr _obj+    return result''++-- method TableCell::get_column_span+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_cell_get_column_span" atk_table_cell_get_column_span :: +    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"+    IO Int32+++tableCellGetColumnSpan ::+    (MonadIO m, TableCellK a) =>+    a ->                                    -- _obj+    m Int32+tableCellGetColumnSpan _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_cell_get_column_span _obj'+    touchManagedPtr _obj+    return result++-- method TableCell::get_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_cell_get_position" atk_table_cell_get_position :: +    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"+    Ptr Int32 ->                            -- row : TBasicType TInt32+    Ptr Int32 ->                            -- column : TBasicType TInt32+    IO CInt+++tableCellGetPosition ::+    (MonadIO m, TableCellK a) =>+    a ->                                    -- _obj+    m (Bool,Int32,Int32)+tableCellGetPosition _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    row <- allocMem :: IO (Ptr Int32)+    column <- allocMem :: IO (Ptr Int32)+    result <- atk_table_cell_get_position _obj' row column+    let result' = (/= 0) result+    row' <- peek row+    column' <- peek column+    touchManagedPtr _obj+    freeMem row+    freeMem column+    return (result', row', column')++-- method TableCell::get_row_column_span+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_cell_get_row_column_span" atk_table_cell_get_row_column_span :: +    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"+    Ptr Int32 ->                            -- row : TBasicType TInt32+    Ptr Int32 ->                            -- column : TBasicType TInt32+    Ptr Int32 ->                            -- row_span : TBasicType TInt32+    Ptr Int32 ->                            -- column_span : TBasicType TInt32+    IO CInt+++tableCellGetRowColumnSpan ::+    (MonadIO m, TableCellK a) =>+    a ->                                    -- _obj+    m (Bool,Int32,Int32,Int32,Int32)+tableCellGetRowColumnSpan _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    row <- allocMem :: IO (Ptr Int32)+    column <- allocMem :: IO (Ptr Int32)+    row_span <- allocMem :: IO (Ptr Int32)+    column_span <- allocMem :: IO (Ptr Int32)+    result <- atk_table_cell_get_row_column_span _obj' row column row_span column_span+    let result' = (/= 0) result+    row' <- peek row+    column' <- peek column+    row_span' <- peek row_span+    column_span' <- peek column_span+    touchManagedPtr _obj+    freeMem row+    freeMem column+    freeMem row_span+    freeMem column_span+    return (result', row', column', row_span', column_span')++-- method TableCell::get_row_header_cells+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TPtrArray (TInterface "Atk" "Object")+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_cell_get_row_header_cells" atk_table_cell_get_row_header_cells :: +    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"+    IO (Ptr (GPtrArray (Ptr Object)))+++tableCellGetRowHeaderCells ::+    (MonadIO m, TableCellK a) =>+    a ->                                    -- _obj+    m [Object]+tableCellGetRowHeaderCells _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_cell_get_row_header_cells _obj'+    checkUnexpectedReturnNULL "atk_table_cell_get_row_header_cells" result+    result' <- unpackGPtrArray result+    result'' <- mapM (wrapObject Object) result'+    unrefPtrArray result+    touchManagedPtr _obj+    return result''++-- method TableCell::get_row_span+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_cell_get_row_span" atk_table_cell_get_row_span :: +    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"+    IO Int32+++tableCellGetRowSpan ::+    (MonadIO m, TableCellK a) =>+    a ->                                    -- _obj+    m Int32+tableCellGetRowSpan _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_cell_get_row_span _obj'+    touchManagedPtr _obj+    return result++-- method TableCell::get_table+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_table_cell_get_table" atk_table_cell_get_table :: +    Ptr TableCell ->                        -- _obj : TInterface "Atk" "TableCell"+    IO (Ptr Object)+++tableCellGetTable ::+    (MonadIO m, TableCellK a) =>+    a ->                                    -- _obj+    m Object+tableCellGetTable _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_table_cell_get_table _obj'+    checkUnexpectedReturnNULL "atk_table_cell_get_table" result+    result' <- (wrapObject Object) result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Interfaces/TableCell.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Interfaces.TableCell where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype TableCell = TableCell (ForeignPtr TableCell)+instance GObject TableCell where+class GObject o => TableCellK o+instance (GObject o, IsDescendantOf TableCell o) => TableCellK o
+ GI/Atk/Interfaces/Text.hs view
@@ -0,0 +1,1140 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Text+    ( ++-- * Exported types+    Text(..)                                ,+    noText                                  ,+    TextK                                   ,+++ -- * Methods+-- ** textAddSelection+    textAddSelection                        ,+++-- ** textGetBoundedRanges+    textGetBoundedRanges                    ,+++-- ** textGetCaretOffset+    textGetCaretOffset                      ,+++-- ** textGetCharacterAtOffset+    textGetCharacterAtOffset                ,+++-- ** textGetCharacterCount+    textGetCharacterCount                   ,+++-- ** textGetCharacterExtents+    textGetCharacterExtents                 ,+++-- ** textGetDefaultAttributes+    textGetDefaultAttributes                ,+++-- ** textGetNSelections+    textGetNSelections                      ,+++-- ** textGetOffsetAtPoint+    textGetOffsetAtPoint                    ,+++-- ** textGetRangeExtents+    textGetRangeExtents                     ,+++-- ** textGetRunAttributes+    textGetRunAttributes                    ,+++-- ** textGetSelection+    textGetSelection                        ,+++-- ** textGetStringAtOffset+    textGetStringAtOffset                   ,+++-- ** textGetText+    textGetText                             ,+++-- ** textGetTextAfterOffset+    textGetTextAfterOffset                  ,+++-- ** textGetTextAtOffset+    textGetTextAtOffset                     ,+++-- ** textGetTextBeforeOffset+    textGetTextBeforeOffset                 ,+++-- ** textRemoveSelection+    textRemoveSelection                     ,+++-- ** textSetCaretOffset+    textSetCaretOffset                      ,+++-- ** textSetSelection+    textSetSelection                        ,+++++ -- * Signals+-- ** TextAttributesChanged+    TextTextAttributesChangedCallback       ,+    TextTextAttributesChangedCallbackC      ,+    TextTextAttributesChangedSignalInfo     ,+    afterTextTextAttributesChanged          ,+    mkTextTextAttributesChangedCallback     ,+    noTextTextAttributesChangedCallback     ,+    onTextTextAttributesChanged             ,+    textTextAttributesChangedCallbackWrapper,+    textTextAttributesChangedClosure        ,+++-- ** TextCaretMoved+    TextTextCaretMovedCallback              ,+    TextTextCaretMovedCallbackC             ,+    TextTextCaretMovedSignalInfo            ,+    afterTextTextCaretMoved                 ,+    mkTextTextCaretMovedCallback            ,+    noTextTextCaretMovedCallback            ,+    onTextTextCaretMoved                    ,+    textTextCaretMovedCallbackWrapper       ,+    textTextCaretMovedClosure               ,+++-- ** TextChanged+    TextTextChangedCallback                 ,+    TextTextChangedCallbackC                ,+    TextTextChangedSignalInfo               ,+    afterTextTextChanged                    ,+    mkTextTextChangedCallback               ,+    noTextTextChangedCallback               ,+    onTextTextChanged                       ,+    textTextChangedCallbackWrapper          ,+    textTextChangedClosure                  ,+++-- ** TextInsert+    TextTextInsertCallback                  ,+    TextTextInsertCallbackC                 ,+    TextTextInsertSignalInfo                ,+    afterTextTextInsert                     ,+    mkTextTextInsertCallback                ,+    noTextTextInsertCallback                ,+    onTextTextInsert                        ,+    textTextInsertCallbackWrapper           ,+    textTextInsertClosure                   ,+++-- ** TextRemove+    TextTextRemoveCallback                  ,+    TextTextRemoveCallbackC                 ,+    TextTextRemoveSignalInfo                ,+    afterTextTextRemove                     ,+    mkTextTextRemoveCallback                ,+    noTextTextRemoveCallback                ,+    onTextTextRemove                        ,+    textTextRemoveCallbackWrapper           ,+    textTextRemoveClosure                   ,+++-- ** TextSelectionChanged+    TextTextSelectionChangedCallback        ,+    TextTextSelectionChangedCallbackC       ,+    TextTextSelectionChangedSignalInfo      ,+    afterTextTextSelectionChanged           ,+    mkTextTextSelectionChangedCallback      ,+    noTextTextSelectionChangedCallback      ,+    onTextTextSelectionChanged              ,+    textTextSelectionChangedCallbackWrapper ,+    textTextSelectionChangedClosure         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface Text ++newtype Text = Text (ForeignPtr Text)+noText :: Maybe Text+noText = Nothing++-- signal Text::text-attributes-changed+type TextTextAttributesChangedCallback =+    IO ()++noTextTextAttributesChangedCallback :: Maybe TextTextAttributesChangedCallback+noTextTextAttributesChangedCallback = Nothing++type TextTextAttributesChangedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTextTextAttributesChangedCallback :: TextTextAttributesChangedCallbackC -> IO (FunPtr TextTextAttributesChangedCallbackC)++textTextAttributesChangedClosure :: TextTextAttributesChangedCallback -> IO Closure+textTextAttributesChangedClosure cb = newCClosure =<< mkTextTextAttributesChangedCallback wrapped+    where wrapped = textTextAttributesChangedCallbackWrapper cb++textTextAttributesChangedCallbackWrapper ::+    TextTextAttributesChangedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+textTextAttributesChangedCallbackWrapper _cb _ _ = do+    _cb ++onTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId+onTextTextAttributesChanged obj cb = liftIO $ connectTextTextAttributesChanged obj cb SignalConnectBefore+afterTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId+afterTextTextAttributesChanged obj cb = connectTextTextAttributesChanged obj cb SignalConnectAfter++connectTextTextAttributesChanged :: (GObject a, MonadIO m) =>+                                    a -> TextTextAttributesChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectTextTextAttributesChanged obj cb after = liftIO $ do+    cb' <- mkTextTextAttributesChangedCallback (textTextAttributesChangedCallbackWrapper cb)+    connectSignalFunPtr obj "text-attributes-changed" cb' after++-- signal Text::text-caret-moved+type TextTextCaretMovedCallback =+    Int32 ->+    IO ()++noTextTextCaretMovedCallback :: Maybe TextTextCaretMovedCallback+noTextTextCaretMovedCallback = Nothing++type TextTextCaretMovedCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTextTextCaretMovedCallback :: TextTextCaretMovedCallbackC -> IO (FunPtr TextTextCaretMovedCallbackC)++textTextCaretMovedClosure :: TextTextCaretMovedCallback -> IO Closure+textTextCaretMovedClosure cb = newCClosure =<< mkTextTextCaretMovedCallback wrapped+    where wrapped = textTextCaretMovedCallbackWrapper cb++textTextCaretMovedCallbackWrapper ::+    TextTextCaretMovedCallback ->+    Ptr () ->+    Int32 ->+    Ptr () ->+    IO ()+textTextCaretMovedCallbackWrapper _cb _ arg1 _ = do+    _cb  arg1++onTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId+onTextTextCaretMoved obj cb = liftIO $ connectTextTextCaretMoved obj cb SignalConnectBefore+afterTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId+afterTextTextCaretMoved obj cb = connectTextTextCaretMoved obj cb SignalConnectAfter++connectTextTextCaretMoved :: (GObject a, MonadIO m) =>+                             a -> TextTextCaretMovedCallback -> SignalConnectMode -> m SignalHandlerId+connectTextTextCaretMoved obj cb after = liftIO $ do+    cb' <- mkTextTextCaretMovedCallback (textTextCaretMovedCallbackWrapper cb)+    connectSignalFunPtr obj "text-caret-moved" cb' after++-- signal Text::text-changed+type TextTextChangedCallback =+    Int32 ->+    Int32 ->+    IO ()++noTextTextChangedCallback :: Maybe TextTextChangedCallback+noTextTextChangedCallback = Nothing++type TextTextChangedCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Int32 ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTextTextChangedCallback :: TextTextChangedCallbackC -> IO (FunPtr TextTextChangedCallbackC)++textTextChangedClosure :: TextTextChangedCallback -> IO Closure+textTextChangedClosure cb = newCClosure =<< mkTextTextChangedCallback wrapped+    where wrapped = textTextChangedCallbackWrapper cb++textTextChangedCallbackWrapper ::+    TextTextChangedCallback ->+    Ptr () ->+    Int32 ->+    Int32 ->+    Ptr () ->+    IO ()+textTextChangedCallbackWrapper _cb _ arg1 arg2 _ = do+    _cb  arg1 arg2++onTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId+onTextTextChanged obj cb = liftIO $ connectTextTextChanged obj cb SignalConnectBefore+afterTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId+afterTextTextChanged obj cb = connectTextTextChanged obj cb SignalConnectAfter++connectTextTextChanged :: (GObject a, MonadIO m) =>+                          a -> TextTextChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectTextTextChanged obj cb after = liftIO $ do+    cb' <- mkTextTextChangedCallback (textTextChangedCallbackWrapper cb)+    connectSignalFunPtr obj "text-changed" cb' after++-- signal Text::text-insert+type TextTextInsertCallback =+    Int32 ->+    Int32 ->+    T.Text ->+    IO ()++noTextTextInsertCallback :: Maybe TextTextInsertCallback+noTextTextInsertCallback = Nothing++type TextTextInsertCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Int32 ->+    CString ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTextTextInsertCallback :: TextTextInsertCallbackC -> IO (FunPtr TextTextInsertCallbackC)++textTextInsertClosure :: TextTextInsertCallback -> IO Closure+textTextInsertClosure cb = newCClosure =<< mkTextTextInsertCallback wrapped+    where wrapped = textTextInsertCallbackWrapper cb++textTextInsertCallbackWrapper ::+    TextTextInsertCallback ->+    Ptr () ->+    Int32 ->+    Int32 ->+    CString ->+    Ptr () ->+    IO ()+textTextInsertCallbackWrapper _cb _ arg1 arg2 arg3 _ = do+    arg3' <- cstringToText arg3+    _cb  arg1 arg2 arg3'++onTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId+onTextTextInsert obj cb = liftIO $ connectTextTextInsert obj cb SignalConnectBefore+afterTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId+afterTextTextInsert obj cb = connectTextTextInsert obj cb SignalConnectAfter++connectTextTextInsert :: (GObject a, MonadIO m) =>+                         a -> TextTextInsertCallback -> SignalConnectMode -> m SignalHandlerId+connectTextTextInsert obj cb after = liftIO $ do+    cb' <- mkTextTextInsertCallback (textTextInsertCallbackWrapper cb)+    connectSignalFunPtr obj "text-insert" cb' after++-- signal Text::text-remove+type TextTextRemoveCallback =+    Int32 ->+    Int32 ->+    T.Text ->+    IO ()++noTextTextRemoveCallback :: Maybe TextTextRemoveCallback+noTextTextRemoveCallback = Nothing++type TextTextRemoveCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Int32 ->+    CString ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTextTextRemoveCallback :: TextTextRemoveCallbackC -> IO (FunPtr TextTextRemoveCallbackC)++textTextRemoveClosure :: TextTextRemoveCallback -> IO Closure+textTextRemoveClosure cb = newCClosure =<< mkTextTextRemoveCallback wrapped+    where wrapped = textTextRemoveCallbackWrapper cb++textTextRemoveCallbackWrapper ::+    TextTextRemoveCallback ->+    Ptr () ->+    Int32 ->+    Int32 ->+    CString ->+    Ptr () ->+    IO ()+textTextRemoveCallbackWrapper _cb _ arg1 arg2 arg3 _ = do+    arg3' <- cstringToText arg3+    _cb  arg1 arg2 arg3'++onTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId+onTextTextRemove obj cb = liftIO $ connectTextTextRemove obj cb SignalConnectBefore+afterTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId+afterTextTextRemove obj cb = connectTextTextRemove obj cb SignalConnectAfter++connectTextTextRemove :: (GObject a, MonadIO m) =>+                         a -> TextTextRemoveCallback -> SignalConnectMode -> m SignalHandlerId+connectTextTextRemove obj cb after = liftIO $ do+    cb' <- mkTextTextRemoveCallback (textTextRemoveCallbackWrapper cb)+    connectSignalFunPtr obj "text-remove" cb' after++-- signal Text::text-selection-changed+type TextTextSelectionChangedCallback =+    IO ()++noTextTextSelectionChangedCallback :: Maybe TextTextSelectionChangedCallback+noTextTextSelectionChangedCallback = Nothing++type TextTextSelectionChangedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkTextTextSelectionChangedCallback :: TextTextSelectionChangedCallbackC -> IO (FunPtr TextTextSelectionChangedCallbackC)++textTextSelectionChangedClosure :: TextTextSelectionChangedCallback -> IO Closure+textTextSelectionChangedClosure cb = newCClosure =<< mkTextTextSelectionChangedCallback wrapped+    where wrapped = textTextSelectionChangedCallbackWrapper cb++textTextSelectionChangedCallbackWrapper ::+    TextTextSelectionChangedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+textTextSelectionChangedCallbackWrapper _cb _ _ = do+    _cb ++onTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId+onTextTextSelectionChanged obj cb = liftIO $ connectTextTextSelectionChanged obj cb SignalConnectBefore+afterTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId+afterTextTextSelectionChanged obj cb = connectTextTextSelectionChanged obj cb SignalConnectAfter++connectTextTextSelectionChanged :: (GObject a, MonadIO m) =>+                                   a -> TextTextSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectTextTextSelectionChanged obj cb after = liftIO $ do+    cb' <- mkTextTextSelectionChangedCallback (textTextSelectionChangedCallbackWrapper cb)+    connectSignalFunPtr obj "text-selection-changed" cb' after++type instance AttributeList Text = TextAttributeList+type TextAttributeList = ('[ ] :: [(Symbol, *)])++data TextTextAttributesChangedSignalInfo+instance SignalInfo TextTextAttributesChangedSignalInfo where+    type HaskellCallbackType TextTextAttributesChangedSignalInfo = TextTextAttributesChangedCallback+    connectSignal _ = connectTextTextAttributesChanged++data TextTextCaretMovedSignalInfo+instance SignalInfo TextTextCaretMovedSignalInfo where+    type HaskellCallbackType TextTextCaretMovedSignalInfo = TextTextCaretMovedCallback+    connectSignal _ = connectTextTextCaretMoved++data TextTextChangedSignalInfo+instance SignalInfo TextTextChangedSignalInfo where+    type HaskellCallbackType TextTextChangedSignalInfo = TextTextChangedCallback+    connectSignal _ = connectTextTextChanged++data TextTextInsertSignalInfo+instance SignalInfo TextTextInsertSignalInfo where+    type HaskellCallbackType TextTextInsertSignalInfo = TextTextInsertCallback+    connectSignal _ = connectTextTextInsert++data TextTextRemoveSignalInfo+instance SignalInfo TextTextRemoveSignalInfo where+    type HaskellCallbackType TextTextRemoveSignalInfo = TextTextRemoveCallback+    connectSignal _ = connectTextTextRemove++data TextTextSelectionChangedSignalInfo+instance SignalInfo TextTextSelectionChangedSignalInfo where+    type HaskellCallbackType TextTextSelectionChangedSignalInfo = TextTextSelectionChangedCallback+    connectSignal _ = connectTextTextSelectionChanged++type instance SignalList Text = TextSignalList+type TextSignalList = ('[ '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo)] :: [(Symbol, *)])++class ForeignPtrNewtype a => TextK a+instance (ForeignPtrNewtype o, IsDescendantOf Text o) => TextK o+type instance ParentTypes Text = TextParentTypes+type TextParentTypes = '[]++-- method Text::add_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_add_selection" atk_text_add_selection :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- start_offset : TBasicType TInt32+    Int32 ->                                -- end_offset : TBasicType TInt32+    IO CInt+++textAddSelection ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- start_offset+    Int32 ->                                -- end_offset+    m Bool+textAddSelection _obj start_offset end_offset = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_add_selection _obj' start_offset end_offset+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Text::get_bounded_ranges+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TInterface "Atk" "TextRange")+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_bounded_ranges" atk_text_get_bounded_ranges :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Ptr TextRectangle ->                    -- rect : TInterface "Atk" "TextRectangle"+    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"+    CUInt ->                                -- x_clip_type : TInterface "Atk" "TextClipType"+    CUInt ->                                -- y_clip_type : TInterface "Atk" "TextClipType"+    IO (Ptr (Ptr TextRange))+++textGetBoundedRanges ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    TextRectangle ->                        -- rect+    CoordType ->                            -- coord_type+    TextClipType ->                         -- x_clip_type+    TextClipType ->                         -- y_clip_type+    m [TextRange]+textGetBoundedRanges _obj rect coord_type x_clip_type y_clip_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let rect' = unsafeManagedPtrGetPtr rect+    let coord_type' = (fromIntegral . fromEnum) coord_type+    let x_clip_type' = (fromIntegral . fromEnum) x_clip_type+    let y_clip_type' = (fromIntegral . fromEnum) y_clip_type+    result <- atk_text_get_bounded_ranges _obj' rect' coord_type' x_clip_type' y_clip_type'+    checkUnexpectedReturnNULL "atk_text_get_bounded_ranges" result+    result' <- unpackZeroTerminatedPtrArray result+    result'' <- mapM (wrapBoxed TextRange) result'+    freeMem result+    touchManagedPtr _obj+    touchManagedPtr rect+    return result''++-- method Text::get_caret_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_caret_offset" atk_text_get_caret_offset :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    IO Int32+++textGetCaretOffset ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    m Int32+textGetCaretOffset _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_get_caret_offset _obj'+    touchManagedPtr _obj+    return result++-- method Text::get_character_at_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUniChar+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_character_at_offset" atk_text_get_character_at_offset :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- offset : TBasicType TInt32+    IO CInt+++textGetCharacterAtOffset ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- offset+    m Char+textGetCharacterAtOffset _obj offset = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_get_character_at_offset _obj' offset+    let result' = (chr . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Text::get_character_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_character_count" atk_text_get_character_count :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    IO Int32+++textGetCharacterCount ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    m Int32+textGetCharacterCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_get_character_count _obj'+    touchManagedPtr _obj+    return result++-- method Text::get_character_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_character_extents" atk_text_get_character_extents :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- offset : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    CUInt ->                                -- coords : TInterface "Atk" "CoordType"+    IO ()+++textGetCharacterExtents ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- offset+    Int32 ->                                -- x+    Int32 ->                                -- y+    Int32 ->                                -- width+    Int32 ->                                -- height+    CoordType ->                            -- coords+    m ()+textGetCharacterExtents _obj offset x y width height coords = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coords' = (fromIntegral . fromEnum) coords+    atk_text_get_character_extents _obj' offset x y width height coords'+    touchManagedPtr _obj+    return ()++-- method Text::get_default_attributes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TBasicType TVoid)+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_default_attributes" atk_text_get_default_attributes :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    IO (Ptr (GSList (Ptr ())))+++textGetDefaultAttributes ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    m [Ptr ()]+textGetDefaultAttributes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_get_default_attributes _obj'+    checkUnexpectedReturnNULL "atk_text_get_default_attributes" result+    result' <- unpackGSList result+    g_slist_free result+    touchManagedPtr _obj+    return result'++-- method Text::get_n_selections+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_n_selections" atk_text_get_n_selections :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    IO Int32+++textGetNSelections ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    m Int32+textGetNSelections _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_get_n_selections _obj'+    touchManagedPtr _obj+    return result++-- method Text::get_offset_at_point+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_offset_at_point" atk_text_get_offset_at_point :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    CUInt ->                                -- coords : TInterface "Atk" "CoordType"+    IO Int32+++textGetOffsetAtPoint ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    CoordType ->                            -- coords+    m Int32+textGetOffsetAtPoint _obj x y coords = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coords' = (fromIntegral . fromEnum) coords+    result <- atk_text_get_offset_at_point _obj' x y coords'+    touchManagedPtr _obj+    return result++-- method Text::get_range_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_range_extents" atk_text_get_range_extents :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- start_offset : TBasicType TInt32+    Int32 ->                                -- end_offset : TBasicType TInt32+    CUInt ->                                -- coord_type : TInterface "Atk" "CoordType"+    Ptr TextRectangle ->                    -- rect : TInterface "Atk" "TextRectangle"+    IO ()+++textGetRangeExtents ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- start_offset+    Int32 ->                                -- end_offset+    CoordType ->                            -- coord_type+    TextRectangle ->                        -- rect+    m ()+textGetRangeExtents _obj start_offset end_offset coord_type rect = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let coord_type' = (fromIntegral . fromEnum) coord_type+    let rect' = unsafeManagedPtrGetPtr rect+    atk_text_get_range_extents _obj' start_offset end_offset coord_type' rect'+    touchManagedPtr _obj+    touchManagedPtr rect+    return ()++-- method Text::get_run_attributes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TBasicType TVoid)+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_run_attributes" atk_text_get_run_attributes :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- offset : TBasicType TInt32+    Ptr Int32 ->                            -- start_offset : TBasicType TInt32+    Ptr Int32 ->                            -- end_offset : TBasicType TInt32+    IO (Ptr (GSList (Ptr ())))+++textGetRunAttributes ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- offset+    m ([Ptr ()],Int32,Int32)+textGetRunAttributes _obj offset = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    start_offset <- allocMem :: IO (Ptr Int32)+    end_offset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_run_attributes _obj' offset start_offset end_offset+    checkUnexpectedReturnNULL "atk_text_get_run_attributes" result+    result' <- unpackGSList result+    g_slist_free result+    start_offset' <- peek start_offset+    end_offset' <- peek end_offset+    touchManagedPtr _obj+    freeMem start_offset+    freeMem end_offset+    return (result', start_offset', end_offset')++-- method Text::get_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_selection" atk_text_get_selection :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- selection_num : TBasicType TInt32+    Ptr Int32 ->                            -- start_offset : TBasicType TInt32+    Ptr Int32 ->                            -- end_offset : TBasicType TInt32+    IO CString+++textGetSelection ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- selection_num+    m (T.Text,Int32,Int32)+textGetSelection _obj selection_num = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    start_offset <- allocMem :: IO (Ptr Int32)+    end_offset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_selection _obj' selection_num start_offset end_offset+    checkUnexpectedReturnNULL "atk_text_get_selection" result+    result' <- cstringToText result+    freeMem result+    start_offset' <- peek start_offset+    end_offset' <- peek end_offset+    touchManagedPtr _obj+    freeMem start_offset+    freeMem end_offset+    return (result', start_offset', end_offset')++-- method Text::get_string_at_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_string_at_offset" atk_text_get_string_at_offset :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- offset : TBasicType TInt32+    CUInt ->                                -- granularity : TInterface "Atk" "TextGranularity"+    Ptr Int32 ->                            -- start_offset : TBasicType TInt32+    Ptr Int32 ->                            -- end_offset : TBasicType TInt32+    IO CString+++textGetStringAtOffset ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- offset+    TextGranularity ->                      -- granularity+    m (T.Text,Int32,Int32)+textGetStringAtOffset _obj offset granularity = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let granularity' = (fromIntegral . fromEnum) granularity+    start_offset <- allocMem :: IO (Ptr Int32)+    end_offset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_string_at_offset _obj' offset granularity' start_offset end_offset+    checkUnexpectedReturnNULL "atk_text_get_string_at_offset" result+    result' <- cstringToText result+    freeMem result+    start_offset' <- peek start_offset+    end_offset' <- peek end_offset+    touchManagedPtr _obj+    freeMem start_offset+    freeMem end_offset+    return (result', start_offset', end_offset')++-- method Text::get_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_text" atk_text_get_text :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- start_offset : TBasicType TInt32+    Int32 ->                                -- end_offset : TBasicType TInt32+    IO CString+++textGetText ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- start_offset+    Int32 ->                                -- end_offset+    m T.Text+textGetText _obj start_offset end_offset = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_get_text _obj' start_offset end_offset+    checkUnexpectedReturnNULL "atk_text_get_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method Text::get_text_after_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_text_after_offset" atk_text_get_text_after_offset :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- offset : TBasicType TInt32+    CUInt ->                                -- boundary_type : TInterface "Atk" "TextBoundary"+    Ptr Int32 ->                            -- start_offset : TBasicType TInt32+    Ptr Int32 ->                            -- end_offset : TBasicType TInt32+    IO CString++{-# DEPRECATED textGetTextAfterOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-}+textGetTextAfterOffset ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- offset+    TextBoundary ->                         -- boundary_type+    m (T.Text,Int32,Int32)+textGetTextAfterOffset _obj offset boundary_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let boundary_type' = (fromIntegral . fromEnum) boundary_type+    start_offset <- allocMem :: IO (Ptr Int32)+    end_offset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_text_after_offset _obj' offset boundary_type' start_offset end_offset+    checkUnexpectedReturnNULL "atk_text_get_text_after_offset" result+    result' <- cstringToText result+    freeMem result+    start_offset' <- peek start_offset+    end_offset' <- peek end_offset+    touchManagedPtr _obj+    freeMem start_offset+    freeMem end_offset+    return (result', start_offset', end_offset')++-- method Text::get_text_at_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_text_at_offset" atk_text_get_text_at_offset :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- offset : TBasicType TInt32+    CUInt ->                                -- boundary_type : TInterface "Atk" "TextBoundary"+    Ptr Int32 ->                            -- start_offset : TBasicType TInt32+    Ptr Int32 ->                            -- end_offset : TBasicType TInt32+    IO CString++{-# DEPRECATED textGetTextAtOffset ["This method is deprecated since ATK version","2.9.4. Please use atk_text_get_string_at_offset() instead."]#-}+textGetTextAtOffset ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- offset+    TextBoundary ->                         -- boundary_type+    m (T.Text,Int32,Int32)+textGetTextAtOffset _obj offset boundary_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let boundary_type' = (fromIntegral . fromEnum) boundary_type+    start_offset <- allocMem :: IO (Ptr Int32)+    end_offset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_text_at_offset _obj' offset boundary_type' start_offset end_offset+    checkUnexpectedReturnNULL "atk_text_get_text_at_offset" result+    result' <- cstringToText result+    freeMem result+    start_offset' <- peek start_offset+    end_offset' <- peek end_offset+    touchManagedPtr _obj+    freeMem start_offset+    freeMem end_offset+    return (result', start_offset', end_offset')++-- method Text::get_text_before_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_get_text_before_offset" atk_text_get_text_before_offset :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- offset : TBasicType TInt32+    CUInt ->                                -- boundary_type : TInterface "Atk" "TextBoundary"+    Ptr Int32 ->                            -- start_offset : TBasicType TInt32+    Ptr Int32 ->                            -- end_offset : TBasicType TInt32+    IO CString++{-# DEPRECATED textGetTextBeforeOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-}+textGetTextBeforeOffset ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- offset+    TextBoundary ->                         -- boundary_type+    m (T.Text,Int32,Int32)+textGetTextBeforeOffset _obj offset boundary_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let boundary_type' = (fromIntegral . fromEnum) boundary_type+    start_offset <- allocMem :: IO (Ptr Int32)+    end_offset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_text_before_offset _obj' offset boundary_type' start_offset end_offset+    checkUnexpectedReturnNULL "atk_text_get_text_before_offset" result+    result' <- cstringToText result+    freeMem result+    start_offset' <- peek start_offset+    end_offset' <- peek end_offset+    touchManagedPtr _obj+    freeMem start_offset+    freeMem end_offset+    return (result', start_offset', end_offset')++-- method Text::remove_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_remove_selection" atk_text_remove_selection :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- selection_num : TBasicType TInt32+    IO CInt+++textRemoveSelection ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- selection_num+    m Bool+textRemoveSelection _obj selection_num = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_remove_selection _obj' selection_num+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Text::set_caret_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_set_caret_offset" atk_text_set_caret_offset :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- offset : TBasicType TInt32+    IO CInt+++textSetCaretOffset ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- offset+    m Bool+textSetCaretOffset _obj offset = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_set_caret_offset _obj' offset+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Text::set_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_set_selection" atk_text_set_selection :: +    Ptr Text ->                             -- _obj : TInterface "Atk" "Text"+    Int32 ->                                -- selection_num : TBasicType TInt32+    Int32 ->                                -- start_offset : TBasicType TInt32+    Int32 ->                                -- end_offset : TBasicType TInt32+    IO CInt+++textSetSelection ::+    (MonadIO m, TextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- selection_num+    Int32 ->                                -- start_offset+    Int32 ->                                -- end_offset+    m Bool+textSetSelection _obj selection_num start_offset end_offset = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_text_set_selection _obj' selection_num start_offset end_offset+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Interfaces/Text.hs-boot view
@@ -0,0 +1,18 @@+module GI.Atk.Interfaces.Text where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Text = Text (ForeignPtr Text)+data TextTextAttributesChangedSignalInfo+data TextTextCaretMovedSignalInfo+data TextTextChangedSignalInfo+data TextTextInsertSignalInfo+data TextTextRemoveSignalInfo+data TextTextSelectionChangedSignalInfo+class ForeignPtrNewtype a => TextK a+instance (ForeignPtrNewtype o, IsDescendantOf Text o) => TextK o
+ GI/Atk/Interfaces/Value.hs view
@@ -0,0 +1,437 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Value+    ( ++-- * Exported types+    Value(..)                               ,+    noValue                                 ,+    ValueK                                  ,+++ -- * Methods+-- ** valueGetCurrentValue+    valueGetCurrentValue                    ,+++-- ** valueGetIncrement+    valueGetIncrement                       ,+++-- ** valueGetMaximumValue+    valueGetMaximumValue                    ,+++-- ** valueGetMinimumIncrement+    valueGetMinimumIncrement                ,+++-- ** valueGetMinimumValue+    valueGetMinimumValue                    ,+++-- ** valueGetRange+    valueGetRange                           ,+++-- ** valueGetSubRanges+    valueGetSubRanges                       ,+++-- ** valueGetValueAndText+    valueGetValueAndText                    ,+++-- ** valueSetCurrentValue+    valueSetCurrentValue                    ,+++-- ** valueSetValue+    valueSetValue                           ,+++++ -- * Signals+-- ** ValueChanged+    ValueValueChangedCallback               ,+    ValueValueChangedCallbackC              ,+    ValueValueChangedSignalInfo             ,+    afterValueValueChanged                  ,+    mkValueValueChangedCallback             ,+    noValueValueChangedCallback             ,+    onValueValueChanged                     ,+    valueValueChangedCallbackWrapper        ,+    valueValueChangedClosure                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++-- interface Value ++newtype Value = Value (ForeignPtr Value)+noValue :: Maybe Value+noValue = Nothing++-- signal Value::value-changed+type ValueValueChangedCallback =+    Double ->+    T.Text ->+    IO ()++noValueValueChangedCallback :: Maybe ValueValueChangedCallback+noValueValueChangedCallback = Nothing++type ValueValueChangedCallbackC =+    Ptr () ->                               -- object+    CDouble ->+    CString ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkValueValueChangedCallback :: ValueValueChangedCallbackC -> IO (FunPtr ValueValueChangedCallbackC)++valueValueChangedClosure :: ValueValueChangedCallback -> IO Closure+valueValueChangedClosure cb = newCClosure =<< mkValueValueChangedCallback wrapped+    where wrapped = valueValueChangedCallbackWrapper cb++valueValueChangedCallbackWrapper ::+    ValueValueChangedCallback ->+    Ptr () ->+    CDouble ->+    CString ->+    Ptr () ->+    IO ()+valueValueChangedCallbackWrapper _cb _ value text _ = do+    let value' = realToFrac value+    text' <- cstringToText text+    _cb  value' text'++onValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId+onValueValueChanged obj cb = liftIO $ connectValueValueChanged obj cb SignalConnectBefore+afterValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId+afterValueValueChanged obj cb = connectValueValueChanged obj cb SignalConnectAfter++connectValueValueChanged :: (GObject a, MonadIO m) =>+                            a -> ValueValueChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectValueValueChanged obj cb after = liftIO $ do+    cb' <- mkValueValueChangedCallback (valueValueChangedCallbackWrapper cb)+    connectSignalFunPtr obj "value-changed" cb' after++type instance AttributeList Value = ValueAttributeList+type ValueAttributeList = ('[ ] :: [(Symbol, *)])++data ValueValueChangedSignalInfo+instance SignalInfo ValueValueChangedSignalInfo where+    type HaskellCallbackType ValueValueChangedSignalInfo = ValueValueChangedCallback+    connectSignal _ = connectValueValueChanged++type instance SignalList Value = ValueSignalList+type ValueSignalList = ('[ '("value-changed", ValueValueChangedSignalInfo)] :: [(Symbol, *)])++class ForeignPtrNewtype a => ValueK a+instance (ForeignPtrNewtype o, IsDescendantOf Value o) => ValueK o+type instance ParentTypes Value = ValueParentTypes+type ValueParentTypes = '[]++-- method Value::get_current_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_get_current_value" atk_value_get_current_value :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    Ptr GValue ->                           -- value : TInterface "GObject" "Value"+    IO ()++{-# DEPRECATED valueGetCurrentValue ["Since 2.12. Use atk_value_get_value_and_text()","instead."]#-}+valueGetCurrentValue ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    GValue ->                               -- value+    m ()+valueGetCurrentValue _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let value' = unsafeManagedPtrGetPtr value+    atk_value_get_current_value _obj' value'+    touchManagedPtr _obj+    touchManagedPtr value+    return ()++-- method Value::get_increment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_get_increment" atk_value_get_increment :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    IO CDouble+++valueGetIncrement ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    m Double+valueGetIncrement _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_value_get_increment _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method Value::get_maximum_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_get_maximum_value" atk_value_get_maximum_value :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    Ptr GValue ->                           -- value : TInterface "GObject" "Value"+    IO ()++{-# DEPRECATED valueGetMaximumValue ["Since 2.12. Use atk_value_get_range() instead."]#-}+valueGetMaximumValue ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    GValue ->                               -- value+    m ()+valueGetMaximumValue _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let value' = unsafeManagedPtrGetPtr value+    atk_value_get_maximum_value _obj' value'+    touchManagedPtr _obj+    touchManagedPtr value+    return ()++-- method Value::get_minimum_increment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_get_minimum_increment" atk_value_get_minimum_increment :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    Ptr GValue ->                           -- value : TInterface "GObject" "Value"+    IO ()++{-# DEPRECATED valueGetMinimumIncrement ["Since 2.12. Use atk_value_get_increment() instead."]#-}+valueGetMinimumIncrement ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    GValue ->                               -- value+    m ()+valueGetMinimumIncrement _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let value' = unsafeManagedPtrGetPtr value+    atk_value_get_minimum_increment _obj' value'+    touchManagedPtr _obj+    touchManagedPtr value+    return ()++-- method Value::get_minimum_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_get_minimum_value" atk_value_get_minimum_value :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    Ptr GValue ->                           -- value : TInterface "GObject" "Value"+    IO ()++{-# DEPRECATED valueGetMinimumValue ["Since 2.12. Use atk_value_get_range() instead."]#-}+valueGetMinimumValue ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    GValue ->                               -- value+    m ()+valueGetMinimumValue _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let value' = unsafeManagedPtrGetPtr value+    atk_value_get_minimum_value _obj' value'+    touchManagedPtr _obj+    touchManagedPtr value+    return ()++-- method Value::get_range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Range"+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_get_range" atk_value_get_range :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    IO (Ptr Range)+++valueGetRange ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    m Range+valueGetRange _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_value_get_range _obj'+    checkUnexpectedReturnNULL "atk_value_get_range" result+    result' <- (wrapBoxed Range) result+    touchManagedPtr _obj+    return result'++-- method Value::get_sub_ranges+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Atk" "Range")+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_get_sub_ranges" atk_value_get_sub_ranges :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    IO (Ptr (GSList (Ptr Range)))+++valueGetSubRanges ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    m [Range]+valueGetSubRanges _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_value_get_sub_ranges _obj'+    checkUnexpectedReturnNULL "atk_value_get_sub_ranges" result+    result' <- unpackGSList result+    result'' <- mapM (wrapBoxed Range) result'+    g_slist_free result+    touchManagedPtr _obj+    return result''++-- method Value::get_value_and_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_get_value_and_text" atk_value_get_value_and_text :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    Ptr CDouble ->                          -- value : TBasicType TDouble+    Ptr CString ->                          -- text : TBasicType TUTF8+    IO ()+++valueGetValueAndText ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    m (Double,T.Text)+valueGetValueAndText _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value <- allocMem :: IO (Ptr CDouble)+    text <- allocMem :: IO (Ptr CString)+    atk_value_get_value_and_text _obj' value text+    value' <- peek value+    let value'' = realToFrac value'+    text' <- peek text+    text'' <- cstringToText text'+    freeMem text'+    touchManagedPtr _obj+    freeMem value+    freeMem text+    return (value'', text'')++-- method Value::set_current_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_set_current_value" atk_value_set_current_value :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    Ptr GValue ->                           -- value : TInterface "GObject" "Value"+    IO CInt++{-# DEPRECATED valueSetCurrentValue ["Since 2.12. Use atk_value_set_value() instead."]#-}+valueSetCurrentValue ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    GValue ->                               -- value+    m Bool+valueSetCurrentValue _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let value' = unsafeManagedPtrGetPtr value+    result <- atk_value_set_current_value _obj' value'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr value+    return result'++-- method Value::set_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_value_set_value" atk_value_set_value :: +    Ptr Value ->                            -- _obj : TInterface "Atk" "Value"+    CDouble ->                              -- new_value : TBasicType TDouble+    IO ()+++valueSetValue ::+    (MonadIO m, ValueK a) =>+    a ->                                    -- _obj+    Double ->                               -- new_value+    m ()+valueSetValue _obj new_value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let new_value' = realToFrac new_value+    atk_value_set_value _obj' new_value'+    touchManagedPtr _obj+    return ()++
+ GI/Atk/Interfaces/Value.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Interfaces.Value where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Value = Value (ForeignPtr Value)+data ValueValueChangedSignalInfo+class ForeignPtrNewtype a => ValueK a+instance (ForeignPtrNewtype o, IsDescendantOf Value o) => ValueK o
+ GI/Atk/Interfaces/Window.hs view
@@ -0,0 +1,558 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Interfaces.Window+    ( ++-- * Exported types+    Window(..)                              ,+    noWindow                                ,+    WindowK                                 ,+    toWindow                                ,+++ -- * Signals+-- ** Activate+    WindowActivateCallback                  ,+    WindowActivateCallbackC                 ,+    WindowActivateSignalInfo                ,+    afterWindowActivate                     ,+    mkWindowActivateCallback                ,+    noWindowActivateCallback                ,+    onWindowActivate                        ,+    windowActivateCallbackWrapper           ,+    windowActivateClosure                   ,+++-- ** Create+    WindowCreateCallback                    ,+    WindowCreateCallbackC                   ,+    WindowCreateSignalInfo                  ,+    afterWindowCreate                       ,+    mkWindowCreateCallback                  ,+    noWindowCreateCallback                  ,+    onWindowCreate                          ,+    windowCreateCallbackWrapper             ,+    windowCreateClosure                     ,+++-- ** Deactivate+    WindowDeactivateCallback                ,+    WindowDeactivateCallbackC               ,+    WindowDeactivateSignalInfo              ,+    afterWindowDeactivate                   ,+    mkWindowDeactivateCallback              ,+    noWindowDeactivateCallback              ,+    onWindowDeactivate                      ,+    windowDeactivateCallbackWrapper         ,+    windowDeactivateClosure                 ,+++-- ** Destroy+    WindowDestroyCallback                   ,+    WindowDestroyCallbackC                  ,+    WindowDestroySignalInfo                 ,+    afterWindowDestroy                      ,+    mkWindowDestroyCallback                 ,+    noWindowDestroyCallback                 ,+    onWindowDestroy                         ,+    windowDestroyCallbackWrapper            ,+    windowDestroyClosure                    ,+++-- ** Maximize+    WindowMaximizeCallback                  ,+    WindowMaximizeCallbackC                 ,+    WindowMaximizeSignalInfo                ,+    afterWindowMaximize                     ,+    mkWindowMaximizeCallback                ,+    noWindowMaximizeCallback                ,+    onWindowMaximize                        ,+    windowMaximizeCallbackWrapper           ,+    windowMaximizeClosure                   ,+++-- ** Minimize+    WindowMinimizeCallback                  ,+    WindowMinimizeCallbackC                 ,+    WindowMinimizeSignalInfo                ,+    afterWindowMinimize                     ,+    mkWindowMinimizeCallback                ,+    noWindowMinimizeCallback                ,+    onWindowMinimize                        ,+    windowMinimizeCallbackWrapper           ,+    windowMinimizeClosure                   ,+++-- ** Move+    WindowMoveCallback                      ,+    WindowMoveCallbackC                     ,+    WindowMoveSignalInfo                    ,+    afterWindowMove                         ,+    mkWindowMoveCallback                    ,+    noWindowMoveCallback                    ,+    onWindowMove                            ,+    windowMoveCallbackWrapper               ,+    windowMoveClosure                       ,+++-- ** Resize+    WindowResizeCallback                    ,+    WindowResizeCallbackC                   ,+    WindowResizeSignalInfo                  ,+    afterWindowResize                       ,+    mkWindowResizeCallback                  ,+    noWindowResizeCallback                  ,+    onWindowResize                          ,+    windowResizeCallbackWrapper             ,+    windowResizeClosure                     ,+++-- ** Restore+    WindowRestoreCallback                   ,+    WindowRestoreCallbackC                  ,+    WindowRestoreSignalInfo                 ,+    afterWindowRestore                      ,+    mkWindowRestoreCallback                 ,+    noWindowRestoreCallback                 ,+    onWindowRestore                         ,+    windowRestoreCallbackWrapper            ,+    windowRestoreClosure                    ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++-- interface Window ++newtype Window = Window (ForeignPtr Window)+noWindow :: Maybe Window+noWindow = Nothing++-- signal Window::activate+type WindowActivateCallback =+    IO ()++noWindowActivateCallback :: Maybe WindowActivateCallback+noWindowActivateCallback = Nothing++type WindowActivateCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWindowActivateCallback :: WindowActivateCallbackC -> IO (FunPtr WindowActivateCallbackC)++windowActivateClosure :: WindowActivateCallback -> IO Closure+windowActivateClosure cb = newCClosure =<< mkWindowActivateCallback wrapped+    where wrapped = windowActivateCallbackWrapper cb++windowActivateCallbackWrapper ::+    WindowActivateCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+windowActivateCallbackWrapper _cb _ _ = do+    _cb ++onWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId+onWindowActivate obj cb = liftIO $ connectWindowActivate obj cb SignalConnectBefore+afterWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId+afterWindowActivate obj cb = connectWindowActivate obj cb SignalConnectAfter++connectWindowActivate :: (GObject a, MonadIO m) =>+                         a -> WindowActivateCallback -> SignalConnectMode -> m SignalHandlerId+connectWindowActivate obj cb after = liftIO $ do+    cb' <- mkWindowActivateCallback (windowActivateCallbackWrapper cb)+    connectSignalFunPtr obj "activate" cb' after++-- signal Window::create+type WindowCreateCallback =+    IO ()++noWindowCreateCallback :: Maybe WindowCreateCallback+noWindowCreateCallback = Nothing++type WindowCreateCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWindowCreateCallback :: WindowCreateCallbackC -> IO (FunPtr WindowCreateCallbackC)++windowCreateClosure :: WindowCreateCallback -> IO Closure+windowCreateClosure cb = newCClosure =<< mkWindowCreateCallback wrapped+    where wrapped = windowCreateCallbackWrapper cb++windowCreateCallbackWrapper ::+    WindowCreateCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+windowCreateCallbackWrapper _cb _ _ = do+    _cb ++onWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId+onWindowCreate obj cb = liftIO $ connectWindowCreate obj cb SignalConnectBefore+afterWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId+afterWindowCreate obj cb = connectWindowCreate obj cb SignalConnectAfter++connectWindowCreate :: (GObject a, MonadIO m) =>+                       a -> WindowCreateCallback -> SignalConnectMode -> m SignalHandlerId+connectWindowCreate obj cb after = liftIO $ do+    cb' <- mkWindowCreateCallback (windowCreateCallbackWrapper cb)+    connectSignalFunPtr obj "create" cb' after++-- signal Window::deactivate+type WindowDeactivateCallback =+    IO ()++noWindowDeactivateCallback :: Maybe WindowDeactivateCallback+noWindowDeactivateCallback = Nothing++type WindowDeactivateCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWindowDeactivateCallback :: WindowDeactivateCallbackC -> IO (FunPtr WindowDeactivateCallbackC)++windowDeactivateClosure :: WindowDeactivateCallback -> IO Closure+windowDeactivateClosure cb = newCClosure =<< mkWindowDeactivateCallback wrapped+    where wrapped = windowDeactivateCallbackWrapper cb++windowDeactivateCallbackWrapper ::+    WindowDeactivateCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+windowDeactivateCallbackWrapper _cb _ _ = do+    _cb ++onWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId+onWindowDeactivate obj cb = liftIO $ connectWindowDeactivate obj cb SignalConnectBefore+afterWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId+afterWindowDeactivate obj cb = connectWindowDeactivate obj cb SignalConnectAfter++connectWindowDeactivate :: (GObject a, MonadIO m) =>+                           a -> WindowDeactivateCallback -> SignalConnectMode -> m SignalHandlerId+connectWindowDeactivate obj cb after = liftIO $ do+    cb' <- mkWindowDeactivateCallback (windowDeactivateCallbackWrapper cb)+    connectSignalFunPtr obj "deactivate" cb' after++-- signal Window::destroy+type WindowDestroyCallback =+    IO ()++noWindowDestroyCallback :: Maybe WindowDestroyCallback+noWindowDestroyCallback = Nothing++type WindowDestroyCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWindowDestroyCallback :: WindowDestroyCallbackC -> IO (FunPtr WindowDestroyCallbackC)++windowDestroyClosure :: WindowDestroyCallback -> IO Closure+windowDestroyClosure cb = newCClosure =<< mkWindowDestroyCallback wrapped+    where wrapped = windowDestroyCallbackWrapper cb++windowDestroyCallbackWrapper ::+    WindowDestroyCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+windowDestroyCallbackWrapper _cb _ _ = do+    _cb ++onWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId+onWindowDestroy obj cb = liftIO $ connectWindowDestroy obj cb SignalConnectBefore+afterWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId+afterWindowDestroy obj cb = connectWindowDestroy obj cb SignalConnectAfter++connectWindowDestroy :: (GObject a, MonadIO m) =>+                        a -> WindowDestroyCallback -> SignalConnectMode -> m SignalHandlerId+connectWindowDestroy obj cb after = liftIO $ do+    cb' <- mkWindowDestroyCallback (windowDestroyCallbackWrapper cb)+    connectSignalFunPtr obj "destroy" cb' after++-- signal Window::maximize+type WindowMaximizeCallback =+    IO ()++noWindowMaximizeCallback :: Maybe WindowMaximizeCallback+noWindowMaximizeCallback = Nothing++type WindowMaximizeCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWindowMaximizeCallback :: WindowMaximizeCallbackC -> IO (FunPtr WindowMaximizeCallbackC)++windowMaximizeClosure :: WindowMaximizeCallback -> IO Closure+windowMaximizeClosure cb = newCClosure =<< mkWindowMaximizeCallback wrapped+    where wrapped = windowMaximizeCallbackWrapper cb++windowMaximizeCallbackWrapper ::+    WindowMaximizeCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+windowMaximizeCallbackWrapper _cb _ _ = do+    _cb ++onWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId+onWindowMaximize obj cb = liftIO $ connectWindowMaximize obj cb SignalConnectBefore+afterWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId+afterWindowMaximize obj cb = connectWindowMaximize obj cb SignalConnectAfter++connectWindowMaximize :: (GObject a, MonadIO m) =>+                         a -> WindowMaximizeCallback -> SignalConnectMode -> m SignalHandlerId+connectWindowMaximize obj cb after = liftIO $ do+    cb' <- mkWindowMaximizeCallback (windowMaximizeCallbackWrapper cb)+    connectSignalFunPtr obj "maximize" cb' after++-- signal Window::minimize+type WindowMinimizeCallback =+    IO ()++noWindowMinimizeCallback :: Maybe WindowMinimizeCallback+noWindowMinimizeCallback = Nothing++type WindowMinimizeCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWindowMinimizeCallback :: WindowMinimizeCallbackC -> IO (FunPtr WindowMinimizeCallbackC)++windowMinimizeClosure :: WindowMinimizeCallback -> IO Closure+windowMinimizeClosure cb = newCClosure =<< mkWindowMinimizeCallback wrapped+    where wrapped = windowMinimizeCallbackWrapper cb++windowMinimizeCallbackWrapper ::+    WindowMinimizeCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+windowMinimizeCallbackWrapper _cb _ _ = do+    _cb ++onWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId+onWindowMinimize obj cb = liftIO $ connectWindowMinimize obj cb SignalConnectBefore+afterWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId+afterWindowMinimize obj cb = connectWindowMinimize obj cb SignalConnectAfter++connectWindowMinimize :: (GObject a, MonadIO m) =>+                         a -> WindowMinimizeCallback -> SignalConnectMode -> m SignalHandlerId+connectWindowMinimize obj cb after = liftIO $ do+    cb' <- mkWindowMinimizeCallback (windowMinimizeCallbackWrapper cb)+    connectSignalFunPtr obj "minimize" cb' after++-- signal Window::move+type WindowMoveCallback =+    IO ()++noWindowMoveCallback :: Maybe WindowMoveCallback+noWindowMoveCallback = Nothing++type WindowMoveCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWindowMoveCallback :: WindowMoveCallbackC -> IO (FunPtr WindowMoveCallbackC)++windowMoveClosure :: WindowMoveCallback -> IO Closure+windowMoveClosure cb = newCClosure =<< mkWindowMoveCallback wrapped+    where wrapped = windowMoveCallbackWrapper cb++windowMoveCallbackWrapper ::+    WindowMoveCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+windowMoveCallbackWrapper _cb _ _ = do+    _cb ++onWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId+onWindowMove obj cb = liftIO $ connectWindowMove obj cb SignalConnectBefore+afterWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId+afterWindowMove obj cb = connectWindowMove obj cb SignalConnectAfter++connectWindowMove :: (GObject a, MonadIO m) =>+                     a -> WindowMoveCallback -> SignalConnectMode -> m SignalHandlerId+connectWindowMove obj cb after = liftIO $ do+    cb' <- mkWindowMoveCallback (windowMoveCallbackWrapper cb)+    connectSignalFunPtr obj "move" cb' after++-- signal Window::resize+type WindowResizeCallback =+    IO ()++noWindowResizeCallback :: Maybe WindowResizeCallback+noWindowResizeCallback = Nothing++type WindowResizeCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWindowResizeCallback :: WindowResizeCallbackC -> IO (FunPtr WindowResizeCallbackC)++windowResizeClosure :: WindowResizeCallback -> IO Closure+windowResizeClosure cb = newCClosure =<< mkWindowResizeCallback wrapped+    where wrapped = windowResizeCallbackWrapper cb++windowResizeCallbackWrapper ::+    WindowResizeCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+windowResizeCallbackWrapper _cb _ _ = do+    _cb ++onWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId+onWindowResize obj cb = liftIO $ connectWindowResize obj cb SignalConnectBefore+afterWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId+afterWindowResize obj cb = connectWindowResize obj cb SignalConnectAfter++connectWindowResize :: (GObject a, MonadIO m) =>+                       a -> WindowResizeCallback -> SignalConnectMode -> m SignalHandlerId+connectWindowResize obj cb after = liftIO $ do+    cb' <- mkWindowResizeCallback (windowResizeCallbackWrapper cb)+    connectSignalFunPtr obj "resize" cb' after++-- signal Window::restore+type WindowRestoreCallback =+    IO ()++noWindowRestoreCallback :: Maybe WindowRestoreCallback+noWindowRestoreCallback = Nothing++type WindowRestoreCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWindowRestoreCallback :: WindowRestoreCallbackC -> IO (FunPtr WindowRestoreCallbackC)++windowRestoreClosure :: WindowRestoreCallback -> IO Closure+windowRestoreClosure cb = newCClosure =<< mkWindowRestoreCallback wrapped+    where wrapped = windowRestoreCallbackWrapper cb++windowRestoreCallbackWrapper ::+    WindowRestoreCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+windowRestoreCallbackWrapper _cb _ _ = do+    _cb ++onWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId+onWindowRestore obj cb = liftIO $ connectWindowRestore obj cb SignalConnectBefore+afterWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId+afterWindowRestore obj cb = connectWindowRestore obj cb SignalConnectAfter++connectWindowRestore :: (GObject a, MonadIO m) =>+                        a -> WindowRestoreCallback -> SignalConnectMode -> m SignalHandlerId+connectWindowRestore obj cb after = liftIO $ do+    cb' <- mkWindowRestoreCallback (windowRestoreCallbackWrapper cb)+    connectSignalFunPtr obj "restore" cb' after++type instance AttributeList Window = WindowAttributeList+type WindowAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])++data WindowActivateSignalInfo+instance SignalInfo WindowActivateSignalInfo where+    type HaskellCallbackType WindowActivateSignalInfo = WindowActivateCallback+    connectSignal _ = connectWindowActivate++data WindowCreateSignalInfo+instance SignalInfo WindowCreateSignalInfo where+    type HaskellCallbackType WindowCreateSignalInfo = WindowCreateCallback+    connectSignal _ = connectWindowCreate++data WindowDeactivateSignalInfo+instance SignalInfo WindowDeactivateSignalInfo where+    type HaskellCallbackType WindowDeactivateSignalInfo = WindowDeactivateCallback+    connectSignal _ = connectWindowDeactivate++data WindowDestroySignalInfo+instance SignalInfo WindowDestroySignalInfo where+    type HaskellCallbackType WindowDestroySignalInfo = WindowDestroyCallback+    connectSignal _ = connectWindowDestroy++data WindowMaximizeSignalInfo+instance SignalInfo WindowMaximizeSignalInfo where+    type HaskellCallbackType WindowMaximizeSignalInfo = WindowMaximizeCallback+    connectSignal _ = connectWindowMaximize++data WindowMinimizeSignalInfo+instance SignalInfo WindowMinimizeSignalInfo where+    type HaskellCallbackType WindowMinimizeSignalInfo = WindowMinimizeCallback+    connectSignal _ = connectWindowMinimize++data WindowMoveSignalInfo+instance SignalInfo WindowMoveSignalInfo where+    type HaskellCallbackType WindowMoveSignalInfo = WindowMoveCallback+    connectSignal _ = connectWindowMove++data WindowResizeSignalInfo+instance SignalInfo WindowResizeSignalInfo where+    type HaskellCallbackType WindowResizeSignalInfo = WindowResizeCallback+    connectSignal _ = connectWindowResize++data WindowRestoreSignalInfo+instance SignalInfo WindowRestoreSignalInfo where+    type HaskellCallbackType WindowRestoreSignalInfo = WindowRestoreCallback+    connectSignal _ = connectWindowRestore++type instance SignalList Window = WindowSignalList+type WindowSignalList = ('[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++foreign import ccall "atk_window_get_type"+    c_atk_window_get_type :: IO GType++type instance ParentTypes Window = WindowParentTypes+type WindowParentTypes = '[Object, GObject.Object]++instance GObject Window where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_window_get_type+    ++class GObject o => WindowK o+instance (GObject o, IsDescendantOf Window o) => WindowK o++toWindow :: WindowK o => o -> IO Window+toWindow = unsafeCastTo Window++
+ GI/Atk/Interfaces/Window.hs-boot view
@@ -0,0 +1,22 @@+module GI.Atk.Interfaces.Window where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Window = Window (ForeignPtr Window)+data WindowActivateSignalInfo+data WindowCreateSignalInfo+data WindowDeactivateSignalInfo+data WindowDestroySignalInfo+data WindowMaximizeSignalInfo+data WindowMinimizeSignalInfo+data WindowMoveSignalInfo+data WindowResizeSignalInfo+data WindowRestoreSignalInfo+instance GObject Window where+class GObject o => WindowK o+instance (GObject o, IsDescendantOf Window o) => WindowK o
+ GI/Atk/Objects.hs view
@@ -0,0 +1,52 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects+    (     module GI.Atk.Objects.GObjectAccessible ,+    module GI.Atk.Objects.Hyperlink         ,+    module GI.Atk.Objects.Misc              ,+    module GI.Atk.Objects.NoOpObject        ,+    module GI.Atk.Objects.NoOpObjectFactory ,+    module GI.Atk.Objects.Object            ,+    module GI.Atk.Objects.ObjectFactory     ,+    module GI.Atk.Objects.Plug              ,+    module GI.Atk.Objects.Registry          ,+    module GI.Atk.Objects.Relation          ,+    module GI.Atk.Objects.RelationSet       ,+    module GI.Atk.Objects.Socket            ,+    module GI.Atk.Objects.StateSet          ,+    module GI.Atk.Objects.Util              ,+++    ) where++import GI.Atk.Objects.GObjectAccessible+import GI.Atk.Objects.Hyperlink+import GI.Atk.Objects.Misc+import GI.Atk.Objects.NoOpObject+import GI.Atk.Objects.NoOpObjectFactory+import GI.Atk.Objects.Object+import GI.Atk.Objects.ObjectFactory+import GI.Atk.Objects.Plug+import GI.Atk.Objects.Registry+import GI.Atk.Objects.Relation+import GI.Atk.Objects.RelationSet+import GI.Atk.Objects.Socket+import GI.Atk.Objects.StateSet+import GI.Atk.Objects.Util++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++
+ GI/Atk/Objects/GObjectAccessible.hs view
@@ -0,0 +1,121 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.GObjectAccessible+    ( ++-- * Exported types+    GObjectAccessible(..)                   ,+    GObjectAccessibleK                      ,+    toGObjectAccessible                     ,+    noGObjectAccessible                     ,+++ -- * Methods+-- ** gObjectAccessibleForObject+    gObjectAccessibleForObject              ,+++-- ** gObjectAccessibleGetObject+    gObjectAccessibleGetObject              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype GObjectAccessible = GObjectAccessible (ForeignPtr GObjectAccessible)+foreign import ccall "atk_gobject_accessible_get_type"+    c_atk_gobject_accessible_get_type :: IO GType++type instance ParentTypes GObjectAccessible = GObjectAccessibleParentTypes+type GObjectAccessibleParentTypes = '[Object, GObject.Object]++instance GObject GObjectAccessible where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_gobject_accessible_get_type+    ++class GObject o => GObjectAccessibleK o+instance (GObject o, IsDescendantOf GObjectAccessible o) => GObjectAccessibleK o++toGObjectAccessible :: GObjectAccessibleK o => o -> IO GObjectAccessible+toGObjectAccessible = unsafeCastTo GObjectAccessible++noGObjectAccessible :: Maybe GObjectAccessible+noGObjectAccessible = Nothing++type instance AttributeList GObjectAccessible = GObjectAccessibleAttributeList+type GObjectAccessibleAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])++type instance SignalList GObjectAccessible = GObjectAccessibleSignalList+type GObjectAccessibleSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method GObjectAccessible::get_object+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GObject" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_gobject_accessible_get_object" atk_gobject_accessible_get_object :: +    Ptr GObjectAccessible ->                -- _obj : TInterface "Atk" "GObjectAccessible"+    IO (Ptr GObject.Object)+++gObjectAccessibleGetObject ::+    (MonadIO m, GObjectAccessibleK a) =>+    a ->                                    -- _obj+    m GObject.Object+gObjectAccessibleGetObject _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_gobject_accessible_get_object _obj'+    checkUnexpectedReturnNULL "atk_gobject_accessible_get_object" result+    result' <- (newObject GObject.Object) result+    touchManagedPtr _obj+    return result'++-- method GObjectAccessible::for_object+-- method type : MemberFunction+-- Args : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_gobject_accessible_for_object" atk_gobject_accessible_for_object :: +    Ptr GObject.Object ->                   -- obj : TInterface "GObject" "Object"+    IO (Ptr Object)+++gObjectAccessibleForObject ::+    (MonadIO m, GObject.ObjectK a) =>+    a ->                                    -- obj+    m Object+gObjectAccessibleForObject obj = liftIO $ do+    let obj' = unsafeManagedPtrCastPtr obj+    result <- atk_gobject_accessible_for_object obj'+    checkUnexpectedReturnNULL "atk_gobject_accessible_for_object" result+    result' <- (newObject Object) result+    touchManagedPtr obj+    return result'++
+ GI/Atk/Objects/GObjectAccessible.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.GObjectAccessible where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype GObjectAccessible = GObjectAccessible (ForeignPtr GObjectAccessible)+instance GObject GObjectAccessible where+class GObject o => GObjectAccessibleK o+instance (GObject o, IsDescendantOf GObjectAccessible o) => GObjectAccessibleK o
+ GI/Atk/Objects/Hyperlink.hs view
@@ -0,0 +1,450 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.Hyperlink+    ( ++-- * Exported types+    Hyperlink(..)                           ,+    HyperlinkK                              ,+    toHyperlink                             ,+    noHyperlink                             ,+++ -- * Methods+-- ** hyperlinkGetEndIndex+    hyperlinkGetEndIndex                    ,+++-- ** hyperlinkGetNAnchors+    hyperlinkGetNAnchors                    ,+++-- ** hyperlinkGetObject+    hyperlinkGetObject                      ,+++-- ** hyperlinkGetStartIndex+    hyperlinkGetStartIndex                  ,+++-- ** hyperlinkGetUri+    hyperlinkGetUri                         ,+++-- ** hyperlinkIsInline+    hyperlinkIsInline                       ,+++-- ** hyperlinkIsSelectedLink+    hyperlinkIsSelectedLink                 ,+++-- ** hyperlinkIsValid+    hyperlinkIsValid                        ,+++++ -- * Properties+-- ** EndIndex+    HyperlinkEndIndexPropertyInfo           ,+    getHyperlinkEndIndex                    ,+++-- ** NumberOfAnchors+    HyperlinkNumberOfAnchorsPropertyInfo    ,+    getHyperlinkNumberOfAnchors             ,+++-- ** SelectedLink+    HyperlinkSelectedLinkPropertyInfo       ,+    getHyperlinkSelectedLink                ,+++-- ** StartIndex+    HyperlinkStartIndexPropertyInfo         ,+    getHyperlinkStartIndex                  ,+++++ -- * Signals+-- ** LinkActivated+    HyperlinkLinkActivatedCallback          ,+    HyperlinkLinkActivatedCallbackC         ,+    HyperlinkLinkActivatedSignalInfo        ,+    afterHyperlinkLinkActivated             ,+    hyperlinkLinkActivatedCallbackWrapper   ,+    hyperlinkLinkActivatedClosure           ,+    mkHyperlinkLinkActivatedCallback        ,+    noHyperlinkLinkActivatedCallback        ,+    onHyperlinkLinkActivated                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype Hyperlink = Hyperlink (ForeignPtr Hyperlink)+foreign import ccall "atk_hyperlink_get_type"+    c_atk_hyperlink_get_type :: IO GType++type instance ParentTypes Hyperlink = HyperlinkParentTypes+type HyperlinkParentTypes = '[GObject.Object, Action]++instance GObject Hyperlink where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_hyperlink_get_type+    ++class GObject o => HyperlinkK o+instance (GObject o, IsDescendantOf Hyperlink o) => HyperlinkK o++toHyperlink :: HyperlinkK o => o -> IO Hyperlink+toHyperlink = unsafeCastTo Hyperlink++noHyperlink :: Maybe Hyperlink+noHyperlink = Nothing++-- signal Hyperlink::link-activated+type HyperlinkLinkActivatedCallback =+    IO ()++noHyperlinkLinkActivatedCallback :: Maybe HyperlinkLinkActivatedCallback+noHyperlinkLinkActivatedCallback = Nothing++type HyperlinkLinkActivatedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkHyperlinkLinkActivatedCallback :: HyperlinkLinkActivatedCallbackC -> IO (FunPtr HyperlinkLinkActivatedCallbackC)++hyperlinkLinkActivatedClosure :: HyperlinkLinkActivatedCallback -> IO Closure+hyperlinkLinkActivatedClosure cb = newCClosure =<< mkHyperlinkLinkActivatedCallback wrapped+    where wrapped = hyperlinkLinkActivatedCallbackWrapper cb++hyperlinkLinkActivatedCallbackWrapper ::+    HyperlinkLinkActivatedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+hyperlinkLinkActivatedCallbackWrapper _cb _ _ = do+    _cb ++onHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId+onHyperlinkLinkActivated obj cb = liftIO $ connectHyperlinkLinkActivated obj cb SignalConnectBefore+afterHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId+afterHyperlinkLinkActivated obj cb = connectHyperlinkLinkActivated obj cb SignalConnectAfter++connectHyperlinkLinkActivated :: (GObject a, MonadIO m) =>+                                 a -> HyperlinkLinkActivatedCallback -> SignalConnectMode -> m SignalHandlerId+connectHyperlinkLinkActivated obj cb after = liftIO $ do+    cb' <- mkHyperlinkLinkActivatedCallback (hyperlinkLinkActivatedCallbackWrapper cb)+    connectSignalFunPtr obj "link-activated" cb' after++-- VVV Prop "end-index"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable]++getHyperlinkEndIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32+getHyperlinkEndIndex obj = liftIO $ getObjectPropertyCInt obj "end-index"++data HyperlinkEndIndexPropertyInfo+instance AttrInfo HyperlinkEndIndexPropertyInfo where+    type AttrAllowedOps HyperlinkEndIndexPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint HyperlinkEndIndexPropertyInfo = (~) ()+    type AttrBaseTypeConstraint HyperlinkEndIndexPropertyInfo = HyperlinkK+    type AttrGetType HyperlinkEndIndexPropertyInfo = Int32+    type AttrLabel HyperlinkEndIndexPropertyInfo = "Hyperlink::end-index"+    attrGet _ = getHyperlinkEndIndex+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "number-of-anchors"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable]++getHyperlinkNumberOfAnchors :: (MonadIO m, HyperlinkK o) => o -> m Int32+getHyperlinkNumberOfAnchors obj = liftIO $ getObjectPropertyCInt obj "number-of-anchors"++data HyperlinkNumberOfAnchorsPropertyInfo+instance AttrInfo HyperlinkNumberOfAnchorsPropertyInfo where+    type AttrAllowedOps HyperlinkNumberOfAnchorsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = HyperlinkK+    type AttrGetType HyperlinkNumberOfAnchorsPropertyInfo = Int32+    type AttrLabel HyperlinkNumberOfAnchorsPropertyInfo = "Hyperlink::number-of-anchors"+    attrGet _ = getHyperlinkNumberOfAnchors+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "selected-link"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getHyperlinkSelectedLink :: (MonadIO m, HyperlinkK o) => o -> m Bool+getHyperlinkSelectedLink obj = liftIO $ getObjectPropertyBool obj "selected-link"++data HyperlinkSelectedLinkPropertyInfo+instance AttrInfo HyperlinkSelectedLinkPropertyInfo where+    type AttrAllowedOps HyperlinkSelectedLinkPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint HyperlinkSelectedLinkPropertyInfo = (~) ()+    type AttrBaseTypeConstraint HyperlinkSelectedLinkPropertyInfo = HyperlinkK+    type AttrGetType HyperlinkSelectedLinkPropertyInfo = Bool+    type AttrLabel HyperlinkSelectedLinkPropertyInfo = "Hyperlink::selected-link"+    attrGet _ = getHyperlinkSelectedLink+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "start-index"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable]++getHyperlinkStartIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32+getHyperlinkStartIndex obj = liftIO $ getObjectPropertyCInt obj "start-index"++data HyperlinkStartIndexPropertyInfo+instance AttrInfo HyperlinkStartIndexPropertyInfo where+    type AttrAllowedOps HyperlinkStartIndexPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint HyperlinkStartIndexPropertyInfo = (~) ()+    type AttrBaseTypeConstraint HyperlinkStartIndexPropertyInfo = HyperlinkK+    type AttrGetType HyperlinkStartIndexPropertyInfo = Int32+    type AttrLabel HyperlinkStartIndexPropertyInfo = "Hyperlink::start-index"+    attrGet _ = getHyperlinkStartIndex+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList Hyperlink = HyperlinkAttributeList+type HyperlinkAttributeList = ('[ '("end-index", HyperlinkEndIndexPropertyInfo), '("number-of-anchors", HyperlinkNumberOfAnchorsPropertyInfo), '("selected-link", HyperlinkSelectedLinkPropertyInfo), '("start-index", HyperlinkStartIndexPropertyInfo)] :: [(Symbol, *)])++data HyperlinkLinkActivatedSignalInfo+instance SignalInfo HyperlinkLinkActivatedSignalInfo where+    type HaskellCallbackType HyperlinkLinkActivatedSignalInfo = HyperlinkLinkActivatedCallback+    connectSignal _ = connectHyperlinkLinkActivated++type instance SignalList Hyperlink = HyperlinkSignalList+type HyperlinkSignalList = ('[ '("link-activated", HyperlinkLinkActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Hyperlink::get_end_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_hyperlink_get_end_index" atk_hyperlink_get_end_index :: +    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"+    IO Int32+++hyperlinkGetEndIndex ::+    (MonadIO m, HyperlinkK a) =>+    a ->                                    -- _obj+    m Int32+hyperlinkGetEndIndex _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hyperlink_get_end_index _obj'+    touchManagedPtr _obj+    return result++-- method Hyperlink::get_n_anchors+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_hyperlink_get_n_anchors" atk_hyperlink_get_n_anchors :: +    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"+    IO Int32+++hyperlinkGetNAnchors ::+    (MonadIO m, HyperlinkK a) =>+    a ->                                    -- _obj+    m Int32+hyperlinkGetNAnchors _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hyperlink_get_n_anchors _obj'+    touchManagedPtr _obj+    return result++-- method Hyperlink::get_object+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_hyperlink_get_object" atk_hyperlink_get_object :: +    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"+    Int32 ->                                -- i : TBasicType TInt32+    IO (Ptr Object)+++hyperlinkGetObject ::+    (MonadIO m, HyperlinkK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m Object+hyperlinkGetObject _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hyperlink_get_object _obj' i+    checkUnexpectedReturnNULL "atk_hyperlink_get_object" result+    result' <- (newObject Object) result+    touchManagedPtr _obj+    return result'++-- method Hyperlink::get_start_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_hyperlink_get_start_index" atk_hyperlink_get_start_index :: +    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"+    IO Int32+++hyperlinkGetStartIndex ::+    (MonadIO m, HyperlinkK a) =>+    a ->                                    -- _obj+    m Int32+hyperlinkGetStartIndex _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hyperlink_get_start_index _obj'+    touchManagedPtr _obj+    return result++-- method Hyperlink::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_hyperlink_get_uri" atk_hyperlink_get_uri :: +    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"+    Int32 ->                                -- i : TBasicType TInt32+    IO CString+++hyperlinkGetUri ::+    (MonadIO m, HyperlinkK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m T.Text+hyperlinkGetUri _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hyperlink_get_uri _obj' i+    checkUnexpectedReturnNULL "atk_hyperlink_get_uri" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method Hyperlink::is_inline+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_hyperlink_is_inline" atk_hyperlink_is_inline :: +    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"+    IO CInt+++hyperlinkIsInline ::+    (MonadIO m, HyperlinkK a) =>+    a ->                                    -- _obj+    m Bool+hyperlinkIsInline _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hyperlink_is_inline _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Hyperlink::is_selected_link+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_hyperlink_is_selected_link" atk_hyperlink_is_selected_link :: +    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"+    IO CInt++{-# DEPRECATED hyperlinkIsSelectedLink ["(Since version 1.8)","Please use ATK_STATE_FOCUSABLE for all links,","and ATK_STATE_FOCUSED for focused links."]#-}+hyperlinkIsSelectedLink ::+    (MonadIO m, HyperlinkK a) =>+    a ->                                    -- _obj+    m Bool+hyperlinkIsSelectedLink _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hyperlink_is_selected_link _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Hyperlink::is_valid+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_hyperlink_is_valid" atk_hyperlink_is_valid :: +    Ptr Hyperlink ->                        -- _obj : TInterface "Atk" "Hyperlink"+    IO CInt+++hyperlinkIsValid ::+    (MonadIO m, HyperlinkK a) =>+    a ->                                    -- _obj+    m Bool+hyperlinkIsValid _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_hyperlink_is_valid _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Objects/Hyperlink.hs-boot view
@@ -0,0 +1,18 @@+module GI.Atk.Objects.Hyperlink where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Hyperlink = Hyperlink (ForeignPtr Hyperlink)+instance GObject Hyperlink where+class GObject o => HyperlinkK o+instance (GObject o, IsDescendantOf Hyperlink o) => HyperlinkK o+data HyperlinkEndIndexPropertyInfo+data HyperlinkNumberOfAnchorsPropertyInfo+data HyperlinkSelectedLinkPropertyInfo+data HyperlinkStartIndexPropertyInfo+data HyperlinkLinkActivatedSignalInfo
+ GI/Atk/Objects/Misc.hs view
@@ -0,0 +1,143 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.Misc+    ( ++-- * Exported types+    Misc(..)                                ,+    MiscK                                   ,+    toMisc                                  ,+    noMisc                                  ,+++ -- * Methods+-- ** miscGetInstance+    miscGetInstance                         ,+++-- ** miscThreadsEnter+    miscThreadsEnter                        ,+++-- ** miscThreadsLeave+    miscThreadsLeave                        ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype Misc = Misc (ForeignPtr Misc)+foreign import ccall "atk_misc_get_type"+    c_atk_misc_get_type :: IO GType++type instance ParentTypes Misc = MiscParentTypes+type MiscParentTypes = '[GObject.Object]++instance GObject Misc where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_misc_get_type+    ++class GObject o => MiscK o+instance (GObject o, IsDescendantOf Misc o) => MiscK o++toMisc :: MiscK o => o -> IO Misc+toMisc = unsafeCastTo Misc++noMisc :: Maybe Misc+noMisc = Nothing++type instance AttributeList Misc = MiscAttributeList+type MiscAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList Misc = MiscSignalList+type MiscSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Misc::threads_enter+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_misc_threads_enter" atk_misc_threads_enter :: +    Ptr Misc ->                             -- _obj : TInterface "Atk" "Misc"+    IO ()++{-# DEPRECATED miscThreadsEnter ["Since 2.12."]#-}+miscThreadsEnter ::+    (MonadIO m, MiscK a) =>+    a ->                                    -- _obj+    m ()+miscThreadsEnter _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_misc_threads_enter _obj'+    touchManagedPtr _obj+    return ()++-- method Misc::threads_leave+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_misc_threads_leave" atk_misc_threads_leave :: +    Ptr Misc ->                             -- _obj : TInterface "Atk" "Misc"+    IO ()++{-# DEPRECATED miscThreadsLeave ["Since 2.12."]#-}+miscThreadsLeave ::+    (MonadIO m, MiscK a) =>+    a ->                                    -- _obj+    m ()+miscThreadsLeave _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_misc_threads_leave _obj'+    touchManagedPtr _obj+    return ()++-- method Misc::get_instance+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Atk" "Misc"+-- throws : False+-- Skip return : False++foreign import ccall "atk_misc_get_instance" atk_misc_get_instance :: +    IO (Ptr Misc)++{-# DEPRECATED miscGetInstance ["Since 2.12."]#-}+miscGetInstance ::+    (MonadIO m) =>+    m Misc+miscGetInstance  = liftIO $ do+    result <- atk_misc_get_instance+    checkUnexpectedReturnNULL "atk_misc_get_instance" result+    result' <- (newObject Misc) result+    return result'++
+ GI/Atk/Objects/Misc.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.Misc where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Misc = Misc (ForeignPtr Misc)+instance GObject Misc where+class GObject o => MiscK o+instance (GObject o, IsDescendantOf Misc o) => MiscK o
+ GI/Atk/Objects/NoOpObject.hs view
@@ -0,0 +1,91 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.NoOpObject+    ( ++-- * Exported types+    NoOpObject(..)                          ,+    NoOpObjectK                             ,+    toNoOpObject                            ,+    noNoOpObject                            ,+++ -- * Methods+-- ** noOpObjectNew+    noOpObjectNew                           ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype NoOpObject = NoOpObject (ForeignPtr NoOpObject)+foreign import ccall "atk_no_op_object_get_type"+    c_atk_no_op_object_get_type :: IO GType++type instance ParentTypes NoOpObject = NoOpObjectParentTypes+type NoOpObjectParentTypes = '[Object, GObject.Object, Action, Component, Document, EditableText, Hypertext, Image, Selection, Table, TableCell, Text, Value, Window]++instance GObject NoOpObject where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_no_op_object_get_type+    ++class GObject o => NoOpObjectK o+instance (GObject o, IsDescendantOf NoOpObject o) => NoOpObjectK o++toNoOpObject :: NoOpObjectK o => o -> IO NoOpObject+toNoOpObject = unsafeCastTo NoOpObject++noNoOpObject :: Maybe NoOpObject+noNoOpObject = Nothing++type instance AttributeList NoOpObject = NoOpObjectAttributeList+type NoOpObjectAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])++type instance SignalList NoOpObject = NoOpObjectSignalList+type NoOpObjectSignalList = ('[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("link-selected", HypertextLinkSelectedSignalInfo), '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("reload", DocumentReloadSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo), '("selection-changed", SelectionSelectionChangedSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo), '("value-changed", ValueValueChangedSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method NoOpObject::new+-- method type : Constructor+-- Args : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "NoOpObject"+-- throws : False+-- Skip return : False++foreign import ccall "atk_no_op_object_new" atk_no_op_object_new :: +    Ptr GObject.Object ->                   -- obj : TInterface "GObject" "Object"+    IO (Ptr NoOpObject)+++noOpObjectNew ::+    (MonadIO m, GObject.ObjectK a) =>+    a ->                                    -- obj+    m NoOpObject+noOpObjectNew obj = liftIO $ do+    let obj' = unsafeManagedPtrCastPtr obj+    result <- atk_no_op_object_new obj'+    checkUnexpectedReturnNULL "atk_no_op_object_new" result+    result' <- (wrapObject NoOpObject) result+    touchManagedPtr obj+    return result'++
+ GI/Atk/Objects/NoOpObject.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.NoOpObject where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype NoOpObject = NoOpObject (ForeignPtr NoOpObject)+instance GObject NoOpObject where+class GObject o => NoOpObjectK o+instance (GObject o, IsDescendantOf NoOpObject o) => NoOpObjectK o
+ GI/Atk/Objects/NoOpObjectFactory.hs view
@@ -0,0 +1,87 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.NoOpObjectFactory+    ( ++-- * Exported types+    NoOpObjectFactory(..)                   ,+    NoOpObjectFactoryK                      ,+    toNoOpObjectFactory                     ,+    noNoOpObjectFactory                     ,+++ -- * Methods+-- ** noOpObjectFactoryNew+    noOpObjectFactoryNew                    ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype NoOpObjectFactory = NoOpObjectFactory (ForeignPtr NoOpObjectFactory)+foreign import ccall "atk_no_op_object_factory_get_type"+    c_atk_no_op_object_factory_get_type :: IO GType++type instance ParentTypes NoOpObjectFactory = NoOpObjectFactoryParentTypes+type NoOpObjectFactoryParentTypes = '[ObjectFactory, GObject.Object]++instance GObject NoOpObjectFactory where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_no_op_object_factory_get_type+    ++class GObject o => NoOpObjectFactoryK o+instance (GObject o, IsDescendantOf NoOpObjectFactory o) => NoOpObjectFactoryK o++toNoOpObjectFactory :: NoOpObjectFactoryK o => o -> IO NoOpObjectFactory+toNoOpObjectFactory = unsafeCastTo NoOpObjectFactory++noNoOpObjectFactory :: Maybe NoOpObjectFactory+noNoOpObjectFactory = Nothing++type instance AttributeList NoOpObjectFactory = NoOpObjectFactoryAttributeList+type NoOpObjectFactoryAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList NoOpObjectFactory = NoOpObjectFactorySignalList+type NoOpObjectFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method NoOpObjectFactory::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Atk" "NoOpObjectFactory"+-- throws : False+-- Skip return : False++foreign import ccall "atk_no_op_object_factory_new" atk_no_op_object_factory_new :: +    IO (Ptr NoOpObjectFactory)+++noOpObjectFactoryNew ::+    (MonadIO m) =>+    m NoOpObjectFactory+noOpObjectFactoryNew  = liftIO $ do+    result <- atk_no_op_object_factory_new+    checkUnexpectedReturnNULL "atk_no_op_object_factory_new" result+    result' <- (wrapObject NoOpObjectFactory) result+    return result'++
+ GI/Atk/Objects/NoOpObjectFactory.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.NoOpObjectFactory where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype NoOpObjectFactory = NoOpObjectFactory (ForeignPtr NoOpObjectFactory)+instance GObject NoOpObjectFactory where+class GObject o => NoOpObjectFactoryK o+instance (GObject o, IsDescendantOf NoOpObjectFactory o) => NoOpObjectFactoryK o
+ GI/Atk/Objects/Object.hs view
@@ -0,0 +1,1569 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.Object+    ( ++-- * Exported types+    Object(..)                              ,+    ObjectK                                 ,+    toObject                                ,+    noObject                                ,+++ -- * Methods+-- ** objectAddRelationship+    objectAddRelationship                   ,+++-- ** objectGetAttributes+    objectGetAttributes                     ,+++-- ** objectGetDescription+    objectGetDescription                    ,+++-- ** objectGetIndexInParent+    objectGetIndexInParent                  ,+++-- ** objectGetLayer+    objectGetLayer                          ,+++-- ** objectGetMdiZorder+    objectGetMdiZorder                      ,+++-- ** objectGetNAccessibleChildren+    objectGetNAccessibleChildren            ,+++-- ** objectGetName+    objectGetName                           ,+++-- ** objectGetObjectLocale+    objectGetObjectLocale                   ,+++-- ** objectGetParent+    objectGetParent                         ,+++-- ** objectGetRole+    objectGetRole                           ,+++-- ** objectInitialize+    objectInitialize                        ,+++-- ** objectNotifyStateChange+    objectNotifyStateChange                 ,+++-- ** objectPeekParent+    objectPeekParent                        ,+++-- ** objectRefAccessibleChild+    objectRefAccessibleChild                ,+++-- ** objectRefRelationSet+    objectRefRelationSet                    ,+++-- ** objectRefStateSet+    objectRefStateSet                       ,+++-- ** objectRemovePropertyChangeHandler+    objectRemovePropertyChangeHandler       ,+++-- ** objectRemoveRelationship+    objectRemoveRelationship                ,+++-- ** objectSetDescription+    objectSetDescription                    ,+++-- ** objectSetName+    objectSetName                           ,+++-- ** objectSetParent+    objectSetParent                         ,+++-- ** objectSetRole+    objectSetRole                           ,+++++ -- * Properties+-- ** AccessibleComponentLayer+    ObjectAccessibleComponentLayerPropertyInfo,+    getObjectAccessibleComponentLayer       ,+++-- ** AccessibleComponentMdiZorder+    ObjectAccessibleComponentMdiZorderPropertyInfo,+    getObjectAccessibleComponentMdiZorder   ,+++-- ** AccessibleDescription+    ObjectAccessibleDescriptionPropertyInfo ,+    constructObjectAccessibleDescription    ,+    getObjectAccessibleDescription          ,+    setObjectAccessibleDescription          ,+++-- ** AccessibleHypertextNlinks+    ObjectAccessibleHypertextNlinksPropertyInfo,+    getObjectAccessibleHypertextNlinks      ,+++-- ** AccessibleName+    ObjectAccessibleNamePropertyInfo        ,+    constructObjectAccessibleName           ,+    getObjectAccessibleName                 ,+    setObjectAccessibleName                 ,+++-- ** AccessibleParent+    ObjectAccessibleParentPropertyInfo      ,+    constructObjectAccessibleParent         ,+    getObjectAccessibleParent               ,+    setObjectAccessibleParent               ,+++-- ** AccessibleRole+    ObjectAccessibleRolePropertyInfo        ,+    constructObjectAccessibleRole           ,+    getObjectAccessibleRole                 ,+    setObjectAccessibleRole                 ,+++-- ** AccessibleTableCaption+    ObjectAccessibleTableCaptionPropertyInfo,+    constructObjectAccessibleTableCaption   ,+    getObjectAccessibleTableCaption         ,+    setObjectAccessibleTableCaption         ,+++-- ** AccessibleTableCaptionObject+    ObjectAccessibleTableCaptionObjectPropertyInfo,+    constructObjectAccessibleTableCaptionObject,+    getObjectAccessibleTableCaptionObject   ,+    setObjectAccessibleTableCaptionObject   ,+++-- ** AccessibleTableColumnDescription+    ObjectAccessibleTableColumnDescriptionPropertyInfo,+    constructObjectAccessibleTableColumnDescription,+    getObjectAccessibleTableColumnDescription,+    setObjectAccessibleTableColumnDescription,+++-- ** AccessibleTableColumnHeader+    ObjectAccessibleTableColumnHeaderPropertyInfo,+    constructObjectAccessibleTableColumnHeader,+    getObjectAccessibleTableColumnHeader    ,+    setObjectAccessibleTableColumnHeader    ,+++-- ** AccessibleTableRowDescription+    ObjectAccessibleTableRowDescriptionPropertyInfo,+    constructObjectAccessibleTableRowDescription,+    getObjectAccessibleTableRowDescription  ,+    setObjectAccessibleTableRowDescription  ,+++-- ** AccessibleTableRowHeader+    ObjectAccessibleTableRowHeaderPropertyInfo,+    constructObjectAccessibleTableRowHeader ,+    getObjectAccessibleTableRowHeader       ,+    setObjectAccessibleTableRowHeader       ,+++-- ** AccessibleTableSummary+    ObjectAccessibleTableSummaryPropertyInfo,+    constructObjectAccessibleTableSummary   ,+    getObjectAccessibleTableSummary         ,+    setObjectAccessibleTableSummary         ,+++-- ** AccessibleValue+    ObjectAccessibleValuePropertyInfo       ,+    constructObjectAccessibleValue          ,+    getObjectAccessibleValue                ,+    setObjectAccessibleValue                ,+++++ -- * Signals+-- ** ActiveDescendantChanged+    ObjectActiveDescendantChangedCallback   ,+    ObjectActiveDescendantChangedCallbackC  ,+    ObjectActiveDescendantChangedSignalInfo ,+    afterObjectActiveDescendantChanged      ,+    mkObjectActiveDescendantChangedCallback ,+    noObjectActiveDescendantChangedCallback ,+    objectActiveDescendantChangedCallbackWrapper,+    objectActiveDescendantChangedClosure    ,+    onObjectActiveDescendantChanged         ,+++-- ** ChildrenChanged+    ObjectChildrenChangedCallback           ,+    ObjectChildrenChangedCallbackC          ,+    ObjectChildrenChangedSignalInfo         ,+    afterObjectChildrenChanged              ,+    mkObjectChildrenChangedCallback         ,+    noObjectChildrenChangedCallback         ,+    objectChildrenChangedCallbackWrapper    ,+    objectChildrenChangedClosure            ,+    onObjectChildrenChanged                 ,+++-- ** FocusEvent+    ObjectFocusEventCallback                ,+    ObjectFocusEventCallbackC               ,+    ObjectFocusEventSignalInfo              ,+    afterObjectFocusEvent                   ,+    mkObjectFocusEventCallback              ,+    noObjectFocusEventCallback              ,+    objectFocusEventCallbackWrapper         ,+    objectFocusEventClosure                 ,+    onObjectFocusEvent                      ,+++-- ** PropertyChange+    ObjectPropertyChangeCallback            ,+    ObjectPropertyChangeCallbackC           ,+    ObjectPropertyChangeSignalInfo          ,+    afterObjectPropertyChange               ,+    mkObjectPropertyChangeCallback          ,+    noObjectPropertyChangeCallback          ,+    objectPropertyChangeCallbackWrapper     ,+    objectPropertyChangeClosure             ,+    onObjectPropertyChange                  ,+++-- ** StateChange+    ObjectStateChangeCallback               ,+    ObjectStateChangeCallbackC              ,+    ObjectStateChangeSignalInfo             ,+    afterObjectStateChange                  ,+    mkObjectStateChangeCallback             ,+    noObjectStateChangeCallback             ,+    objectStateChangeCallbackWrapper        ,+    objectStateChangeClosure                ,+    onObjectStateChange                     ,+++-- ** VisibleDataChanged+    ObjectVisibleDataChangedCallback        ,+    ObjectVisibleDataChangedCallbackC       ,+    ObjectVisibleDataChangedSignalInfo      ,+    afterObjectVisibleDataChanged           ,+    mkObjectVisibleDataChangedCallback      ,+    noObjectVisibleDataChangedCallback      ,+    objectVisibleDataChangedCallbackWrapper ,+    objectVisibleDataChangedClosure         ,+    onObjectVisibleDataChanged              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype Object = Object (ForeignPtr Object)+foreign import ccall "atk_object_get_type"+    c_atk_object_get_type :: IO GType++type instance ParentTypes Object = ObjectParentTypes+type ObjectParentTypes = '[GObject.Object]++instance GObject Object where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_object_get_type+    ++class GObject o => ObjectK o+instance (GObject o, IsDescendantOf Object o) => ObjectK o++toObject :: ObjectK o => o -> IO Object+toObject = unsafeCastTo Object++noObject :: Maybe Object+noObject = Nothing++-- signal Object::active-descendant-changed+type ObjectActiveDescendantChangedCallback =+    Ptr () ->+    IO ()++noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback+noObjectActiveDescendantChangedCallback = Nothing++type ObjectActiveDescendantChangedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkObjectActiveDescendantChangedCallback :: ObjectActiveDescendantChangedCallbackC -> IO (FunPtr ObjectActiveDescendantChangedCallbackC)++objectActiveDescendantChangedClosure :: ObjectActiveDescendantChangedCallback -> IO Closure+objectActiveDescendantChangedClosure cb = newCClosure =<< mkObjectActiveDescendantChangedCallback wrapped+    where wrapped = objectActiveDescendantChangedCallbackWrapper cb++objectActiveDescendantChangedCallbackWrapper ::+    ObjectActiveDescendantChangedCallback ->+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO ()+objectActiveDescendantChangedCallbackWrapper _cb _ arg1 _ = do+    _cb  arg1++onObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId+onObjectActiveDescendantChanged obj cb = liftIO $ connectObjectActiveDescendantChanged obj cb SignalConnectBefore+afterObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId+afterObjectActiveDescendantChanged obj cb = connectObjectActiveDescendantChanged obj cb SignalConnectAfter++connectObjectActiveDescendantChanged :: (GObject a, MonadIO m) =>+                                        a -> ObjectActiveDescendantChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectObjectActiveDescendantChanged obj cb after = liftIO $ do+    cb' <- mkObjectActiveDescendantChangedCallback (objectActiveDescendantChangedCallbackWrapper cb)+    connectSignalFunPtr obj "active-descendant-changed" cb' after++-- signal Object::children-changed+type ObjectChildrenChangedCallback =+    Word32 ->+    Ptr () ->+    IO ()++noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback+noObjectChildrenChangedCallback = Nothing++type ObjectChildrenChangedCallbackC =+    Ptr () ->                               -- object+    Word32 ->+    Ptr () ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkObjectChildrenChangedCallback :: ObjectChildrenChangedCallbackC -> IO (FunPtr ObjectChildrenChangedCallbackC)++objectChildrenChangedClosure :: ObjectChildrenChangedCallback -> IO Closure+objectChildrenChangedClosure cb = newCClosure =<< mkObjectChildrenChangedCallback wrapped+    where wrapped = objectChildrenChangedCallbackWrapper cb++objectChildrenChangedCallbackWrapper ::+    ObjectChildrenChangedCallback ->+    Ptr () ->+    Word32 ->+    Ptr () ->+    Ptr () ->+    IO ()+objectChildrenChangedCallbackWrapper _cb _ arg1 arg2 _ = do+    _cb  arg1 arg2++onObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId+onObjectChildrenChanged obj cb = liftIO $ connectObjectChildrenChanged obj cb SignalConnectBefore+afterObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId+afterObjectChildrenChanged obj cb = connectObjectChildrenChanged obj cb SignalConnectAfter++connectObjectChildrenChanged :: (GObject a, MonadIO m) =>+                                a -> ObjectChildrenChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectObjectChildrenChanged obj cb after = liftIO $ do+    cb' <- mkObjectChildrenChangedCallback (objectChildrenChangedCallbackWrapper cb)+    connectSignalFunPtr obj "children-changed" cb' after++-- signal Object::focus-event+type ObjectFocusEventCallback =+    Bool ->+    IO ()++noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback+noObjectFocusEventCallback = Nothing++type ObjectFocusEventCallbackC =+    Ptr () ->                               -- object+    CInt ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkObjectFocusEventCallback :: ObjectFocusEventCallbackC -> IO (FunPtr ObjectFocusEventCallbackC)++objectFocusEventClosure :: ObjectFocusEventCallback -> IO Closure+objectFocusEventClosure cb = newCClosure =<< mkObjectFocusEventCallback wrapped+    where wrapped = objectFocusEventCallbackWrapper cb++objectFocusEventCallbackWrapper ::+    ObjectFocusEventCallback ->+    Ptr () ->+    CInt ->+    Ptr () ->+    IO ()+objectFocusEventCallbackWrapper _cb _ arg1 _ = do+    let arg1' = (/= 0) arg1+    _cb  arg1'++onObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId+onObjectFocusEvent obj cb = liftIO $ connectObjectFocusEvent obj cb SignalConnectBefore+afterObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId+afterObjectFocusEvent obj cb = connectObjectFocusEvent obj cb SignalConnectAfter++connectObjectFocusEvent :: (GObject a, MonadIO m) =>+                           a -> ObjectFocusEventCallback -> SignalConnectMode -> m SignalHandlerId+connectObjectFocusEvent obj cb after = liftIO $ do+    cb' <- mkObjectFocusEventCallback (objectFocusEventCallbackWrapper cb)+    connectSignalFunPtr obj "focus-event" cb' after++-- signal Object::property-change+type ObjectPropertyChangeCallback =+    Ptr () ->+    IO ()++noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback+noObjectPropertyChangeCallback = Nothing++type ObjectPropertyChangeCallbackC =+    Ptr () ->                               -- object+    Ptr () ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkObjectPropertyChangeCallback :: ObjectPropertyChangeCallbackC -> IO (FunPtr ObjectPropertyChangeCallbackC)++objectPropertyChangeClosure :: ObjectPropertyChangeCallback -> IO Closure+objectPropertyChangeClosure cb = newCClosure =<< mkObjectPropertyChangeCallback wrapped+    where wrapped = objectPropertyChangeCallbackWrapper cb++objectPropertyChangeCallbackWrapper ::+    ObjectPropertyChangeCallback ->+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO ()+objectPropertyChangeCallbackWrapper _cb _ arg1 _ = do+    _cb  arg1++onObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId+onObjectPropertyChange obj cb = liftIO $ connectObjectPropertyChange obj cb SignalConnectBefore+afterObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId+afterObjectPropertyChange obj cb = connectObjectPropertyChange obj cb SignalConnectAfter++connectObjectPropertyChange :: (GObject a, MonadIO m) =>+                               a -> ObjectPropertyChangeCallback -> SignalConnectMode -> m SignalHandlerId+connectObjectPropertyChange obj cb after = liftIO $ do+    cb' <- mkObjectPropertyChangeCallback (objectPropertyChangeCallbackWrapper cb)+    connectSignalFunPtr obj "property-change" cb' after++-- signal Object::state-change+type ObjectStateChangeCallback =+    T.Text ->+    Bool ->+    IO ()++noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback+noObjectStateChangeCallback = Nothing++type ObjectStateChangeCallbackC =+    Ptr () ->                               -- object+    CString ->+    CInt ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkObjectStateChangeCallback :: ObjectStateChangeCallbackC -> IO (FunPtr ObjectStateChangeCallbackC)++objectStateChangeClosure :: ObjectStateChangeCallback -> IO Closure+objectStateChangeClosure cb = newCClosure =<< mkObjectStateChangeCallback wrapped+    where wrapped = objectStateChangeCallbackWrapper cb++objectStateChangeCallbackWrapper ::+    ObjectStateChangeCallback ->+    Ptr () ->+    CString ->+    CInt ->+    Ptr () ->+    IO ()+objectStateChangeCallbackWrapper _cb _ arg1 arg2 _ = do+    arg1' <- cstringToText arg1+    let arg2' = (/= 0) arg2+    _cb  arg1' arg2'++onObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId+onObjectStateChange obj cb = liftIO $ connectObjectStateChange obj cb SignalConnectBefore+afterObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId+afterObjectStateChange obj cb = connectObjectStateChange obj cb SignalConnectAfter++connectObjectStateChange :: (GObject a, MonadIO m) =>+                            a -> ObjectStateChangeCallback -> SignalConnectMode -> m SignalHandlerId+connectObjectStateChange obj cb after = liftIO $ do+    cb' <- mkObjectStateChangeCallback (objectStateChangeCallbackWrapper cb)+    connectSignalFunPtr obj "state-change" cb' after++-- signal Object::visible-data-changed+type ObjectVisibleDataChangedCallback =+    IO ()++noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback+noObjectVisibleDataChangedCallback = Nothing++type ObjectVisibleDataChangedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkObjectVisibleDataChangedCallback :: ObjectVisibleDataChangedCallbackC -> IO (FunPtr ObjectVisibleDataChangedCallbackC)++objectVisibleDataChangedClosure :: ObjectVisibleDataChangedCallback -> IO Closure+objectVisibleDataChangedClosure cb = newCClosure =<< mkObjectVisibleDataChangedCallback wrapped+    where wrapped = objectVisibleDataChangedCallbackWrapper cb++objectVisibleDataChangedCallbackWrapper ::+    ObjectVisibleDataChangedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+objectVisibleDataChangedCallbackWrapper _cb _ _ = do+    _cb ++onObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId+onObjectVisibleDataChanged obj cb = liftIO $ connectObjectVisibleDataChanged obj cb SignalConnectBefore+afterObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId+afterObjectVisibleDataChanged obj cb = connectObjectVisibleDataChanged obj cb SignalConnectAfter++connectObjectVisibleDataChanged :: (GObject a, MonadIO m) =>+                                   a -> ObjectVisibleDataChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectObjectVisibleDataChanged obj cb after = liftIO $ do+    cb' <- mkObjectVisibleDataChangedCallback (objectVisibleDataChangedCallbackWrapper cb)+    connectSignalFunPtr obj "visible-data-changed" cb' after++-- VVV Prop "accessible-component-layer"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable]++getObjectAccessibleComponentLayer :: (MonadIO m, ObjectK o) => o -> m Int32+getObjectAccessibleComponentLayer obj = liftIO $ getObjectPropertyCInt obj "accessible-component-layer"++data ObjectAccessibleComponentLayerPropertyInfo+instance AttrInfo ObjectAccessibleComponentLayerPropertyInfo where+    type AttrAllowedOps ObjectAccessibleComponentLayerPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) ()+    type AttrBaseTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleComponentLayerPropertyInfo = Int32+    type AttrLabel ObjectAccessibleComponentLayerPropertyInfo = "Object::accessible-component-layer"+    attrGet _ = getObjectAccessibleComponentLayer+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "accessible-component-mdi-zorder"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable]++getObjectAccessibleComponentMdiZorder :: (MonadIO m, ObjectK o) => o -> m Int32+getObjectAccessibleComponentMdiZorder obj = liftIO $ getObjectPropertyCInt obj "accessible-component-mdi-zorder"++data ObjectAccessibleComponentMdiZorderPropertyInfo+instance AttrInfo ObjectAccessibleComponentMdiZorderPropertyInfo where+    type AttrAllowedOps ObjectAccessibleComponentMdiZorderPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) ()+    type AttrBaseTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleComponentMdiZorderPropertyInfo = Int32+    type AttrLabel ObjectAccessibleComponentMdiZorderPropertyInfo = "Object::accessible-component-mdi-zorder"+    attrGet _ = getObjectAccessibleComponentMdiZorder+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "accessible-description"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> m T.Text+getObjectAccessibleDescription obj = liftIO $ getObjectPropertyString obj "accessible-description"++setObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()+setObjectAccessibleDescription obj val = liftIO $ setObjectPropertyString obj "accessible-description" val++constructObjectAccessibleDescription :: T.Text -> IO ([Char], GValue)+constructObjectAccessibleDescription val = constructObjectPropertyString "accessible-description" val++data ObjectAccessibleDescriptionPropertyInfo+instance AttrInfo ObjectAccessibleDescriptionPropertyInfo where+    type AttrAllowedOps ObjectAccessibleDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint ObjectAccessibleDescriptionPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleDescriptionPropertyInfo = T.Text+    type AttrLabel ObjectAccessibleDescriptionPropertyInfo = "Object::accessible-description"+    attrGet _ = getObjectAccessibleDescription+    attrSet _ = setObjectAccessibleDescription+    attrConstruct _ = constructObjectAccessibleDescription++-- VVV Prop "accessible-hypertext-nlinks"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable]++getObjectAccessibleHypertextNlinks :: (MonadIO m, ObjectK o) => o -> m Int32+getObjectAccessibleHypertextNlinks obj = liftIO $ getObjectPropertyCInt obj "accessible-hypertext-nlinks"++data ObjectAccessibleHypertextNlinksPropertyInfo+instance AttrInfo ObjectAccessibleHypertextNlinksPropertyInfo where+    type AttrAllowedOps ObjectAccessibleHypertextNlinksPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) ()+    type AttrBaseTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleHypertextNlinksPropertyInfo = Int32+    type AttrLabel ObjectAccessibleHypertextNlinksPropertyInfo = "Object::accessible-hypertext-nlinks"+    attrGet _ = getObjectAccessibleHypertextNlinks+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "accessible-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> m T.Text+getObjectAccessibleName obj = liftIO $ getObjectPropertyString obj "accessible-name"++setObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()+setObjectAccessibleName obj val = liftIO $ setObjectPropertyString obj "accessible-name" val++constructObjectAccessibleName :: T.Text -> IO ([Char], GValue)+constructObjectAccessibleName val = constructObjectPropertyString "accessible-name" val++data ObjectAccessibleNamePropertyInfo+instance AttrInfo ObjectAccessibleNamePropertyInfo where+    type AttrAllowedOps ObjectAccessibleNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint ObjectAccessibleNamePropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleNamePropertyInfo = T.Text+    type AttrLabel ObjectAccessibleNamePropertyInfo = "Object::accessible-name"+    attrGet _ = getObjectAccessibleName+    attrSet _ = setObjectAccessibleName+    attrConstruct _ = constructObjectAccessibleName++-- VVV Prop "accessible-parent"+   -- Type: TInterface "Atk" "Object"+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleParent :: (MonadIO m, ObjectK o) => o -> m Object+getObjectAccessibleParent obj = liftIO $ getObjectPropertyObject obj "accessible-parent" Object++setObjectAccessibleParent :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()+setObjectAccessibleParent obj val = liftIO $ setObjectPropertyObject obj "accessible-parent" val++constructObjectAccessibleParent :: (ObjectK a) => a -> IO ([Char], GValue)+constructObjectAccessibleParent val = constructObjectPropertyObject "accessible-parent" val++data ObjectAccessibleParentPropertyInfo+instance AttrInfo ObjectAccessibleParentPropertyInfo where+    type AttrAllowedOps ObjectAccessibleParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK+    type AttrBaseTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleParentPropertyInfo = Object+    type AttrLabel ObjectAccessibleParentPropertyInfo = "Object::accessible-parent"+    attrGet _ = getObjectAccessibleParent+    attrSet _ = setObjectAccessibleParent+    attrConstruct _ = constructObjectAccessibleParent++-- VVV Prop "accessible-role"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> m Int32+getObjectAccessibleRole obj = liftIO $ getObjectPropertyCInt obj "accessible-role"++setObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> Int32 -> m ()+setObjectAccessibleRole obj val = liftIO $ setObjectPropertyCInt obj "accessible-role" val++constructObjectAccessibleRole :: Int32 -> IO ([Char], GValue)+constructObjectAccessibleRole val = constructObjectPropertyCInt "accessible-role" val++data ObjectAccessibleRolePropertyInfo+instance AttrInfo ObjectAccessibleRolePropertyInfo where+    type AttrAllowedOps ObjectAccessibleRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Int32+    type AttrBaseTypeConstraint ObjectAccessibleRolePropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleRolePropertyInfo = Int32+    type AttrLabel ObjectAccessibleRolePropertyInfo = "Object::accessible-role"+    attrGet _ = getObjectAccessibleRole+    attrSet _ = setObjectAccessibleRole+    attrConstruct _ = constructObjectAccessibleRole++-- VVV Prop "accessible-table-caption"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> m T.Text+getObjectAccessibleTableCaption obj = liftIO $ getObjectPropertyString obj "accessible-table-caption"++setObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()+setObjectAccessibleTableCaption obj val = liftIO $ setObjectPropertyString obj "accessible-table-caption" val++constructObjectAccessibleTableCaption :: T.Text -> IO ([Char], GValue)+constructObjectAccessibleTableCaption val = constructObjectPropertyString "accessible-table-caption" val++data ObjectAccessibleTableCaptionPropertyInfo+instance AttrInfo ObjectAccessibleTableCaptionPropertyInfo where+    type AttrAllowedOps ObjectAccessibleTableCaptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleTableCaptionPropertyInfo = T.Text+    type AttrLabel ObjectAccessibleTableCaptionPropertyInfo = "Object::accessible-table-caption"+    attrGet _ = getObjectAccessibleTableCaption+    attrSet _ = setObjectAccessibleTableCaption+    attrConstruct _ = constructObjectAccessibleTableCaption++-- VVV Prop "accessible-table-caption-object"+   -- Type: TInterface "Atk" "Object"+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o) => o -> m Object+getObjectAccessibleTableCaptionObject obj = liftIO $ getObjectPropertyObject obj "accessible-table-caption-object" Object++setObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()+setObjectAccessibleTableCaptionObject obj val = liftIO $ setObjectPropertyObject obj "accessible-table-caption-object" val++constructObjectAccessibleTableCaptionObject :: (ObjectK a) => a -> IO ([Char], GValue)+constructObjectAccessibleTableCaptionObject val = constructObjectPropertyObject "accessible-table-caption-object" val++data ObjectAccessibleTableCaptionObjectPropertyInfo+instance AttrInfo ObjectAccessibleTableCaptionObjectPropertyInfo where+    type AttrAllowedOps ObjectAccessibleTableCaptionObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK+    type AttrBaseTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleTableCaptionObjectPropertyInfo = Object+    type AttrLabel ObjectAccessibleTableCaptionObjectPropertyInfo = "Object::accessible-table-caption-object"+    attrGet _ = getObjectAccessibleTableCaptionObject+    attrSet _ = setObjectAccessibleTableCaptionObject+    attrConstruct _ = constructObjectAccessibleTableCaptionObject++-- VVV Prop "accessible-table-column-description"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> m T.Text+getObjectAccessibleTableColumnDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-column-description"++setObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()+setObjectAccessibleTableColumnDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-column-description" val++constructObjectAccessibleTableColumnDescription :: T.Text -> IO ([Char], GValue)+constructObjectAccessibleTableColumnDescription val = constructObjectPropertyString "accessible-table-column-description" val++data ObjectAccessibleTableColumnDescriptionPropertyInfo+instance AttrInfo ObjectAccessibleTableColumnDescriptionPropertyInfo where+    type AttrAllowedOps ObjectAccessibleTableColumnDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleTableColumnDescriptionPropertyInfo = T.Text+    type AttrLabel ObjectAccessibleTableColumnDescriptionPropertyInfo = "Object::accessible-table-column-description"+    attrGet _ = getObjectAccessibleTableColumnDescription+    attrSet _ = setObjectAccessibleTableColumnDescription+    attrConstruct _ = constructObjectAccessibleTableColumnDescription++-- VVV Prop "accessible-table-column-header"+   -- Type: TInterface "Atk" "Object"+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o) => o -> m Object+getObjectAccessibleTableColumnHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-column-header" Object++setObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()+setObjectAccessibleTableColumnHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-column-header" val++constructObjectAccessibleTableColumnHeader :: (ObjectK a) => a -> IO ([Char], GValue)+constructObjectAccessibleTableColumnHeader val = constructObjectPropertyObject "accessible-table-column-header" val++data ObjectAccessibleTableColumnHeaderPropertyInfo+instance AttrInfo ObjectAccessibleTableColumnHeaderPropertyInfo where+    type AttrAllowedOps ObjectAccessibleTableColumnHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK+    type AttrBaseTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleTableColumnHeaderPropertyInfo = Object+    type AttrLabel ObjectAccessibleTableColumnHeaderPropertyInfo = "Object::accessible-table-column-header"+    attrGet _ = getObjectAccessibleTableColumnHeader+    attrSet _ = setObjectAccessibleTableColumnHeader+    attrConstruct _ = constructObjectAccessibleTableColumnHeader++-- VVV Prop "accessible-table-row-description"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> m T.Text+getObjectAccessibleTableRowDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-row-description"++setObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()+setObjectAccessibleTableRowDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-row-description" val++constructObjectAccessibleTableRowDescription :: T.Text -> IO ([Char], GValue)+constructObjectAccessibleTableRowDescription val = constructObjectPropertyString "accessible-table-row-description" val++data ObjectAccessibleTableRowDescriptionPropertyInfo+instance AttrInfo ObjectAccessibleTableRowDescriptionPropertyInfo where+    type AttrAllowedOps ObjectAccessibleTableRowDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleTableRowDescriptionPropertyInfo = T.Text+    type AttrLabel ObjectAccessibleTableRowDescriptionPropertyInfo = "Object::accessible-table-row-description"+    attrGet _ = getObjectAccessibleTableRowDescription+    attrSet _ = setObjectAccessibleTableRowDescription+    attrConstruct _ = constructObjectAccessibleTableRowDescription++-- VVV Prop "accessible-table-row-header"+   -- Type: TInterface "Atk" "Object"+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o) => o -> m Object+getObjectAccessibleTableRowHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-row-header" Object++setObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()+setObjectAccessibleTableRowHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-row-header" val++constructObjectAccessibleTableRowHeader :: (ObjectK a) => a -> IO ([Char], GValue)+constructObjectAccessibleTableRowHeader val = constructObjectPropertyObject "accessible-table-row-header" val++data ObjectAccessibleTableRowHeaderPropertyInfo+instance AttrInfo ObjectAccessibleTableRowHeaderPropertyInfo where+    type AttrAllowedOps ObjectAccessibleTableRowHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK+    type AttrBaseTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleTableRowHeaderPropertyInfo = Object+    type AttrLabel ObjectAccessibleTableRowHeaderPropertyInfo = "Object::accessible-table-row-header"+    attrGet _ = getObjectAccessibleTableRowHeader+    attrSet _ = setObjectAccessibleTableRowHeader+    attrConstruct _ = constructObjectAccessibleTableRowHeader++-- VVV Prop "accessible-table-summary"+   -- Type: TInterface "Atk" "Object"+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleTableSummary :: (MonadIO m, ObjectK o) => o -> m Object+getObjectAccessibleTableSummary obj = liftIO $ getObjectPropertyObject obj "accessible-table-summary" Object++setObjectAccessibleTableSummary :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()+setObjectAccessibleTableSummary obj val = liftIO $ setObjectPropertyObject obj "accessible-table-summary" val++constructObjectAccessibleTableSummary :: (ObjectK a) => a -> IO ([Char], GValue)+constructObjectAccessibleTableSummary val = constructObjectPropertyObject "accessible-table-summary" val++data ObjectAccessibleTableSummaryPropertyInfo+instance AttrInfo ObjectAccessibleTableSummaryPropertyInfo where+    type AttrAllowedOps ObjectAccessibleTableSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK+    type AttrBaseTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleTableSummaryPropertyInfo = Object+    type AttrLabel ObjectAccessibleTableSummaryPropertyInfo = "Object::accessible-table-summary"+    attrGet _ = getObjectAccessibleTableSummary+    attrSet _ = setObjectAccessibleTableSummary+    attrConstruct _ = constructObjectAccessibleTableSummary++-- VVV Prop "accessible-value"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable,PropertyWritable]++getObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> m Double+getObjectAccessibleValue obj = liftIO $ getObjectPropertyDouble obj "accessible-value"++setObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> Double -> m ()+setObjectAccessibleValue obj val = liftIO $ setObjectPropertyDouble obj "accessible-value" val++constructObjectAccessibleValue :: Double -> IO ([Char], GValue)+constructObjectAccessibleValue val = constructObjectPropertyDouble "accessible-value" val++data ObjectAccessibleValuePropertyInfo+instance AttrInfo ObjectAccessibleValuePropertyInfo where+    type AttrAllowedOps ObjectAccessibleValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double+    type AttrBaseTypeConstraint ObjectAccessibleValuePropertyInfo = ObjectK+    type AttrGetType ObjectAccessibleValuePropertyInfo = Double+    type AttrLabel ObjectAccessibleValuePropertyInfo = "Object::accessible-value"+    attrGet _ = getObjectAccessibleValue+    attrSet _ = setObjectAccessibleValue+    attrConstruct _ = constructObjectAccessibleValue++type instance AttributeList Object = ObjectAttributeList+type ObjectAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])++data ObjectActiveDescendantChangedSignalInfo+instance SignalInfo ObjectActiveDescendantChangedSignalInfo where+    type HaskellCallbackType ObjectActiveDescendantChangedSignalInfo = ObjectActiveDescendantChangedCallback+    connectSignal _ = connectObjectActiveDescendantChanged++data ObjectChildrenChangedSignalInfo+instance SignalInfo ObjectChildrenChangedSignalInfo where+    type HaskellCallbackType ObjectChildrenChangedSignalInfo = ObjectChildrenChangedCallback+    connectSignal _ = connectObjectChildrenChanged++data ObjectFocusEventSignalInfo+instance SignalInfo ObjectFocusEventSignalInfo where+    type HaskellCallbackType ObjectFocusEventSignalInfo = ObjectFocusEventCallback+    connectSignal _ = connectObjectFocusEvent++data ObjectPropertyChangeSignalInfo+instance SignalInfo ObjectPropertyChangeSignalInfo where+    type HaskellCallbackType ObjectPropertyChangeSignalInfo = ObjectPropertyChangeCallback+    connectSignal _ = connectObjectPropertyChange++data ObjectStateChangeSignalInfo+instance SignalInfo ObjectStateChangeSignalInfo where+    type HaskellCallbackType ObjectStateChangeSignalInfo = ObjectStateChangeCallback+    connectSignal _ = connectObjectStateChange++data ObjectVisibleDataChangedSignalInfo+instance SignalInfo ObjectVisibleDataChangedSignalInfo where+    type HaskellCallbackType ObjectVisibleDataChangedSignalInfo = ObjectVisibleDataChangedCallback+    connectSignal _ = connectObjectVisibleDataChanged++type instance SignalList Object = ObjectSignalList+type ObjectSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Object::add_relationship+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_add_relationship" atk_object_add_relationship :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"+    Ptr Object ->                           -- target : TInterface "Atk" "Object"+    IO CInt+++objectAddRelationship ::+    (MonadIO m, ObjectK a, ObjectK b) =>+    a ->                                    -- _obj+    RelationType ->                         -- relationship+    b ->                                    -- target+    m Bool+objectAddRelationship _obj relationship target = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let relationship' = (fromIntegral . fromEnum) relationship+    let target' = unsafeManagedPtrCastPtr target+    result <- atk_object_add_relationship _obj' relationship' target'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr target+    return result'++-- method Object::get_attributes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TBasicType TVoid)+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_attributes" atk_object_get_attributes :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO (Ptr (GSList (Ptr ())))+++objectGetAttributes ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m [Ptr ()]+objectGetAttributes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_attributes _obj'+    checkUnexpectedReturnNULL "atk_object_get_attributes" result+    result' <- unpackGSList result+    g_slist_free result+    touchManagedPtr _obj+    return result'++-- method Object::get_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_description" atk_object_get_description :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO CString+++objectGetDescription ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m T.Text+objectGetDescription _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_description _obj'+    checkUnexpectedReturnNULL "atk_object_get_description" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Object::get_index_in_parent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_index_in_parent" atk_object_get_index_in_parent :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO Int32+++objectGetIndexInParent ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m Int32+objectGetIndexInParent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_index_in_parent _obj'+    touchManagedPtr _obj+    return result++-- method Object::get_layer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Layer"+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_layer" atk_object_get_layer :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO CUInt++{-# DEPRECATED objectGetLayer ["Use atk_component_get_layer instead."]#-}+objectGetLayer ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m Layer+objectGetLayer _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_layer _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Object::get_mdi_zorder+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_mdi_zorder" atk_object_get_mdi_zorder :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO Int32++{-# DEPRECATED objectGetMdiZorder ["Use atk_component_get_mdi_zorder instead."]#-}+objectGetMdiZorder ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m Int32+objectGetMdiZorder _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_mdi_zorder _obj'+    touchManagedPtr _obj+    return result++-- method Object::get_n_accessible_children+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_n_accessible_children" atk_object_get_n_accessible_children :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO Int32+++objectGetNAccessibleChildren ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m Int32+objectGetNAccessibleChildren _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_n_accessible_children _obj'+    touchManagedPtr _obj+    return result++-- method Object::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_name" atk_object_get_name :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO CString+++objectGetName ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m T.Text+objectGetName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_name _obj'+    checkUnexpectedReturnNULL "atk_object_get_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Object::get_object_locale+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_object_locale" atk_object_get_object_locale :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO CString+++objectGetObjectLocale ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m T.Text+objectGetObjectLocale _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_object_locale _obj'+    checkUnexpectedReturnNULL "atk_object_get_object_locale" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Object::get_parent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_parent" atk_object_get_parent :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO (Ptr Object)+++objectGetParent ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m Object+objectGetParent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_parent _obj'+    checkUnexpectedReturnNULL "atk_object_get_parent" result+    result' <- (newObject Object) result+    touchManagedPtr _obj+    return result'++-- method Object::get_role+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Role"+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_get_role" atk_object_get_role :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO CUInt+++objectGetRole ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m Role+objectGetRole _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_get_role _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Object::initialize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_initialize" atk_object_initialize :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    Ptr () ->                               -- data : TBasicType TVoid+    IO ()+++objectInitialize ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    Ptr () ->                               -- data+    m ()+objectInitialize _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_object_initialize _obj' data_+    touchManagedPtr _obj+    return ()++-- method Object::notify_state_change+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_notify_state_change" atk_object_notify_state_change :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    Word64 ->                               -- state : TBasicType TUInt64+    CInt ->                                 -- value : TBasicType TBoolean+    IO ()+++objectNotifyStateChange ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    Word64 ->                               -- state+    Bool ->                                 -- value+    m ()+objectNotifyStateChange _obj state value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let value' = (fromIntegral . fromEnum) value+    atk_object_notify_state_change _obj' state value'+    touchManagedPtr _obj+    return ()++-- method Object::peek_parent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_peek_parent" atk_object_peek_parent :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO (Ptr Object)+++objectPeekParent ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m Object+objectPeekParent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_peek_parent _obj'+    checkUnexpectedReturnNULL "atk_object_peek_parent" result+    result' <- (newObject Object) result+    touchManagedPtr _obj+    return result'++-- method Object::ref_accessible_child+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_ref_accessible_child" atk_object_ref_accessible_child :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    Int32 ->                                -- i : TBasicType TInt32+    IO (Ptr Object)+++objectRefAccessibleChild ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m Object+objectRefAccessibleChild _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_ref_accessible_child _obj' i+    checkUnexpectedReturnNULL "atk_object_ref_accessible_child" result+    result' <- (wrapObject Object) result+    touchManagedPtr _obj+    return result'++-- method Object::ref_relation_set+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "RelationSet"+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_ref_relation_set" atk_object_ref_relation_set :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO (Ptr RelationSet)+++objectRefRelationSet ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m RelationSet+objectRefRelationSet _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_ref_relation_set _obj'+    checkUnexpectedReturnNULL "atk_object_ref_relation_set" result+    result' <- (wrapObject RelationSet) result+    touchManagedPtr _obj+    return result'++-- method Object::ref_state_set+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "StateSet"+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_ref_state_set" atk_object_ref_state_set :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    IO (Ptr StateSet)+++objectRefStateSet ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    m StateSet+objectRefStateSet _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_ref_state_set _obj'+    checkUnexpectedReturnNULL "atk_object_ref_state_set" result+    result' <- (wrapObject StateSet) result+    touchManagedPtr _obj+    return result'++-- method Object::remove_property_change_handler+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_remove_property_change_handler" atk_object_remove_property_change_handler :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    Word32 ->                               -- handler_id : TBasicType TUInt32+    IO ()++{-# DEPRECATED objectRemovePropertyChangeHandler ["Since 2.12.","","Removes a property change handler."]#-}+objectRemovePropertyChangeHandler ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- handler_id+    m ()+objectRemovePropertyChangeHandler _obj handler_id = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_object_remove_property_change_handler _obj' handler_id+    touchManagedPtr _obj+    return ()++-- method Object::remove_relationship+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_remove_relationship" atk_object_remove_relationship :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"+    Ptr Object ->                           -- target : TInterface "Atk" "Object"+    IO CInt+++objectRemoveRelationship ::+    (MonadIO m, ObjectK a, ObjectK b) =>+    a ->                                    -- _obj+    RelationType ->                         -- relationship+    b ->                                    -- target+    m Bool+objectRemoveRelationship _obj relationship target = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let relationship' = (fromIntegral . fromEnum) relationship+    let target' = unsafeManagedPtrCastPtr target+    result <- atk_object_remove_relationship _obj' relationship' target'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr target+    return result'++-- method Object::set_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_set_description" atk_object_set_description :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    CString ->                              -- description : TBasicType TUTF8+    IO ()+++objectSetDescription ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- description+    m ()+objectSetDescription _obj description = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    description' <- textToCString description+    atk_object_set_description _obj' description'+    touchManagedPtr _obj+    freeMem description'+    return ()++-- method Object::set_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_set_name" atk_object_set_name :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    CString ->                              -- name : TBasicType TUTF8+    IO ()+++objectSetName ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- name+    m ()+objectSetName _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    name' <- textToCString name+    atk_object_set_name _obj' name'+    touchManagedPtr _obj+    freeMem name'+    return ()++-- method Object::set_parent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_set_parent" atk_object_set_parent :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    Ptr Object ->                           -- parent : TInterface "Atk" "Object"+    IO ()+++objectSetParent ::+    (MonadIO m, ObjectK a, ObjectK b) =>+    a ->                                    -- _obj+    b ->                                    -- parent+    m ()+objectSetParent _obj parent = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let parent' = unsafeManagedPtrCastPtr parent+    atk_object_set_parent _obj' parent'+    touchManagedPtr _obj+    touchManagedPtr parent+    return ()++-- method Object::set_role+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_set_role" atk_object_set_role :: +    Ptr Object ->                           -- _obj : TInterface "Atk" "Object"+    CUInt ->                                -- role : TInterface "Atk" "Role"+    IO ()+++objectSetRole ::+    (MonadIO m, ObjectK a) =>+    a ->                                    -- _obj+    Role ->                                 -- role+    m ()+objectSetRole _obj role = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let role' = (fromIntegral . fromEnum) role+    atk_object_set_role _obj' role'+    touchManagedPtr _obj+    return ()++
+ GI/Atk/Objects/Object.hs-boot view
@@ -0,0 +1,34 @@+module GI.Atk.Objects.Object where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Object = Object (ForeignPtr Object)+instance GObject Object where+class GObject o => ObjectK o+instance (GObject o, IsDescendantOf Object o) => ObjectK o+data ObjectAccessibleComponentLayerPropertyInfo+data ObjectAccessibleComponentMdiZorderPropertyInfo+data ObjectAccessibleDescriptionPropertyInfo+data ObjectAccessibleHypertextNlinksPropertyInfo+data ObjectAccessibleNamePropertyInfo+data ObjectAccessibleParentPropertyInfo+data ObjectAccessibleRolePropertyInfo+data ObjectAccessibleTableCaptionPropertyInfo+data ObjectAccessibleTableCaptionObjectPropertyInfo+data ObjectAccessibleTableColumnDescriptionPropertyInfo+data ObjectAccessibleTableColumnHeaderPropertyInfo+data ObjectAccessibleTableRowDescriptionPropertyInfo+data ObjectAccessibleTableRowHeaderPropertyInfo+data ObjectAccessibleTableSummaryPropertyInfo+data ObjectAccessibleValuePropertyInfo+data ObjectActiveDescendantChangedSignalInfo+data ObjectChildrenChangedSignalInfo+data ObjectFocusEventSignalInfo+data ObjectPropertyChangeSignalInfo+data ObjectStateChangeSignalInfo+data ObjectVisibleDataChangedSignalInfo
+ GI/Atk/Objects/ObjectFactory.hs view
@@ -0,0 +1,152 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.ObjectFactory+    ( ++-- * Exported types+    ObjectFactory(..)                       ,+    ObjectFactoryK                          ,+    toObjectFactory                         ,+    noObjectFactory                         ,+++ -- * Methods+-- ** objectFactoryCreateAccessible+    objectFactoryCreateAccessible           ,+++-- ** objectFactoryGetAccessibleType+    objectFactoryGetAccessibleType          ,+++-- ** objectFactoryInvalidate+    objectFactoryInvalidate                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype ObjectFactory = ObjectFactory (ForeignPtr ObjectFactory)+foreign import ccall "atk_object_factory_get_type"+    c_atk_object_factory_get_type :: IO GType++type instance ParentTypes ObjectFactory = ObjectFactoryParentTypes+type ObjectFactoryParentTypes = '[GObject.Object]++instance GObject ObjectFactory where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_object_factory_get_type+    ++class GObject o => ObjectFactoryK o+instance (GObject o, IsDescendantOf ObjectFactory o) => ObjectFactoryK o++toObjectFactory :: ObjectFactoryK o => o -> IO ObjectFactory+toObjectFactory = unsafeCastTo ObjectFactory++noObjectFactory :: Maybe ObjectFactory+noObjectFactory = Nothing++type instance AttributeList ObjectFactory = ObjectFactoryAttributeList+type ObjectFactoryAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList ObjectFactory = ObjectFactorySignalList+type ObjectFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method ObjectFactory::create_accessible+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_factory_create_accessible" atk_object_factory_create_accessible :: +    Ptr ObjectFactory ->                    -- _obj : TInterface "Atk" "ObjectFactory"+    Ptr GObject.Object ->                   -- obj : TInterface "GObject" "Object"+    IO (Ptr Object)+++objectFactoryCreateAccessible ::+    (MonadIO m, ObjectFactoryK a, GObject.ObjectK b) =>+    a ->                                    -- _obj+    b ->                                    -- obj+    m Object+objectFactoryCreateAccessible _obj obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let obj' = unsafeManagedPtrCastPtr obj+    result <- atk_object_factory_create_accessible _obj' obj'+    checkUnexpectedReturnNULL "atk_object_factory_create_accessible" result+    result' <- (wrapObject Object) result+    touchManagedPtr _obj+    touchManagedPtr obj+    return result'++-- method ObjectFactory::get_accessible_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TGType+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_factory_get_accessible_type" atk_object_factory_get_accessible_type :: +    Ptr ObjectFactory ->                    -- _obj : TInterface "Atk" "ObjectFactory"+    IO CGType+++objectFactoryGetAccessibleType ::+    (MonadIO m, ObjectFactoryK a) =>+    a ->                                    -- _obj+    m GType+objectFactoryGetAccessibleType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_object_factory_get_accessible_type _obj'+    let result' = GType result+    touchManagedPtr _obj+    return result'++-- method ObjectFactory::invalidate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_object_factory_invalidate" atk_object_factory_invalidate :: +    Ptr ObjectFactory ->                    -- _obj : TInterface "Atk" "ObjectFactory"+    IO ()+++objectFactoryInvalidate ::+    (MonadIO m, ObjectFactoryK a) =>+    a ->                                    -- _obj+    m ()+objectFactoryInvalidate _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_object_factory_invalidate _obj'+    touchManagedPtr _obj+    return ()++
+ GI/Atk/Objects/ObjectFactory.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.ObjectFactory where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ObjectFactory = ObjectFactory (ForeignPtr ObjectFactory)+instance GObject ObjectFactory where+class GObject o => ObjectFactoryK o+instance (GObject o, IsDescendantOf ObjectFactory o) => ObjectFactoryK o
+ GI/Atk/Objects/Plug.hs view
@@ -0,0 +1,118 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.Plug+    ( ++-- * Exported types+    Plug(..)                                ,+    PlugK                                   ,+    toPlug                                  ,+    noPlug                                  ,+++ -- * Methods+-- ** plugGetId+    plugGetId                               ,+++-- ** plugNew+    plugNew                                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype Plug = Plug (ForeignPtr Plug)+foreign import ccall "atk_plug_get_type"+    c_atk_plug_get_type :: IO GType++type instance ParentTypes Plug = PlugParentTypes+type PlugParentTypes = '[Object, GObject.Object, Component]++instance GObject Plug where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_plug_get_type+    ++class GObject o => PlugK o+instance (GObject o, IsDescendantOf Plug o) => PlugK o++toPlug :: PlugK o => o -> IO Plug+toPlug = unsafeCastTo Plug++noPlug :: Maybe Plug+noPlug = Nothing++type instance AttributeList Plug = PlugAttributeList+type PlugAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])++type instance SignalList Plug = PlugSignalList+type PlugSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Plug::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Atk" "Plug"+-- throws : False+-- Skip return : False++foreign import ccall "atk_plug_new" atk_plug_new :: +    IO (Ptr Plug)+++plugNew ::+    (MonadIO m) =>+    m Plug+plugNew  = liftIO $ do+    result <- atk_plug_new+    checkUnexpectedReturnNULL "atk_plug_new" result+    result' <- (wrapObject Plug) result+    return result'++-- method Plug::get_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_plug_get_id" atk_plug_get_id :: +    Ptr Plug ->                             -- _obj : TInterface "Atk" "Plug"+    IO CString+++plugGetId ::+    (MonadIO m, PlugK a) =>+    a ->                                    -- _obj+    m T.Text+plugGetId _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_plug_get_id _obj'+    checkUnexpectedReturnNULL "atk_plug_get_id" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Objects/Plug.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.Plug where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Plug = Plug (ForeignPtr Plug)+instance GObject Plug where+class GObject o => PlugK o+instance (GObject o, IsDescendantOf Plug o) => PlugK o
+ GI/Atk/Objects/Registry.hs view
@@ -0,0 +1,160 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.Registry+    ( ++-- * Exported types+    Registry(..)                            ,+    RegistryK                               ,+    toRegistry                              ,+    noRegistry                              ,+++ -- * Methods+-- ** registryGetFactory+    registryGetFactory                      ,+++-- ** registryGetFactoryType+    registryGetFactoryType                  ,+++-- ** registrySetFactoryType+    registrySetFactoryType                  ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype Registry = Registry (ForeignPtr Registry)+foreign import ccall "atk_registry_get_type"+    c_atk_registry_get_type :: IO GType++type instance ParentTypes Registry = RegistryParentTypes+type RegistryParentTypes = '[GObject.Object]++instance GObject Registry where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_registry_get_type+    ++class GObject o => RegistryK o+instance (GObject o, IsDescendantOf Registry o) => RegistryK o++toRegistry :: RegistryK o => o -> IO Registry+toRegistry = unsafeCastTo Registry++noRegistry :: Maybe Registry+noRegistry = Nothing++type instance AttributeList Registry = RegistryAttributeList+type RegistryAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList Registry = RegistrySignalList+type RegistrySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Registry::get_factory+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "ObjectFactory"+-- throws : False+-- Skip return : False++foreign import ccall "atk_registry_get_factory" atk_registry_get_factory :: +    Ptr Registry ->                         -- _obj : TInterface "Atk" "Registry"+    CGType ->                               -- type : TBasicType TGType+    IO (Ptr ObjectFactory)+++registryGetFactory ::+    (MonadIO m, RegistryK a) =>+    a ->                                    -- _obj+    GType ->                                -- type+    m ObjectFactory+registryGetFactory _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = gtypeToCGType type_+    result <- atk_registry_get_factory _obj' type_'+    checkUnexpectedReturnNULL "atk_registry_get_factory" result+    result' <- (newObject ObjectFactory) result+    touchManagedPtr _obj+    return result'++-- method Registry::get_factory_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TGType+-- throws : False+-- Skip return : False++foreign import ccall "atk_registry_get_factory_type" atk_registry_get_factory_type :: +    Ptr Registry ->                         -- _obj : TInterface "Atk" "Registry"+    CGType ->                               -- type : TBasicType TGType+    IO CGType+++registryGetFactoryType ::+    (MonadIO m, RegistryK a) =>+    a ->                                    -- _obj+    GType ->                                -- type+    m GType+registryGetFactoryType _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = gtypeToCGType type_+    result <- atk_registry_get_factory_type _obj' type_'+    let result' = GType result+    touchManagedPtr _obj+    return result'++-- method Registry::set_factory_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factory_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factory_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_registry_set_factory_type" atk_registry_set_factory_type :: +    Ptr Registry ->                         -- _obj : TInterface "Atk" "Registry"+    CGType ->                               -- type : TBasicType TGType+    CGType ->                               -- factory_type : TBasicType TGType+    IO ()+++registrySetFactoryType ::+    (MonadIO m, RegistryK a) =>+    a ->                                    -- _obj+    GType ->                                -- type+    GType ->                                -- factory_type+    m ()+registrySetFactoryType _obj type_ factory_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = gtypeToCGType type_+    let factory_type' = gtypeToCGType factory_type+    atk_registry_set_factory_type _obj' type_' factory_type'+    touchManagedPtr _obj+    return ()++
+ GI/Atk/Objects/Registry.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.Registry where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Registry = Registry (ForeignPtr Registry)+instance GObject Registry where+class GObject o => RegistryK o+instance (GObject o, IsDescendantOf Registry o) => RegistryK o
+ GI/Atk/Objects/Relation.hs view
@@ -0,0 +1,288 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.Relation+    ( ++-- * Exported types+    Relation(..)                            ,+    RelationK                               ,+    toRelation                              ,+    noRelation                              ,+++ -- * Methods+-- ** relationAddTarget+    relationAddTarget                       ,+++-- ** relationGetRelationType+    relationGetRelationType                 ,+++-- ** relationGetTarget+    relationGetTarget                       ,+++-- ** relationNew+    relationNew                             ,+++-- ** relationRemoveTarget+    relationRemoveTarget                    ,+++++ -- * Properties+-- ** RelationType+    RelationRelationTypePropertyInfo        ,+    constructRelationRelationType           ,+    getRelationRelationType                 ,+    setRelationRelationType                 ,+++-- ** Target+    RelationTargetPropertyInfo              ,+    constructRelationTarget                 ,+    getRelationTarget                       ,+    setRelationTarget                       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype Relation = Relation (ForeignPtr Relation)+foreign import ccall "atk_relation_get_type"+    c_atk_relation_get_type :: IO GType++type instance ParentTypes Relation = RelationParentTypes+type RelationParentTypes = '[GObject.Object]++instance GObject Relation where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_relation_get_type+    ++class GObject o => RelationK o+instance (GObject o, IsDescendantOf Relation o) => RelationK o++toRelation :: RelationK o => o -> IO Relation+toRelation = unsafeCastTo Relation++noRelation :: Maybe Relation+noRelation = Nothing++-- VVV Prop "relation-type"+   -- Type: TInterface "Atk" "RelationType"+   -- Flags: [PropertyReadable,PropertyWritable]++getRelationRelationType :: (MonadIO m, RelationK o) => o -> m RelationType+getRelationRelationType obj = liftIO $ getObjectPropertyEnum obj "relation-type"++setRelationRelationType :: (MonadIO m, RelationK o) => o -> RelationType -> m ()+setRelationRelationType obj val = liftIO $ setObjectPropertyEnum obj "relation-type" val++constructRelationRelationType :: RelationType -> IO ([Char], GValue)+constructRelationRelationType val = constructObjectPropertyEnum "relation-type" val++data RelationRelationTypePropertyInfo+instance AttrInfo RelationRelationTypePropertyInfo where+    type AttrAllowedOps RelationRelationTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint RelationRelationTypePropertyInfo = (~) RelationType+    type AttrBaseTypeConstraint RelationRelationTypePropertyInfo = RelationK+    type AttrGetType RelationRelationTypePropertyInfo = RelationType+    type AttrLabel RelationRelationTypePropertyInfo = "Relation::relation-type"+    attrGet _ = getRelationRelationType+    attrSet _ = setRelationRelationType+    attrConstruct _ = constructRelationRelationType++-- VVV Prop "target"+   -- Type: TInterface "GObject" "ValueArray"+   -- Flags: [PropertyReadable,PropertyWritable]++getRelationTarget :: (MonadIO m, RelationK o) => o -> m GObject.ValueArray+getRelationTarget obj = liftIO $ getObjectPropertyBoxed obj "target" GObject.ValueArray++setRelationTarget :: (MonadIO m, RelationK o) => o -> GObject.ValueArray -> m ()+setRelationTarget obj val = liftIO $ setObjectPropertyBoxed obj "target" val++constructRelationTarget :: GObject.ValueArray -> IO ([Char], GValue)+constructRelationTarget val = constructObjectPropertyBoxed "target" val++data RelationTargetPropertyInfo+instance AttrInfo RelationTargetPropertyInfo where+    type AttrAllowedOps RelationTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint RelationTargetPropertyInfo = (~) GObject.ValueArray+    type AttrBaseTypeConstraint RelationTargetPropertyInfo = RelationK+    type AttrGetType RelationTargetPropertyInfo = GObject.ValueArray+    type AttrLabel RelationTargetPropertyInfo = "Relation::target"+    attrGet _ = getRelationTarget+    attrSet _ = setRelationTarget+    attrConstruct _ = constructRelationTarget++type instance AttributeList Relation = RelationAttributeList+type RelationAttributeList = ('[ '("relation-type", RelationRelationTypePropertyInfo), '("target", RelationTargetPropertyInfo)] :: [(Symbol, *)])++type instance SignalList Relation = RelationSignalList+type RelationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Relation::new+-- method type : Constructor+-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Atk" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Atk" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Relation"+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_new" atk_relation_new :: +    Ptr (Ptr Object) ->                     -- targets : TCArray False (-1) 1 (TInterface "Atk" "Object")+    Int32 ->                                -- n_targets : TBasicType TInt32+    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"+    IO (Ptr Relation)+++relationNew ::+    (MonadIO m) =>+    [Object] ->                             -- targets+    RelationType ->                         -- relationship+    m Relation+relationNew targets relationship = liftIO $ do+    let n_targets = fromIntegral $ length targets+    let targets' = map unsafeManagedPtrCastPtr targets+    targets'' <- packPtrArray targets'+    let relationship' = (fromIntegral . fromEnum) relationship+    result <- atk_relation_new targets'' n_targets relationship'+    checkUnexpectedReturnNULL "atk_relation_new" result+    result' <- (wrapObject Relation) result+    mapM_ touchManagedPtr targets+    freeMem targets''+    return result'++-- method Relation::add_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_add_target" atk_relation_add_target :: +    Ptr Relation ->                         -- _obj : TInterface "Atk" "Relation"+    Ptr Object ->                           -- target : TInterface "Atk" "Object"+    IO ()+++relationAddTarget ::+    (MonadIO m, RelationK a, ObjectK b) =>+    a ->                                    -- _obj+    b ->                                    -- target+    m ()+relationAddTarget _obj target = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let target' = unsafeManagedPtrCastPtr target+    atk_relation_add_target _obj' target'+    touchManagedPtr _obj+    touchManagedPtr target+    return ()++-- method Relation::get_relation_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "RelationType"+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_get_relation_type" atk_relation_get_relation_type :: +    Ptr Relation ->                         -- _obj : TInterface "Atk" "Relation"+    IO CUInt+++relationGetRelationType ::+    (MonadIO m, RelationK a) =>+    a ->                                    -- _obj+    m RelationType+relationGetRelationType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_relation_get_relation_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Relation::get_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TPtrArray (TInterface "Atk" "Object")+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_get_target" atk_relation_get_target :: +    Ptr Relation ->                         -- _obj : TInterface "Atk" "Relation"+    IO (Ptr (GPtrArray (Ptr Object)))+++relationGetTarget ::+    (MonadIO m, RelationK a) =>+    a ->                                    -- _obj+    m [Object]+relationGetTarget _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_relation_get_target _obj'+    checkUnexpectedReturnNULL "atk_relation_get_target" result+    result' <- unpackGPtrArray result+    result'' <- mapM (newObject Object) result'+    touchManagedPtr _obj+    return result''++-- method Relation::remove_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_remove_target" atk_relation_remove_target :: +    Ptr Relation ->                         -- _obj : TInterface "Atk" "Relation"+    Ptr Object ->                           -- target : TInterface "Atk" "Object"+    IO CInt+++relationRemoveTarget ::+    (MonadIO m, RelationK a, ObjectK b) =>+    a ->                                    -- _obj+    b ->                                    -- target+    m Bool+relationRemoveTarget _obj target = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let target' = unsafeManagedPtrCastPtr target+    result <- atk_relation_remove_target _obj' target'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr target+    return result'++
+ GI/Atk/Objects/Relation.hs-boot view
@@ -0,0 +1,15 @@+module GI.Atk.Objects.Relation where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Relation = Relation (ForeignPtr Relation)+instance GObject Relation where+class GObject o => RelationK o+instance (GObject o, IsDescendantOf Relation o) => RelationK o+data RelationRelationTypePropertyInfo+data RelationTargetPropertyInfo
+ GI/Atk/Objects/RelationSet.hs view
@@ -0,0 +1,347 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.RelationSet+    ( ++-- * Exported types+    RelationSet(..)                         ,+    RelationSetK                            ,+    toRelationSet                           ,+    noRelationSet                           ,+++ -- * Methods+-- ** relationSetAdd+    relationSetAdd                          ,+++-- ** relationSetAddRelationByType+    relationSetAddRelationByType            ,+++-- ** relationSetContains+    relationSetContains                     ,+++-- ** relationSetContainsTarget+    relationSetContainsTarget               ,+++-- ** relationSetGetNRelations+    relationSetGetNRelations                ,+++-- ** relationSetGetRelation+    relationSetGetRelation                  ,+++-- ** relationSetGetRelationByType+    relationSetGetRelationByType            ,+++-- ** relationSetNew+    relationSetNew                          ,+++-- ** relationSetRemove+    relationSetRemove                       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype RelationSet = RelationSet (ForeignPtr RelationSet)+foreign import ccall "atk_relation_set_get_type"+    c_atk_relation_set_get_type :: IO GType++type instance ParentTypes RelationSet = RelationSetParentTypes+type RelationSetParentTypes = '[GObject.Object]++instance GObject RelationSet where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_relation_set_get_type+    ++class GObject o => RelationSetK o+instance (GObject o, IsDescendantOf RelationSet o) => RelationSetK o++toRelationSet :: RelationSetK o => o -> IO RelationSet+toRelationSet = unsafeCastTo RelationSet++noRelationSet :: Maybe RelationSet+noRelationSet = Nothing++type instance AttributeList RelationSet = RelationSetAttributeList+type RelationSetAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList RelationSet = RelationSetSignalList+type RelationSetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method RelationSet::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Atk" "RelationSet"+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_set_new" atk_relation_set_new :: +    IO (Ptr RelationSet)+++relationSetNew ::+    (MonadIO m) =>+    m RelationSet+relationSetNew  = liftIO $ do+    result <- atk_relation_set_new+    checkUnexpectedReturnNULL "atk_relation_set_new" result+    result' <- (wrapObject RelationSet) result+    return result'++-- method RelationSet::add+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_set_add" atk_relation_set_add :: +    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"+    Ptr Relation ->                         -- relation : TInterface "Atk" "Relation"+    IO ()+++relationSetAdd ::+    (MonadIO m, RelationSetK a, RelationK b) =>+    a ->                                    -- _obj+    b ->                                    -- relation+    m ()+relationSetAdd _obj relation = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let relation' = unsafeManagedPtrCastPtr relation+    atk_relation_set_add _obj' relation'+    touchManagedPtr _obj+    touchManagedPtr relation+    return ()++-- method RelationSet::add_relation_by_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_set_add_relation_by_type" atk_relation_set_add_relation_by_type :: +    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"+    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"+    Ptr Object ->                           -- target : TInterface "Atk" "Object"+    IO ()+++relationSetAddRelationByType ::+    (MonadIO m, RelationSetK a, ObjectK b) =>+    a ->                                    -- _obj+    RelationType ->                         -- relationship+    b ->                                    -- target+    m ()+relationSetAddRelationByType _obj relationship target = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let relationship' = (fromIntegral . fromEnum) relationship+    let target' = unsafeManagedPtrCastPtr target+    atk_relation_set_add_relation_by_type _obj' relationship' target'+    touchManagedPtr _obj+    touchManagedPtr target+    return ()++-- method RelationSet::contains+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_set_contains" atk_relation_set_contains :: +    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"+    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"+    IO CInt+++relationSetContains ::+    (MonadIO m, RelationSetK a) =>+    a ->                                    -- _obj+    RelationType ->                         -- relationship+    m Bool+relationSetContains _obj relationship = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let relationship' = (fromIntegral . fromEnum) relationship+    result <- atk_relation_set_contains _obj' relationship'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method RelationSet::contains_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_set_contains_target" atk_relation_set_contains_target :: +    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"+    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"+    Ptr Object ->                           -- target : TInterface "Atk" "Object"+    IO CInt+++relationSetContainsTarget ::+    (MonadIO m, RelationSetK a, ObjectK b) =>+    a ->                                    -- _obj+    RelationType ->                         -- relationship+    b ->                                    -- target+    m Bool+relationSetContainsTarget _obj relationship target = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let relationship' = (fromIntegral . fromEnum) relationship+    let target' = unsafeManagedPtrCastPtr target+    result <- atk_relation_set_contains_target _obj' relationship' target'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr target+    return result'++-- method RelationSet::get_n_relations+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_set_get_n_relations" atk_relation_set_get_n_relations :: +    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"+    IO Int32+++relationSetGetNRelations ::+    (MonadIO m, RelationSetK a) =>+    a ->                                    -- _obj+    m Int32+relationSetGetNRelations _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_relation_set_get_n_relations _obj'+    touchManagedPtr _obj+    return result++-- method RelationSet::get_relation+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Relation"+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_set_get_relation" atk_relation_set_get_relation :: +    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"+    Int32 ->                                -- i : TBasicType TInt32+    IO (Ptr Relation)+++relationSetGetRelation ::+    (MonadIO m, RelationSetK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- i+    m Relation+relationSetGetRelation _obj i = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_relation_set_get_relation _obj' i+    checkUnexpectedReturnNULL "atk_relation_set_get_relation" result+    result' <- (newObject Relation) result+    touchManagedPtr _obj+    return result'++-- method RelationSet::get_relation_by_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Relation"+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_set_get_relation_by_type" atk_relation_set_get_relation_by_type :: +    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"+    CUInt ->                                -- relationship : TInterface "Atk" "RelationType"+    IO (Ptr Relation)+++relationSetGetRelationByType ::+    (MonadIO m, RelationSetK a) =>+    a ->                                    -- _obj+    RelationType ->                         -- relationship+    m Relation+relationSetGetRelationByType _obj relationship = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let relationship' = (fromIntegral . fromEnum) relationship+    result <- atk_relation_set_get_relation_by_type _obj' relationship'+    checkUnexpectedReturnNULL "atk_relation_set_get_relation_by_type" result+    result' <- (newObject Relation) result+    touchManagedPtr _obj+    return result'++-- method RelationSet::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_relation_set_remove" atk_relation_set_remove :: +    Ptr RelationSet ->                      -- _obj : TInterface "Atk" "RelationSet"+    Ptr Relation ->                         -- relation : TInterface "Atk" "Relation"+    IO ()+++relationSetRemove ::+    (MonadIO m, RelationSetK a, RelationK b) =>+    a ->                                    -- _obj+    b ->                                    -- relation+    m ()+relationSetRemove _obj relation = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let relation' = unsafeManagedPtrCastPtr relation+    atk_relation_set_remove _obj' relation'+    touchManagedPtr _obj+    touchManagedPtr relation+    return ()++
+ GI/Atk/Objects/RelationSet.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.RelationSet where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype RelationSet = RelationSet (ForeignPtr RelationSet)+instance GObject RelationSet where+class GObject o => RelationSetK o+instance (GObject o, IsDescendantOf RelationSet o) => RelationSetK o
+ GI/Atk/Objects/Socket.hs view
@@ -0,0 +1,148 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.Socket+    ( ++-- * Exported types+    Socket(..)                              ,+    SocketK                                 ,+    toSocket                                ,+    noSocket                                ,+++ -- * Methods+-- ** socketEmbed+    socketEmbed                             ,+++-- ** socketIsOccupied+    socketIsOccupied                        ,+++-- ** socketNew+    socketNew                               ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype Socket = Socket (ForeignPtr Socket)+foreign import ccall "atk_socket_get_type"+    c_atk_socket_get_type :: IO GType++type instance ParentTypes Socket = SocketParentTypes+type SocketParentTypes = '[Object, GObject.Object, Component]++instance GObject Socket where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_socket_get_type+    ++class GObject o => SocketK o+instance (GObject o, IsDescendantOf Socket o) => SocketK o++toSocket :: SocketK o => o -> IO Socket+toSocket = unsafeCastTo Socket++noSocket :: Maybe Socket+noSocket = Nothing++type instance AttributeList Socket = SocketAttributeList+type SocketAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])++type instance SignalList Socket = SocketSignalList+type SocketSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Socket::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Atk" "Socket"+-- throws : False+-- Skip return : False++foreign import ccall "atk_socket_new" atk_socket_new :: +    IO (Ptr Socket)+++socketNew ::+    (MonadIO m) =>+    m Socket+socketNew  = liftIO $ do+    result <- atk_socket_new+    checkUnexpectedReturnNULL "atk_socket_new" result+    result' <- (wrapObject Socket) result+    return result'++-- method Socket::embed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plug_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plug_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_socket_embed" atk_socket_embed :: +    Ptr Socket ->                           -- _obj : TInterface "Atk" "Socket"+    CString ->                              -- plug_id : TBasicType TUTF8+    IO ()+++socketEmbed ::+    (MonadIO m, SocketK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- plug_id+    m ()+socketEmbed _obj plug_id = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    plug_id' <- textToCString plug_id+    atk_socket_embed _obj' plug_id'+    touchManagedPtr _obj+    freeMem plug_id'+    return ()++-- method Socket::is_occupied+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_socket_is_occupied" atk_socket_is_occupied :: +    Ptr Socket ->                           -- _obj : TInterface "Atk" "Socket"+    IO CInt+++socketIsOccupied ::+    (MonadIO m, SocketK a) =>+    a ->                                    -- _obj+    m Bool+socketIsOccupied _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_socket_is_occupied _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Objects/Socket.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.Socket where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Socket = Socket (ForeignPtr Socket)+instance GObject Socket where+class GObject o => SocketK o+instance (GObject o, IsDescendantOf Socket o) => SocketK o
+ GI/Atk/Objects/StateSet.hs view
@@ -0,0 +1,413 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.StateSet+    ( ++-- * Exported types+    StateSet(..)                            ,+    StateSetK                               ,+    toStateSet                              ,+    noStateSet                              ,+++ -- * Methods+-- ** stateSetAddState+    stateSetAddState                        ,+++-- ** stateSetAddStates+    stateSetAddStates                       ,+++-- ** stateSetAndSets+    stateSetAndSets                         ,+++-- ** stateSetClearStates+    stateSetClearStates                     ,+++-- ** stateSetContainsState+    stateSetContainsState                   ,+++-- ** stateSetContainsStates+    stateSetContainsStates                  ,+++-- ** stateSetIsEmpty+    stateSetIsEmpty                         ,+++-- ** stateSetNew+    stateSetNew                             ,+++-- ** stateSetOrSets+    stateSetOrSets                          ,+++-- ** stateSetRemoveState+    stateSetRemoveState                     ,+++-- ** stateSetXorSets+    stateSetXorSets                         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype StateSet = StateSet (ForeignPtr StateSet)+foreign import ccall "atk_state_set_get_type"+    c_atk_state_set_get_type :: IO GType++type instance ParentTypes StateSet = StateSetParentTypes+type StateSetParentTypes = '[GObject.Object]++instance GObject StateSet where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_state_set_get_type+    ++class GObject o => StateSetK o+instance (GObject o, IsDescendantOf StateSet o) => StateSetK o++toStateSet :: StateSetK o => o -> IO StateSet+toStateSet = unsafeCastTo StateSet++noStateSet :: Maybe StateSet+noStateSet = Nothing++type instance AttributeList StateSet = StateSetAttributeList+type StateSetAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList StateSet = StateSetSignalList+type StateSetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method StateSet::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Atk" "StateSet"+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_new" atk_state_set_new :: +    IO (Ptr StateSet)+++stateSetNew ::+    (MonadIO m) =>+    m StateSet+stateSetNew  = liftIO $ do+    result <- atk_state_set_new+    checkUnexpectedReturnNULL "atk_state_set_new" result+    result' <- (wrapObject StateSet) result+    return result'++-- method StateSet::add_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_add_state" atk_state_set_add_state :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    CUInt ->                                -- type : TInterface "Atk" "StateType"+    IO CInt+++stateSetAddState ::+    (MonadIO m, StateSetK a) =>+    a ->                                    -- _obj+    StateType ->                            -- type+    m Bool+stateSetAddState _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = (fromIntegral . fromEnum) type_+    result <- atk_state_set_add_state _obj' type_'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method StateSet::add_states+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_add_states" atk_state_set_add_states :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    Ptr CUInt ->                            -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType")+    Int32 ->                                -- n_types : TBasicType TInt32+    IO ()+++stateSetAddStates ::+    (MonadIO m, StateSetK a) =>+    a ->                                    -- _obj+    [StateType] ->                          -- types+    m ()+stateSetAddStates _obj types = liftIO $ do+    let n_types = fromIntegral $ length types+    let _obj' = unsafeManagedPtrCastPtr _obj+    let types' = map (fromIntegral . fromEnum) types+    types'' <- packStorableArray types'+    atk_state_set_add_states _obj' types'' n_types+    touchManagedPtr _obj+    freeMem types''+    return ()++-- method StateSet::and_sets+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "StateSet"+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_and_sets" atk_state_set_and_sets :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    Ptr StateSet ->                         -- compare_set : TInterface "Atk" "StateSet"+    IO (Ptr StateSet)+++stateSetAndSets ::+    (MonadIO m, StateSetK a, StateSetK b) =>+    a ->                                    -- _obj+    b ->                                    -- compare_set+    m StateSet+stateSetAndSets _obj compare_set = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let compare_set' = unsafeManagedPtrCastPtr compare_set+    result <- atk_state_set_and_sets _obj' compare_set'+    checkUnexpectedReturnNULL "atk_state_set_and_sets" result+    result' <- (wrapObject StateSet) result+    touchManagedPtr _obj+    touchManagedPtr compare_set+    return result'++-- method StateSet::clear_states+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_clear_states" atk_state_set_clear_states :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    IO ()+++stateSetClearStates ::+    (MonadIO m, StateSetK a) =>+    a ->                                    -- _obj+    m ()+stateSetClearStates _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    atk_state_set_clear_states _obj'+    touchManagedPtr _obj+    return ()++-- method StateSet::contains_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_contains_state" atk_state_set_contains_state :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    CUInt ->                                -- type : TInterface "Atk" "StateType"+    IO CInt+++stateSetContainsState ::+    (MonadIO m, StateSetK a) =>+    a ->                                    -- _obj+    StateType ->                            -- type+    m Bool+stateSetContainsState _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = (fromIntegral . fromEnum) type_+    result <- atk_state_set_contains_state _obj' type_'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method StateSet::contains_states+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_contains_states" atk_state_set_contains_states :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    Ptr CUInt ->                            -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType")+    Int32 ->                                -- n_types : TBasicType TInt32+    IO CInt+++stateSetContainsStates ::+    (MonadIO m, StateSetK a) =>+    a ->                                    -- _obj+    [StateType] ->                          -- types+    m Bool+stateSetContainsStates _obj types = liftIO $ do+    let n_types = fromIntegral $ length types+    let _obj' = unsafeManagedPtrCastPtr _obj+    let types' = map (fromIntegral . fromEnum) types+    types'' <- packStorableArray types'+    result <- atk_state_set_contains_states _obj' types'' n_types+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem types''+    return result'++-- method StateSet::is_empty+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_is_empty" atk_state_set_is_empty :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    IO CInt+++stateSetIsEmpty ::+    (MonadIO m, StateSetK a) =>+    a ->                                    -- _obj+    m Bool+stateSetIsEmpty _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- atk_state_set_is_empty _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method StateSet::or_sets+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "StateSet"+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_or_sets" atk_state_set_or_sets :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    Ptr StateSet ->                         -- compare_set : TInterface "Atk" "StateSet"+    IO (Ptr StateSet)+++stateSetOrSets ::+    (MonadIO m, StateSetK a, StateSetK b) =>+    a ->                                    -- _obj+    b ->                                    -- compare_set+    m StateSet+stateSetOrSets _obj compare_set = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let compare_set' = unsafeManagedPtrCastPtr compare_set+    result <- atk_state_set_or_sets _obj' compare_set'+    checkUnexpectedReturnNULL "atk_state_set_or_sets" result+    result' <- (wrapObject StateSet) result+    touchManagedPtr _obj+    touchManagedPtr compare_set+    return result'++-- method StateSet::remove_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_remove_state" atk_state_set_remove_state :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    CUInt ->                                -- type : TInterface "Atk" "StateType"+    IO CInt+++stateSetRemoveState ::+    (MonadIO m, StateSetK a) =>+    a ->                                    -- _obj+    StateType ->                            -- type+    m Bool+stateSetRemoveState _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = (fromIntegral . fromEnum) type_+    result <- atk_state_set_remove_state _obj' type_'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method StateSet::xor_sets+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "StateSet"+-- throws : False+-- Skip return : False++foreign import ccall "atk_state_set_xor_sets" atk_state_set_xor_sets :: +    Ptr StateSet ->                         -- _obj : TInterface "Atk" "StateSet"+    Ptr StateSet ->                         -- compare_set : TInterface "Atk" "StateSet"+    IO (Ptr StateSet)+++stateSetXorSets ::+    (MonadIO m, StateSetK a, StateSetK b) =>+    a ->                                    -- _obj+    b ->                                    -- compare_set+    m StateSet+stateSetXorSets _obj compare_set = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let compare_set' = unsafeManagedPtrCastPtr compare_set+    result <- atk_state_set_xor_sets _obj' compare_set'+    checkUnexpectedReturnNULL "atk_state_set_xor_sets" result+    result' <- (wrapObject StateSet) result+    touchManagedPtr _obj+    touchManagedPtr compare_set+    return result'++
+ GI/Atk/Objects/StateSet.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.StateSet where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype StateSet = StateSet (ForeignPtr StateSet)+instance GObject StateSet where+class GObject o => StateSetK o+instance (GObject o, IsDescendantOf StateSet o) => StateSetK o
+ GI/Atk/Objects/Util.hs view
@@ -0,0 +1,58 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Objects.Util+    ( ++-- * Exported types+    Util(..)                                ,+    UtilK                                   ,+    toUtil                                  ,+    noUtil                                  ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks+import qualified GI.GObject as GObject++newtype Util = Util (ForeignPtr Util)+foreign import ccall "atk_util_get_type"+    c_atk_util_get_type :: IO GType++type instance ParentTypes Util = UtilParentTypes+type UtilParentTypes = '[GObject.Object]++instance GObject Util where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_atk_util_get_type+    ++class GObject o => UtilK o+instance (GObject o, IsDescendantOf Util o) => UtilK o++toUtil :: UtilK o => o -> IO Util+toUtil = unsafeCastTo Util++noUtil :: Maybe Util+noUtil = Nothing++type instance AttributeList Util = UtilAttributeList+type UtilAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList Util = UtilSignalList+type UtilSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/Atk/Objects/Util.hs-boot view
@@ -0,0 +1,13 @@+module GI.Atk.Objects.Util where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Util = Util (ForeignPtr Util)+instance GObject Util where+class GObject o => UtilK o+instance (GObject o, IsDescendantOf Util o) => UtilK o
+ GI/Atk/Structs.hs view
@@ -0,0 +1,40 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Structs+    (     module GI.Atk.Structs.Attribute         ,+    module GI.Atk.Structs.Implementor       ,+    module GI.Atk.Structs.KeyEventStruct    ,+    module GI.Atk.Structs.PropertyValues    ,+    module GI.Atk.Structs.Range             ,+    module GI.Atk.Structs.Rectangle         ,+    module GI.Atk.Structs.TextRange         ,+    module GI.Atk.Structs.TextRectangle     ,+++    ) where++import GI.Atk.Structs.Attribute+import GI.Atk.Structs.Implementor+import GI.Atk.Structs.KeyEventStruct+import GI.Atk.Structs.PropertyValues+import GI.Atk.Structs.Range+import GI.Atk.Structs.Rectangle+import GI.Atk.Structs.TextRange+import GI.Atk.Structs.TextRectangle++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++
+ GI/Atk/Structs/Attribute.hs view
@@ -0,0 +1,67 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++AtkAttribute is a string name/value pair representing a generic+attribute. This can be used to expose additional information from+an accessible object as a whole (see atk_object_get_attributes())+or an document (see atk_document_get_attributes()). In the case of+text attributes (see atk_text_get_default_attributes()),+#AtkTextAttribute enum defines all the possible text attribute+names. You can use atk_text_attribute_get_name() to get the string+name from the enum value. See also atk_text_attribute_for_name()+and atk_text_attribute_get_value() for more information.++A string name/value pair representing a generic attribute.+-}++module GI.Atk.Structs.Attribute+    ( ++-- * Exported types+    Attribute(..)                           ,+    noAttribute                             ,+++ -- * Properties+-- ** Name+    attributeReadName                       ,+++-- ** Value+    attributeReadValue                      ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++newtype Attribute = Attribute (ForeignPtr Attribute)+noAttribute :: Maybe Attribute+noAttribute = Nothing++attributeReadName :: Attribute -> IO T.Text+attributeReadName s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++attributeReadValue :: Attribute -> IO T.Text+attributeReadValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CString+    val' <- cstringToText val+    return val'++
+ GI/Atk/Structs/Attribute.hs-boot view
@@ -0,0 +1,10 @@+module GI.Atk.Structs.Attribute where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Attribute = Attribute (ForeignPtr Attribute)
+ GI/Atk/Structs/Implementor.hs view
@@ -0,0 +1,65 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Atk.Structs.Implementor+    ( ++-- * Exported types+    Implementor(..)                         ,+    noImplementor                           ,+++ -- * Methods+-- ** implementorRefAccessible+    implementorRefAccessible                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++newtype Implementor = Implementor (ForeignPtr Implementor)+noImplementor :: Maybe Implementor+noImplementor = Nothing++-- method Implementor::ref_accessible+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Implementor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Implementor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Object"+-- throws : False+-- Skip return : False++foreign import ccall "atk_implementor_ref_accessible" atk_implementor_ref_accessible :: +    Ptr Implementor ->                      -- _obj : TInterface "Atk" "Implementor"+    IO (Ptr Object)+++implementorRefAccessible ::+    (MonadIO m) =>+    Implementor ->                          -- _obj+    m Object+implementorRefAccessible _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- atk_implementor_ref_accessible _obj'+    checkUnexpectedReturnNULL "atk_implementor_ref_accessible" result+    result' <- (wrapObject Object) result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Structs/Implementor.hs-boot view
@@ -0,0 +1,10 @@+module GI.Atk.Structs.Implementor where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Implementor = Implementor (ForeignPtr Implementor)
+ GI/Atk/Structs/KeyEventStruct.hs view
@@ -0,0 +1,101 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++Encapsulates information about a key event.+-}++module GI.Atk.Structs.KeyEventStruct+    ( ++-- * Exported types+    KeyEventStruct(..)                      ,+    noKeyEventStruct                        ,+++ -- * Properties+-- ** Keycode+    keyEventStructReadKeycode               ,+++-- ** Keyval+    keyEventStructReadKeyval                ,+++-- ** Length+    keyEventStructReadLength                ,+++-- ** State+    keyEventStructReadState                 ,+++-- ** String+    keyEventStructReadString                ,+++-- ** Timestamp+    keyEventStructReadTimestamp             ,+++-- ** Type+    keyEventStructReadType                  ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct)+noKeyEventStruct :: Maybe KeyEventStruct+noKeyEventStruct = Nothing++keyEventStructReadType :: KeyEventStruct -> IO Int32+keyEventStructReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++keyEventStructReadState :: KeyEventStruct -> IO Word32+keyEventStructReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Word32+    return val++keyEventStructReadKeyval :: KeyEventStruct -> IO Word32+keyEventStructReadKeyval s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word32+    return val++keyEventStructReadLength :: KeyEventStruct -> IO Int32+keyEventStructReadLength s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++keyEventStructReadString :: KeyEventStruct -> IO T.Text+keyEventStructReadString s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CString+    val' <- cstringToText val+    return val'++keyEventStructReadKeycode :: KeyEventStruct -> IO Word16+keyEventStructReadKeycode s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Word16+    return val++keyEventStructReadTimestamp :: KeyEventStruct -> IO Word32+keyEventStructReadTimestamp s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Word32+    return val++
+ GI/Atk/Structs/KeyEventStruct.hs-boot view
@@ -0,0 +1,10 @@+module GI.Atk.Structs.KeyEventStruct where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct)
+ GI/Atk/Structs/PropertyValues.hs view
@@ -0,0 +1,69 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++Note: @old_value field of #AtkPropertyValues will not contain a+valid value. This is a field defined with the purpose of contain+the previous value of the property, but is not used anymore.+-}++module GI.Atk.Structs.PropertyValues+    ( ++-- * Exported types+    PropertyValues(..)                      ,+    noPropertyValues                        ,+++ -- * Properties+-- ** NewValue+    propertyValuesReadNewValue              ,+++-- ** OldValue+    propertyValuesReadOldValue              ,+++-- ** PropertyName+    propertyValuesReadPropertyName          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues)+noPropertyValues :: Maybe PropertyValues+noPropertyValues = Nothing++propertyValuesReadPropertyName :: PropertyValues -> IO T.Text+propertyValuesReadPropertyName s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++propertyValuesReadOldValue :: PropertyValues -> IO GValue+propertyValuesReadOldValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue)+    val' <- (newBoxed GValue) val+    return val'++propertyValuesReadNewValue :: PropertyValues -> IO GValue+propertyValuesReadNewValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO (Ptr GValue)+    val' <- (newBoxed GValue) val+    return val'++
+ GI/Atk/Structs/PropertyValues.hs-boot view
@@ -0,0 +1,10 @@+module GI.Atk.Structs.PropertyValues where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues)
+ GI/Atk/Structs/Range.hs view
@@ -0,0 +1,229 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++#AtkRange are used on #AtkValue, in order to represent the full+range of a given component (for example an slider or a range+control), or to define each individual subrange this full range is+splitted if available. See #AtkValue documentation for further+details.+-}++module GI.Atk.Structs.Range+    ( ++-- * Exported types+    Range(..)                               ,+    noRange                                 ,+++ -- * Methods+-- ** rangeCopy+    rangeCopy                               ,+++-- ** rangeFree+    rangeFree                               ,+++-- ** rangeGetDescription+    rangeGetDescription                     ,+++-- ** rangeGetLowerLimit+    rangeGetLowerLimit                      ,+++-- ** rangeGetUpperLimit+    rangeGetUpperLimit                      ,+++-- ** rangeNew+    rangeNew                                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++newtype Range = Range (ForeignPtr Range)+foreign import ccall "atk_range_get_type" c_atk_range_get_type :: +    IO GType++instance BoxedObject Range where+    boxedType _ = c_atk_range_get_type++noRange :: Maybe Range+noRange = Nothing++-- method Range::new+-- method type : Constructor+-- Args : [Arg {argName = "lower_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "lower_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Range"+-- throws : False+-- Skip return : False++foreign import ccall "atk_range_new" atk_range_new :: +    CDouble ->                              -- lower_limit : TBasicType TDouble+    CDouble ->                              -- upper_limit : TBasicType TDouble+    CString ->                              -- description : TBasicType TUTF8+    IO (Ptr Range)+++rangeNew ::+    (MonadIO m) =>+    Double ->                               -- lower_limit+    Double ->                               -- upper_limit+    T.Text ->                               -- description+    m Range+rangeNew lower_limit upper_limit description = liftIO $ do+    let lower_limit' = realToFrac lower_limit+    let upper_limit' = realToFrac upper_limit+    description' <- textToCString description+    result <- atk_range_new lower_limit' upper_limit' description'+    checkUnexpectedReturnNULL "atk_range_new" result+    result' <- (wrapBoxed Range) result+    freeMem description'+    return result'++-- method Range::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Atk" "Range"+-- throws : False+-- Skip return : False++foreign import ccall "atk_range_copy" atk_range_copy :: +    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"+    IO (Ptr Range)+++rangeCopy ::+    (MonadIO m) =>+    Range ->                                -- _obj+    m Range+rangeCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- atk_range_copy _obj'+    checkUnexpectedReturnNULL "atk_range_copy" result+    result' <- (wrapBoxed Range) result+    touchManagedPtr _obj+    return result'++-- method Range::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_range_free" atk_range_free :: +    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"+    IO ()+++rangeFree ::+    (MonadIO m) =>+    Range ->                                -- _obj+    m ()+rangeFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    atk_range_free _obj'+    touchManagedPtr _obj+    return ()++-- method Range::get_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "atk_range_get_description" atk_range_get_description :: +    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"+    IO CString+++rangeGetDescription ::+    (MonadIO m) =>+    Range ->                                -- _obj+    m T.Text+rangeGetDescription _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- atk_range_get_description _obj'+    checkUnexpectedReturnNULL "atk_range_get_description" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Range::get_lower_limit+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "atk_range_get_lower_limit" atk_range_get_lower_limit :: +    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"+    IO CDouble+++rangeGetLowerLimit ::+    (MonadIO m) =>+    Range ->                                -- _obj+    m Double+rangeGetLowerLimit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- atk_range_get_lower_limit _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method Range::get_upper_limit+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "atk_range_get_upper_limit" atk_range_get_upper_limit :: +    Ptr Range ->                            -- _obj : TInterface "Atk" "Range"+    IO CDouble+++rangeGetUpperLimit ::+    (MonadIO m) =>+    Range ->                                -- _obj+    m Double+rangeGetUpperLimit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- atk_range_get_upper_limit _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++
+ GI/Atk/Structs/Range.hs-boot view
@@ -0,0 +1,11 @@+module GI.Atk.Structs.Range where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Range = Range (ForeignPtr Range)+instance BoxedObject Range where
+ GI/Atk/Structs/Rectangle.hs view
@@ -0,0 +1,80 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++A data structure for holding a rectangle. Those coordinates are+relative to the component top-level parent.+-}++module GI.Atk.Structs.Rectangle+    ( ++-- * Exported types+    Rectangle(..)                           ,+    noRectangle                             ,+++ -- * Properties+-- ** Height+    rectangleReadHeight                     ,+++-- ** Width+    rectangleReadWidth                      ,+++-- ** X+    rectangleReadX                          ,+++-- ** Y+    rectangleReadY                          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++newtype Rectangle = Rectangle (ForeignPtr Rectangle)+foreign import ccall "atk_rectangle_get_type" c_atk_rectangle_get_type :: +    IO GType++instance BoxedObject Rectangle where+    boxedType _ = c_atk_rectangle_get_type++noRectangle :: Maybe Rectangle+noRectangle = Nothing++rectangleReadX :: Rectangle -> IO Int32+rectangleReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++rectangleReadY :: Rectangle -> IO Int32+rectangleReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++rectangleReadWidth :: Rectangle -> IO Int32+rectangleReadWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++rectangleReadHeight :: Rectangle -> IO Int32+rectangleReadHeight s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++
+ GI/Atk/Structs/Rectangle.hs-boot view
@@ -0,0 +1,11 @@+module GI.Atk.Structs.Rectangle where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Rectangle = Rectangle (ForeignPtr Rectangle)+instance BoxedObject Rectangle where
+ GI/Atk/Structs/TextRange.hs view
@@ -0,0 +1,81 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++A structure used to describe a text range.+-}++module GI.Atk.Structs.TextRange+    ( ++-- * Exported types+    TextRange(..)                           ,+    noTextRange                             ,+++ -- * Properties+-- ** Bounds+    textRangeReadBounds                     ,+++-- ** Content+    textRangeReadContent                    ,+++-- ** EndOffset+    textRangeReadEndOffset                  ,+++-- ** StartOffset+    textRangeReadStartOffset                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++newtype TextRange = TextRange (ForeignPtr TextRange)+foreign import ccall "atk_text_range_get_type" c_atk_text_range_get_type :: +    IO GType++instance BoxedObject TextRange where+    boxedType _ = c_atk_text_range_get_type++noTextRange :: Maybe TextRange+noTextRange = Nothing++textRangeReadBounds :: TextRange -> IO TextRectangle+textRangeReadBounds s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr TextRectangle)+    val' <- (newPtr 16 TextRectangle) val+    return val'++textRangeReadStartOffset :: TextRange -> IO Int32+textRangeReadStartOffset s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int32+    return val++textRangeReadEndOffset :: TextRange -> IO Int32+textRangeReadEndOffset s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Int32+    return val++textRangeReadContent :: TextRange -> IO T.Text+textRangeReadContent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CString+    val' <- cstringToText val+    return val'++
+ GI/Atk/Structs/TextRange.hs-boot view
@@ -0,0 +1,11 @@+module GI.Atk.Structs.TextRange where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype TextRange = TextRange (ForeignPtr TextRange)+instance BoxedObject TextRange where
+ GI/Atk/Structs/TextRectangle.hs view
@@ -0,0 +1,73 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++A structure used to store a rectangle used by AtkText.+-}++module GI.Atk.Structs.TextRectangle+    ( ++-- * Exported types+    TextRectangle(..)                       ,+    noTextRectangle                         ,+++ -- * Properties+-- ** Height+    textRectangleReadHeight                 ,+++-- ** Width+    textRectangleReadWidth                  ,+++-- ** X+    textRectangleReadX                      ,+++-- ** Y+    textRectangleReadY                      ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Atk.Types+import GI.Atk.Callbacks++newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle)+noTextRectangle :: Maybe TextRectangle+noTextRectangle = Nothing++textRectangleReadX :: TextRectangle -> IO Int32+textRectangleReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++textRectangleReadY :: TextRectangle -> IO Int32+textRectangleReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++textRectangleReadWidth :: TextRectangle -> IO Int32+textRectangleReadWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++textRectangleReadHeight :: TextRectangle -> IO Int32+textRectangleReadHeight s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++
+ GI/Atk/Structs/TextRectangle.hs-boot view
@@ -0,0 +1,10 @@+module GI.Atk.Structs.TextRectangle where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle)
+ GI/Atk/Types.hs view
@@ -0,0 +1,86 @@+module GI.Atk.Types+    (     module GI.Atk.Interfaces.Action         ,+    module GI.Atk.Interfaces.Component      ,+    module GI.Atk.Interfaces.Document       ,+    module GI.Atk.Interfaces.EditableText   ,+    module GI.Atk.Interfaces.HyperlinkImpl  ,+    module GI.Atk.Interfaces.Hypertext      ,+    module GI.Atk.Interfaces.Image          ,+    module GI.Atk.Interfaces.ImplementorIface,+    module GI.Atk.Interfaces.Selection      ,+    module GI.Atk.Interfaces.StreamableContent,+    module GI.Atk.Interfaces.Table          ,+    module GI.Atk.Interfaces.TableCell      ,+    module GI.Atk.Interfaces.Text           ,+    module GI.Atk.Interfaces.Value          ,+    module GI.Atk.Interfaces.Window         ,+    module GI.Atk.Objects.GObjectAccessible ,+    module GI.Atk.Objects.Hyperlink         ,+    module GI.Atk.Objects.Misc              ,+    module GI.Atk.Objects.NoOpObject        ,+    module GI.Atk.Objects.NoOpObjectFactory ,+    module GI.Atk.Objects.Object            ,+    module GI.Atk.Objects.ObjectFactory     ,+    module GI.Atk.Objects.Plug              ,+    module GI.Atk.Objects.Registry          ,+    module GI.Atk.Objects.Relation          ,+    module GI.Atk.Objects.RelationSet       ,+    module GI.Atk.Objects.Socket            ,+    module GI.Atk.Objects.StateSet          ,+    module GI.Atk.Objects.Util              ,+    module GI.Atk.Structs.Attribute         ,+    module GI.Atk.Structs.Implementor       ,+    module GI.Atk.Structs.KeyEventStruct    ,+    module GI.Atk.Structs.PropertyValues    ,+    module GI.Atk.Structs.Range             ,+    module GI.Atk.Structs.Rectangle         ,+    module GI.Atk.Structs.TextRange         ,+    module GI.Atk.Structs.TextRectangle     ,+    module GI.Atk.Enums                     ,+    module GI.Atk.Flags                     ,+++    ) where+++import {-# SOURCE #-} GI.Atk.Interfaces.Action+import {-# SOURCE #-} GI.Atk.Interfaces.Component+import {-# SOURCE #-} GI.Atk.Interfaces.Document+import {-# SOURCE #-} GI.Atk.Interfaces.EditableText+import {-# SOURCE #-} GI.Atk.Interfaces.HyperlinkImpl+import {-# SOURCE #-} GI.Atk.Interfaces.Hypertext+import {-# SOURCE #-} GI.Atk.Interfaces.Image+import {-# SOURCE #-} GI.Atk.Interfaces.ImplementorIface+import {-# SOURCE #-} GI.Atk.Interfaces.Selection+import {-# SOURCE #-} GI.Atk.Interfaces.StreamableContent+import {-# SOURCE #-} GI.Atk.Interfaces.Table+import {-# SOURCE #-} GI.Atk.Interfaces.TableCell+import {-# SOURCE #-} GI.Atk.Interfaces.Text+import {-# SOURCE #-} GI.Atk.Interfaces.Value+import {-# SOURCE #-} GI.Atk.Interfaces.Window+import {-# SOURCE #-} GI.Atk.Objects.GObjectAccessible+import {-# SOURCE #-} GI.Atk.Objects.Hyperlink+import {-# SOURCE #-} GI.Atk.Objects.Misc+import {-# SOURCE #-} GI.Atk.Objects.NoOpObject+import {-# SOURCE #-} GI.Atk.Objects.NoOpObjectFactory+import {-# SOURCE #-} GI.Atk.Objects.Object+import {-# SOURCE #-} GI.Atk.Objects.ObjectFactory+import {-# SOURCE #-} GI.Atk.Objects.Plug+import {-# SOURCE #-} GI.Atk.Objects.Registry+import {-# SOURCE #-} GI.Atk.Objects.Relation+import {-# SOURCE #-} GI.Atk.Objects.RelationSet+import {-# SOURCE #-} GI.Atk.Objects.Socket+import {-# SOURCE #-} GI.Atk.Objects.StateSet+import {-# SOURCE #-} GI.Atk.Objects.Util+import {-# SOURCE #-} GI.Atk.Structs.Attribute+import {-# SOURCE #-} GI.Atk.Structs.Implementor+import {-# SOURCE #-} GI.Atk.Structs.KeyEventStruct+import {-# SOURCE #-} GI.Atk.Structs.PropertyValues+import {-# SOURCE #-} GI.Atk.Structs.Range+import {-# SOURCE #-} GI.Atk.Structs.Rectangle+import {-# SOURCE #-} GI.Atk.Structs.TextRange+import {-# SOURCE #-} GI.Atk.Structs.TextRectangle++import GI.Atk.Enums+import GI.Atk.Flags+
− GI/AtkAttributes.hs 
@@ -1,570 +0,0 @@-{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-}---- Generated code.--{-# OPTIONS_GHC -fno-warn-unused-imports #-}--{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,-    TypeFamilies, MultiParamTypeClasses, KindSignatures,-    FlexibleInstances, UndecidableInstances, DataKinds,-    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}--module GI.AtkAttributes where--import Prelude ()-import Data.GI.Base.ShortPrelude-import Data.Char-import Data.Int-import Data.Word-import qualified Data.ByteString.Char8 as B-import Data.ByteString.Char8 (ByteString)-import qualified Data.Map as Map-import Foreign.C-import Foreign.Ptr-import Foreign.ForeignPtr-import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)-import Foreign.Storable (peek, poke, sizeOf)-import Control.Applicative ((<$>))-import Control.Exception (onException)-import Control.Monad.IO.Class-import qualified Data.Text as T--import Data.GI.Base.Attributes hiding (get, set)-import Data.GI.Base.BasicTypes-import Data.GI.Base.BasicConversions-import Data.GI.Base.Closure-import Data.GI.Base.GError-import Data.GI.Base.GHashTable-import Data.GI.Base.GParamSpec-import Data.GI.Base.GVariant-import Data.GI.Base.GValue-import Data.GI.Base.ManagedPtr-import Data.GI.Base.Overloading-import Data.GI.Base.Properties hiding (new)-import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)-import Data.GI.Base.Utils--import qualified GI.GObject as GObject-import qualified GI.GObjectAttributes as GObjectA-import GI.Atk--type instance AttributeList Action = '[ ]--type instance AttributeList Component = '[ ]--type instance AttributeList Document = '[ ]--type instance AttributeList EditableText = '[ ]--type instance AttributeList GObjectAccessible = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)]---- VVV Prop "end-index"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable]--getHyperlinkEndIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32-getHyperlinkEndIndex obj = liftIO $ getObjectPropertyCInt obj "end-index"--data HyperlinkEndIndexPropertyInfo-instance AttrInfo HyperlinkEndIndexPropertyInfo where-    type AttrAllowedOps HyperlinkEndIndexPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint HyperlinkEndIndexPropertyInfo = (~) ()-    type AttrBaseTypeConstraint HyperlinkEndIndexPropertyInfo = HyperlinkK-    type AttrGetType HyperlinkEndIndexPropertyInfo = Int32-    type AttrLabel HyperlinkEndIndexPropertyInfo = "Hyperlink::end-index"-    attrGet _ = getHyperlinkEndIndex-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "number-of-anchors"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable]--getHyperlinkNumberOfAnchors :: (MonadIO m, HyperlinkK o) => o -> m Int32-getHyperlinkNumberOfAnchors obj = liftIO $ getObjectPropertyCInt obj "number-of-anchors"--data HyperlinkNumberOfAnchorsPropertyInfo-instance AttrInfo HyperlinkNumberOfAnchorsPropertyInfo where-    type AttrAllowedOps HyperlinkNumberOfAnchorsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = HyperlinkK-    type AttrGetType HyperlinkNumberOfAnchorsPropertyInfo = Int32-    type AttrLabel HyperlinkNumberOfAnchorsPropertyInfo = "Hyperlink::number-of-anchors"-    attrGet _ = getHyperlinkNumberOfAnchors-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "selected-link"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]--getHyperlinkSelectedLink :: (MonadIO m, HyperlinkK o) => o -> m Bool-getHyperlinkSelectedLink obj = liftIO $ getObjectPropertyBool obj "selected-link"--data HyperlinkSelectedLinkPropertyInfo-instance AttrInfo HyperlinkSelectedLinkPropertyInfo where-    type AttrAllowedOps HyperlinkSelectedLinkPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint HyperlinkSelectedLinkPropertyInfo = (~) ()-    type AttrBaseTypeConstraint HyperlinkSelectedLinkPropertyInfo = HyperlinkK-    type AttrGetType HyperlinkSelectedLinkPropertyInfo = Bool-    type AttrLabel HyperlinkSelectedLinkPropertyInfo = "Hyperlink::selected-link"-    attrGet _ = getHyperlinkSelectedLink-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "start-index"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable]--getHyperlinkStartIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32-getHyperlinkStartIndex obj = liftIO $ getObjectPropertyCInt obj "start-index"--data HyperlinkStartIndexPropertyInfo-instance AttrInfo HyperlinkStartIndexPropertyInfo where-    type AttrAllowedOps HyperlinkStartIndexPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint HyperlinkStartIndexPropertyInfo = (~) ()-    type AttrBaseTypeConstraint HyperlinkStartIndexPropertyInfo = HyperlinkK-    type AttrGetType HyperlinkStartIndexPropertyInfo = Int32-    type AttrLabel HyperlinkStartIndexPropertyInfo = "Hyperlink::start-index"-    attrGet _ = getHyperlinkStartIndex-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList Hyperlink = '[ '("end-index", HyperlinkEndIndexPropertyInfo), '("number-of-anchors", HyperlinkNumberOfAnchorsPropertyInfo), '("selected-link", HyperlinkSelectedLinkPropertyInfo), '("start-index", HyperlinkStartIndexPropertyInfo)]--type instance AttributeList HyperlinkImpl = '[ ]--type instance AttributeList Hypertext = '[ ]--type instance AttributeList Image = '[ ]--type instance AttributeList ImplementorIface = '[ ]--type instance AttributeList Misc = '[ ]--type instance AttributeList NoOpObject = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)]--type instance AttributeList NoOpObjectFactory = '[ ]---- VVV Prop "accessible-component-layer"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable]--getObjectAccessibleComponentLayer :: (MonadIO m, ObjectK o) => o -> m Int32-getObjectAccessibleComponentLayer obj = liftIO $ getObjectPropertyCInt obj "accessible-component-layer"--data ObjectAccessibleComponentLayerPropertyInfo-instance AttrInfo ObjectAccessibleComponentLayerPropertyInfo where-    type AttrAllowedOps ObjectAccessibleComponentLayerPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleComponentLayerPropertyInfo = Int32-    type AttrLabel ObjectAccessibleComponentLayerPropertyInfo = "Object::accessible-component-layer"-    attrGet _ = getObjectAccessibleComponentLayer-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "accessible-component-mdi-zorder"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable]--getObjectAccessibleComponentMdiZorder :: (MonadIO m, ObjectK o) => o -> m Int32-getObjectAccessibleComponentMdiZorder obj = liftIO $ getObjectPropertyCInt obj "accessible-component-mdi-zorder"--data ObjectAccessibleComponentMdiZorderPropertyInfo-instance AttrInfo ObjectAccessibleComponentMdiZorderPropertyInfo where-    type AttrAllowedOps ObjectAccessibleComponentMdiZorderPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleComponentMdiZorderPropertyInfo = Int32-    type AttrLabel ObjectAccessibleComponentMdiZorderPropertyInfo = "Object::accessible-component-mdi-zorder"-    attrGet _ = getObjectAccessibleComponentMdiZorder-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "accessible-description"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> m T.Text-getObjectAccessibleDescription obj = liftIO $ getObjectPropertyString obj "accessible-description"--setObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleDescription obj val = liftIO $ setObjectPropertyString obj "accessible-description" val--constructObjectAccessibleDescription :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleDescription val = constructObjectPropertyString "accessible-description" val--data ObjectAccessibleDescriptionPropertyInfo-instance AttrInfo ObjectAccessibleDescriptionPropertyInfo where-    type AttrAllowedOps ObjectAccessibleDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ObjectAccessibleDescriptionPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleDescriptionPropertyInfo = T.Text-    type AttrLabel ObjectAccessibleDescriptionPropertyInfo = "Object::accessible-description"-    attrGet _ = getObjectAccessibleDescription-    attrSet _ = setObjectAccessibleDescription-    attrConstruct _ = constructObjectAccessibleDescription---- VVV Prop "accessible-hypertext-nlinks"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable]--getObjectAccessibleHypertextNlinks :: (MonadIO m, ObjectK o) => o -> m Int32-getObjectAccessibleHypertextNlinks obj = liftIO $ getObjectPropertyCInt obj "accessible-hypertext-nlinks"--data ObjectAccessibleHypertextNlinksPropertyInfo-instance AttrInfo ObjectAccessibleHypertextNlinksPropertyInfo where-    type AttrAllowedOps ObjectAccessibleHypertextNlinksPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleHypertextNlinksPropertyInfo = Int32-    type AttrLabel ObjectAccessibleHypertextNlinksPropertyInfo = "Object::accessible-hypertext-nlinks"-    attrGet _ = getObjectAccessibleHypertextNlinks-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "accessible-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> m T.Text-getObjectAccessibleName obj = liftIO $ getObjectPropertyString obj "accessible-name"--setObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleName obj val = liftIO $ setObjectPropertyString obj "accessible-name" val--constructObjectAccessibleName :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleName val = constructObjectPropertyString "accessible-name" val--data ObjectAccessibleNamePropertyInfo-instance AttrInfo ObjectAccessibleNamePropertyInfo where-    type AttrAllowedOps ObjectAccessibleNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ObjectAccessibleNamePropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleNamePropertyInfo = T.Text-    type AttrLabel ObjectAccessibleNamePropertyInfo = "Object::accessible-name"-    attrGet _ = getObjectAccessibleName-    attrSet _ = setObjectAccessibleName-    attrConstruct _ = constructObjectAccessibleName---- VVV Prop "accessible-parent"-   -- Type: TInterface "Atk" "Object"-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleParent :: (MonadIO m, ObjectK o) => o -> m Object-getObjectAccessibleParent obj = liftIO $ getObjectPropertyObject obj "accessible-parent" Object--setObjectAccessibleParent :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleParent obj val = liftIO $ setObjectPropertyObject obj "accessible-parent" val--constructObjectAccessibleParent :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleParent val = constructObjectPropertyObject "accessible-parent" val--data ObjectAccessibleParentPropertyInfo-instance AttrInfo ObjectAccessibleParentPropertyInfo where-    type AttrAllowedOps ObjectAccessibleParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK-    type AttrBaseTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleParentPropertyInfo = Object-    type AttrLabel ObjectAccessibleParentPropertyInfo = "Object::accessible-parent"-    attrGet _ = getObjectAccessibleParent-    attrSet _ = setObjectAccessibleParent-    attrConstruct _ = constructObjectAccessibleParent---- VVV Prop "accessible-role"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> m Int32-getObjectAccessibleRole obj = liftIO $ getObjectPropertyCInt obj "accessible-role"--setObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> Int32 -> m ()-setObjectAccessibleRole obj val = liftIO $ setObjectPropertyCInt obj "accessible-role" val--constructObjectAccessibleRole :: Int32 -> IO ([Char], GValue)-constructObjectAccessibleRole val = constructObjectPropertyCInt "accessible-role" val--data ObjectAccessibleRolePropertyInfo-instance AttrInfo ObjectAccessibleRolePropertyInfo where-    type AttrAllowedOps ObjectAccessibleRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Int32-    type AttrBaseTypeConstraint ObjectAccessibleRolePropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleRolePropertyInfo = Int32-    type AttrLabel ObjectAccessibleRolePropertyInfo = "Object::accessible-role"-    attrGet _ = getObjectAccessibleRole-    attrSet _ = setObjectAccessibleRole-    attrConstruct _ = constructObjectAccessibleRole---- VVV Prop "accessible-table-caption"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> m T.Text-getObjectAccessibleTableCaption obj = liftIO $ getObjectPropertyString obj "accessible-table-caption"--setObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleTableCaption obj val = liftIO $ setObjectPropertyString obj "accessible-table-caption" val--constructObjectAccessibleTableCaption :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleTableCaption val = constructObjectPropertyString "accessible-table-caption" val--data ObjectAccessibleTableCaptionPropertyInfo-instance AttrInfo ObjectAccessibleTableCaptionPropertyInfo where-    type AttrAllowedOps ObjectAccessibleTableCaptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleTableCaptionPropertyInfo = T.Text-    type AttrLabel ObjectAccessibleTableCaptionPropertyInfo = "Object::accessible-table-caption"-    attrGet _ = getObjectAccessibleTableCaption-    attrSet _ = setObjectAccessibleTableCaption-    attrConstruct _ = constructObjectAccessibleTableCaption---- VVV Prop "accessible-table-caption-object"-   -- Type: TInterface "Atk" "Object"-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o) => o -> m Object-getObjectAccessibleTableCaptionObject obj = liftIO $ getObjectPropertyObject obj "accessible-table-caption-object" Object--setObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleTableCaptionObject obj val = liftIO $ setObjectPropertyObject obj "accessible-table-caption-object" val--constructObjectAccessibleTableCaptionObject :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleTableCaptionObject val = constructObjectPropertyObject "accessible-table-caption-object" val--data ObjectAccessibleTableCaptionObjectPropertyInfo-instance AttrInfo ObjectAccessibleTableCaptionObjectPropertyInfo where-    type AttrAllowedOps ObjectAccessibleTableCaptionObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK-    type AttrBaseTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleTableCaptionObjectPropertyInfo = Object-    type AttrLabel ObjectAccessibleTableCaptionObjectPropertyInfo = "Object::accessible-table-caption-object"-    attrGet _ = getObjectAccessibleTableCaptionObject-    attrSet _ = setObjectAccessibleTableCaptionObject-    attrConstruct _ = constructObjectAccessibleTableCaptionObject---- VVV Prop "accessible-table-column-description"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> m T.Text-getObjectAccessibleTableColumnDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-column-description"--setObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleTableColumnDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-column-description" val--constructObjectAccessibleTableColumnDescription :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleTableColumnDescription val = constructObjectPropertyString "accessible-table-column-description" val--data ObjectAccessibleTableColumnDescriptionPropertyInfo-instance AttrInfo ObjectAccessibleTableColumnDescriptionPropertyInfo where-    type AttrAllowedOps ObjectAccessibleTableColumnDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleTableColumnDescriptionPropertyInfo = T.Text-    type AttrLabel ObjectAccessibleTableColumnDescriptionPropertyInfo = "Object::accessible-table-column-description"-    attrGet _ = getObjectAccessibleTableColumnDescription-    attrSet _ = setObjectAccessibleTableColumnDescription-    attrConstruct _ = constructObjectAccessibleTableColumnDescription---- VVV Prop "accessible-table-column-header"-   -- Type: TInterface "Atk" "Object"-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o) => o -> m Object-getObjectAccessibleTableColumnHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-column-header" Object--setObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleTableColumnHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-column-header" val--constructObjectAccessibleTableColumnHeader :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleTableColumnHeader val = constructObjectPropertyObject "accessible-table-column-header" val--data ObjectAccessibleTableColumnHeaderPropertyInfo-instance AttrInfo ObjectAccessibleTableColumnHeaderPropertyInfo where-    type AttrAllowedOps ObjectAccessibleTableColumnHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK-    type AttrBaseTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleTableColumnHeaderPropertyInfo = Object-    type AttrLabel ObjectAccessibleTableColumnHeaderPropertyInfo = "Object::accessible-table-column-header"-    attrGet _ = getObjectAccessibleTableColumnHeader-    attrSet _ = setObjectAccessibleTableColumnHeader-    attrConstruct _ = constructObjectAccessibleTableColumnHeader---- VVV Prop "accessible-table-row-description"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> m T.Text-getObjectAccessibleTableRowDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-row-description"--setObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleTableRowDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-row-description" val--constructObjectAccessibleTableRowDescription :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleTableRowDescription val = constructObjectPropertyString "accessible-table-row-description" val--data ObjectAccessibleTableRowDescriptionPropertyInfo-instance AttrInfo ObjectAccessibleTableRowDescriptionPropertyInfo where-    type AttrAllowedOps ObjectAccessibleTableRowDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleTableRowDescriptionPropertyInfo = T.Text-    type AttrLabel ObjectAccessibleTableRowDescriptionPropertyInfo = "Object::accessible-table-row-description"-    attrGet _ = getObjectAccessibleTableRowDescription-    attrSet _ = setObjectAccessibleTableRowDescription-    attrConstruct _ = constructObjectAccessibleTableRowDescription---- VVV Prop "accessible-table-row-header"-   -- Type: TInterface "Atk" "Object"-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o) => o -> m Object-getObjectAccessibleTableRowHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-row-header" Object--setObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleTableRowHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-row-header" val--constructObjectAccessibleTableRowHeader :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleTableRowHeader val = constructObjectPropertyObject "accessible-table-row-header" val--data ObjectAccessibleTableRowHeaderPropertyInfo-instance AttrInfo ObjectAccessibleTableRowHeaderPropertyInfo where-    type AttrAllowedOps ObjectAccessibleTableRowHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK-    type AttrBaseTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleTableRowHeaderPropertyInfo = Object-    type AttrLabel ObjectAccessibleTableRowHeaderPropertyInfo = "Object::accessible-table-row-header"-    attrGet _ = getObjectAccessibleTableRowHeader-    attrSet _ = setObjectAccessibleTableRowHeader-    attrConstruct _ = constructObjectAccessibleTableRowHeader---- VVV Prop "accessible-table-summary"-   -- Type: TInterface "Atk" "Object"-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleTableSummary :: (MonadIO m, ObjectK o) => o -> m Object-getObjectAccessibleTableSummary obj = liftIO $ getObjectPropertyObject obj "accessible-table-summary" Object--setObjectAccessibleTableSummary :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleTableSummary obj val = liftIO $ setObjectPropertyObject obj "accessible-table-summary" val--constructObjectAccessibleTableSummary :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleTableSummary val = constructObjectPropertyObject "accessible-table-summary" val--data ObjectAccessibleTableSummaryPropertyInfo-instance AttrInfo ObjectAccessibleTableSummaryPropertyInfo where-    type AttrAllowedOps ObjectAccessibleTableSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK-    type AttrBaseTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleTableSummaryPropertyInfo = Object-    type AttrLabel ObjectAccessibleTableSummaryPropertyInfo = "Object::accessible-table-summary"-    attrGet _ = getObjectAccessibleTableSummary-    attrSet _ = setObjectAccessibleTableSummary-    attrConstruct _ = constructObjectAccessibleTableSummary---- VVV Prop "accessible-value"-   -- Type: TBasicType TDouble-   -- Flags: [PropertyReadable,PropertyWritable]--getObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> m Double-getObjectAccessibleValue obj = liftIO $ getObjectPropertyDouble obj "accessible-value"--setObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> Double -> m ()-setObjectAccessibleValue obj val = liftIO $ setObjectPropertyDouble obj "accessible-value" val--constructObjectAccessibleValue :: Double -> IO ([Char], GValue)-constructObjectAccessibleValue val = constructObjectPropertyDouble "accessible-value" val--data ObjectAccessibleValuePropertyInfo-instance AttrInfo ObjectAccessibleValuePropertyInfo where-    type AttrAllowedOps ObjectAccessibleValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double-    type AttrBaseTypeConstraint ObjectAccessibleValuePropertyInfo = ObjectK-    type AttrGetType ObjectAccessibleValuePropertyInfo = Double-    type AttrLabel ObjectAccessibleValuePropertyInfo = "Object::accessible-value"-    attrGet _ = getObjectAccessibleValue-    attrSet _ = setObjectAccessibleValue-    attrConstruct _ = constructObjectAccessibleValue--type instance AttributeList Object = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)]--type instance AttributeList ObjectFactory = '[ ]--type instance AttributeList Plug = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)]--type instance AttributeList Registry = '[ ]---- VVV Prop "relation-type"-   -- Type: TInterface "Atk" "RelationType"-   -- Flags: [PropertyReadable,PropertyWritable]--getRelationRelationType :: (MonadIO m, RelationK o) => o -> m RelationType-getRelationRelationType obj = liftIO $ getObjectPropertyEnum obj "relation-type"--setRelationRelationType :: (MonadIO m, RelationK o) => o -> RelationType -> m ()-setRelationRelationType obj val = liftIO $ setObjectPropertyEnum obj "relation-type" val--constructRelationRelationType :: RelationType -> IO ([Char], GValue)-constructRelationRelationType val = constructObjectPropertyEnum "relation-type" val--data RelationRelationTypePropertyInfo-instance AttrInfo RelationRelationTypePropertyInfo where-    type AttrAllowedOps RelationRelationTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint RelationRelationTypePropertyInfo = (~) RelationType-    type AttrBaseTypeConstraint RelationRelationTypePropertyInfo = RelationK-    type AttrGetType RelationRelationTypePropertyInfo = RelationType-    type AttrLabel RelationRelationTypePropertyInfo = "Relation::relation-type"-    attrGet _ = getRelationRelationType-    attrSet _ = setRelationRelationType-    attrConstruct _ = constructRelationRelationType---- VVV Prop "target"-   -- Type: TInterface "GObject" "ValueArray"-   -- Flags: [PropertyReadable,PropertyWritable]--getRelationTarget :: (MonadIO m, RelationK o) => o -> m GObject.ValueArray-getRelationTarget obj = liftIO $ getObjectPropertyBoxed obj "target" GObject.ValueArray--setRelationTarget :: (MonadIO m, RelationK o) => o -> GObject.ValueArray -> m ()-setRelationTarget obj val = liftIO $ setObjectPropertyBoxed obj "target" val--constructRelationTarget :: GObject.ValueArray -> IO ([Char], GValue)-constructRelationTarget val = constructObjectPropertyBoxed "target" val--data RelationTargetPropertyInfo-instance AttrInfo RelationTargetPropertyInfo where-    type AttrAllowedOps RelationTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint RelationTargetPropertyInfo = (~) GObject.ValueArray-    type AttrBaseTypeConstraint RelationTargetPropertyInfo = RelationK-    type AttrGetType RelationTargetPropertyInfo = GObject.ValueArray-    type AttrLabel RelationTargetPropertyInfo = "Relation::target"-    attrGet _ = getRelationTarget-    attrSet _ = setRelationTarget-    attrConstruct _ = constructRelationTarget--type instance AttributeList Relation = '[ '("relation-type", RelationRelationTypePropertyInfo), '("target", RelationTargetPropertyInfo)]--type instance AttributeList RelationSet = '[ ]--type instance AttributeList Selection = '[ ]--type instance AttributeList Socket = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)]--type instance AttributeList StateSet = '[ ]--type instance AttributeList StreamableContent = '[ ]--type instance AttributeList Table = '[ ]--type instance AttributeList TableCell = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)]--type instance AttributeList Text = '[ ]--type instance AttributeList Util = '[ ]--type instance AttributeList Value = '[ ]--type instance AttributeList Window = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)]-
− GI/AtkSignals.hs 
@@ -1,260 +0,0 @@--- Generated code.--{-# OPTIONS_GHC -fno-warn-orphans #-}--{-# LANGUAGE DataKinds,    FlexibleInstances,-             TypeFamilies, MultiParamTypeClasses,-               TypeOperators #-}--module GI.AtkSignals where--import Data.GI.Base.Properties (GObjectNotifySignalInfo)-import Data.GI.Base.Signals-import Data.GI.Base.Overloading--import qualified GI.GObjectSignals as GObject-import GI.Atk--type instance SignalList Action = '[ ]--data ComponentBoundsChangedSignalInfo-instance SignalInfo ComponentBoundsChangedSignalInfo where-    type HaskellCallbackType ComponentBoundsChangedSignalInfo = ComponentBoundsChangedCallback-    connectSignal _ = connectComponentBoundsChanged--type instance SignalList Component = '[ '("bounds-changed", ComponentBoundsChangedSignalInfo)]--data DocumentLoadCompleteSignalInfo-instance SignalInfo DocumentLoadCompleteSignalInfo where-    type HaskellCallbackType DocumentLoadCompleteSignalInfo = DocumentLoadCompleteCallback-    connectSignal _ = connectDocumentLoadComplete--data DocumentLoadStoppedSignalInfo-instance SignalInfo DocumentLoadStoppedSignalInfo where-    type HaskellCallbackType DocumentLoadStoppedSignalInfo = DocumentLoadStoppedCallback-    connectSignal _ = connectDocumentLoadStopped--data DocumentPageChangedSignalInfo-instance SignalInfo DocumentPageChangedSignalInfo where-    type HaskellCallbackType DocumentPageChangedSignalInfo = DocumentPageChangedCallback-    connectSignal _ = connectDocumentPageChanged--data DocumentReloadSignalInfo-instance SignalInfo DocumentReloadSignalInfo where-    type HaskellCallbackType DocumentReloadSignalInfo = DocumentReloadCallback-    connectSignal _ = connectDocumentReload--type instance SignalList Document = '[ '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("reload", DocumentReloadSignalInfo)]--type instance SignalList EditableText = '[ ]--type instance SignalList GObjectAccessible = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data HyperlinkLinkActivatedSignalInfo-instance SignalInfo HyperlinkLinkActivatedSignalInfo where-    type HaskellCallbackType HyperlinkLinkActivatedSignalInfo = HyperlinkLinkActivatedCallback-    connectSignal _ = connectHyperlinkLinkActivated--type instance SignalList Hyperlink = '[ '("link-activated", HyperlinkLinkActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList HyperlinkImpl = '[ ]--data HypertextLinkSelectedSignalInfo-instance SignalInfo HypertextLinkSelectedSignalInfo where-    type HaskellCallbackType HypertextLinkSelectedSignalInfo = HypertextLinkSelectedCallback-    connectSignal _ = connectHypertextLinkSelected--type instance SignalList Hypertext = '[ '("link-selected", HypertextLinkSelectedSignalInfo)]--type instance SignalList Image = '[ ]--type instance SignalList ImplementorIface = '[ ]--type instance SignalList Misc = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList NoOpObject = '[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("link-selected", HypertextLinkSelectedSignalInfo), '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("reload", DocumentReloadSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo), '("selection-changed", SelectionSelectionChangedSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo), '("value-changed", ValueValueChangedSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList NoOpObjectFactory = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data ObjectActiveDescendantChangedSignalInfo-instance SignalInfo ObjectActiveDescendantChangedSignalInfo where-    type HaskellCallbackType ObjectActiveDescendantChangedSignalInfo = ObjectActiveDescendantChangedCallback-    connectSignal _ = connectObjectActiveDescendantChanged--data ObjectChildrenChangedSignalInfo-instance SignalInfo ObjectChildrenChangedSignalInfo where-    type HaskellCallbackType ObjectChildrenChangedSignalInfo = ObjectChildrenChangedCallback-    connectSignal _ = connectObjectChildrenChanged--data ObjectFocusEventSignalInfo-instance SignalInfo ObjectFocusEventSignalInfo where-    type HaskellCallbackType ObjectFocusEventSignalInfo = ObjectFocusEventCallback-    connectSignal _ = connectObjectFocusEvent--data ObjectPropertyChangeSignalInfo-instance SignalInfo ObjectPropertyChangeSignalInfo where-    type HaskellCallbackType ObjectPropertyChangeSignalInfo = ObjectPropertyChangeCallback-    connectSignal _ = connectObjectPropertyChange--data ObjectStateChangeSignalInfo-instance SignalInfo ObjectStateChangeSignalInfo where-    type HaskellCallbackType ObjectStateChangeSignalInfo = ObjectStateChangeCallback-    connectSignal _ = connectObjectStateChange--data ObjectVisibleDataChangedSignalInfo-instance SignalInfo ObjectVisibleDataChangedSignalInfo where-    type HaskellCallbackType ObjectVisibleDataChangedSignalInfo = ObjectVisibleDataChangedCallback-    connectSignal _ = connectObjectVisibleDataChanged--type instance SignalList Object = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList ObjectFactory = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Plug = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Registry = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Relation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList RelationSet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data SelectionSelectionChangedSignalInfo-instance SignalInfo SelectionSelectionChangedSignalInfo where-    type HaskellCallbackType SelectionSelectionChangedSignalInfo = SelectionSelectionChangedCallback-    connectSignal _ = connectSelectionSelectionChanged--type instance SignalList Selection = '[ '("selection-changed", SelectionSelectionChangedSignalInfo)]--type instance SignalList Socket = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList StateSet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList StreamableContent = '[ ]--data TableColumnDeletedSignalInfo-instance SignalInfo TableColumnDeletedSignalInfo where-    type HaskellCallbackType TableColumnDeletedSignalInfo = TableColumnDeletedCallback-    connectSignal _ = connectTableColumnDeleted--data TableColumnInsertedSignalInfo-instance SignalInfo TableColumnInsertedSignalInfo where-    type HaskellCallbackType TableColumnInsertedSignalInfo = TableColumnInsertedCallback-    connectSignal _ = connectTableColumnInserted--data TableColumnReorderedSignalInfo-instance SignalInfo TableColumnReorderedSignalInfo where-    type HaskellCallbackType TableColumnReorderedSignalInfo = TableColumnReorderedCallback-    connectSignal _ = connectTableColumnReordered--data TableModelChangedSignalInfo-instance SignalInfo TableModelChangedSignalInfo where-    type HaskellCallbackType TableModelChangedSignalInfo = TableModelChangedCallback-    connectSignal _ = connectTableModelChanged--data TableRowDeletedSignalInfo-instance SignalInfo TableRowDeletedSignalInfo where-    type HaskellCallbackType TableRowDeletedSignalInfo = TableRowDeletedCallback-    connectSignal _ = connectTableRowDeleted--data TableRowInsertedSignalInfo-instance SignalInfo TableRowInsertedSignalInfo where-    type HaskellCallbackType TableRowInsertedSignalInfo = TableRowInsertedCallback-    connectSignal _ = connectTableRowInserted--data TableRowReorderedSignalInfo-instance SignalInfo TableRowReorderedSignalInfo where-    type HaskellCallbackType TableRowReorderedSignalInfo = TableRowReorderedCallback-    connectSignal _ = connectTableRowReordered--type instance SignalList Table = '[ '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo)]--type instance SignalList TableCell = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data TextTextAttributesChangedSignalInfo-instance SignalInfo TextTextAttributesChangedSignalInfo where-    type HaskellCallbackType TextTextAttributesChangedSignalInfo = TextTextAttributesChangedCallback-    connectSignal _ = connectTextTextAttributesChanged--data TextTextCaretMovedSignalInfo-instance SignalInfo TextTextCaretMovedSignalInfo where-    type HaskellCallbackType TextTextCaretMovedSignalInfo = TextTextCaretMovedCallback-    connectSignal _ = connectTextTextCaretMoved--data TextTextChangedSignalInfo-instance SignalInfo TextTextChangedSignalInfo where-    type HaskellCallbackType TextTextChangedSignalInfo = TextTextChangedCallback-    connectSignal _ = connectTextTextChanged--data TextTextInsertSignalInfo-instance SignalInfo TextTextInsertSignalInfo where-    type HaskellCallbackType TextTextInsertSignalInfo = TextTextInsertCallback-    connectSignal _ = connectTextTextInsert--data TextTextRemoveSignalInfo-instance SignalInfo TextTextRemoveSignalInfo where-    type HaskellCallbackType TextTextRemoveSignalInfo = TextTextRemoveCallback-    connectSignal _ = connectTextTextRemove--data TextTextSelectionChangedSignalInfo-instance SignalInfo TextTextSelectionChangedSignalInfo where-    type HaskellCallbackType TextTextSelectionChangedSignalInfo = TextTextSelectionChangedCallback-    connectSignal _ = connectTextTextSelectionChanged--type instance SignalList Text = '[ '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo)]--type instance SignalList Util = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data ValueValueChangedSignalInfo-instance SignalInfo ValueValueChangedSignalInfo where-    type HaskellCallbackType ValueValueChangedSignalInfo = ValueValueChangedCallback-    connectSignal _ = connectValueValueChanged--type instance SignalList Value = '[ '("value-changed", ValueValueChangedSignalInfo)]--data WindowActivateSignalInfo-instance SignalInfo WindowActivateSignalInfo where-    type HaskellCallbackType WindowActivateSignalInfo = WindowActivateCallback-    connectSignal _ = connectWindowActivate--data WindowCreateSignalInfo-instance SignalInfo WindowCreateSignalInfo where-    type HaskellCallbackType WindowCreateSignalInfo = WindowCreateCallback-    connectSignal _ = connectWindowCreate--data WindowDeactivateSignalInfo-instance SignalInfo WindowDeactivateSignalInfo where-    type HaskellCallbackType WindowDeactivateSignalInfo = WindowDeactivateCallback-    connectSignal _ = connectWindowDeactivate--data WindowDestroySignalInfo-instance SignalInfo WindowDestroySignalInfo where-    type HaskellCallbackType WindowDestroySignalInfo = WindowDestroyCallback-    connectSignal _ = connectWindowDestroy--data WindowMaximizeSignalInfo-instance SignalInfo WindowMaximizeSignalInfo where-    type HaskellCallbackType WindowMaximizeSignalInfo = WindowMaximizeCallback-    connectSignal _ = connectWindowMaximize--data WindowMinimizeSignalInfo-instance SignalInfo WindowMinimizeSignalInfo where-    type HaskellCallbackType WindowMinimizeSignalInfo = WindowMinimizeCallback-    connectSignal _ = connectWindowMinimize--data WindowMoveSignalInfo-instance SignalInfo WindowMoveSignalInfo where-    type HaskellCallbackType WindowMoveSignalInfo = WindowMoveCallback-    connectSignal _ = connectWindowMove--data WindowResizeSignalInfo-instance SignalInfo WindowResizeSignalInfo where-    type HaskellCallbackType WindowResizeSignalInfo = WindowResizeCallback-    connectSignal _ = connectWindowResize--data WindowRestoreSignalInfo-instance SignalInfo WindowRestoreSignalInfo where-    type HaskellCallbackType WindowRestoreSignalInfo = WindowRestoreCallback-    connectSignal _ = connectWindowRestore--type instance SignalList Window = '[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]-
gi-atk.cabal view
@@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name:               gi-atk-version:            0.2.18.10+version:            0.2.18.12 synopsis:           Atk bindings description:        Bindings for Atk, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -14,12 +14,61 @@  library     default-language:   Haskell2010-    exposed-modules:    GI.Atk, GI.AtkAttributes, GI.AtkSignals+    default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts+    other-extensions:   PatternSynonyms ScopedTypeVariables, ViewPatterns+    ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations+    exposed-modules:    GI.Atk.Types+                        GI.Atk+                        GI.Atk.Callbacks+                        GI.Atk.Constants+                        GI.Atk.Enums+                        GI.Atk.Flags+                        GI.Atk.Functions+                        GI.Atk.Interfaces+                        GI.Atk.Interfaces.Action+                        GI.Atk.Interfaces.Component+                        GI.Atk.Interfaces.Document+                        GI.Atk.Interfaces.EditableText+                        GI.Atk.Interfaces.HyperlinkImpl+                        GI.Atk.Interfaces.Hypertext+                        GI.Atk.Interfaces.Image+                        GI.Atk.Interfaces.ImplementorIface+                        GI.Atk.Interfaces.Selection+                        GI.Atk.Interfaces.StreamableContent+                        GI.Atk.Interfaces.Table+                        GI.Atk.Interfaces.TableCell+                        GI.Atk.Interfaces.Text+                        GI.Atk.Interfaces.Value+                        GI.Atk.Interfaces.Window+                        GI.Atk.Objects+                        GI.Atk.Objects.GObjectAccessible+                        GI.Atk.Objects.Hyperlink+                        GI.Atk.Objects.Misc+                        GI.Atk.Objects.NoOpObject+                        GI.Atk.Objects.NoOpObjectFactory+                        GI.Atk.Objects.Object+                        GI.Atk.Objects.ObjectFactory+                        GI.Atk.Objects.Plug+                        GI.Atk.Objects.Registry+                        GI.Atk.Objects.Relation+                        GI.Atk.Objects.RelationSet+                        GI.Atk.Objects.Socket+                        GI.Atk.Objects.StateSet+                        GI.Atk.Objects.Util+                        GI.Atk.Structs+                        GI.Atk.Structs.Attribute+                        GI.Atk.Structs.Implementor+                        GI.Atk.Structs.KeyEventStruct+                        GI.Atk.Structs.PropertyValues+                        GI.Atk.Structs.Range+                        GI.Atk.Structs.Rectangle+                        GI.Atk.Structs.TextRange+                        GI.Atk.Structs.TextRectangle     pkgconfig-depends:  atk >= 2.18     build-depends: base >= 4.7 && <5,-        haskell-gi-base >= 0.10 && < 1,-        gi-glib >= 0.2.46.10 && < 0.3,-        gi-gobject >= 0.2.46.10 && < 0.3,+        haskell-gi-base >= 0.12 && < 1,+        gi-glib >= 0.2.46.12 && < 0.2.47,+        gi-gobject >= 0.2.46.12 && < 0.2.47,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,