Functions.hs

{- |
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 state-changed: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 ()