diff --git a/GI/Atk.hs b/GI/Atk.hs new file mode 100644 --- /dev/null +++ b/GI/Atk.hs @@ -0,0 +1,9671 @@ +-- 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 + 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 + 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 + 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 + 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' + 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' + 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' + 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' + 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' + 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' + 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' + 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 + 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 + 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' + 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 + 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' + 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' + 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' + 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 + 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' + 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 + 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' + 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' + 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' + 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' + 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' + 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' + 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 + 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' + 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' + 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' + 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 + 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' + 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' + 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' + 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' + 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_' + 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' + 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' + 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 + 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 + 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' + 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 + 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 + 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 + 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' + 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' + 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' + 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 + 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' + 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' + 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' + 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 + 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 + 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 + 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 + 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' + 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 + 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' + 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' + 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' + 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' + 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' + 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 + 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 + 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 + 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 + 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 + 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 + 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 + 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' + 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' + 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 + 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 + 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 + 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 + 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 + 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 + 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_' + 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' + 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' + 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_' + 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' + 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_ + 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' + 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' + result' <- cstringToText result + return result' + diff --git a/GI/AtkAttributes.hs b/GI/AtkAttributes.hs new file mode 100644 --- /dev/null +++ b/GI/AtkAttributes.hs @@ -0,0 +1,570 @@ +{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-} + +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, + TypeFamilies, MultiParamTypeClasses, KindSignatures, + FlexibleInstances, UndecidableInstances, DataKinds, + OverloadedStrings, NegativeLiterals, FlexibleContexts #-} + +module GI.AtkAttributes where + +import Prelude () +import Data.GI.Base.ShortPrelude +import Data.Char +import Data.Int +import Data.Word +import qualified Data.ByteString.Char8 as B +import Data.ByteString.Char8 (ByteString) +import qualified Data.Map as Map +import Foreign.C +import Foreign.Ptr +import Foreign.ForeignPtr +import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) +import Foreign.Storable (peek, poke, sizeOf) +import Control.Applicative ((<$>)) +import Control.Exception (onException) +import Control.Monad.IO.Class +import qualified Data.Text as T + +import Data.GI.Base.Attributes hiding (get, set) +import Data.GI.Base.BasicTypes +import Data.GI.Base.BasicConversions +import Data.GI.Base.Closure +import Data.GI.Base.GError +import Data.GI.Base.GHashTable +import Data.GI.Base.GParamSpec +import Data.GI.Base.GVariant +import Data.GI.Base.GValue +import Data.GI.Base.ManagedPtr +import Data.GI.Base.Overloading +import Data.GI.Base.Properties hiding (new) +import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) +import Data.GI.Base.Utils + +import qualified GI.GObject as GObject +import qualified GI.GObjectAttributes as GObjectA +import GI.Atk + +type instance AttributeList Action = '[ ] + +type instance AttributeList Component = '[ ] + +type instance AttributeList Document = '[ ] + +type instance AttributeList EditableText = '[ ] + +type instance AttributeList GObjectAccessible = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] + +-- VVV Prop "end-index" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getHyperlinkEndIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32 +getHyperlinkEndIndex obj = liftIO $ getObjectPropertyCInt obj "end-index" + +data HyperlinkEndIndexPropertyInfo +instance AttrInfo HyperlinkEndIndexPropertyInfo where + type AttrAllowedOps HyperlinkEndIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint HyperlinkEndIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint HyperlinkEndIndexPropertyInfo = HyperlinkK + type AttrGetType HyperlinkEndIndexPropertyInfo = Int32 + type AttrLabel HyperlinkEndIndexPropertyInfo = "Hyperlink::end-index" + attrGet _ = getHyperlinkEndIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "number-of-anchors" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getHyperlinkNumberOfAnchors :: (MonadIO m, HyperlinkK o) => o -> m Int32 +getHyperlinkNumberOfAnchors obj = liftIO $ getObjectPropertyCInt obj "number-of-anchors" + +data HyperlinkNumberOfAnchorsPropertyInfo +instance AttrInfo HyperlinkNumberOfAnchorsPropertyInfo where + type AttrAllowedOps HyperlinkNumberOfAnchorsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = (~) () + type AttrBaseTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = HyperlinkK + type AttrGetType HyperlinkNumberOfAnchorsPropertyInfo = Int32 + type AttrLabel HyperlinkNumberOfAnchorsPropertyInfo = "Hyperlink::number-of-anchors" + attrGet _ = getHyperlinkNumberOfAnchors + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected-link" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getHyperlinkSelectedLink :: (MonadIO m, HyperlinkK o) => o -> m Bool +getHyperlinkSelectedLink obj = liftIO $ getObjectPropertyBool obj "selected-link" + +data HyperlinkSelectedLinkPropertyInfo +instance AttrInfo HyperlinkSelectedLinkPropertyInfo where + type AttrAllowedOps HyperlinkSelectedLinkPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint HyperlinkSelectedLinkPropertyInfo = (~) () + type AttrBaseTypeConstraint HyperlinkSelectedLinkPropertyInfo = HyperlinkK + type AttrGetType HyperlinkSelectedLinkPropertyInfo = Bool + type AttrLabel HyperlinkSelectedLinkPropertyInfo = "Hyperlink::selected-link" + attrGet _ = getHyperlinkSelectedLink + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "start-index" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getHyperlinkStartIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32 +getHyperlinkStartIndex obj = liftIO $ getObjectPropertyCInt obj "start-index" + +data HyperlinkStartIndexPropertyInfo +instance AttrInfo HyperlinkStartIndexPropertyInfo where + type AttrAllowedOps HyperlinkStartIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint HyperlinkStartIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint HyperlinkStartIndexPropertyInfo = HyperlinkK + type AttrGetType HyperlinkStartIndexPropertyInfo = Int32 + type AttrLabel HyperlinkStartIndexPropertyInfo = "Hyperlink::start-index" + attrGet _ = getHyperlinkStartIndex + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList Hyperlink = '[ '("end-index", HyperlinkEndIndexPropertyInfo), '("number-of-anchors", HyperlinkNumberOfAnchorsPropertyInfo), '("selected-link", HyperlinkSelectedLinkPropertyInfo), '("start-index", HyperlinkStartIndexPropertyInfo)] + +type instance AttributeList HyperlinkImpl = '[ ] + +type instance AttributeList Hypertext = '[ ] + +type instance AttributeList Image = '[ ] + +type instance AttributeList ImplementorIface = '[ ] + +type instance AttributeList Misc = '[ ] + +type instance AttributeList NoOpObject = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] + +type instance AttributeList NoOpObjectFactory = '[ ] + +-- VVV Prop "accessible-component-layer" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getObjectAccessibleComponentLayer :: (MonadIO m, ObjectK o) => o -> m Int32 +getObjectAccessibleComponentLayer obj = liftIO $ getObjectPropertyCInt obj "accessible-component-layer" + +data ObjectAccessibleComponentLayerPropertyInfo +instance AttrInfo ObjectAccessibleComponentLayerPropertyInfo where + type AttrAllowedOps ObjectAccessibleComponentLayerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) () + type AttrBaseTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleComponentLayerPropertyInfo = Int32 + type AttrLabel ObjectAccessibleComponentLayerPropertyInfo = "Object::accessible-component-layer" + attrGet _ = getObjectAccessibleComponentLayer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "accessible-component-mdi-zorder" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getObjectAccessibleComponentMdiZorder :: (MonadIO m, ObjectK o) => o -> m Int32 +getObjectAccessibleComponentMdiZorder obj = liftIO $ getObjectPropertyCInt obj "accessible-component-mdi-zorder" + +data ObjectAccessibleComponentMdiZorderPropertyInfo +instance AttrInfo ObjectAccessibleComponentMdiZorderPropertyInfo where + type AttrAllowedOps ObjectAccessibleComponentMdiZorderPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) () + type AttrBaseTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleComponentMdiZorderPropertyInfo = Int32 + type AttrLabel ObjectAccessibleComponentMdiZorderPropertyInfo = "Object::accessible-component-mdi-zorder" + attrGet _ = getObjectAccessibleComponentMdiZorder + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "accessible-description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleDescription obj = liftIO $ getObjectPropertyString obj "accessible-description" + +setObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleDescription obj val = liftIO $ setObjectPropertyString obj "accessible-description" val + +constructObjectAccessibleDescription :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleDescription val = constructObjectPropertyString "accessible-description" val + +data ObjectAccessibleDescriptionPropertyInfo +instance AttrInfo ObjectAccessibleDescriptionPropertyInfo where + type AttrAllowedOps ObjectAccessibleDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleDescriptionPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleDescriptionPropertyInfo = T.Text + type AttrLabel ObjectAccessibleDescriptionPropertyInfo = "Object::accessible-description" + attrGet _ = getObjectAccessibleDescription + attrSet _ = setObjectAccessibleDescription + attrConstruct _ = constructObjectAccessibleDescription + +-- VVV Prop "accessible-hypertext-nlinks" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getObjectAccessibleHypertextNlinks :: (MonadIO m, ObjectK o) => o -> m Int32 +getObjectAccessibleHypertextNlinks obj = liftIO $ getObjectPropertyCInt obj "accessible-hypertext-nlinks" + +data ObjectAccessibleHypertextNlinksPropertyInfo +instance AttrInfo ObjectAccessibleHypertextNlinksPropertyInfo where + type AttrAllowedOps ObjectAccessibleHypertextNlinksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) () + type AttrBaseTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleHypertextNlinksPropertyInfo = Int32 + type AttrLabel ObjectAccessibleHypertextNlinksPropertyInfo = "Object::accessible-hypertext-nlinks" + attrGet _ = getObjectAccessibleHypertextNlinks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "accessible-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleName obj = liftIO $ getObjectPropertyString obj "accessible-name" + +setObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleName obj val = liftIO $ setObjectPropertyString obj "accessible-name" val + +constructObjectAccessibleName :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleName val = constructObjectPropertyString "accessible-name" val + +data ObjectAccessibleNamePropertyInfo +instance AttrInfo ObjectAccessibleNamePropertyInfo where + type AttrAllowedOps ObjectAccessibleNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleNamePropertyInfo = ObjectK + type AttrGetType ObjectAccessibleNamePropertyInfo = T.Text + type AttrLabel ObjectAccessibleNamePropertyInfo = "Object::accessible-name" + attrGet _ = getObjectAccessibleName + attrSet _ = setObjectAccessibleName + attrConstruct _ = constructObjectAccessibleName + +-- VVV Prop "accessible-parent" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleParent :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleParent obj = liftIO $ getObjectPropertyObject obj "accessible-parent" Object + +setObjectAccessibleParent :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleParent obj val = liftIO $ setObjectPropertyObject obj "accessible-parent" val + +constructObjectAccessibleParent :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleParent val = constructObjectPropertyObject "accessible-parent" val + +data ObjectAccessibleParentPropertyInfo +instance AttrInfo ObjectAccessibleParentPropertyInfo where + type AttrAllowedOps ObjectAccessibleParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleParentPropertyInfo = Object + type AttrLabel ObjectAccessibleParentPropertyInfo = "Object::accessible-parent" + attrGet _ = getObjectAccessibleParent + attrSet _ = setObjectAccessibleParent + attrConstruct _ = constructObjectAccessibleParent + +-- VVV Prop "accessible-role" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> m Int32 +getObjectAccessibleRole obj = liftIO $ getObjectPropertyCInt obj "accessible-role" + +setObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> Int32 -> m () +setObjectAccessibleRole obj val = liftIO $ setObjectPropertyCInt obj "accessible-role" val + +constructObjectAccessibleRole :: Int32 -> IO ([Char], GValue) +constructObjectAccessibleRole val = constructObjectPropertyCInt "accessible-role" val + +data ObjectAccessibleRolePropertyInfo +instance AttrInfo ObjectAccessibleRolePropertyInfo where + type AttrAllowedOps ObjectAccessibleRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ObjectAccessibleRolePropertyInfo = ObjectK + type AttrGetType ObjectAccessibleRolePropertyInfo = Int32 + type AttrLabel ObjectAccessibleRolePropertyInfo = "Object::accessible-role" + attrGet _ = getObjectAccessibleRole + attrSet _ = setObjectAccessibleRole + attrConstruct _ = constructObjectAccessibleRole + +-- VVV Prop "accessible-table-caption" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleTableCaption obj = liftIO $ getObjectPropertyString obj "accessible-table-caption" + +setObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleTableCaption obj val = liftIO $ setObjectPropertyString obj "accessible-table-caption" val + +constructObjectAccessibleTableCaption :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleTableCaption val = constructObjectPropertyString "accessible-table-caption" val + +data ObjectAccessibleTableCaptionPropertyInfo +instance AttrInfo ObjectAccessibleTableCaptionPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableCaptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableCaptionPropertyInfo = T.Text + type AttrLabel ObjectAccessibleTableCaptionPropertyInfo = "Object::accessible-table-caption" + attrGet _ = getObjectAccessibleTableCaption + attrSet _ = setObjectAccessibleTableCaption + attrConstruct _ = constructObjectAccessibleTableCaption + +-- VVV Prop "accessible-table-caption-object" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleTableCaptionObject obj = liftIO $ getObjectPropertyObject obj "accessible-table-caption-object" Object + +setObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleTableCaptionObject obj val = liftIO $ setObjectPropertyObject obj "accessible-table-caption-object" val + +constructObjectAccessibleTableCaptionObject :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleTableCaptionObject val = constructObjectPropertyObject "accessible-table-caption-object" val + +data ObjectAccessibleTableCaptionObjectPropertyInfo +instance AttrInfo ObjectAccessibleTableCaptionObjectPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableCaptionObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableCaptionObjectPropertyInfo = Object + type AttrLabel ObjectAccessibleTableCaptionObjectPropertyInfo = "Object::accessible-table-caption-object" + attrGet _ = getObjectAccessibleTableCaptionObject + attrSet _ = setObjectAccessibleTableCaptionObject + attrConstruct _ = constructObjectAccessibleTableCaptionObject + +-- VVV Prop "accessible-table-column-description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleTableColumnDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-column-description" + +setObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleTableColumnDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-column-description" val + +constructObjectAccessibleTableColumnDescription :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleTableColumnDescription val = constructObjectPropertyString "accessible-table-column-description" val + +data ObjectAccessibleTableColumnDescriptionPropertyInfo +instance AttrInfo ObjectAccessibleTableColumnDescriptionPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableColumnDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableColumnDescriptionPropertyInfo = T.Text + type AttrLabel ObjectAccessibleTableColumnDescriptionPropertyInfo = "Object::accessible-table-column-description" + attrGet _ = getObjectAccessibleTableColumnDescription + attrSet _ = setObjectAccessibleTableColumnDescription + attrConstruct _ = constructObjectAccessibleTableColumnDescription + +-- VVV Prop "accessible-table-column-header" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleTableColumnHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-column-header" Object + +setObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleTableColumnHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-column-header" val + +constructObjectAccessibleTableColumnHeader :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleTableColumnHeader val = constructObjectPropertyObject "accessible-table-column-header" val + +data ObjectAccessibleTableColumnHeaderPropertyInfo +instance AttrInfo ObjectAccessibleTableColumnHeaderPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableColumnHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableColumnHeaderPropertyInfo = Object + type AttrLabel ObjectAccessibleTableColumnHeaderPropertyInfo = "Object::accessible-table-column-header" + attrGet _ = getObjectAccessibleTableColumnHeader + attrSet _ = setObjectAccessibleTableColumnHeader + attrConstruct _ = constructObjectAccessibleTableColumnHeader + +-- VVV Prop "accessible-table-row-description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleTableRowDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-row-description" + +setObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleTableRowDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-row-description" val + +constructObjectAccessibleTableRowDescription :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleTableRowDescription val = constructObjectPropertyString "accessible-table-row-description" val + +data ObjectAccessibleTableRowDescriptionPropertyInfo +instance AttrInfo ObjectAccessibleTableRowDescriptionPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableRowDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableRowDescriptionPropertyInfo = T.Text + type AttrLabel ObjectAccessibleTableRowDescriptionPropertyInfo = "Object::accessible-table-row-description" + attrGet _ = getObjectAccessibleTableRowDescription + attrSet _ = setObjectAccessibleTableRowDescription + attrConstruct _ = constructObjectAccessibleTableRowDescription + +-- VVV Prop "accessible-table-row-header" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleTableRowHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-row-header" Object + +setObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleTableRowHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-row-header" val + +constructObjectAccessibleTableRowHeader :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleTableRowHeader val = constructObjectPropertyObject "accessible-table-row-header" val + +data ObjectAccessibleTableRowHeaderPropertyInfo +instance AttrInfo ObjectAccessibleTableRowHeaderPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableRowHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableRowHeaderPropertyInfo = Object + type AttrLabel ObjectAccessibleTableRowHeaderPropertyInfo = "Object::accessible-table-row-header" + attrGet _ = getObjectAccessibleTableRowHeader + attrSet _ = setObjectAccessibleTableRowHeader + attrConstruct _ = constructObjectAccessibleTableRowHeader + +-- VVV Prop "accessible-table-summary" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableSummary :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleTableSummary obj = liftIO $ getObjectPropertyObject obj "accessible-table-summary" Object + +setObjectAccessibleTableSummary :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleTableSummary obj val = liftIO $ setObjectPropertyObject obj "accessible-table-summary" val + +constructObjectAccessibleTableSummary :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleTableSummary val = constructObjectPropertyObject "accessible-table-summary" val + +data ObjectAccessibleTableSummaryPropertyInfo +instance AttrInfo ObjectAccessibleTableSummaryPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableSummaryPropertyInfo = Object + type AttrLabel ObjectAccessibleTableSummaryPropertyInfo = "Object::accessible-table-summary" + attrGet _ = getObjectAccessibleTableSummary + attrSet _ = setObjectAccessibleTableSummary + attrConstruct _ = constructObjectAccessibleTableSummary + +-- VVV Prop "accessible-value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> m Double +getObjectAccessibleValue obj = liftIO $ getObjectPropertyDouble obj "accessible-value" + +setObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> Double -> m () +setObjectAccessibleValue obj val = liftIO $ setObjectPropertyDouble obj "accessible-value" val + +constructObjectAccessibleValue :: Double -> IO ([Char], GValue) +constructObjectAccessibleValue val = constructObjectPropertyDouble "accessible-value" val + +data ObjectAccessibleValuePropertyInfo +instance AttrInfo ObjectAccessibleValuePropertyInfo where + type AttrAllowedOps ObjectAccessibleValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double + type AttrBaseTypeConstraint ObjectAccessibleValuePropertyInfo = ObjectK + type AttrGetType ObjectAccessibleValuePropertyInfo = Double + type AttrLabel ObjectAccessibleValuePropertyInfo = "Object::accessible-value" + attrGet _ = getObjectAccessibleValue + attrSet _ = setObjectAccessibleValue + attrConstruct _ = constructObjectAccessibleValue + +type instance AttributeList Object = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] + +type instance AttributeList ObjectFactory = '[ ] + +type instance AttributeList Plug = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] + +type instance AttributeList Registry = '[ ] + +-- VVV Prop "relation-type" + -- Type: TInterface "Atk" "RelationType" + -- Flags: [PropertyReadable,PropertyWritable] + +getRelationRelationType :: (MonadIO m, RelationK o) => o -> m RelationType +getRelationRelationType obj = liftIO $ getObjectPropertyEnum obj "relation-type" + +setRelationRelationType :: (MonadIO m, RelationK o) => o -> RelationType -> m () +setRelationRelationType obj val = liftIO $ setObjectPropertyEnum obj "relation-type" val + +constructRelationRelationType :: RelationType -> IO ([Char], GValue) +constructRelationRelationType val = constructObjectPropertyEnum "relation-type" val + +data RelationRelationTypePropertyInfo +instance AttrInfo RelationRelationTypePropertyInfo where + type AttrAllowedOps RelationRelationTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RelationRelationTypePropertyInfo = (~) RelationType + type AttrBaseTypeConstraint RelationRelationTypePropertyInfo = RelationK + type AttrGetType RelationRelationTypePropertyInfo = RelationType + type AttrLabel RelationRelationTypePropertyInfo = "Relation::relation-type" + attrGet _ = getRelationRelationType + attrSet _ = setRelationRelationType + attrConstruct _ = constructRelationRelationType + +-- VVV Prop "target" + -- Type: TInterface "GObject" "ValueArray" + -- Flags: [PropertyReadable,PropertyWritable] + +getRelationTarget :: (MonadIO m, RelationK o) => o -> m GObject.ValueArray +getRelationTarget obj = liftIO $ getObjectPropertyBoxed obj "target" GObject.ValueArray + +setRelationTarget :: (MonadIO m, RelationK o) => o -> GObject.ValueArray -> m () +setRelationTarget obj val = liftIO $ setObjectPropertyBoxed obj "target" val + +constructRelationTarget :: GObject.ValueArray -> IO ([Char], GValue) +constructRelationTarget val = constructObjectPropertyBoxed "target" val + +data RelationTargetPropertyInfo +instance AttrInfo RelationTargetPropertyInfo where + type AttrAllowedOps RelationTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RelationTargetPropertyInfo = (~) GObject.ValueArray + type AttrBaseTypeConstraint RelationTargetPropertyInfo = RelationK + type AttrGetType RelationTargetPropertyInfo = GObject.ValueArray + type AttrLabel RelationTargetPropertyInfo = "Relation::target" + attrGet _ = getRelationTarget + attrSet _ = setRelationTarget + attrConstruct _ = constructRelationTarget + +type instance AttributeList Relation = '[ '("relation-type", RelationRelationTypePropertyInfo), '("target", RelationTargetPropertyInfo)] + +type instance AttributeList RelationSet = '[ ] + +type instance AttributeList Selection = '[ ] + +type instance AttributeList Socket = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] + +type instance AttributeList StateSet = '[ ] + +type instance AttributeList StreamableContent = '[ ] + +type instance AttributeList Table = '[ ] + +type instance AttributeList TableCell = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] + +type instance AttributeList Text = '[ ] + +type instance AttributeList Util = '[ ] + +type instance AttributeList Value = '[ ] + +type instance AttributeList Window = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] + diff --git a/GI/AtkSignals.hs b/GI/AtkSignals.hs new file mode 100644 --- /dev/null +++ b/GI/AtkSignals.hs @@ -0,0 +1,260 @@ +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-orphans #-} + +{-# LANGUAGE DataKinds, FlexibleInstances, + TypeFamilies, MultiParamTypeClasses, + TypeOperators #-} + +module GI.AtkSignals where + +import Data.GI.Base.Properties (GObjectNotifySignalInfo) +import Data.GI.Base.Signals +import Data.GI.Base.Overloading + +import qualified GI.GObjectSignals as GObject +import GI.Atk + +type instance SignalList Action = '[ ] + +data ComponentBoundsChangedSignalInfo +instance SignalInfo ComponentBoundsChangedSignalInfo where + type HaskellCallbackType ComponentBoundsChangedSignalInfo = ComponentBoundsChangedCallback + connectSignal _ = connectComponentBoundsChanged + +type instance SignalList Component = '[ '("bounds-changed", ComponentBoundsChangedSignalInfo)] + +data DocumentLoadCompleteSignalInfo +instance SignalInfo DocumentLoadCompleteSignalInfo where + type HaskellCallbackType DocumentLoadCompleteSignalInfo = DocumentLoadCompleteCallback + connectSignal _ = connectDocumentLoadComplete + +data DocumentLoadStoppedSignalInfo +instance SignalInfo DocumentLoadStoppedSignalInfo where + type HaskellCallbackType DocumentLoadStoppedSignalInfo = DocumentLoadStoppedCallback + connectSignal _ = connectDocumentLoadStopped + +data DocumentPageChangedSignalInfo +instance SignalInfo DocumentPageChangedSignalInfo where + type HaskellCallbackType DocumentPageChangedSignalInfo = DocumentPageChangedCallback + connectSignal _ = connectDocumentPageChanged + +data DocumentReloadSignalInfo +instance SignalInfo DocumentReloadSignalInfo where + type HaskellCallbackType DocumentReloadSignalInfo = DocumentReloadCallback + connectSignal _ = connectDocumentReload + +type instance SignalList Document = '[ '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("reload", DocumentReloadSignalInfo)] + +type instance SignalList EditableText = '[ ] + +type instance SignalList GObjectAccessible = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data HyperlinkLinkActivatedSignalInfo +instance SignalInfo HyperlinkLinkActivatedSignalInfo where + type HaskellCallbackType HyperlinkLinkActivatedSignalInfo = HyperlinkLinkActivatedCallback + connectSignal _ = connectHyperlinkLinkActivated + +type instance SignalList Hyperlink = '[ '("link-activated", HyperlinkLinkActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList HyperlinkImpl = '[ ] + +data HypertextLinkSelectedSignalInfo +instance SignalInfo HypertextLinkSelectedSignalInfo where + type HaskellCallbackType HypertextLinkSelectedSignalInfo = HypertextLinkSelectedCallback + connectSignal _ = connectHypertextLinkSelected + +type instance SignalList Hypertext = '[ '("link-selected", HypertextLinkSelectedSignalInfo)] + +type instance SignalList Image = '[ ] + +type instance SignalList ImplementorIface = '[ ] + +type instance SignalList Misc = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList NoOpObject = '[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("link-selected", HypertextLinkSelectedSignalInfo), '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("reload", DocumentReloadSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo), '("selection-changed", SelectionSelectionChangedSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo), '("value-changed", ValueValueChangedSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList NoOpObjectFactory = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ObjectActiveDescendantChangedSignalInfo +instance SignalInfo ObjectActiveDescendantChangedSignalInfo where + type HaskellCallbackType ObjectActiveDescendantChangedSignalInfo = ObjectActiveDescendantChangedCallback + connectSignal _ = connectObjectActiveDescendantChanged + +data ObjectChildrenChangedSignalInfo +instance SignalInfo ObjectChildrenChangedSignalInfo where + type HaskellCallbackType ObjectChildrenChangedSignalInfo = ObjectChildrenChangedCallback + connectSignal _ = connectObjectChildrenChanged + +data ObjectFocusEventSignalInfo +instance SignalInfo ObjectFocusEventSignalInfo where + type HaskellCallbackType ObjectFocusEventSignalInfo = ObjectFocusEventCallback + connectSignal _ = connectObjectFocusEvent + +data ObjectPropertyChangeSignalInfo +instance SignalInfo ObjectPropertyChangeSignalInfo where + type HaskellCallbackType ObjectPropertyChangeSignalInfo = ObjectPropertyChangeCallback + connectSignal _ = connectObjectPropertyChange + +data ObjectStateChangeSignalInfo +instance SignalInfo ObjectStateChangeSignalInfo where + type HaskellCallbackType ObjectStateChangeSignalInfo = ObjectStateChangeCallback + connectSignal _ = connectObjectStateChange + +data ObjectVisibleDataChangedSignalInfo +instance SignalInfo ObjectVisibleDataChangedSignalInfo where + type HaskellCallbackType ObjectVisibleDataChangedSignalInfo = ObjectVisibleDataChangedCallback + connectSignal _ = connectObjectVisibleDataChanged + +type instance SignalList Object = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ObjectFactory = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Plug = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Registry = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Relation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RelationSet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data SelectionSelectionChangedSignalInfo +instance SignalInfo SelectionSelectionChangedSignalInfo where + type HaskellCallbackType SelectionSelectionChangedSignalInfo = SelectionSelectionChangedCallback + connectSignal _ = connectSelectionSelectionChanged + +type instance SignalList Selection = '[ '("selection-changed", SelectionSelectionChangedSignalInfo)] + +type instance SignalList Socket = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList StateSet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList StreamableContent = '[ ] + +data TableColumnDeletedSignalInfo +instance SignalInfo TableColumnDeletedSignalInfo where + type HaskellCallbackType TableColumnDeletedSignalInfo = TableColumnDeletedCallback + connectSignal _ = connectTableColumnDeleted + +data TableColumnInsertedSignalInfo +instance SignalInfo TableColumnInsertedSignalInfo where + type HaskellCallbackType TableColumnInsertedSignalInfo = TableColumnInsertedCallback + connectSignal _ = connectTableColumnInserted + +data TableColumnReorderedSignalInfo +instance SignalInfo TableColumnReorderedSignalInfo where + type HaskellCallbackType TableColumnReorderedSignalInfo = TableColumnReorderedCallback + connectSignal _ = connectTableColumnReordered + +data TableModelChangedSignalInfo +instance SignalInfo TableModelChangedSignalInfo where + type HaskellCallbackType TableModelChangedSignalInfo = TableModelChangedCallback + connectSignal _ = connectTableModelChanged + +data TableRowDeletedSignalInfo +instance SignalInfo TableRowDeletedSignalInfo where + type HaskellCallbackType TableRowDeletedSignalInfo = TableRowDeletedCallback + connectSignal _ = connectTableRowDeleted + +data TableRowInsertedSignalInfo +instance SignalInfo TableRowInsertedSignalInfo where + type HaskellCallbackType TableRowInsertedSignalInfo = TableRowInsertedCallback + connectSignal _ = connectTableRowInserted + +data TableRowReorderedSignalInfo +instance SignalInfo TableRowReorderedSignalInfo where + type HaskellCallbackType TableRowReorderedSignalInfo = TableRowReorderedCallback + connectSignal _ = connectTableRowReordered + +type instance SignalList Table = '[ '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo)] + +type instance SignalList TableCell = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data TextTextAttributesChangedSignalInfo +instance SignalInfo TextTextAttributesChangedSignalInfo where + type HaskellCallbackType TextTextAttributesChangedSignalInfo = TextTextAttributesChangedCallback + connectSignal _ = connectTextTextAttributesChanged + +data TextTextCaretMovedSignalInfo +instance SignalInfo TextTextCaretMovedSignalInfo where + type HaskellCallbackType TextTextCaretMovedSignalInfo = TextTextCaretMovedCallback + connectSignal _ = connectTextTextCaretMoved + +data TextTextChangedSignalInfo +instance SignalInfo TextTextChangedSignalInfo where + type HaskellCallbackType TextTextChangedSignalInfo = TextTextChangedCallback + connectSignal _ = connectTextTextChanged + +data TextTextInsertSignalInfo +instance SignalInfo TextTextInsertSignalInfo where + type HaskellCallbackType TextTextInsertSignalInfo = TextTextInsertCallback + connectSignal _ = connectTextTextInsert + +data TextTextRemoveSignalInfo +instance SignalInfo TextTextRemoveSignalInfo where + type HaskellCallbackType TextTextRemoveSignalInfo = TextTextRemoveCallback + connectSignal _ = connectTextTextRemove + +data TextTextSelectionChangedSignalInfo +instance SignalInfo TextTextSelectionChangedSignalInfo where + type HaskellCallbackType TextTextSelectionChangedSignalInfo = TextTextSelectionChangedCallback + connectSignal _ = connectTextTextSelectionChanged + +type instance SignalList Text = '[ '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo)] + +type instance SignalList Util = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ValueValueChangedSignalInfo +instance SignalInfo ValueValueChangedSignalInfo where + type HaskellCallbackType ValueValueChangedSignalInfo = ValueValueChangedCallback + connectSignal _ = connectValueValueChanged + +type instance SignalList Value = '[ '("value-changed", ValueValueChangedSignalInfo)] + +data WindowActivateSignalInfo +instance SignalInfo WindowActivateSignalInfo where + type HaskellCallbackType WindowActivateSignalInfo = WindowActivateCallback + connectSignal _ = connectWindowActivate + +data WindowCreateSignalInfo +instance SignalInfo WindowCreateSignalInfo where + type HaskellCallbackType WindowCreateSignalInfo = WindowCreateCallback + connectSignal _ = connectWindowCreate + +data WindowDeactivateSignalInfo +instance SignalInfo WindowDeactivateSignalInfo where + type HaskellCallbackType WindowDeactivateSignalInfo = WindowDeactivateCallback + connectSignal _ = connectWindowDeactivate + +data WindowDestroySignalInfo +instance SignalInfo WindowDestroySignalInfo where + type HaskellCallbackType WindowDestroySignalInfo = WindowDestroyCallback + connectSignal _ = connectWindowDestroy + +data WindowMaximizeSignalInfo +instance SignalInfo WindowMaximizeSignalInfo where + type HaskellCallbackType WindowMaximizeSignalInfo = WindowMaximizeCallback + connectSignal _ = connectWindowMaximize + +data WindowMinimizeSignalInfo +instance SignalInfo WindowMinimizeSignalInfo where + type HaskellCallbackType WindowMinimizeSignalInfo = WindowMinimizeCallback + connectSignal _ = connectWindowMinimize + +data WindowMoveSignalInfo +instance SignalInfo WindowMoveSignalInfo where + type HaskellCallbackType WindowMoveSignalInfo = WindowMoveCallback + connectSignal _ = connectWindowMove + +data WindowResizeSignalInfo +instance SignalInfo WindowResizeSignalInfo where + type HaskellCallbackType WindowResizeSignalInfo = WindowResizeCallback + connectSignal _ = connectWindowResize + +data WindowRestoreSignalInfo +instance SignalInfo WindowRestoreSignalInfo where + type HaskellCallbackType WindowRestoreSignalInfo = WindowRestoreCallback + connectSignal _ = connectWindowRestore + +type instance SignalList Window = '[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,502 @@ + GNU LESSER GENERAL PUBLIC LICENSE + Version 2.1, February 1999 + + Copyright (C) 1991, 1999 Free Software Foundation, Inc. + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + +[This is the first released version of the Lesser GPL. It also counts + as the successor of the GNU Library Public License, version 2, hence + the version number 2.1.] + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +Licenses are intended to guarantee your freedom to share and change +free software--to make sure the software is free for all its users. + + This license, the Lesser General Public License, applies to some +specially designated software packages--typically libraries--of the +Free Software Foundation and other authors who decide to use it. You +can use it too, but we suggest you first think carefully about whether +this license or the ordinary General Public License is the better +strategy to use in any particular case, based on the explanations below. + + When we speak of free software, we are referring to freedom of use, +not price. Our General Public Licenses are designed to make sure that +you have the freedom to distribute copies of free software (and charge +for this service if you wish); that you receive source code or can get +it if you want it; that you can change the software and use pieces of +it in new free programs; and that you are informed that you can do +these things. + + To protect your rights, we need to make restrictions that forbid +distributors to deny you these rights or to ask you to surrender these +rights. These restrictions translate to certain responsibilities for +you if you distribute copies of the library or if you modify it. + + For example, if you distribute copies of the library, whether gratis +or for a fee, you must give the recipients all the rights that we gave +you. You must make sure that they, too, receive or can get the source +code. If you link other code with the library, you must provide +complete object files to the recipients, so that they can relink them +with the library after making changes to the library and recompiling +it. And you must show them these terms so they know their rights. + + We protect your rights with a two-step method: (1) we copyright the +library, and (2) we offer you this license, which gives you legal +permission to copy, distribute and/or modify the library. + + To protect each distributor, we want to make it very clear that +there is no warranty for the free library. Also, if the library is +modified by someone else and passed on, the recipients should know +that what they have is not the original version, so that the original +author's reputation will not be affected by problems that might be +introduced by others. + + Finally, software patents pose a constant threat to the existence of +any free program. We wish to make sure that a company cannot +effectively restrict the users of a free program by obtaining a +restrictive license from a patent holder. Therefore, we insist that +any patent license obtained for a version of the library must be +consistent with the full freedom of use specified in this license. + + Most GNU software, including some libraries, is covered by the +ordinary GNU General Public License. This license, the GNU Lesser +General Public License, applies to certain designated libraries, and +is quite different from the ordinary General Public License. We use +this license for certain libraries in order to permit linking those +libraries into non-free programs. + + When a program is linked with a library, whether statically or using +a shared library, the combination of the two is legally speaking a +combined work, a derivative of the original library. The ordinary +General Public License therefore permits such linking only if the +entire combination fits its criteria of freedom. The Lesser General +Public License permits more lax criteria for linking other code with +the library. + + We call this license the "Lesser" General Public License because it +does Less to protect the user's freedom than the ordinary General +Public License. It also provides other free software developers Less +of an advantage over competing non-free programs. These disadvantages +are the reason we use the ordinary General Public License for many +libraries. However, the Lesser license provides advantages in certain +special circumstances. + + For example, on rare occasions, there may be a special need to +encourage the widest possible use of a certain library, so that it becomes +a de-facto standard. To achieve this, non-free programs must be +allowed to use the library. A more frequent case is that a free +library does the same job as widely used non-free libraries. In this +case, there is little to gain by limiting the free library to free +software only, so we use the Lesser General Public License. + + In other cases, permission to use a particular library in non-free +programs enables a greater number of people to use a large body of +free software. For example, permission to use the GNU C Library in +non-free programs enables many more people to use the whole GNU +operating system, as well as its variant, the GNU/Linux operating +system. + + Although the Lesser General Public License is Less protective of the +users' freedom, it does ensure that the user of a program that is +linked with the Library has the freedom and the wherewithal to run +that program using a modified version of the Library. + + The precise terms and conditions for copying, distribution and +modification follow. Pay close attention to the difference between a +"work based on the library" and a "work that uses the library". The +former contains code derived from the library, whereas the latter must +be combined with the library in order to run. + + GNU LESSER GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License Agreement applies to any software library or other +program which contains a notice placed by the copyright holder or +other authorized party saying it may be distributed under the terms of +this Lesser General Public License (also called "this License"). +Each licensee is addressed as "you". + + A "library" means a collection of software functions and/or data +prepared so as to be conveniently linked with application programs +(which use some of those functions and data) to form executables. + + The "Library", below, refers to any such software library or work +which has been distributed under these terms. A "work based on the +Library" means either the Library or any derivative work under +copyright law: that is to say, a work containing the Library or a +portion of it, either verbatim or with modifications and/or translated +straightforwardly into another language. (Hereinafter, translation is +included without limitation in the term "modification".) + + "Source code" for a work means the preferred form of the work for +making modifications to it. For a library, complete source code means +all the source code for all modules it contains, plus any associated +interface definition files, plus the scripts used to control compilation +and installation of the library. + + Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running a program using the Library is not restricted, and output from +such a program is covered only if its contents constitute a work based +on the Library (independent of the use of the Library in a tool for +writing it). Whether that is true depends on what the Library does +and what the program that uses the Library does. + + 1. You may copy and distribute verbatim copies of the Library's +complete source code as you receive it, in any medium, provided that +you conspicuously and appropriately publish on each copy an +appropriate copyright notice and disclaimer of warranty; keep intact +all the notices that refer to this License and to the absence of any +warranty; and distribute a copy of this License along with the +Library. + + You may charge a fee for the physical act of transferring a copy, +and you may at your option offer warranty protection in exchange for a +fee. + + 2. You may modify your copy or copies of the Library or any portion +of it, thus forming a work based on the Library, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) The modified work must itself be a software library. + + b) You must cause the files modified to carry prominent notices + stating that you changed the files and the date of any change. + + c) You must cause the whole of the work to be licensed at no + charge to all third parties under the terms of this License. + + d) If a facility in the modified Library refers to a function or a + table of data to be supplied by an application program that uses + the facility, other than as an argument passed when the facility + is invoked, then you must make a good faith effort to ensure that, + in the event an application does not supply such function or + table, the facility still operates, and performs whatever part of + its purpose remains meaningful. + + (For example, a function in a library to compute square roots has + a purpose that is entirely well-defined independent of the + application. Therefore, Subsection 2d requires that any + application-supplied function or table used by this function must + be optional: if the application does not supply it, the square + root function must still compute square roots.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Library, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Library, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote +it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Library. + +In addition, mere aggregation of another work not based on the Library +with the Library (or with a work based on the Library) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may opt to apply the terms of the ordinary GNU General Public +License instead of this License to a given copy of the Library. To do +this, you must alter all the notices that refer to this License, so +that they refer to the ordinary GNU General Public License, version 2, +instead of to this License. (If a newer version than version 2 of the +ordinary GNU General Public License has appeared, then you can specify +that version instead if you wish.) Do not make any other change in +these notices. + + Once this change is made in a given copy, it is irreversible for +that copy, so the ordinary GNU General Public License applies to all +subsequent copies and derivative works made from that copy. + + This option is useful when you wish to copy part of the code of +the Library into a program that is not a library. + + 4. You may copy and distribute the Library (or a portion or +derivative of it, under Section 2) in object code or executable form +under the terms of Sections 1 and 2 above provided that you accompany +it with the complete corresponding machine-readable source code, which +must be distributed under the terms of Sections 1 and 2 above on a +medium customarily used for software interchange. + + If distribution of object code is made by offering access to copy +from a designated place, then offering equivalent access to copy the +source code from the same place satisfies the requirement to +distribute the source code, even though third parties are not +compelled to copy the source along with the object code. + + 5. A program that contains no derivative of any portion of the +Library, but is designed to work with the Library by being compiled or +linked with it, is called a "work that uses the Library". Such a +work, in isolation, is not a derivative work of the Library, and +therefore falls outside the scope of this License. + + However, linking a "work that uses the Library" with the Library +creates an executable that is a derivative of the Library (because it +contains portions of the Library), rather than a "work that uses the +library". The executable is therefore covered by this License. +Section 6 states terms for distribution of such executables. + + When a "work that uses the Library" uses material from a header file +that is part of the Library, the object code for the work may be a +derivative work of the Library even though the source code is not. +Whether this is true is especially significant if the work can be +linked without the Library, or if the work is itself a library. The +threshold for this to be true is not precisely defined by law. + + If such an object file uses only numerical parameters, data +structure layouts and accessors, and small macros and small inline +functions (ten lines or less in length), then the use of the object +file is unrestricted, regardless of whether it is legally a derivative +work. (Executables containing this object code plus portions of the +Library will still fall under Section 6.) + + Otherwise, if the work is a derivative of the Library, you may +distribute the object code for the work under the terms of Section 6. +Any executables containing that work also fall under Section 6, +whether or not they are linked directly with the Library itself. + + 6. As an exception to the Sections above, you may also combine or +link a "work that uses the Library" with the Library to produce a +work containing portions of the Library, and distribute that work +under terms of your choice, provided that the terms permit +modification of the work for the customer's own use and reverse +engineering for debugging such modifications. + + You must give prominent notice with each copy of the work that the +Library is used in it and that the Library and its use are covered by +this License. You must supply a copy of this License. If the work +during execution displays copyright notices, you must include the +copyright notice for the Library among them, as well as a reference +directing the user to the copy of this License. Also, you must do one +of these things: + + a) Accompany the work with the complete corresponding + machine-readable source code for the Library including whatever + changes were used in the work (which must be distributed under + Sections 1 and 2 above); and, if the work is an executable linked + with the Library, with the complete machine-readable "work that + uses the Library", as object code and/or source code, so that the + user can modify the Library and then relink to produce a modified + executable containing the modified Library. (It is understood + that the user who changes the contents of definitions files in the + Library will not necessarily be able to recompile the application + to use the modified definitions.) + + b) Use a suitable shared library mechanism for linking with the + Library. A suitable mechanism is one that (1) uses at run time a + copy of the library already present on the user's computer system, + rather than copying library functions into the executable, and (2) + will operate properly with a modified version of the library, if + the user installs one, as long as the modified version is + interface-compatible with the version that the work was made with. + + c) Accompany the work with a written offer, valid for at + least three years, to give the same user the materials + specified in Subsection 6a, above, for a charge no more + than the cost of performing this distribution. + + d) If distribution of the work is made by offering access to copy + from a designated place, offer equivalent access to copy the above + specified materials from the same place. + + e) Verify that the user has already received a copy of these + materials or that you have already sent this user a copy. + + For an executable, the required form of the "work that uses the +Library" must include any data and utility programs needed for +reproducing the executable from it. However, as a special exception, +the materials to be distributed need not include anything that is +normally distributed (in either source or binary form) with the major +components (compiler, kernel, and so on) of the operating system on +which the executable runs, unless that component itself accompanies +the executable. + + It may happen that this requirement contradicts the license +restrictions of other proprietary libraries that do not normally +accompany the operating system. Such a contradiction means you cannot +use both them and the Library together in an executable that you +distribute. + + 7. You may place library facilities that are a work based on the +Library side-by-side in a single library together with other library +facilities not covered by this License, and distribute such a combined +library, provided that the separate distribution of the work based on +the Library and of the other library facilities is otherwise +permitted, and provided that you do these two things: + + a) Accompany the combined library with a copy of the same work + based on the Library, uncombined with any other library + facilities. This must be distributed under the terms of the + Sections above. + + b) Give prominent notice with the combined library of the fact + that part of it is a work based on the Library, and explaining + where to find the accompanying uncombined form of the same work. + + 8. You may not copy, modify, sublicense, link with, or distribute +the Library except as expressly provided under this License. Any +attempt otherwise to copy, modify, sublicense, link with, or +distribute the Library is void, and will automatically terminate your +rights under this License. However, parties who have received copies, +or rights, from you under this License will not have their licenses +terminated so long as such parties remain in full compliance. + + 9. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Library or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Library (or any work based on the +Library), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Library or works based on it. + + 10. Each time you redistribute the Library (or any work based on the +Library), the recipient automatically receives a license from the +original licensor to copy, distribute, link with or modify the Library +subject to these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties with +this License. + + 11. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Library at all. For example, if a patent +license would not permit royalty-free redistribution of the Library by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Library. + +If any portion of this section is held invalid or unenforceable under any +particular circumstance, the balance of the section is intended to apply, +and the section as a whole is intended to apply in other circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 12. If the distribution and/or use of the Library is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Library under this License may add +an explicit geographical distribution limitation excluding those countries, +so that distribution is permitted only in or among countries not thus +excluded. In such case, this License incorporates the limitation as if +written in the body of this License. + + 13. The Free Software Foundation may publish revised and/or new +versions of the Lesser General Public License from time to time. +Such new versions will be similar in spirit to the present version, +but may differ in detail to address new problems or concerns. + +Each version is given a distinguishing version number. If the Library +specifies a version number of this License which applies to it and +"any later version", you have the option of following the terms and +conditions either of that version or of any later version published by +the Free Software Foundation. If the Library does not specify a +license version number, you may choose any version ever published by +the Free Software Foundation. + + 14. If you wish to incorporate parts of the Library into other free +programs whose distribution conditions are incompatible with these, +write to the author to ask for permission. For software which is +copyrighted by the Free Software Foundation, write to the Free +Software Foundation; we sometimes make exceptions for this. Our +decision will be guided by the two goals of preserving the free status +of all derivatives of our free software and of promoting the sharing +and reuse of software generally. + + NO WARRANTY + + 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO +WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. +EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR +OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY +KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE +LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME +THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. + + 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN +WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY +AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU +FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR +CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE +LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING +RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A +FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF +SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH +DAMAGES. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Libraries + + If you develop a new library, and you want it to be of the greatest +possible use to the public, we recommend making it free software that +everyone can redistribute and change. You can do so by permitting +redistribution under these terms (or, alternatively, under the terms of the +ordinary General Public License). + + To apply these terms, attach the following notices to the library. It is +safest to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least the +"copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + This library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with this library; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + +Also add information on how to contact you by electronic and paper mail. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the library, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the + library `Frob' (a library for tweaking knobs) written by James Random Hacker. + + , 1 April 1990 + Ty Coon, President of Vice + +That's all there is to it! diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,3 @@ +#!/usr/bin/env runhaskell +import Distribution.Simple +main = defaultMain diff --git a/gi-atk.cabal b/gi-atk.cabal new file mode 100644 --- /dev/null +++ b/gi-atk.cabal @@ -0,0 +1,26 @@ +-- Autogenerated, do not edit. +name: gi-atk +version: 0.2.16.8 +synopsis: Atk bindings +description: Bindings for Atk, autogenerated by haskell-gi. +homepage: https://github.com/haskell-gi/haskell-gi +license: LGPL-2.1 +license-file: LICENSE +author: Will Thompson, Iñaki García Etxebarria and Jonas Platte +maintainer: Iñaki García Etxebarria (garetxe@gmail.com) +category: Bindings +build-type: Simple +cabal-version: >=1.10 + +library + default-language: Haskell2010 + exposed-modules: GI.Atk, GI.AtkAttributes, GI.AtkSignals + pkgconfig-depends: atk >= 2.16 + build-depends: base >= 4.6 && <4.9, + haskell-gi-base >= 0.8 && < 1, + gi-glib >= 0.2.44.8 && < 0.3, + gi-gobject >= 0.2.44.8 && < 0.3, + bytestring >= 0.10, + containers >= 0.5, + text >= 1.0, + transformers >= 0.3