-- 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 state-changed: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 his 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 = 21610 -- 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 = 16 -- 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 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_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'