diff --git a/GI/Atk.hs b/GI/Atk.hs --- a/GI/Atk.hs +++ b/GI/Atk.hs @@ -1,9757 +1,40 @@ --- Generated code. - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, - TypeFamilies, MultiParamTypeClasses, KindSignatures, - FlexibleInstances, UndecidableInstances, DataKinds, - OverloadedStrings, NegativeLiterals, FlexibleContexts #-} - -module GI.Atk where - -import Prelude () -import Data.GI.Base.ShortPrelude -import Data.Char -import Data.Int -import Data.Word -import qualified Data.ByteString.Char8 as B -import Data.ByteString.Char8 (ByteString) -import qualified Data.Map as Map -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr -import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) -import Foreign.Storable (peek, poke, sizeOf) -import Control.Applicative ((<$>)) -import Control.Exception (onException) -import Control.Monad.IO.Class -import qualified Data.Text as T - -import Data.GI.Base.Attributes hiding (get, set) -import Data.GI.Base.BasicTypes -import Data.GI.Base.BasicConversions -import Data.GI.Base.Closure -import Data.GI.Base.GError -import Data.GI.Base.GHashTable -import Data.GI.Base.GParamSpec -import Data.GI.Base.GVariant -import Data.GI.Base.GValue -import Data.GI.Base.ManagedPtr -import Data.GI.Base.Overloading -import Data.GI.Base.Properties hiding (new) -import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) -import Data.GI.Base.Utils - -import qualified GI.GLib as GLib -import qualified GI.GLibAttributes as GLibA -import qualified GI.GObject as GObject -import qualified GI.GObjectAttributes as GObjectA - --- interface Action - -newtype Action = Action (ForeignPtr Action) -noAction :: Maybe Action -noAction = Nothing - -class ForeignPtrNewtype a => ActionK a -instance (ForeignPtrNewtype o, IsDescendantOf Action o) => ActionK o -type instance ParentTypes Action = '[] - --- method Action::do_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_action_do_action" atk_action_do_action :: - Ptr Action -> -- _obj : TInterface "Atk" "Action" - Int32 -> -- i : TBasicType TInt32 - IO CInt - - -actionDoAction :: - (MonadIO m, ActionK a) => - a -> -- _obj - Int32 -> -- i - m Bool -actionDoAction _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_action_do_action _obj' i - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Action::get_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_action_get_description" atk_action_get_description :: - Ptr Action -> -- _obj : TInterface "Atk" "Action" - Int32 -> -- i : TBasicType TInt32 - IO CString - - -actionGetDescription :: - (MonadIO m, ActionK a) => - a -> -- _obj - Int32 -> -- i - m T.Text -actionGetDescription _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_action_get_description _obj' i - checkUnexpectedReturnNULL "atk_action_get_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Action::get_keybinding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_action_get_keybinding" atk_action_get_keybinding :: - Ptr Action -> -- _obj : TInterface "Atk" "Action" - Int32 -> -- i : TBasicType TInt32 - IO CString - - -actionGetKeybinding :: - (MonadIO m, ActionK a) => - a -> -- _obj - Int32 -> -- i - m T.Text -actionGetKeybinding _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_action_get_keybinding _obj' i - checkUnexpectedReturnNULL "atk_action_get_keybinding" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Action::get_localized_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_action_get_localized_name" atk_action_get_localized_name :: - Ptr Action -> -- _obj : TInterface "Atk" "Action" - Int32 -> -- i : TBasicType TInt32 - IO CString - - -actionGetLocalizedName :: - (MonadIO m, ActionK a) => - a -> -- _obj - Int32 -> -- i - m T.Text -actionGetLocalizedName _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_action_get_localized_name _obj' i - checkUnexpectedReturnNULL "atk_action_get_localized_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Action::get_n_actions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_action_get_n_actions" atk_action_get_n_actions :: - Ptr Action -> -- _obj : TInterface "Atk" "Action" - IO Int32 - - -actionGetNActions :: - (MonadIO m, ActionK a) => - a -> -- _obj - m Int32 -actionGetNActions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_action_get_n_actions _obj' - touchManagedPtr _obj - return result - --- method Action::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_action_get_name" atk_action_get_name :: - Ptr Action -> -- _obj : TInterface "Atk" "Action" - Int32 -> -- i : TBasicType TInt32 - IO CString - - -actionGetName :: - (MonadIO m, ActionK a) => - a -> -- _obj - Int32 -> -- i - m T.Text -actionGetName _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_action_get_name _obj' i - checkUnexpectedReturnNULL "atk_action_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Action::set_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_action_set_description" atk_action_set_description :: - Ptr Action -> -- _obj : TInterface "Atk" "Action" - Int32 -> -- i : TBasicType TInt32 - CString -> -- desc : TBasicType TUTF8 - IO CInt - - -actionSetDescription :: - (MonadIO m, ActionK a) => - a -> -- _obj - Int32 -> -- i - T.Text -> -- desc - m Bool -actionSetDescription _obj i desc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - desc' <- textToCString desc - result <- atk_action_set_description _obj' i desc' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem desc' - return result' - --- struct Attribute -newtype Attribute = Attribute (ForeignPtr Attribute) -noAttribute :: Maybe Attribute -noAttribute = Nothing - -attributeReadName :: Attribute -> IO T.Text -attributeReadName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -attributeReadValue :: Attribute -> IO T.Text -attributeReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - --- interface Component - -newtype Component = Component (ForeignPtr Component) -noComponent :: Maybe Component -noComponent = Nothing - -class ForeignPtrNewtype a => ComponentK a -instance (ForeignPtrNewtype o, IsDescendantOf Component o) => ComponentK o -type instance ParentTypes Component = '[] - --- method Component::contains --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_component_contains" atk_component_contains :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - IO CInt - - -componentContains :: - (MonadIO m, ComponentK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - CoordType -> -- coord_type - m Bool -componentContains _obj x y coord_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coord_type' = (fromIntegral . fromEnum) coord_type - result <- atk_component_contains _obj' x y coord_type' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Component::get_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "atk_component_get_alpha" atk_component_get_alpha :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - IO CDouble - - -componentGetAlpha :: - (MonadIO m, ComponentK a) => - a -> -- _obj - m Double -componentGetAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_component_get_alpha _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Component::get_extents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_component_get_extents" atk_component_get_extents :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - IO () - - -componentGetExtents :: - (MonadIO m, ComponentK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - CoordType -> -- coord_type - m () -componentGetExtents _obj x y width height coord_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coord_type' = (fromIntegral . fromEnum) coord_type - atk_component_get_extents _obj' x y width height coord_type' - touchManagedPtr _obj - return () - --- method Component::get_layer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Layer" --- throws : False --- Skip return : False - -foreign import ccall "atk_component_get_layer" atk_component_get_layer :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - IO CUInt - - -componentGetLayer :: - (MonadIO m, ComponentK a) => - a -> -- _obj - m Layer -componentGetLayer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_component_get_layer _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Component::get_mdi_zorder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_component_get_mdi_zorder" atk_component_get_mdi_zorder :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - IO Int32 - - -componentGetMdiZorder :: - (MonadIO m, ComponentK a) => - a -> -- _obj - m Int32 -componentGetMdiZorder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_component_get_mdi_zorder _obj' - touchManagedPtr _obj - return result - --- method Component::get_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_component_get_position" atk_component_get_position :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - IO () - -{-# DEPRECATED componentGetPosition ["Since 2.12. Use atk_component_get_extents() instead."]#-} -componentGetPosition :: - (MonadIO m, ComponentK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - CoordType -> -- coord_type - m () -componentGetPosition _obj x y coord_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coord_type' = (fromIntegral . fromEnum) coord_type - atk_component_get_position _obj' x y coord_type' - touchManagedPtr _obj - return () - --- method Component::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_component_get_size" atk_component_get_size :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - -{-# DEPRECATED componentGetSize ["Since 2.12. Use atk_component_get_extents() instead."]#-} -componentGetSize :: - (MonadIO m, ComponentK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -componentGetSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_component_get_size _obj' width height - touchManagedPtr _obj - return () - --- method Component::grab_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_component_grab_focus" atk_component_grab_focus :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - IO CInt - - -componentGrabFocus :: - (MonadIO m, ComponentK a) => - a -> -- _obj - m Bool -componentGrabFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_component_grab_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Component::ref_accessible_at_point --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_component_ref_accessible_at_point" atk_component_ref_accessible_at_point :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - IO (Ptr Object) - - -componentRefAccessibleAtPoint :: - (MonadIO m, ComponentK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - CoordType -> -- coord_type - m Object -componentRefAccessibleAtPoint _obj x y coord_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coord_type' = (fromIntegral . fromEnum) coord_type - result <- atk_component_ref_accessible_at_point _obj' x y coord_type' - checkUnexpectedReturnNULL "atk_component_ref_accessible_at_point" result - result' <- (wrapObject Object) result - touchManagedPtr _obj - return result' - --- method Component::remove_focus_handler --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_component_remove_focus_handler" atk_component_remove_focus_handler :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - Word32 -> -- handler_id : TBasicType TUInt32 - IO () - -{-# DEPRECATED componentRemoveFocusHandler ["(Since version 2.9.4)","If you need to track when an object gains or","lose the focus, use the #AtkObject::state-change \"focused\" notification instead."]#-} -componentRemoveFocusHandler :: - (MonadIO m, ComponentK a) => - a -> -- _obj - Word32 -> -- handler_id - m () -componentRemoveFocusHandler _obj handler_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_component_remove_focus_handler _obj' handler_id - touchManagedPtr _obj - return () - --- method Component::set_extents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_component_set_extents" atk_component_set_extents :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - IO CInt - - -componentSetExtents :: - (MonadIO m, ComponentK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - CoordType -> -- coord_type - m Bool -componentSetExtents _obj x y width height coord_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coord_type' = (fromIntegral . fromEnum) coord_type - result <- atk_component_set_extents _obj' x y width height coord_type' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Component::set_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_component_set_position" atk_component_set_position :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - IO CInt - - -componentSetPosition :: - (MonadIO m, ComponentK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - CoordType -> -- coord_type - m Bool -componentSetPosition _obj x y coord_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coord_type' = (fromIntegral . fromEnum) coord_type - result <- atk_component_set_position _obj' x y coord_type' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Component::set_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_component_set_size" atk_component_set_size :: - Ptr Component -> -- _obj : TInterface "Atk" "Component" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO CInt - - -componentSetSize :: - (MonadIO m, ComponentK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m Bool -componentSetSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_component_set_size _obj' width height - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- signal Component::bounds-changed -type ComponentBoundsChangedCallback = - Rectangle -> - IO () - -noComponentBoundsChangedCallback :: Maybe ComponentBoundsChangedCallback -noComponentBoundsChangedCallback = Nothing - -type ComponentBoundsChangedCallbackC = - Ptr () -> -- object - Ptr Rectangle -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkComponentBoundsChangedCallback :: ComponentBoundsChangedCallbackC -> IO (FunPtr ComponentBoundsChangedCallbackC) - -componentBoundsChangedClosure :: ComponentBoundsChangedCallback -> IO Closure -componentBoundsChangedClosure cb = newCClosure =<< mkComponentBoundsChangedCallback wrapped - where wrapped = componentBoundsChangedCallbackWrapper cb - -componentBoundsChangedCallbackWrapper :: - ComponentBoundsChangedCallback -> - Ptr () -> - Ptr Rectangle -> - Ptr () -> - IO () -componentBoundsChangedCallbackWrapper _cb _ arg1 _ = do - arg1' <- (newBoxed Rectangle) arg1 - _cb arg1' - -onComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId -onComponentBoundsChanged obj cb = liftIO $ connectComponentBoundsChanged obj cb SignalConnectBefore -afterComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId -afterComponentBoundsChanged obj cb = connectComponentBoundsChanged obj cb SignalConnectAfter - -connectComponentBoundsChanged :: (GObject a, MonadIO m) => - a -> ComponentBoundsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectComponentBoundsChanged obj cb after = liftIO $ do - cb' <- mkComponentBoundsChangedCallback (componentBoundsChangedCallbackWrapper cb) - connectSignalFunPtr obj "bounds-changed" cb' after - --- Enum CoordType - -data CoordType = - CoordTypeScreen - | CoordTypeWindow - | AnotherCoordType Int - deriving (Show, Eq) - -instance Enum CoordType where - fromEnum CoordTypeScreen = 0 - fromEnum CoordTypeWindow = 1 - fromEnum (AnotherCoordType k) = k - - toEnum 0 = CoordTypeScreen - toEnum 1 = CoordTypeWindow - toEnum k = AnotherCoordType k - -foreign import ccall "atk_coord_type_get_type" c_atk_coord_type_get_type :: - IO GType - -instance BoxedEnum CoordType where - boxedEnumType _ = c_atk_coord_type_get_type - --- interface Document - -newtype Document = Document (ForeignPtr Document) -noDocument :: Maybe Document -noDocument = Nothing - -class ForeignPtrNewtype a => DocumentK a -instance (ForeignPtrNewtype o, IsDescendantOf Document o) => DocumentK o -type instance ParentTypes Document = '[] - --- method Document::get_attribute_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_document_get_attribute_value" atk_document_get_attribute_value :: - Ptr Document -> -- _obj : TInterface "Atk" "Document" - CString -> -- attribute_name : TBasicType TUTF8 - IO CString - - -documentGetAttributeValue :: - (MonadIO m, DocumentK a) => - a -> -- _obj - T.Text -> -- attribute_name - m T.Text -documentGetAttributeValue _obj attribute_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute_name' <- textToCString attribute_name - result <- atk_document_get_attribute_value _obj' attribute_name' - checkUnexpectedReturnNULL "atk_document_get_attribute_value" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem attribute_name' - return result' - --- method Document::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TVoid) --- throws : False --- Skip return : False - -foreign import ccall "atk_document_get_attributes" atk_document_get_attributes :: - Ptr Document -> -- _obj : TInterface "Atk" "Document" - IO (Ptr (GSList (Ptr ()))) - - -documentGetAttributes :: - (MonadIO m, DocumentK a) => - a -> -- _obj - m [Ptr ()] -documentGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_document_get_attributes _obj' - checkUnexpectedReturnNULL "atk_document_get_attributes" result - result' <- unpackGSList result - touchManagedPtr _obj - return result' - --- method Document::get_current_page_number --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_document_get_current_page_number" atk_document_get_current_page_number :: - Ptr Document -> -- _obj : TInterface "Atk" "Document" - IO Int32 - - -documentGetCurrentPageNumber :: - (MonadIO m, DocumentK a) => - a -> -- _obj - m Int32 -documentGetCurrentPageNumber _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_document_get_current_page_number _obj' - touchManagedPtr _obj - return result - --- method Document::get_document --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_document_get_document" atk_document_get_document :: - Ptr Document -> -- _obj : TInterface "Atk" "Document" - IO () - -{-# DEPRECATED documentGetDocument ["Since 2.12. @document is already a representation of","the document. Use it directly, or one of its children, as an","instance of the DOM."]#-} -documentGetDocument :: - (MonadIO m, DocumentK a) => - a -> -- _obj - m () -documentGetDocument _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_document_get_document _obj' - touchManagedPtr _obj - return () - --- method Document::get_document_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_document_get_document_type" atk_document_get_document_type :: - Ptr Document -> -- _obj : TInterface "Atk" "Document" - IO CString - -{-# DEPRECATED documentGetDocumentType ["Since 2.12. Please use atk_document_get_attributes() to","ask for the document type if it applies."]#-} -documentGetDocumentType :: - (MonadIO m, DocumentK a) => - a -> -- _obj - m T.Text -documentGetDocumentType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_document_get_document_type _obj' - checkUnexpectedReturnNULL "atk_document_get_document_type" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Document::get_locale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_document_get_locale" atk_document_get_locale :: - Ptr Document -> -- _obj : TInterface "Atk" "Document" - IO CString - -{-# DEPRECATED documentGetLocale ["(Since version 2.7.90)","Please use atk_object_get_object_locale() instead."]#-} -documentGetLocale :: - (MonadIO m, DocumentK a) => - a -> -- _obj - m T.Text -documentGetLocale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_document_get_locale _obj' - checkUnexpectedReturnNULL "atk_document_get_locale" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Document::get_page_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_document_get_page_count" atk_document_get_page_count :: - Ptr Document -> -- _obj : TInterface "Atk" "Document" - IO Int32 - - -documentGetPageCount :: - (MonadIO m, DocumentK a) => - a -> -- _obj - m Int32 -documentGetPageCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_document_get_page_count _obj' - touchManagedPtr _obj - return result - --- method Document::set_attribute_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_document_set_attribute_value" atk_document_set_attribute_value :: - Ptr Document -> -- _obj : TInterface "Atk" "Document" - CString -> -- attribute_name : TBasicType TUTF8 - CString -> -- attribute_value : TBasicType TUTF8 - IO CInt - - -documentSetAttributeValue :: - (MonadIO m, DocumentK a) => - a -> -- _obj - T.Text -> -- attribute_name - T.Text -> -- attribute_value - m Bool -documentSetAttributeValue _obj attribute_name attribute_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute_name' <- textToCString attribute_name - attribute_value' <- textToCString attribute_value - result <- atk_document_set_attribute_value _obj' attribute_name' attribute_value' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem attribute_name' - freeMem attribute_value' - return result' - --- signal Document::load-complete -type DocumentLoadCompleteCallback = - IO () - -noDocumentLoadCompleteCallback :: Maybe DocumentLoadCompleteCallback -noDocumentLoadCompleteCallback = Nothing - -type DocumentLoadCompleteCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDocumentLoadCompleteCallback :: DocumentLoadCompleteCallbackC -> IO (FunPtr DocumentLoadCompleteCallbackC) - -documentLoadCompleteClosure :: DocumentLoadCompleteCallback -> IO Closure -documentLoadCompleteClosure cb = newCClosure =<< mkDocumentLoadCompleteCallback wrapped - where wrapped = documentLoadCompleteCallbackWrapper cb - -documentLoadCompleteCallbackWrapper :: - DocumentLoadCompleteCallback -> - Ptr () -> - Ptr () -> - IO () -documentLoadCompleteCallbackWrapper _cb _ _ = do - _cb - -onDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId -onDocumentLoadComplete obj cb = liftIO $ connectDocumentLoadComplete obj cb SignalConnectBefore -afterDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId -afterDocumentLoadComplete obj cb = connectDocumentLoadComplete obj cb SignalConnectAfter - -connectDocumentLoadComplete :: (GObject a, MonadIO m) => - a -> DocumentLoadCompleteCallback -> SignalConnectMode -> m SignalHandlerId -connectDocumentLoadComplete obj cb after = liftIO $ do - cb' <- mkDocumentLoadCompleteCallback (documentLoadCompleteCallbackWrapper cb) - connectSignalFunPtr obj "load-complete" cb' after - --- signal Document::load-stopped -type DocumentLoadStoppedCallback = - IO () - -noDocumentLoadStoppedCallback :: Maybe DocumentLoadStoppedCallback -noDocumentLoadStoppedCallback = Nothing - -type DocumentLoadStoppedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDocumentLoadStoppedCallback :: DocumentLoadStoppedCallbackC -> IO (FunPtr DocumentLoadStoppedCallbackC) - -documentLoadStoppedClosure :: DocumentLoadStoppedCallback -> IO Closure -documentLoadStoppedClosure cb = newCClosure =<< mkDocumentLoadStoppedCallback wrapped - where wrapped = documentLoadStoppedCallbackWrapper cb - -documentLoadStoppedCallbackWrapper :: - DocumentLoadStoppedCallback -> - Ptr () -> - Ptr () -> - IO () -documentLoadStoppedCallbackWrapper _cb _ _ = do - _cb - -onDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId -onDocumentLoadStopped obj cb = liftIO $ connectDocumentLoadStopped obj cb SignalConnectBefore -afterDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId -afterDocumentLoadStopped obj cb = connectDocumentLoadStopped obj cb SignalConnectAfter - -connectDocumentLoadStopped :: (GObject a, MonadIO m) => - a -> DocumentLoadStoppedCallback -> SignalConnectMode -> m SignalHandlerId -connectDocumentLoadStopped obj cb after = liftIO $ do - cb' <- mkDocumentLoadStoppedCallback (documentLoadStoppedCallbackWrapper cb) - connectSignalFunPtr obj "load-stopped" cb' after - --- signal Document::page-changed -type DocumentPageChangedCallback = - Int32 -> - IO () - -noDocumentPageChangedCallback :: Maybe DocumentPageChangedCallback -noDocumentPageChangedCallback = Nothing - -type DocumentPageChangedCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDocumentPageChangedCallback :: DocumentPageChangedCallbackC -> IO (FunPtr DocumentPageChangedCallbackC) - -documentPageChangedClosure :: DocumentPageChangedCallback -> IO Closure -documentPageChangedClosure cb = newCClosure =<< mkDocumentPageChangedCallback wrapped - where wrapped = documentPageChangedCallbackWrapper cb - -documentPageChangedCallbackWrapper :: - DocumentPageChangedCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO () -documentPageChangedCallbackWrapper _cb _ page_number _ = do - _cb page_number - -onDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId -onDocumentPageChanged obj cb = liftIO $ connectDocumentPageChanged obj cb SignalConnectBefore -afterDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId -afterDocumentPageChanged obj cb = connectDocumentPageChanged obj cb SignalConnectAfter - -connectDocumentPageChanged :: (GObject a, MonadIO m) => - a -> DocumentPageChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectDocumentPageChanged obj cb after = liftIO $ do - cb' <- mkDocumentPageChangedCallback (documentPageChangedCallbackWrapper cb) - connectSignalFunPtr obj "page-changed" cb' after - --- signal Document::reload -type DocumentReloadCallback = - IO () - -noDocumentReloadCallback :: Maybe DocumentReloadCallback -noDocumentReloadCallback = Nothing - -type DocumentReloadCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDocumentReloadCallback :: DocumentReloadCallbackC -> IO (FunPtr DocumentReloadCallbackC) - -documentReloadClosure :: DocumentReloadCallback -> IO Closure -documentReloadClosure cb = newCClosure =<< mkDocumentReloadCallback wrapped - where wrapped = documentReloadCallbackWrapper cb - -documentReloadCallbackWrapper :: - DocumentReloadCallback -> - Ptr () -> - Ptr () -> - IO () -documentReloadCallbackWrapper _cb _ _ = do - _cb - -onDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId -onDocumentReload obj cb = liftIO $ connectDocumentReload obj cb SignalConnectBefore -afterDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId -afterDocumentReload obj cb = connectDocumentReload obj cb SignalConnectAfter - -connectDocumentReload :: (GObject a, MonadIO m) => - a -> DocumentReloadCallback -> SignalConnectMode -> m SignalHandlerId -connectDocumentReload obj cb after = liftIO $ do - cb' <- mkDocumentReloadCallback (documentReloadCallbackWrapper cb) - connectSignalFunPtr obj "reload" cb' after - --- interface EditableText - -newtype EditableText = EditableText (ForeignPtr EditableText) -noEditableText :: Maybe EditableText -noEditableText = Nothing - -class ForeignPtrNewtype a => EditableTextK a -instance (ForeignPtrNewtype o, IsDescendantOf EditableText o) => EditableTextK o -type instance ParentTypes EditableText = '[] - --- method EditableText::copy_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_editable_text_copy_text" atk_editable_text_copy_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" - Int32 -> -- start_pos : TBasicType TInt32 - Int32 -> -- end_pos : TBasicType TInt32 - IO () - - -editableTextCopyText :: - (MonadIO m, EditableTextK a) => - a -> -- _obj - Int32 -> -- start_pos - Int32 -> -- end_pos - m () -editableTextCopyText _obj start_pos end_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_editable_text_copy_text _obj' start_pos end_pos - touchManagedPtr _obj - return () - --- method EditableText::cut_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_editable_text_cut_text" atk_editable_text_cut_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" - Int32 -> -- start_pos : TBasicType TInt32 - Int32 -> -- end_pos : TBasicType TInt32 - IO () - - -editableTextCutText :: - (MonadIO m, EditableTextK a) => - a -> -- _obj - Int32 -> -- start_pos - Int32 -> -- end_pos - m () -editableTextCutText _obj start_pos end_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_editable_text_cut_text _obj' start_pos end_pos - touchManagedPtr _obj - return () - --- method EditableText::delete_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_editable_text_delete_text" atk_editable_text_delete_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" - Int32 -> -- start_pos : TBasicType TInt32 - Int32 -> -- end_pos : TBasicType TInt32 - IO () - - -editableTextDeleteText :: - (MonadIO m, EditableTextK a) => - a -> -- _obj - Int32 -> -- start_pos - Int32 -> -- end_pos - m () -editableTextDeleteText _obj start_pos end_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_editable_text_delete_text _obj' start_pos end_pos - touchManagedPtr _obj - return () - --- method EditableText::insert_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_editable_text_insert_text" atk_editable_text_insert_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" - CString -> -- string : TBasicType TUTF8 - Int32 -> -- length : TBasicType TInt32 - Int32 -> -- position : TBasicType TInt32 - IO () - - -editableTextInsertText :: - (MonadIO m, EditableTextK a) => - a -> -- _obj - T.Text -> -- string - Int32 -> -- length - Int32 -> -- position - m () -editableTextInsertText _obj string length_ position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - string' <- textToCString string - atk_editable_text_insert_text _obj' string' length_ position - touchManagedPtr _obj - freeMem string' - return () - --- method EditableText::paste_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_editable_text_paste_text" atk_editable_text_paste_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" - Int32 -> -- position : TBasicType TInt32 - IO () - - -editableTextPasteText :: - (MonadIO m, EditableTextK a) => - a -> -- _obj - Int32 -> -- position - m () -editableTextPasteText _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_editable_text_paste_text _obj' position - touchManagedPtr _obj - return () - --- method EditableText::set_run_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_editable_text_set_run_attributes" atk_editable_text_set_run_attributes :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" - Ptr (GSList (Ptr ())) -> -- attrib_set : TGSList (TBasicType TVoid) - Int32 -> -- start_offset : TBasicType TInt32 - Int32 -> -- end_offset : TBasicType TInt32 - IO CInt - - -editableTextSetRunAttributes :: - (MonadIO m, EditableTextK a) => - a -> -- _obj - [Ptr ()] -> -- attrib_set - Int32 -> -- start_offset - Int32 -> -- end_offset - m Bool -editableTextSetRunAttributes _obj attrib_set start_offset end_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attrib_set' <- packGSList attrib_set - result <- atk_editable_text_set_run_attributes _obj' attrib_set' start_offset end_offset - let result' = (/= 0) result - touchManagedPtr _obj - g_slist_free attrib_set' - return result' - --- method EditableText::set_text_contents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_editable_text_set_text_contents" atk_editable_text_set_text_contents :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" - CString -> -- string : TBasicType TUTF8 - IO () - - -editableTextSetTextContents :: - (MonadIO m, EditableTextK a) => - a -> -- _obj - T.Text -> -- string - m () -editableTextSetTextContents _obj string = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - string' <- textToCString string - atk_editable_text_set_text_contents _obj' string' - touchManagedPtr _obj - freeMem string' - return () - --- callback EventListener -eventListenerClosure :: EventListener -> IO Closure -eventListenerClosure cb = newCClosure =<< mkEventListener wrapped - where wrapped = eventListenerWrapper Nothing cb - -type EventListenerC = - Ptr Object -> - IO () - -foreign import ccall "wrapper" - mkEventListener :: EventListenerC -> IO (FunPtr EventListenerC) - -type EventListener = - Object -> - IO () - -noEventListener :: Maybe EventListener -noEventListener = Nothing - -eventListenerWrapper :: - Maybe (Ptr (FunPtr (EventListenerC))) -> - EventListener -> - Ptr Object -> - IO () -eventListenerWrapper funptrptr _cb obj = do - obj' <- (newObject Object) obj - _cb obj' - maybeReleaseFunPtr funptrptr - --- callback EventListenerInit -eventListenerInitClosure :: EventListenerInit -> IO Closure -eventListenerInitClosure cb = newCClosure =<< mkEventListenerInit wrapped - where wrapped = eventListenerInitWrapper Nothing cb - -type EventListenerInitC = - IO () - -foreign import ccall "wrapper" - mkEventListenerInit :: EventListenerInitC -> IO (FunPtr EventListenerInitC) - -type EventListenerInit = - IO () - -noEventListenerInit :: Maybe EventListenerInit -noEventListenerInit = Nothing - -eventListenerInitWrapper :: - Maybe (Ptr (FunPtr (EventListenerInitC))) -> - EventListenerInit -> - IO () -eventListenerInitWrapper funptrptr _cb = do - _cb - maybeReleaseFunPtr funptrptr - --- callback FocusHandler -focusHandlerClosure :: FocusHandler -> IO Closure -focusHandlerClosure cb = newCClosure =<< mkFocusHandler wrapped - where wrapped = focusHandlerWrapper Nothing cb - -type FocusHandlerC = - Ptr Object -> - CInt -> - IO () - -foreign import ccall "wrapper" - mkFocusHandler :: FocusHandlerC -> IO (FunPtr FocusHandlerC) - -type FocusHandler = - Object -> - Bool -> - IO () - -noFocusHandler :: Maybe FocusHandler -noFocusHandler = Nothing - -focusHandlerWrapper :: - Maybe (Ptr (FunPtr (FocusHandlerC))) -> - FocusHandler -> - Ptr Object -> - CInt -> - IO () -focusHandlerWrapper funptrptr _cb object focus_in = do - object' <- (newObject Object) object - let focus_in' = (/= 0) focus_in - _cb object' focus_in' - maybeReleaseFunPtr funptrptr - --- callback Function -functionClosure :: Function -> IO Closure -functionClosure cb = newCClosure =<< mkFunction wrapped - where wrapped = functionWrapper Nothing cb - -type FunctionC = - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkFunction :: FunctionC -> IO (FunPtr FunctionC) - -type Function = - IO Bool - -noFunction :: Maybe Function -noFunction = Nothing - -functionWrapper :: - Maybe (Ptr (FunPtr (FunctionC))) -> - Function -> - Ptr () -> - IO CInt -functionWrapper funptrptr _cb _ = do - result <- _cb - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- object GObjectAccessible -newtype GObjectAccessible = GObjectAccessible (ForeignPtr GObjectAccessible) -noGObjectAccessible :: Maybe GObjectAccessible -noGObjectAccessible = Nothing - -foreign import ccall "atk_gobject_accessible_get_type" - c_atk_gobject_accessible_get_type :: IO GType - -type instance ParentTypes GObjectAccessible = '[Object, GObject.Object] - -instance GObject GObjectAccessible where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_gobject_accessible_get_type - - -class GObject o => GObjectAccessibleK o -instance (GObject o, IsDescendantOf GObjectAccessible o) => GObjectAccessibleK o - -toGObjectAccessible :: GObjectAccessibleK o => o -> IO GObjectAccessible -toGObjectAccessible = unsafeCastTo GObjectAccessible - --- method GObjectAccessible::get_object --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_gobject_accessible_get_object" atk_gobject_accessible_get_object :: - Ptr GObjectAccessible -> -- _obj : TInterface "Atk" "GObjectAccessible" - IO (Ptr GObject.Object) - - -gObjectAccessibleGetObject :: - (MonadIO m, GObjectAccessibleK a) => - a -> -- _obj - m GObject.Object -gObjectAccessibleGetObject _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_gobject_accessible_get_object _obj' - checkUnexpectedReturnNULL "atk_gobject_accessible_get_object" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - return result' - --- method GObjectAccessible::for_object --- method type : MemberFunction --- Args : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_gobject_accessible_for_object" atk_gobject_accessible_for_object :: - Ptr GObject.Object -> -- obj : TInterface "GObject" "Object" - IO (Ptr Object) - - -gObjectAccessibleForObject :: - (MonadIO m, GObject.ObjectK a) => - a -> -- obj - m Object -gObjectAccessibleForObject obj = liftIO $ do - let obj' = unsafeManagedPtrCastPtr obj - result <- atk_gobject_accessible_for_object obj' - checkUnexpectedReturnNULL "atk_gobject_accessible_for_object" result - result' <- (newObject Object) result - touchManagedPtr obj - return result' - --- object Hyperlink -newtype Hyperlink = Hyperlink (ForeignPtr Hyperlink) -noHyperlink :: Maybe Hyperlink -noHyperlink = Nothing - -foreign import ccall "atk_hyperlink_get_type" - c_atk_hyperlink_get_type :: IO GType - -type instance ParentTypes Hyperlink = '[GObject.Object, Action] - -instance GObject Hyperlink where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_hyperlink_get_type - - -class GObject o => HyperlinkK o -instance (GObject o, IsDescendantOf Hyperlink o) => HyperlinkK o - -toHyperlink :: HyperlinkK o => o -> IO Hyperlink -toHyperlink = unsafeCastTo Hyperlink - --- method Hyperlink::get_end_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_hyperlink_get_end_index" atk_hyperlink_get_end_index :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" - IO Int32 - - -hyperlinkGetEndIndex :: - (MonadIO m, HyperlinkK a) => - a -> -- _obj - m Int32 -hyperlinkGetEndIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hyperlink_get_end_index _obj' - touchManagedPtr _obj - return result - --- method Hyperlink::get_n_anchors --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_hyperlink_get_n_anchors" atk_hyperlink_get_n_anchors :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" - IO Int32 - - -hyperlinkGetNAnchors :: - (MonadIO m, HyperlinkK a) => - a -> -- _obj - m Int32 -hyperlinkGetNAnchors _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hyperlink_get_n_anchors _obj' - touchManagedPtr _obj - return result - --- method Hyperlink::get_object --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_hyperlink_get_object" atk_hyperlink_get_object :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" - Int32 -> -- i : TBasicType TInt32 - IO (Ptr Object) - - -hyperlinkGetObject :: - (MonadIO m, HyperlinkK a) => - a -> -- _obj - Int32 -> -- i - m Object -hyperlinkGetObject _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hyperlink_get_object _obj' i - checkUnexpectedReturnNULL "atk_hyperlink_get_object" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Hyperlink::get_start_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_hyperlink_get_start_index" atk_hyperlink_get_start_index :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" - IO Int32 - - -hyperlinkGetStartIndex :: - (MonadIO m, HyperlinkK a) => - a -> -- _obj - m Int32 -hyperlinkGetStartIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hyperlink_get_start_index _obj' - touchManagedPtr _obj - return result - --- method Hyperlink::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_hyperlink_get_uri" atk_hyperlink_get_uri :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" - Int32 -> -- i : TBasicType TInt32 - IO CString - - -hyperlinkGetUri :: - (MonadIO m, HyperlinkK a) => - a -> -- _obj - Int32 -> -- i - m T.Text -hyperlinkGetUri _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hyperlink_get_uri _obj' i - checkUnexpectedReturnNULL "atk_hyperlink_get_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Hyperlink::is_inline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_hyperlink_is_inline" atk_hyperlink_is_inline :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" - IO CInt - - -hyperlinkIsInline :: - (MonadIO m, HyperlinkK a) => - a -> -- _obj - m Bool -hyperlinkIsInline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hyperlink_is_inline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Hyperlink::is_selected_link --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_hyperlink_is_selected_link" atk_hyperlink_is_selected_link :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" - IO CInt - -{-# DEPRECATED hyperlinkIsSelectedLink ["(Since version 1.8)","Please use ATK_STATE_FOCUSABLE for all links,","and ATK_STATE_FOCUSED for focused links."]#-} -hyperlinkIsSelectedLink :: - (MonadIO m, HyperlinkK a) => - a -> -- _obj - m Bool -hyperlinkIsSelectedLink _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hyperlink_is_selected_link _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Hyperlink::is_valid --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_hyperlink_is_valid" atk_hyperlink_is_valid :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" - IO CInt - - -hyperlinkIsValid :: - (MonadIO m, HyperlinkK a) => - a -> -- _obj - m Bool -hyperlinkIsValid _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hyperlink_is_valid _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- signal Hyperlink::link-activated -type HyperlinkLinkActivatedCallback = - IO () - -noHyperlinkLinkActivatedCallback :: Maybe HyperlinkLinkActivatedCallback -noHyperlinkLinkActivatedCallback = Nothing - -type HyperlinkLinkActivatedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkHyperlinkLinkActivatedCallback :: HyperlinkLinkActivatedCallbackC -> IO (FunPtr HyperlinkLinkActivatedCallbackC) - -hyperlinkLinkActivatedClosure :: HyperlinkLinkActivatedCallback -> IO Closure -hyperlinkLinkActivatedClosure cb = newCClosure =<< mkHyperlinkLinkActivatedCallback wrapped - where wrapped = hyperlinkLinkActivatedCallbackWrapper cb - -hyperlinkLinkActivatedCallbackWrapper :: - HyperlinkLinkActivatedCallback -> - Ptr () -> - Ptr () -> - IO () -hyperlinkLinkActivatedCallbackWrapper _cb _ _ = do - _cb - -onHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId -onHyperlinkLinkActivated obj cb = liftIO $ connectHyperlinkLinkActivated obj cb SignalConnectBefore -afterHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId -afterHyperlinkLinkActivated obj cb = connectHyperlinkLinkActivated obj cb SignalConnectAfter - -connectHyperlinkLinkActivated :: (GObject a, MonadIO m) => - a -> HyperlinkLinkActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectHyperlinkLinkActivated obj cb after = liftIO $ do - cb' <- mkHyperlinkLinkActivatedCallback (hyperlinkLinkActivatedCallbackWrapper cb) - connectSignalFunPtr obj "link-activated" cb' after - --- interface HyperlinkImpl - -newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl) -noHyperlinkImpl :: Maybe HyperlinkImpl -noHyperlinkImpl = Nothing - -class ForeignPtrNewtype a => HyperlinkImplK a -instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o -type instance ParentTypes HyperlinkImpl = '[] - --- method HyperlinkImpl::get_hyperlink --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Hyperlink" --- throws : False --- Skip return : False - -foreign import ccall "atk_hyperlink_impl_get_hyperlink" atk_hyperlink_impl_get_hyperlink :: - Ptr HyperlinkImpl -> -- _obj : TInterface "Atk" "HyperlinkImpl" - IO (Ptr Hyperlink) - - -hyperlinkImplGetHyperlink :: - (MonadIO m, HyperlinkImplK a) => - a -> -- _obj - m Hyperlink -hyperlinkImplGetHyperlink _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hyperlink_impl_get_hyperlink _obj' - checkUnexpectedReturnNULL "atk_hyperlink_impl_get_hyperlink" result - result' <- (wrapObject Hyperlink) result - touchManagedPtr _obj - return result' - --- Flags HyperlinkStateFlags - -data HyperlinkStateFlags = - HyperlinkStateFlagsInline - | AnotherHyperlinkStateFlags Int - deriving (Show, Eq) - -instance Enum HyperlinkStateFlags where - fromEnum HyperlinkStateFlagsInline = 1 - fromEnum (AnotherHyperlinkStateFlags k) = k - - toEnum 1 = HyperlinkStateFlagsInline - toEnum k = AnotherHyperlinkStateFlags k - -foreign import ccall "atk_hyperlink_state_flags_get_type" c_atk_hyperlink_state_flags_get_type :: - IO GType - -instance BoxedEnum HyperlinkStateFlags where - boxedEnumType _ = c_atk_hyperlink_state_flags_get_type - -instance IsGFlag HyperlinkStateFlags - --- interface Hypertext - -newtype Hypertext = Hypertext (ForeignPtr Hypertext) -noHypertext :: Maybe Hypertext -noHypertext = Nothing - -class ForeignPtrNewtype a => HypertextK a -instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o -type instance ParentTypes Hypertext = '[] - --- method Hypertext::get_link --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Hyperlink" --- throws : False --- Skip return : False - -foreign import ccall "atk_hypertext_get_link" atk_hypertext_get_link :: - Ptr Hypertext -> -- _obj : TInterface "Atk" "Hypertext" - Int32 -> -- link_index : TBasicType TInt32 - IO (Ptr Hyperlink) - - -hypertextGetLink :: - (MonadIO m, HypertextK a) => - a -> -- _obj - Int32 -> -- link_index - m Hyperlink -hypertextGetLink _obj link_index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hypertext_get_link _obj' link_index - checkUnexpectedReturnNULL "atk_hypertext_get_link" result - result' <- (newObject Hyperlink) result - touchManagedPtr _obj - return result' - --- method Hypertext::get_link_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_hypertext_get_link_index" atk_hypertext_get_link_index :: - Ptr Hypertext -> -- _obj : TInterface "Atk" "Hypertext" - Int32 -> -- char_index : TBasicType TInt32 - IO Int32 - - -hypertextGetLinkIndex :: - (MonadIO m, HypertextK a) => - a -> -- _obj - Int32 -> -- char_index - m Int32 -hypertextGetLinkIndex _obj char_index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hypertext_get_link_index _obj' char_index - touchManagedPtr _obj - return result - --- method Hypertext::get_n_links --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_hypertext_get_n_links" atk_hypertext_get_n_links :: - Ptr Hypertext -> -- _obj : TInterface "Atk" "Hypertext" - IO Int32 - - -hypertextGetNLinks :: - (MonadIO m, HypertextK a) => - a -> -- _obj - m Int32 -hypertextGetNLinks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_hypertext_get_n_links _obj' - touchManagedPtr _obj - return result - --- signal Hypertext::link-selected -type HypertextLinkSelectedCallback = - Int32 -> - IO () - -noHypertextLinkSelectedCallback :: Maybe HypertextLinkSelectedCallback -noHypertextLinkSelectedCallback = Nothing - -type HypertextLinkSelectedCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkHypertextLinkSelectedCallback :: HypertextLinkSelectedCallbackC -> IO (FunPtr HypertextLinkSelectedCallbackC) - -hypertextLinkSelectedClosure :: HypertextLinkSelectedCallback -> IO Closure -hypertextLinkSelectedClosure cb = newCClosure =<< mkHypertextLinkSelectedCallback wrapped - where wrapped = hypertextLinkSelectedCallbackWrapper cb - -hypertextLinkSelectedCallbackWrapper :: - HypertextLinkSelectedCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO () -hypertextLinkSelectedCallbackWrapper _cb _ arg1 _ = do - _cb arg1 - -onHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId -onHypertextLinkSelected obj cb = liftIO $ connectHypertextLinkSelected obj cb SignalConnectBefore -afterHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId -afterHypertextLinkSelected obj cb = connectHypertextLinkSelected obj cb SignalConnectAfter - -connectHypertextLinkSelected :: (GObject a, MonadIO m) => - a -> HypertextLinkSelectedCallback -> SignalConnectMode -> m SignalHandlerId -connectHypertextLinkSelected obj cb after = liftIO $ do - cb' <- mkHypertextLinkSelectedCallback (hypertextLinkSelectedCallbackWrapper cb) - connectSignalFunPtr obj "link-selected" cb' after - --- interface Image - -newtype Image = Image (ForeignPtr Image) -noImage :: Maybe Image -noImage = Nothing - -class ForeignPtrNewtype a => ImageK a -instance (ForeignPtrNewtype o, IsDescendantOf Image o) => ImageK o -type instance ParentTypes Image = '[] - --- method Image::get_image_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_image_get_image_description" atk_image_get_image_description :: - Ptr Image -> -- _obj : TInterface "Atk" "Image" - IO CString - - -imageGetImageDescription :: - (MonadIO m, ImageK a) => - a -> -- _obj - m T.Text -imageGetImageDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_image_get_image_description _obj' - checkUnexpectedReturnNULL "atk_image_get_image_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Image::get_image_locale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_image_get_image_locale" atk_image_get_image_locale :: - Ptr Image -> -- _obj : TInterface "Atk" "Image" - IO CString - - -imageGetImageLocale :: - (MonadIO m, ImageK a) => - a -> -- _obj - m T.Text -imageGetImageLocale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_image_get_image_locale _obj' - checkUnexpectedReturnNULL "atk_image_get_image_locale" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Image::get_image_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_image_get_image_position" atk_image_get_image_position :: - Ptr Image -> -- _obj : TInterface "Atk" "Image" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - IO () - - -imageGetImagePosition :: - (MonadIO m, ImageK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - CoordType -> -- coord_type - m () -imageGetImagePosition _obj x y coord_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coord_type' = (fromIntegral . fromEnum) coord_type - atk_image_get_image_position _obj' x y coord_type' - touchManagedPtr _obj - return () - --- method Image::get_image_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_image_get_image_size" atk_image_get_image_size :: - Ptr Image -> -- _obj : TInterface "Atk" "Image" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -imageGetImageSize :: - (MonadIO m, ImageK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -imageGetImageSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_image_get_image_size _obj' width height - touchManagedPtr _obj - return () - --- method Image::set_image_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_image_set_image_description" atk_image_set_image_description :: - Ptr Image -> -- _obj : TInterface "Atk" "Image" - CString -> -- description : TBasicType TUTF8 - IO CInt - - -imageSetImageDescription :: - (MonadIO m, ImageK a) => - a -> -- _obj - T.Text -> -- description - m Bool -imageSetImageDescription _obj description = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - description' <- textToCString description - result <- atk_image_set_image_description _obj' description' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem description' - return result' - --- struct Implementor -newtype Implementor = Implementor (ForeignPtr Implementor) -noImplementor :: Maybe Implementor -noImplementor = Nothing - --- method Implementor::ref_accessible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Implementor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Implementor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_implementor_ref_accessible" atk_implementor_ref_accessible :: - Ptr Implementor -> -- _obj : TInterface "Atk" "Implementor" - IO (Ptr Object) - - -implementorRefAccessible :: - (MonadIO m) => - Implementor -> -- _obj - m Object -implementorRefAccessible _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- atk_implementor_ref_accessible _obj' - checkUnexpectedReturnNULL "atk_implementor_ref_accessible" result - result' <- (wrapObject Object) result - touchManagedPtr _obj - return result' - --- interface ImplementorIface - -newtype ImplementorIface = ImplementorIface (ForeignPtr ImplementorIface) -noImplementorIface :: Maybe ImplementorIface -noImplementorIface = Nothing - -class ForeignPtrNewtype a => ImplementorIfaceK a -instance (ForeignPtrNewtype o, IsDescendantOf ImplementorIface o) => ImplementorIfaceK o -type instance ParentTypes ImplementorIface = '[] - --- struct KeyEventStruct -newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct) -noKeyEventStruct :: Maybe KeyEventStruct -noKeyEventStruct = Nothing - -keyEventStructReadType :: KeyEventStruct -> IO Int32 -keyEventStructReadType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -keyEventStructReadState :: KeyEventStruct -> IO Word32 -keyEventStructReadState s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word32 - return val - -keyEventStructReadKeyval :: KeyEventStruct -> IO Word32 -keyEventStructReadKeyval s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -keyEventStructReadLength :: KeyEventStruct -> IO Int32 -keyEventStructReadLength s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -keyEventStructReadString :: KeyEventStruct -> IO T.Text -keyEventStructReadString s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -keyEventStructReadKeycode :: KeyEventStruct -> IO Word16 -keyEventStructReadKeycode s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word16 - return val - -keyEventStructReadTimestamp :: KeyEventStruct -> IO Word32 -keyEventStructReadTimestamp s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - --- Enum KeyEventType - -data KeyEventType = - KeyEventTypePress - | KeyEventTypeRelease - | KeyEventTypeLastDefined - | AnotherKeyEventType Int - deriving (Show, Eq) - -instance Enum KeyEventType where - fromEnum KeyEventTypePress = 0 - fromEnum KeyEventTypeRelease = 1 - fromEnum KeyEventTypeLastDefined = 2 - fromEnum (AnotherKeyEventType k) = k - - toEnum 0 = KeyEventTypePress - toEnum 1 = KeyEventTypeRelease - toEnum 2 = KeyEventTypeLastDefined - toEnum k = AnotherKeyEventType k - -foreign import ccall "atk_key_event_type_get_type" c_atk_key_event_type_get_type :: - IO GType - -instance BoxedEnum KeyEventType where - boxedEnumType _ = c_atk_key_event_type_get_type - --- callback KeySnoopFunc -keySnoopFuncClosure :: KeySnoopFunc -> IO Closure -keySnoopFuncClosure cb = newCClosure =<< mkKeySnoopFunc wrapped - where wrapped = keySnoopFuncWrapper Nothing cb - -type KeySnoopFuncC = - Ptr KeyEventStruct -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkKeySnoopFunc :: KeySnoopFuncC -> IO (FunPtr KeySnoopFuncC) - -type KeySnoopFunc = - KeyEventStruct -> - IO Int32 - -noKeySnoopFunc :: Maybe KeySnoopFunc -noKeySnoopFunc = Nothing - -keySnoopFuncWrapper :: - Maybe (Ptr (FunPtr (KeySnoopFuncC))) -> - KeySnoopFunc -> - Ptr KeyEventStruct -> - Ptr () -> - IO Int32 -keySnoopFuncWrapper funptrptr _cb event _ = do - event' <- (newPtr 32 KeyEventStruct) event - result <- _cb event' - maybeReleaseFunPtr funptrptr - return result - --- Enum Layer - -data Layer = - LayerInvalid - | LayerBackground - | LayerCanvas - | LayerWidget - | LayerMdi - | LayerPopup - | LayerOverlay - | LayerWindow - | AnotherLayer Int - deriving (Show, Eq) - -instance Enum Layer where - fromEnum LayerInvalid = 0 - fromEnum LayerBackground = 1 - fromEnum LayerCanvas = 2 - fromEnum LayerWidget = 3 - fromEnum LayerMdi = 4 - fromEnum LayerPopup = 5 - fromEnum LayerOverlay = 6 - fromEnum LayerWindow = 7 - fromEnum (AnotherLayer k) = k - - toEnum 0 = LayerInvalid - toEnum 1 = LayerBackground - toEnum 2 = LayerCanvas - toEnum 3 = LayerWidget - toEnum 4 = LayerMdi - toEnum 5 = LayerPopup - toEnum 6 = LayerOverlay - toEnum 7 = LayerWindow - toEnum k = AnotherLayer k - -foreign import ccall "atk_layer_get_type" c_atk_layer_get_type :: - IO GType - -instance BoxedEnum Layer where - boxedEnumType _ = c_atk_layer_get_type - --- object Misc -newtype Misc = Misc (ForeignPtr Misc) -noMisc :: Maybe Misc -noMisc = Nothing - -foreign import ccall "atk_misc_get_type" - c_atk_misc_get_type :: IO GType - -type instance ParentTypes Misc = '[GObject.Object] - -instance GObject Misc where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_misc_get_type - - -class GObject o => MiscK o -instance (GObject o, IsDescendantOf Misc o) => MiscK o - -toMisc :: MiscK o => o -> IO Misc -toMisc = unsafeCastTo Misc - --- method Misc::threads_enter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_misc_threads_enter" atk_misc_threads_enter :: - Ptr Misc -> -- _obj : TInterface "Atk" "Misc" - IO () - -{-# DEPRECATED miscThreadsEnter ["Since 2.12."]#-} -miscThreadsEnter :: - (MonadIO m, MiscK a) => - a -> -- _obj - m () -miscThreadsEnter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_misc_threads_enter _obj' - touchManagedPtr _obj - return () - --- method Misc::threads_leave --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_misc_threads_leave" atk_misc_threads_leave :: - Ptr Misc -> -- _obj : TInterface "Atk" "Misc" - IO () - -{-# DEPRECATED miscThreadsLeave ["Since 2.12."]#-} -miscThreadsLeave :: - (MonadIO m, MiscK a) => - a -> -- _obj - m () -miscThreadsLeave _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_misc_threads_leave _obj' - touchManagedPtr _obj - return () - --- method Misc::get_instance --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Atk" "Misc" --- throws : False --- Skip return : False - -foreign import ccall "atk_misc_get_instance" atk_misc_get_instance :: - IO (Ptr Misc) - -{-# DEPRECATED miscGetInstance ["Since 2.12."]#-} -miscGetInstance :: - (MonadIO m) => - m Misc -miscGetInstance = liftIO $ do - result <- atk_misc_get_instance - checkUnexpectedReturnNULL "atk_misc_get_instance" result - result' <- (newObject Misc) result - return result' - --- object NoOpObject -newtype NoOpObject = NoOpObject (ForeignPtr NoOpObject) -noNoOpObject :: Maybe NoOpObject -noNoOpObject = Nothing - -foreign import ccall "atk_no_op_object_get_type" - c_atk_no_op_object_get_type :: IO GType - -type instance ParentTypes NoOpObject = '[Object, GObject.Object, Action, Component, Document, EditableText, Hypertext, Image, Selection, Table, TableCell, Text, Value, Window] - -instance GObject NoOpObject where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_no_op_object_get_type - - -class GObject o => NoOpObjectK o -instance (GObject o, IsDescendantOf NoOpObject o) => NoOpObjectK o - -toNoOpObject :: NoOpObjectK o => o -> IO NoOpObject -toNoOpObject = unsafeCastTo NoOpObject - --- method NoOpObject::new --- method type : Constructor --- Args : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "NoOpObject" --- throws : False --- Skip return : False - -foreign import ccall "atk_no_op_object_new" atk_no_op_object_new :: - Ptr GObject.Object -> -- obj : TInterface "GObject" "Object" - IO (Ptr NoOpObject) - - -noOpObjectNew :: - (MonadIO m, GObject.ObjectK a) => - a -> -- obj - m NoOpObject -noOpObjectNew obj = liftIO $ do - let obj' = unsafeManagedPtrCastPtr obj - result <- atk_no_op_object_new obj' - checkUnexpectedReturnNULL "atk_no_op_object_new" result - result' <- (wrapObject NoOpObject) result - touchManagedPtr obj - return result' - --- object NoOpObjectFactory -newtype NoOpObjectFactory = NoOpObjectFactory (ForeignPtr NoOpObjectFactory) -noNoOpObjectFactory :: Maybe NoOpObjectFactory -noNoOpObjectFactory = Nothing - -foreign import ccall "atk_no_op_object_factory_get_type" - c_atk_no_op_object_factory_get_type :: IO GType - -type instance ParentTypes NoOpObjectFactory = '[ObjectFactory, GObject.Object] - -instance GObject NoOpObjectFactory where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_no_op_object_factory_get_type - - -class GObject o => NoOpObjectFactoryK o -instance (GObject o, IsDescendantOf NoOpObjectFactory o) => NoOpObjectFactoryK o - -toNoOpObjectFactory :: NoOpObjectFactoryK o => o -> IO NoOpObjectFactory -toNoOpObjectFactory = unsafeCastTo NoOpObjectFactory - --- method NoOpObjectFactory::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Atk" "NoOpObjectFactory" --- throws : False --- Skip return : False - -foreign import ccall "atk_no_op_object_factory_new" atk_no_op_object_factory_new :: - IO (Ptr NoOpObjectFactory) - - -noOpObjectFactoryNew :: - (MonadIO m) => - m NoOpObjectFactory -noOpObjectFactoryNew = liftIO $ do - result <- atk_no_op_object_factory_new - checkUnexpectedReturnNULL "atk_no_op_object_factory_new" result - result' <- (wrapObject NoOpObjectFactory) result - return result' - --- object Object -newtype Object = Object (ForeignPtr Object) -noObject :: Maybe Object -noObject = Nothing - -foreign import ccall "atk_object_get_type" - c_atk_object_get_type :: IO GType - -type instance ParentTypes Object = '[GObject.Object] - -instance GObject Object where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_object_get_type - - -class GObject o => ObjectK o -instance (GObject o, IsDescendantOf Object o) => ObjectK o - -toObject :: ObjectK o => o -> IO Object -toObject = unsafeCastTo Object - --- method Object::add_relationship --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_object_add_relationship" atk_object_add_relationship :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - CUInt -> -- relationship : TInterface "Atk" "RelationType" - Ptr Object -> -- target : TInterface "Atk" "Object" - IO CInt - - -objectAddRelationship :: - (MonadIO m, ObjectK a, ObjectK b) => - a -> -- _obj - RelationType -> -- relationship - b -> -- target - m Bool -objectAddRelationship _obj relationship target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relationship' = (fromIntegral . fromEnum) relationship - let target' = unsafeManagedPtrCastPtr target - result <- atk_object_add_relationship _obj' relationship' target' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr target - return result' - --- method Object::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TVoid) --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_attributes" atk_object_get_attributes :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO (Ptr (GSList (Ptr ()))) - - -objectGetAttributes :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m [Ptr ()] -objectGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_attributes _obj' - checkUnexpectedReturnNULL "atk_object_get_attributes" result - result' <- unpackGSList result - g_slist_free result - touchManagedPtr _obj - return result' - --- method Object::get_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_description" atk_object_get_description :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO CString - - -objectGetDescription :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m T.Text -objectGetDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_description _obj' - checkUnexpectedReturnNULL "atk_object_get_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Object::get_index_in_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_index_in_parent" atk_object_get_index_in_parent :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO Int32 - - -objectGetIndexInParent :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Int32 -objectGetIndexInParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_index_in_parent _obj' - touchManagedPtr _obj - return result - --- method Object::get_layer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Layer" --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_layer" atk_object_get_layer :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO CUInt - -{-# DEPRECATED objectGetLayer ["Use atk_component_get_layer instead."]#-} -objectGetLayer :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Layer -objectGetLayer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_layer _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Object::get_mdi_zorder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_mdi_zorder" atk_object_get_mdi_zorder :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO Int32 - -{-# DEPRECATED objectGetMdiZorder ["Use atk_component_get_mdi_zorder instead."]#-} -objectGetMdiZorder :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Int32 -objectGetMdiZorder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_mdi_zorder _obj' - touchManagedPtr _obj - return result - --- method Object::get_n_accessible_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_n_accessible_children" atk_object_get_n_accessible_children :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO Int32 - - -objectGetNAccessibleChildren :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Int32 -objectGetNAccessibleChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_n_accessible_children _obj' - touchManagedPtr _obj - return result - --- method Object::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_name" atk_object_get_name :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO CString - - -objectGetName :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m T.Text -objectGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_name _obj' - checkUnexpectedReturnNULL "atk_object_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Object::get_object_locale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_object_locale" atk_object_get_object_locale :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO CString - - -objectGetObjectLocale :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m T.Text -objectGetObjectLocale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_object_locale _obj' - checkUnexpectedReturnNULL "atk_object_get_object_locale" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Object::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_parent" atk_object_get_parent :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO (Ptr Object) - - -objectGetParent :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Object -objectGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_parent _obj' - checkUnexpectedReturnNULL "atk_object_get_parent" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Object::get_role --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Role" --- throws : False --- Skip return : False - -foreign import ccall "atk_object_get_role" atk_object_get_role :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO CUInt - - -objectGetRole :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Role -objectGetRole _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_get_role _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Object::initialize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_object_initialize" atk_object_initialize :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - Ptr () -> -- data : TBasicType TVoid - IO () - - -objectInitialize :: - (MonadIO m, ObjectK a) => - a -> -- _obj - Ptr () -> -- data - m () -objectInitialize _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_object_initialize _obj' data_ - touchManagedPtr _obj - return () - --- method Object::notify_state_change --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_object_notify_state_change" atk_object_notify_state_change :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - Word64 -> -- state : TBasicType TUInt64 - CInt -> -- value : TBasicType TBoolean - IO () - - -objectNotifyStateChange :: - (MonadIO m, ObjectK a) => - a -> -- _obj - Word64 -> -- state - Bool -> -- value - m () -objectNotifyStateChange _obj state value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = (fromIntegral . fromEnum) value - atk_object_notify_state_change _obj' state value' - touchManagedPtr _obj - return () - --- method Object::peek_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_object_peek_parent" atk_object_peek_parent :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO (Ptr Object) - - -objectPeekParent :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Object -objectPeekParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_peek_parent _obj' - checkUnexpectedReturnNULL "atk_object_peek_parent" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Object::ref_accessible_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_object_ref_accessible_child" atk_object_ref_accessible_child :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - Int32 -> -- i : TBasicType TInt32 - IO (Ptr Object) - - -objectRefAccessibleChild :: - (MonadIO m, ObjectK a) => - a -> -- _obj - Int32 -> -- i - m Object -objectRefAccessibleChild _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_ref_accessible_child _obj' i - checkUnexpectedReturnNULL "atk_object_ref_accessible_child" result - result' <- (wrapObject Object) result - touchManagedPtr _obj - return result' - --- method Object::ref_relation_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "RelationSet" --- throws : False --- Skip return : False - -foreign import ccall "atk_object_ref_relation_set" atk_object_ref_relation_set :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO (Ptr RelationSet) - - -objectRefRelationSet :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m RelationSet -objectRefRelationSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_ref_relation_set _obj' - checkUnexpectedReturnNULL "atk_object_ref_relation_set" result - result' <- (wrapObject RelationSet) result - touchManagedPtr _obj - return result' - --- method Object::ref_state_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "StateSet" --- throws : False --- Skip return : False - -foreign import ccall "atk_object_ref_state_set" atk_object_ref_state_set :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - IO (Ptr StateSet) - - -objectRefStateSet :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m StateSet -objectRefStateSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_ref_state_set _obj' - checkUnexpectedReturnNULL "atk_object_ref_state_set" result - result' <- (wrapObject StateSet) result - touchManagedPtr _obj - return result' - --- method Object::remove_property_change_handler --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_object_remove_property_change_handler" atk_object_remove_property_change_handler :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - Word32 -> -- handler_id : TBasicType TUInt32 - IO () - -{-# DEPRECATED objectRemovePropertyChangeHandler ["Since 2.12.","","Removes a property change handler."]#-} -objectRemovePropertyChangeHandler :: - (MonadIO m, ObjectK a) => - a -> -- _obj - Word32 -> -- handler_id - m () -objectRemovePropertyChangeHandler _obj handler_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_object_remove_property_change_handler _obj' handler_id - touchManagedPtr _obj - return () - --- method Object::remove_relationship --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_object_remove_relationship" atk_object_remove_relationship :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - CUInt -> -- relationship : TInterface "Atk" "RelationType" - Ptr Object -> -- target : TInterface "Atk" "Object" - IO CInt - - -objectRemoveRelationship :: - (MonadIO m, ObjectK a, ObjectK b) => - a -> -- _obj - RelationType -> -- relationship - b -> -- target - m Bool -objectRemoveRelationship _obj relationship target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relationship' = (fromIntegral . fromEnum) relationship - let target' = unsafeManagedPtrCastPtr target - result <- atk_object_remove_relationship _obj' relationship' target' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr target - return result' - --- method Object::set_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_object_set_description" atk_object_set_description :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - CString -> -- description : TBasicType TUTF8 - IO () - - -objectSetDescription :: - (MonadIO m, ObjectK a) => - a -> -- _obj - T.Text -> -- description - m () -objectSetDescription _obj description = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - description' <- textToCString description - atk_object_set_description _obj' description' - touchManagedPtr _obj - freeMem description' - return () - --- method Object::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_object_set_name" atk_object_set_name :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - CString -> -- name : TBasicType TUTF8 - IO () - - -objectSetName :: - (MonadIO m, ObjectK a) => - a -> -- _obj - T.Text -> -- name - m () -objectSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - atk_object_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method Object::set_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_object_set_parent" atk_object_set_parent :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - Ptr Object -> -- parent : TInterface "Atk" "Object" - IO () - - -objectSetParent :: - (MonadIO m, ObjectK a, ObjectK b) => - a -> -- _obj - b -> -- parent - m () -objectSetParent _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parent' = unsafeManagedPtrCastPtr parent - atk_object_set_parent _obj' parent' - touchManagedPtr _obj - touchManagedPtr parent - return () - --- method Object::set_role --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_object_set_role" atk_object_set_role :: - Ptr Object -> -- _obj : TInterface "Atk" "Object" - CUInt -> -- role : TInterface "Atk" "Role" - IO () - - -objectSetRole :: - (MonadIO m, ObjectK a) => - a -> -- _obj - Role -> -- role - m () -objectSetRole _obj role = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let role' = (fromIntegral . fromEnum) role - atk_object_set_role _obj' role' - touchManagedPtr _obj - return () - --- signal Object::active-descendant-changed -type ObjectActiveDescendantChangedCallback = - Ptr () -> - IO () - -noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback -noObjectActiveDescendantChangedCallback = Nothing - -type ObjectActiveDescendantChangedCallbackC = - Ptr () -> -- object - Ptr () -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkObjectActiveDescendantChangedCallback :: ObjectActiveDescendantChangedCallbackC -> IO (FunPtr ObjectActiveDescendantChangedCallbackC) - -objectActiveDescendantChangedClosure :: ObjectActiveDescendantChangedCallback -> IO Closure -objectActiveDescendantChangedClosure cb = newCClosure =<< mkObjectActiveDescendantChangedCallback wrapped - where wrapped = objectActiveDescendantChangedCallbackWrapper cb - -objectActiveDescendantChangedCallbackWrapper :: - ObjectActiveDescendantChangedCallback -> - Ptr () -> - Ptr () -> - Ptr () -> - IO () -objectActiveDescendantChangedCallbackWrapper _cb _ arg1 _ = do - _cb arg1 - -onObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId -onObjectActiveDescendantChanged obj cb = liftIO $ connectObjectActiveDescendantChanged obj cb SignalConnectBefore -afterObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId -afterObjectActiveDescendantChanged obj cb = connectObjectActiveDescendantChanged obj cb SignalConnectAfter - -connectObjectActiveDescendantChanged :: (GObject a, MonadIO m) => - a -> ObjectActiveDescendantChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectObjectActiveDescendantChanged obj cb after = liftIO $ do - cb' <- mkObjectActiveDescendantChangedCallback (objectActiveDescendantChangedCallbackWrapper cb) - connectSignalFunPtr obj "active-descendant-changed" cb' after - --- signal Object::children-changed -type ObjectChildrenChangedCallback = - Word32 -> - Ptr () -> - IO () - -noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback -noObjectChildrenChangedCallback = Nothing - -type ObjectChildrenChangedCallbackC = - Ptr () -> -- object - Word32 -> - Ptr () -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkObjectChildrenChangedCallback :: ObjectChildrenChangedCallbackC -> IO (FunPtr ObjectChildrenChangedCallbackC) - -objectChildrenChangedClosure :: ObjectChildrenChangedCallback -> IO Closure -objectChildrenChangedClosure cb = newCClosure =<< mkObjectChildrenChangedCallback wrapped - where wrapped = objectChildrenChangedCallbackWrapper cb - -objectChildrenChangedCallbackWrapper :: - ObjectChildrenChangedCallback -> - Ptr () -> - Word32 -> - Ptr () -> - Ptr () -> - IO () -objectChildrenChangedCallbackWrapper _cb _ arg1 arg2 _ = do - _cb arg1 arg2 - -onObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId -onObjectChildrenChanged obj cb = liftIO $ connectObjectChildrenChanged obj cb SignalConnectBefore -afterObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId -afterObjectChildrenChanged obj cb = connectObjectChildrenChanged obj cb SignalConnectAfter - -connectObjectChildrenChanged :: (GObject a, MonadIO m) => - a -> ObjectChildrenChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectObjectChildrenChanged obj cb after = liftIO $ do - cb' <- mkObjectChildrenChangedCallback (objectChildrenChangedCallbackWrapper cb) - connectSignalFunPtr obj "children-changed" cb' after - --- signal Object::focus-event -type ObjectFocusEventCallback = - Bool -> - IO () - -noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback -noObjectFocusEventCallback = Nothing - -type ObjectFocusEventCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkObjectFocusEventCallback :: ObjectFocusEventCallbackC -> IO (FunPtr ObjectFocusEventCallbackC) - -objectFocusEventClosure :: ObjectFocusEventCallback -> IO Closure -objectFocusEventClosure cb = newCClosure =<< mkObjectFocusEventCallback wrapped - where wrapped = objectFocusEventCallbackWrapper cb - -objectFocusEventCallbackWrapper :: - ObjectFocusEventCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO () -objectFocusEventCallbackWrapper _cb _ arg1 _ = do - let arg1' = (/= 0) arg1 - _cb arg1' - -onObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId -onObjectFocusEvent obj cb = liftIO $ connectObjectFocusEvent obj cb SignalConnectBefore -afterObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId -afterObjectFocusEvent obj cb = connectObjectFocusEvent obj cb SignalConnectAfter - -connectObjectFocusEvent :: (GObject a, MonadIO m) => - a -> ObjectFocusEventCallback -> SignalConnectMode -> m SignalHandlerId -connectObjectFocusEvent obj cb after = liftIO $ do - cb' <- mkObjectFocusEventCallback (objectFocusEventCallbackWrapper cb) - connectSignalFunPtr obj "focus-event" cb' after - --- signal Object::property-change -type ObjectPropertyChangeCallback = - Ptr () -> - IO () - -noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback -noObjectPropertyChangeCallback = Nothing - -type ObjectPropertyChangeCallbackC = - Ptr () -> -- object - Ptr () -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkObjectPropertyChangeCallback :: ObjectPropertyChangeCallbackC -> IO (FunPtr ObjectPropertyChangeCallbackC) - -objectPropertyChangeClosure :: ObjectPropertyChangeCallback -> IO Closure -objectPropertyChangeClosure cb = newCClosure =<< mkObjectPropertyChangeCallback wrapped - where wrapped = objectPropertyChangeCallbackWrapper cb - -objectPropertyChangeCallbackWrapper :: - ObjectPropertyChangeCallback -> - Ptr () -> - Ptr () -> - Ptr () -> - IO () -objectPropertyChangeCallbackWrapper _cb _ arg1 _ = do - _cb arg1 - -onObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId -onObjectPropertyChange obj cb = liftIO $ connectObjectPropertyChange obj cb SignalConnectBefore -afterObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId -afterObjectPropertyChange obj cb = connectObjectPropertyChange obj cb SignalConnectAfter - -connectObjectPropertyChange :: (GObject a, MonadIO m) => - a -> ObjectPropertyChangeCallback -> SignalConnectMode -> m SignalHandlerId -connectObjectPropertyChange obj cb after = liftIO $ do - cb' <- mkObjectPropertyChangeCallback (objectPropertyChangeCallbackWrapper cb) - connectSignalFunPtr obj "property-change" cb' after - --- signal Object::state-change -type ObjectStateChangeCallback = - T.Text -> - Bool -> - IO () - -noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback -noObjectStateChangeCallback = Nothing - -type ObjectStateChangeCallbackC = - Ptr () -> -- object - CString -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkObjectStateChangeCallback :: ObjectStateChangeCallbackC -> IO (FunPtr ObjectStateChangeCallbackC) - -objectStateChangeClosure :: ObjectStateChangeCallback -> IO Closure -objectStateChangeClosure cb = newCClosure =<< mkObjectStateChangeCallback wrapped - where wrapped = objectStateChangeCallbackWrapper cb - -objectStateChangeCallbackWrapper :: - ObjectStateChangeCallback -> - Ptr () -> - CString -> - CInt -> - Ptr () -> - IO () -objectStateChangeCallbackWrapper _cb _ arg1 arg2 _ = do - arg1' <- cstringToText arg1 - let arg2' = (/= 0) arg2 - _cb arg1' arg2' - -onObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId -onObjectStateChange obj cb = liftIO $ connectObjectStateChange obj cb SignalConnectBefore -afterObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId -afterObjectStateChange obj cb = connectObjectStateChange obj cb SignalConnectAfter - -connectObjectStateChange :: (GObject a, MonadIO m) => - a -> ObjectStateChangeCallback -> SignalConnectMode -> m SignalHandlerId -connectObjectStateChange obj cb after = liftIO $ do - cb' <- mkObjectStateChangeCallback (objectStateChangeCallbackWrapper cb) - connectSignalFunPtr obj "state-change" cb' after - --- signal Object::visible-data-changed -type ObjectVisibleDataChangedCallback = - IO () - -noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback -noObjectVisibleDataChangedCallback = Nothing - -type ObjectVisibleDataChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkObjectVisibleDataChangedCallback :: ObjectVisibleDataChangedCallbackC -> IO (FunPtr ObjectVisibleDataChangedCallbackC) - -objectVisibleDataChangedClosure :: ObjectVisibleDataChangedCallback -> IO Closure -objectVisibleDataChangedClosure cb = newCClosure =<< mkObjectVisibleDataChangedCallback wrapped - where wrapped = objectVisibleDataChangedCallbackWrapper cb - -objectVisibleDataChangedCallbackWrapper :: - ObjectVisibleDataChangedCallback -> - Ptr () -> - Ptr () -> - IO () -objectVisibleDataChangedCallbackWrapper _cb _ _ = do - _cb - -onObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId -onObjectVisibleDataChanged obj cb = liftIO $ connectObjectVisibleDataChanged obj cb SignalConnectBefore -afterObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId -afterObjectVisibleDataChanged obj cb = connectObjectVisibleDataChanged obj cb SignalConnectAfter - -connectObjectVisibleDataChanged :: (GObject a, MonadIO m) => - a -> ObjectVisibleDataChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectObjectVisibleDataChanged obj cb after = liftIO $ do - cb' <- mkObjectVisibleDataChangedCallback (objectVisibleDataChangedCallbackWrapper cb) - connectSignalFunPtr obj "visible-data-changed" cb' after - --- object ObjectFactory -newtype ObjectFactory = ObjectFactory (ForeignPtr ObjectFactory) -noObjectFactory :: Maybe ObjectFactory -noObjectFactory = Nothing - -foreign import ccall "atk_object_factory_get_type" - c_atk_object_factory_get_type :: IO GType - -type instance ParentTypes ObjectFactory = '[GObject.Object] - -instance GObject ObjectFactory where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_object_factory_get_type - - -class GObject o => ObjectFactoryK o -instance (GObject o, IsDescendantOf ObjectFactory o) => ObjectFactoryK o - -toObjectFactory :: ObjectFactoryK o => o -> IO ObjectFactory -toObjectFactory = unsafeCastTo ObjectFactory - --- method ObjectFactory::create_accessible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_object_factory_create_accessible" atk_object_factory_create_accessible :: - Ptr ObjectFactory -> -- _obj : TInterface "Atk" "ObjectFactory" - Ptr GObject.Object -> -- obj : TInterface "GObject" "Object" - IO (Ptr Object) - - -objectFactoryCreateAccessible :: - (MonadIO m, ObjectFactoryK a, GObject.ObjectK b) => - a -> -- _obj - b -> -- obj - m Object -objectFactoryCreateAccessible _obj obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let obj' = unsafeManagedPtrCastPtr obj - result <- atk_object_factory_create_accessible _obj' obj' - checkUnexpectedReturnNULL "atk_object_factory_create_accessible" result - result' <- (wrapObject Object) result - touchManagedPtr _obj - touchManagedPtr obj - return result' - --- method ObjectFactory::get_accessible_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TGType --- throws : False --- Skip return : False - -foreign import ccall "atk_object_factory_get_accessible_type" atk_object_factory_get_accessible_type :: - Ptr ObjectFactory -> -- _obj : TInterface "Atk" "ObjectFactory" - IO CGType - - -objectFactoryGetAccessibleType :: - (MonadIO m, ObjectFactoryK a) => - a -> -- _obj - m GType -objectFactoryGetAccessibleType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_object_factory_get_accessible_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - --- method ObjectFactory::invalidate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_object_factory_invalidate" atk_object_factory_invalidate :: - Ptr ObjectFactory -> -- _obj : TInterface "Atk" "ObjectFactory" - IO () - - -objectFactoryInvalidate :: - (MonadIO m, ObjectFactoryK a) => - a -> -- _obj - m () -objectFactoryInvalidate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_object_factory_invalidate _obj' - touchManagedPtr _obj - return () - --- object Plug -newtype Plug = Plug (ForeignPtr Plug) -noPlug :: Maybe Plug -noPlug = Nothing - -foreign import ccall "atk_plug_get_type" - c_atk_plug_get_type :: IO GType - -type instance ParentTypes Plug = '[Object, GObject.Object, Component] - -instance GObject Plug where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_plug_get_type - - -class GObject o => PlugK o -instance (GObject o, IsDescendantOf Plug o) => PlugK o - -toPlug :: PlugK o => o -> IO Plug -toPlug = unsafeCastTo Plug - --- method Plug::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Atk" "Plug" --- throws : False --- Skip return : False - -foreign import ccall "atk_plug_new" atk_plug_new :: - IO (Ptr Plug) - - -plugNew :: - (MonadIO m) => - m Plug -plugNew = liftIO $ do - result <- atk_plug_new - checkUnexpectedReturnNULL "atk_plug_new" result - result' <- (wrapObject Plug) result - return result' - --- method Plug::get_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_plug_get_id" atk_plug_get_id :: - Ptr Plug -> -- _obj : TInterface "Atk" "Plug" - IO CString - - -plugGetId :: - (MonadIO m, PlugK a) => - a -> -- _obj - m T.Text -plugGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_plug_get_id _obj' - checkUnexpectedReturnNULL "atk_plug_get_id" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- callback PropertyChangeHandler -propertyChangeHandlerClosure :: PropertyChangeHandler -> IO Closure -propertyChangeHandlerClosure cb = newCClosure =<< mkPropertyChangeHandler wrapped - where wrapped = propertyChangeHandlerWrapper Nothing cb - -type PropertyChangeHandlerC = - Ptr Object -> - Ptr PropertyValues -> - IO () - -foreign import ccall "wrapper" - mkPropertyChangeHandler :: PropertyChangeHandlerC -> IO (FunPtr PropertyChangeHandlerC) - -type PropertyChangeHandler = - Object -> - PropertyValues -> - IO () - -noPropertyChangeHandler :: Maybe PropertyChangeHandler -noPropertyChangeHandler = Nothing - -propertyChangeHandlerWrapper :: - Maybe (Ptr (FunPtr (PropertyChangeHandlerC))) -> - PropertyChangeHandler -> - Ptr Object -> - Ptr PropertyValues -> - IO () -propertyChangeHandlerWrapper funptrptr _cb obj vals = do - obj' <- (newObject Object) obj - vals' <- (newPtr 56 PropertyValues) vals - _cb obj' vals' - maybeReleaseFunPtr funptrptr - --- struct PropertyValues -newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues) -noPropertyValues :: Maybe PropertyValues -noPropertyValues = Nothing - -propertyValuesReadPropertyName :: PropertyValues -> IO T.Text -propertyValuesReadPropertyName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -propertyValuesReadOldValue :: PropertyValues -> IO GValue -propertyValuesReadOldValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) - val' <- (newBoxed GValue) val - return val' - -propertyValuesReadNewValue :: PropertyValues -> IO GValue -propertyValuesReadNewValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr GValue) - val' <- (newBoxed GValue) val - return val' - --- struct Range -newtype Range = Range (ForeignPtr Range) -noRange :: Maybe Range -noRange = Nothing - -foreign import ccall "atk_range_get_type" c_atk_range_get_type :: - IO GType - -instance BoxedObject Range where - boxedType _ = c_atk_range_get_type - --- method Range::new --- method type : Constructor --- Args : [Arg {argName = "lower_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "lower_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Range" --- throws : False --- Skip return : False - -foreign import ccall "atk_range_new" atk_range_new :: - CDouble -> -- lower_limit : TBasicType TDouble - CDouble -> -- upper_limit : TBasicType TDouble - CString -> -- description : TBasicType TUTF8 - IO (Ptr Range) - - -rangeNew :: - (MonadIO m) => - Double -> -- lower_limit - Double -> -- upper_limit - T.Text -> -- description - m Range -rangeNew lower_limit upper_limit description = liftIO $ do - let lower_limit' = realToFrac lower_limit - let upper_limit' = realToFrac upper_limit - description' <- textToCString description - result <- atk_range_new lower_limit' upper_limit' description' - checkUnexpectedReturnNULL "atk_range_new" result - result' <- (wrapBoxed Range) result - freeMem description' - return result' - --- method Range::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Range" --- throws : False --- Skip return : False - -foreign import ccall "atk_range_copy" atk_range_copy :: - Ptr Range -> -- _obj : TInterface "Atk" "Range" - IO (Ptr Range) - - -rangeCopy :: - (MonadIO m) => - Range -> -- _obj - m Range -rangeCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- atk_range_copy _obj' - checkUnexpectedReturnNULL "atk_range_copy" result - result' <- (wrapBoxed Range) result - touchManagedPtr _obj - return result' - --- method Range::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_range_free" atk_range_free :: - Ptr Range -> -- _obj : TInterface "Atk" "Range" - IO () - - -rangeFree :: - (MonadIO m) => - Range -> -- _obj - m () -rangeFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - atk_range_free _obj' - touchManagedPtr _obj - return () - --- method Range::get_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_range_get_description" atk_range_get_description :: - Ptr Range -> -- _obj : TInterface "Atk" "Range" - IO CString - - -rangeGetDescription :: - (MonadIO m) => - Range -> -- _obj - m T.Text -rangeGetDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- atk_range_get_description _obj' - checkUnexpectedReturnNULL "atk_range_get_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Range::get_lower_limit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "atk_range_get_lower_limit" atk_range_get_lower_limit :: - Ptr Range -> -- _obj : TInterface "Atk" "Range" - IO CDouble - - -rangeGetLowerLimit :: - (MonadIO m) => - Range -> -- _obj - m Double -rangeGetLowerLimit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- atk_range_get_lower_limit _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Range::get_upper_limit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "atk_range_get_upper_limit" atk_range_get_upper_limit :: - Ptr Range -> -- _obj : TInterface "Atk" "Range" - IO CDouble - - -rangeGetUpperLimit :: - (MonadIO m) => - Range -> -- _obj - m Double -rangeGetUpperLimit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- atk_range_get_upper_limit _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- struct Rectangle -newtype Rectangle = Rectangle (ForeignPtr Rectangle) -noRectangle :: Maybe Rectangle -noRectangle = Nothing - -foreign import ccall "atk_rectangle_get_type" c_atk_rectangle_get_type :: - IO GType - -instance BoxedObject Rectangle where - boxedType _ = c_atk_rectangle_get_type - -rectangleReadX :: Rectangle -> IO Int32 -rectangleReadX s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -rectangleReadY :: Rectangle -> IO Int32 -rectangleReadY s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -rectangleReadWidth :: Rectangle -> IO Int32 -rectangleReadWidth s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -rectangleReadHeight :: Rectangle -> IO Int32 -rectangleReadHeight s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - --- object Registry -newtype Registry = Registry (ForeignPtr Registry) -noRegistry :: Maybe Registry -noRegistry = Nothing - -foreign import ccall "atk_registry_get_type" - c_atk_registry_get_type :: IO GType - -type instance ParentTypes Registry = '[GObject.Object] - -instance GObject Registry where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_registry_get_type - - -class GObject o => RegistryK o -instance (GObject o, IsDescendantOf Registry o) => RegistryK o - -toRegistry :: RegistryK o => o -> IO Registry -toRegistry = unsafeCastTo Registry - --- method Registry::get_factory --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "ObjectFactory" --- throws : False --- Skip return : False - -foreign import ccall "atk_registry_get_factory" atk_registry_get_factory :: - Ptr Registry -> -- _obj : TInterface "Atk" "Registry" - CGType -> -- type : TBasicType TGType - IO (Ptr ObjectFactory) - - -registryGetFactory :: - (MonadIO m, RegistryK a) => - a -> -- _obj - GType -> -- type - m ObjectFactory -registryGetFactory _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = gtypeToCGType type_ - result <- atk_registry_get_factory _obj' type_' - checkUnexpectedReturnNULL "atk_registry_get_factory" result - result' <- (newObject ObjectFactory) result - touchManagedPtr _obj - return result' - --- method Registry::get_factory_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TGType --- throws : False --- Skip return : False - -foreign import ccall "atk_registry_get_factory_type" atk_registry_get_factory_type :: - Ptr Registry -> -- _obj : TInterface "Atk" "Registry" - CGType -> -- type : TBasicType TGType - IO CGType - - -registryGetFactoryType :: - (MonadIO m, RegistryK a) => - a -> -- _obj - GType -> -- type - m GType -registryGetFactoryType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = gtypeToCGType type_ - result <- atk_registry_get_factory_type _obj' type_' - let result' = GType result - touchManagedPtr _obj - return result' - --- method Registry::set_factory_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factory_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factory_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_registry_set_factory_type" atk_registry_set_factory_type :: - Ptr Registry -> -- _obj : TInterface "Atk" "Registry" - CGType -> -- type : TBasicType TGType - CGType -> -- factory_type : TBasicType TGType - IO () - - -registrySetFactoryType :: - (MonadIO m, RegistryK a) => - a -> -- _obj - GType -> -- type - GType -> -- factory_type - m () -registrySetFactoryType _obj type_ factory_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = gtypeToCGType type_ - let factory_type' = gtypeToCGType factory_type - atk_registry_set_factory_type _obj' type_' factory_type' - touchManagedPtr _obj - return () - --- object Relation -newtype Relation = Relation (ForeignPtr Relation) -noRelation :: Maybe Relation -noRelation = Nothing - -foreign import ccall "atk_relation_get_type" - c_atk_relation_get_type :: IO GType - -type instance ParentTypes Relation = '[GObject.Object] - -instance GObject Relation where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_relation_get_type - - -class GObject o => RelationK o -instance (GObject o, IsDescendantOf Relation o) => RelationK o - -toRelation :: RelationK o => o -> IO Relation -toRelation = unsafeCastTo Relation - --- method Relation::new --- method type : Constructor --- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Atk" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Atk" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Relation" --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_new" atk_relation_new :: - Ptr (Ptr Object) -> -- targets : TCArray False (-1) 1 (TInterface "Atk" "Object") - Int32 -> -- n_targets : TBasicType TInt32 - CUInt -> -- relationship : TInterface "Atk" "RelationType" - IO (Ptr Relation) - - -relationNew :: - (MonadIO m) => - [Object] -> -- targets - RelationType -> -- relationship - m Relation -relationNew targets relationship = liftIO $ do - let n_targets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrCastPtr targets - targets'' <- packPtrArray targets' - let relationship' = (fromIntegral . fromEnum) relationship - result <- atk_relation_new targets'' n_targets relationship' - checkUnexpectedReturnNULL "atk_relation_new" result - result' <- (wrapObject Relation) result - mapM_ touchManagedPtr targets - freeMem targets'' - return result' - --- method Relation::add_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_add_target" atk_relation_add_target :: - Ptr Relation -> -- _obj : TInterface "Atk" "Relation" - Ptr Object -> -- target : TInterface "Atk" "Object" - IO () - - -relationAddTarget :: - (MonadIO m, RelationK a, ObjectK b) => - a -> -- _obj - b -> -- target - m () -relationAddTarget _obj target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrCastPtr target - atk_relation_add_target _obj' target' - touchManagedPtr _obj - touchManagedPtr target - return () - --- method Relation::get_relation_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "RelationType" --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_get_relation_type" atk_relation_get_relation_type :: - Ptr Relation -> -- _obj : TInterface "Atk" "Relation" - IO CUInt - - -relationGetRelationType :: - (MonadIO m, RelationK a) => - a -> -- _obj - m RelationType -relationGetRelationType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_relation_get_relation_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Relation::get_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TPtrArray (TInterface "Atk" "Object") --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_get_target" atk_relation_get_target :: - Ptr Relation -> -- _obj : TInterface "Atk" "Relation" - IO (Ptr (GPtrArray (Ptr Object))) - - -relationGetTarget :: - (MonadIO m, RelationK a) => - a -> -- _obj - m [Object] -relationGetTarget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_relation_get_target _obj' - checkUnexpectedReturnNULL "atk_relation_get_target" result - result' <- unpackGPtrArray result - result'' <- mapM (newObject Object) result' - touchManagedPtr _obj - return result'' - --- method Relation::remove_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_remove_target" atk_relation_remove_target :: - Ptr Relation -> -- _obj : TInterface "Atk" "Relation" - Ptr Object -> -- target : TInterface "Atk" "Object" - IO CInt - - -relationRemoveTarget :: - (MonadIO m, RelationK a, ObjectK b) => - a -> -- _obj - b -> -- target - m Bool -relationRemoveTarget _obj target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrCastPtr target - result <- atk_relation_remove_target _obj' target' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr target - return result' - --- object RelationSet -newtype RelationSet = RelationSet (ForeignPtr RelationSet) -noRelationSet :: Maybe RelationSet -noRelationSet = Nothing - -foreign import ccall "atk_relation_set_get_type" - c_atk_relation_set_get_type :: IO GType - -type instance ParentTypes RelationSet = '[GObject.Object] - -instance GObject RelationSet where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_relation_set_get_type - - -class GObject o => RelationSetK o -instance (GObject o, IsDescendantOf RelationSet o) => RelationSetK o - -toRelationSet :: RelationSetK o => o -> IO RelationSet -toRelationSet = unsafeCastTo RelationSet - --- method RelationSet::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Atk" "RelationSet" --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_set_new" atk_relation_set_new :: - IO (Ptr RelationSet) - - -relationSetNew :: - (MonadIO m) => - m RelationSet -relationSetNew = liftIO $ do - result <- atk_relation_set_new - checkUnexpectedReturnNULL "atk_relation_set_new" result - result' <- (wrapObject RelationSet) result - return result' - --- method RelationSet::add --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_set_add" atk_relation_set_add :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" - Ptr Relation -> -- relation : TInterface "Atk" "Relation" - IO () - - -relationSetAdd :: - (MonadIO m, RelationSetK a, RelationK b) => - a -> -- _obj - b -> -- relation - m () -relationSetAdd _obj relation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relation' = unsafeManagedPtrCastPtr relation - atk_relation_set_add _obj' relation' - touchManagedPtr _obj - touchManagedPtr relation - return () - --- method RelationSet::add_relation_by_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_set_add_relation_by_type" atk_relation_set_add_relation_by_type :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" - CUInt -> -- relationship : TInterface "Atk" "RelationType" - Ptr Object -> -- target : TInterface "Atk" "Object" - IO () - - -relationSetAddRelationByType :: - (MonadIO m, RelationSetK a, ObjectK b) => - a -> -- _obj - RelationType -> -- relationship - b -> -- target - m () -relationSetAddRelationByType _obj relationship target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relationship' = (fromIntegral . fromEnum) relationship - let target' = unsafeManagedPtrCastPtr target - atk_relation_set_add_relation_by_type _obj' relationship' target' - touchManagedPtr _obj - touchManagedPtr target - return () - --- method RelationSet::contains --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_set_contains" atk_relation_set_contains :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" - CUInt -> -- relationship : TInterface "Atk" "RelationType" - IO CInt - - -relationSetContains :: - (MonadIO m, RelationSetK a) => - a -> -- _obj - RelationType -> -- relationship - m Bool -relationSetContains _obj relationship = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relationship' = (fromIntegral . fromEnum) relationship - result <- atk_relation_set_contains _obj' relationship' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RelationSet::contains_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_set_contains_target" atk_relation_set_contains_target :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" - CUInt -> -- relationship : TInterface "Atk" "RelationType" - Ptr Object -> -- target : TInterface "Atk" "Object" - IO CInt - - -relationSetContainsTarget :: - (MonadIO m, RelationSetK a, ObjectK b) => - a -> -- _obj - RelationType -> -- relationship - b -> -- target - m Bool -relationSetContainsTarget _obj relationship target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relationship' = (fromIntegral . fromEnum) relationship - let target' = unsafeManagedPtrCastPtr target - result <- atk_relation_set_contains_target _obj' relationship' target' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr target - return result' - --- method RelationSet::get_n_relations --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_set_get_n_relations" atk_relation_set_get_n_relations :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" - IO Int32 - - -relationSetGetNRelations :: - (MonadIO m, RelationSetK a) => - a -> -- _obj - m Int32 -relationSetGetNRelations _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_relation_set_get_n_relations _obj' - touchManagedPtr _obj - return result - --- method RelationSet::get_relation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Relation" --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_set_get_relation" atk_relation_set_get_relation :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" - Int32 -> -- i : TBasicType TInt32 - IO (Ptr Relation) - - -relationSetGetRelation :: - (MonadIO m, RelationSetK a) => - a -> -- _obj - Int32 -> -- i - m Relation -relationSetGetRelation _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_relation_set_get_relation _obj' i - checkUnexpectedReturnNULL "atk_relation_set_get_relation" result - result' <- (newObject Relation) result - touchManagedPtr _obj - return result' - --- method RelationSet::get_relation_by_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Relation" --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_set_get_relation_by_type" atk_relation_set_get_relation_by_type :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" - CUInt -> -- relationship : TInterface "Atk" "RelationType" - IO (Ptr Relation) - - -relationSetGetRelationByType :: - (MonadIO m, RelationSetK a) => - a -> -- _obj - RelationType -> -- relationship - m Relation -relationSetGetRelationByType _obj relationship = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relationship' = (fromIntegral . fromEnum) relationship - result <- atk_relation_set_get_relation_by_type _obj' relationship' - checkUnexpectedReturnNULL "atk_relation_set_get_relation_by_type" result - result' <- (newObject Relation) result - touchManagedPtr _obj - return result' - --- method RelationSet::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_set_remove" atk_relation_set_remove :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" - Ptr Relation -> -- relation : TInterface "Atk" "Relation" - IO () - - -relationSetRemove :: - (MonadIO m, RelationSetK a, RelationK b) => - a -> -- _obj - b -> -- relation - m () -relationSetRemove _obj relation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relation' = unsafeManagedPtrCastPtr relation - atk_relation_set_remove _obj' relation' - touchManagedPtr _obj - touchManagedPtr relation - return () - --- Enum RelationType - -data RelationType = - RelationTypeNull - | RelationTypeControlledBy - | RelationTypeControllerFor - | RelationTypeLabelFor - | RelationTypeLabelledBy - | RelationTypeMemberOf - | RelationTypeNodeChildOf - | RelationTypeFlowsTo - | RelationTypeFlowsFrom - | RelationTypeSubwindowOf - | RelationTypeEmbeds - | RelationTypeEmbeddedBy - | RelationTypePopupFor - | RelationTypeParentWindowOf - | RelationTypeDescribedBy - | RelationTypeDescriptionFor - | RelationTypeNodeParentOf - | RelationTypeLastDefined - | AnotherRelationType Int - deriving (Show, Eq) - -instance Enum RelationType where - fromEnum RelationTypeNull = 0 - fromEnum RelationTypeControlledBy = 1 - fromEnum RelationTypeControllerFor = 2 - fromEnum RelationTypeLabelFor = 3 - fromEnum RelationTypeLabelledBy = 4 - fromEnum RelationTypeMemberOf = 5 - fromEnum RelationTypeNodeChildOf = 6 - fromEnum RelationTypeFlowsTo = 7 - fromEnum RelationTypeFlowsFrom = 8 - fromEnum RelationTypeSubwindowOf = 9 - fromEnum RelationTypeEmbeds = 10 - fromEnum RelationTypeEmbeddedBy = 11 - fromEnum RelationTypePopupFor = 12 - fromEnum RelationTypeParentWindowOf = 13 - fromEnum RelationTypeDescribedBy = 14 - fromEnum RelationTypeDescriptionFor = 15 - fromEnum RelationTypeNodeParentOf = 16 - fromEnum RelationTypeLastDefined = 17 - fromEnum (AnotherRelationType k) = k - - toEnum 0 = RelationTypeNull - toEnum 1 = RelationTypeControlledBy - toEnum 2 = RelationTypeControllerFor - toEnum 3 = RelationTypeLabelFor - toEnum 4 = RelationTypeLabelledBy - toEnum 5 = RelationTypeMemberOf - toEnum 6 = RelationTypeNodeChildOf - toEnum 7 = RelationTypeFlowsTo - toEnum 8 = RelationTypeFlowsFrom - toEnum 9 = RelationTypeSubwindowOf - toEnum 10 = RelationTypeEmbeds - toEnum 11 = RelationTypeEmbeddedBy - toEnum 12 = RelationTypePopupFor - toEnum 13 = RelationTypeParentWindowOf - toEnum 14 = RelationTypeDescribedBy - toEnum 15 = RelationTypeDescriptionFor - toEnum 16 = RelationTypeNodeParentOf - toEnum 17 = RelationTypeLastDefined - toEnum k = AnotherRelationType k - -foreign import ccall "atk_relation_type_get_type" c_atk_relation_type_get_type :: - IO GType - -instance BoxedEnum RelationType where - boxedEnumType _ = c_atk_relation_type_get_type - --- Enum Role - -data Role = - RoleInvalid - | RoleAcceleratorLabel - | RoleAlert - | RoleAnimation - | RoleArrow - | RoleCalendar - | RoleCanvas - | RoleCheckBox - | RoleCheckMenuItem - | RoleColorChooser - | RoleColumnHeader - | RoleComboBox - | RoleDateEditor - | RoleDesktopIcon - | RoleDesktopFrame - | RoleDial - | RoleDialog - | RoleDirectoryPane - | RoleDrawingArea - | RoleFileChooser - | RoleFiller - | RoleFontChooser - | RoleFrame - | RoleGlassPane - | RoleHtmlContainer - | RoleIcon - | RoleImage - | RoleInternalFrame - | RoleLabel - | RoleLayeredPane - | RoleList - | RoleListItem - | RoleMenu - | RoleMenuBar - | RoleMenuItem - | RoleOptionPane - | RolePageTab - | RolePageTabList - | RolePanel - | RolePasswordText - | RolePopupMenu - | RoleProgressBar - | RolePushButton - | RoleRadioButton - | RoleRadioMenuItem - | RoleRootPane - | RoleRowHeader - | RoleScrollBar - | RoleScrollPane - | RoleSeparator - | RoleSlider - | RoleSplitPane - | RoleSpinButton - | RoleStatusbar - | RoleTable - | RoleTableCell - | RoleTableColumnHeader - | RoleTableRowHeader - | RoleTearOffMenuItem - | RoleTerminal - | RoleText - | RoleToggleButton - | RoleToolBar - | RoleToolTip - | RoleTree - | RoleTreeTable - | RoleUnknown - | RoleViewport - | RoleWindow - | RoleHeader - | RoleFooter - | RoleParagraph - | RoleRuler - | RoleApplication - | RoleAutocomplete - | RoleEditBar - | RoleEmbedded - | RoleEntry - | RoleChart - | RoleCaption - | RoleDocumentFrame - | RoleHeading - | RolePage - | RoleSection - | RoleRedundantObject - | RoleForm - | RoleLink - | RoleInputMethodWindow - | RoleTableRow - | RoleTreeItem - | RoleDocumentSpreadsheet - | RoleDocumentPresentation - | RoleDocumentText - | RoleDocumentWeb - | RoleDocumentEmail - | RoleComment - | RoleListBox - | RoleGrouping - | RoleImageMap - | RoleNotification - | RoleInfoBar - | RoleLevelBar - | RoleTitleBar - | RoleBlockQuote - | RoleAudio - | RoleVideo - | RoleDefinition - | RoleArticle - | RoleLandmark - | RoleLog - | RoleMarquee - | RoleMath - | RoleRating - | RoleTimer - | RoleDescriptionList - | RoleDescriptionTerm - | RoleDescriptionValue - | RoleStatic - | RoleMathFraction - | RoleMathRoot - | RoleSubscript - | RoleSuperscript - | RoleLastDefined - | AnotherRole Int - deriving (Show, Eq) - -instance Enum Role where - fromEnum RoleInvalid = 0 - fromEnum RoleAcceleratorLabel = 1 - fromEnum RoleAlert = 2 - fromEnum RoleAnimation = 3 - fromEnum RoleArrow = 4 - fromEnum RoleCalendar = 5 - fromEnum RoleCanvas = 6 - fromEnum RoleCheckBox = 7 - fromEnum RoleCheckMenuItem = 8 - fromEnum RoleColorChooser = 9 - fromEnum RoleColumnHeader = 10 - fromEnum RoleComboBox = 11 - fromEnum RoleDateEditor = 12 - fromEnum RoleDesktopIcon = 13 - fromEnum RoleDesktopFrame = 14 - fromEnum RoleDial = 15 - fromEnum RoleDialog = 16 - fromEnum RoleDirectoryPane = 17 - fromEnum RoleDrawingArea = 18 - fromEnum RoleFileChooser = 19 - fromEnum RoleFiller = 20 - fromEnum RoleFontChooser = 21 - fromEnum RoleFrame = 22 - fromEnum RoleGlassPane = 23 - fromEnum RoleHtmlContainer = 24 - fromEnum RoleIcon = 25 - fromEnum RoleImage = 26 - fromEnum RoleInternalFrame = 27 - fromEnum RoleLabel = 28 - fromEnum RoleLayeredPane = 29 - fromEnum RoleList = 30 - fromEnum RoleListItem = 31 - fromEnum RoleMenu = 32 - fromEnum RoleMenuBar = 33 - fromEnum RoleMenuItem = 34 - fromEnum RoleOptionPane = 35 - fromEnum RolePageTab = 36 - fromEnum RolePageTabList = 37 - fromEnum RolePanel = 38 - fromEnum RolePasswordText = 39 - fromEnum RolePopupMenu = 40 - fromEnum RoleProgressBar = 41 - fromEnum RolePushButton = 42 - fromEnum RoleRadioButton = 43 - fromEnum RoleRadioMenuItem = 44 - fromEnum RoleRootPane = 45 - fromEnum RoleRowHeader = 46 - fromEnum RoleScrollBar = 47 - fromEnum RoleScrollPane = 48 - fromEnum RoleSeparator = 49 - fromEnum RoleSlider = 50 - fromEnum RoleSplitPane = 51 - fromEnum RoleSpinButton = 52 - fromEnum RoleStatusbar = 53 - fromEnum RoleTable = 54 - fromEnum RoleTableCell = 55 - fromEnum RoleTableColumnHeader = 56 - fromEnum RoleTableRowHeader = 57 - fromEnum RoleTearOffMenuItem = 58 - fromEnum RoleTerminal = 59 - fromEnum RoleText = 60 - fromEnum RoleToggleButton = 61 - fromEnum RoleToolBar = 62 - fromEnum RoleToolTip = 63 - fromEnum RoleTree = 64 - fromEnum RoleTreeTable = 65 - fromEnum RoleUnknown = 66 - fromEnum RoleViewport = 67 - fromEnum RoleWindow = 68 - fromEnum RoleHeader = 69 - fromEnum RoleFooter = 70 - fromEnum RoleParagraph = 71 - fromEnum RoleRuler = 72 - fromEnum RoleApplication = 73 - fromEnum RoleAutocomplete = 74 - fromEnum RoleEditBar = 75 - fromEnum RoleEmbedded = 76 - fromEnum RoleEntry = 77 - fromEnum RoleChart = 78 - fromEnum RoleCaption = 79 - fromEnum RoleDocumentFrame = 80 - fromEnum RoleHeading = 81 - fromEnum RolePage = 82 - fromEnum RoleSection = 83 - fromEnum RoleRedundantObject = 84 - fromEnum RoleForm = 85 - fromEnum RoleLink = 86 - fromEnum RoleInputMethodWindow = 87 - fromEnum RoleTableRow = 88 - fromEnum RoleTreeItem = 89 - fromEnum RoleDocumentSpreadsheet = 90 - fromEnum RoleDocumentPresentation = 91 - fromEnum RoleDocumentText = 92 - fromEnum RoleDocumentWeb = 93 - fromEnum RoleDocumentEmail = 94 - fromEnum RoleComment = 95 - fromEnum RoleListBox = 96 - fromEnum RoleGrouping = 97 - fromEnum RoleImageMap = 98 - fromEnum RoleNotification = 99 - fromEnum RoleInfoBar = 100 - fromEnum RoleLevelBar = 101 - fromEnum RoleTitleBar = 102 - fromEnum RoleBlockQuote = 103 - fromEnum RoleAudio = 104 - fromEnum RoleVideo = 105 - fromEnum RoleDefinition = 106 - fromEnum RoleArticle = 107 - fromEnum RoleLandmark = 108 - fromEnum RoleLog = 109 - fromEnum RoleMarquee = 110 - fromEnum RoleMath = 111 - fromEnum RoleRating = 112 - fromEnum RoleTimer = 113 - fromEnum RoleDescriptionList = 114 - fromEnum RoleDescriptionTerm = 115 - fromEnum RoleDescriptionValue = 116 - fromEnum RoleStatic = 117 - fromEnum RoleMathFraction = 118 - fromEnum RoleMathRoot = 119 - fromEnum RoleSubscript = 120 - fromEnum RoleSuperscript = 121 - fromEnum RoleLastDefined = 122 - fromEnum (AnotherRole k) = k - - toEnum 0 = RoleInvalid - toEnum 1 = RoleAcceleratorLabel - toEnum 2 = RoleAlert - toEnum 3 = RoleAnimation - toEnum 4 = RoleArrow - toEnum 5 = RoleCalendar - toEnum 6 = RoleCanvas - toEnum 7 = RoleCheckBox - toEnum 8 = RoleCheckMenuItem - toEnum 9 = RoleColorChooser - toEnum 10 = RoleColumnHeader - toEnum 11 = RoleComboBox - toEnum 12 = RoleDateEditor - toEnum 13 = RoleDesktopIcon - toEnum 14 = RoleDesktopFrame - toEnum 15 = RoleDial - toEnum 16 = RoleDialog - toEnum 17 = RoleDirectoryPane - toEnum 18 = RoleDrawingArea - toEnum 19 = RoleFileChooser - toEnum 20 = RoleFiller - toEnum 21 = RoleFontChooser - toEnum 22 = RoleFrame - toEnum 23 = RoleGlassPane - toEnum 24 = RoleHtmlContainer - toEnum 25 = RoleIcon - toEnum 26 = RoleImage - toEnum 27 = RoleInternalFrame - toEnum 28 = RoleLabel - toEnum 29 = RoleLayeredPane - toEnum 30 = RoleList - toEnum 31 = RoleListItem - toEnum 32 = RoleMenu - toEnum 33 = RoleMenuBar - toEnum 34 = RoleMenuItem - toEnum 35 = RoleOptionPane - toEnum 36 = RolePageTab - toEnum 37 = RolePageTabList - toEnum 38 = RolePanel - toEnum 39 = RolePasswordText - toEnum 40 = RolePopupMenu - toEnum 41 = RoleProgressBar - toEnum 42 = RolePushButton - toEnum 43 = RoleRadioButton - toEnum 44 = RoleRadioMenuItem - toEnum 45 = RoleRootPane - toEnum 46 = RoleRowHeader - toEnum 47 = RoleScrollBar - toEnum 48 = RoleScrollPane - toEnum 49 = RoleSeparator - toEnum 50 = RoleSlider - toEnum 51 = RoleSplitPane - toEnum 52 = RoleSpinButton - toEnum 53 = RoleStatusbar - toEnum 54 = RoleTable - toEnum 55 = RoleTableCell - toEnum 56 = RoleTableColumnHeader - toEnum 57 = RoleTableRowHeader - toEnum 58 = RoleTearOffMenuItem - toEnum 59 = RoleTerminal - toEnum 60 = RoleText - toEnum 61 = RoleToggleButton - toEnum 62 = RoleToolBar - toEnum 63 = RoleToolTip - toEnum 64 = RoleTree - toEnum 65 = RoleTreeTable - toEnum 66 = RoleUnknown - toEnum 67 = RoleViewport - toEnum 68 = RoleWindow - toEnum 69 = RoleHeader - toEnum 70 = RoleFooter - toEnum 71 = RoleParagraph - toEnum 72 = RoleRuler - toEnum 73 = RoleApplication - toEnum 74 = RoleAutocomplete - toEnum 75 = RoleEditBar - toEnum 76 = RoleEmbedded - toEnum 77 = RoleEntry - toEnum 78 = RoleChart - toEnum 79 = RoleCaption - toEnum 80 = RoleDocumentFrame - toEnum 81 = RoleHeading - toEnum 82 = RolePage - toEnum 83 = RoleSection - toEnum 84 = RoleRedundantObject - toEnum 85 = RoleForm - toEnum 86 = RoleLink - toEnum 87 = RoleInputMethodWindow - toEnum 88 = RoleTableRow - toEnum 89 = RoleTreeItem - toEnum 90 = RoleDocumentSpreadsheet - toEnum 91 = RoleDocumentPresentation - toEnum 92 = RoleDocumentText - toEnum 93 = RoleDocumentWeb - toEnum 94 = RoleDocumentEmail - toEnum 95 = RoleComment - toEnum 96 = RoleListBox - toEnum 97 = RoleGrouping - toEnum 98 = RoleImageMap - toEnum 99 = RoleNotification - toEnum 100 = RoleInfoBar - toEnum 101 = RoleLevelBar - toEnum 102 = RoleTitleBar - toEnum 103 = RoleBlockQuote - toEnum 104 = RoleAudio - toEnum 105 = RoleVideo - toEnum 106 = RoleDefinition - toEnum 107 = RoleArticle - toEnum 108 = RoleLandmark - toEnum 109 = RoleLog - toEnum 110 = RoleMarquee - toEnum 111 = RoleMath - toEnum 112 = RoleRating - toEnum 113 = RoleTimer - toEnum 114 = RoleDescriptionList - toEnum 115 = RoleDescriptionTerm - toEnum 116 = RoleDescriptionValue - toEnum 117 = RoleStatic - toEnum 118 = RoleMathFraction - toEnum 119 = RoleMathRoot - toEnum 120 = RoleSubscript - toEnum 121 = RoleSuperscript - toEnum 122 = RoleLastDefined - toEnum k = AnotherRole k - -foreign import ccall "atk_role_get_type" c_atk_role_get_type :: - IO GType - -instance BoxedEnum Role where - boxedEnumType _ = c_atk_role_get_type - --- interface Selection - -newtype Selection = Selection (ForeignPtr Selection) -noSelection :: Maybe Selection -noSelection = Nothing - -class ForeignPtrNewtype a => SelectionK a -instance (ForeignPtrNewtype o, IsDescendantOf Selection o) => SelectionK o -type instance ParentTypes Selection = '[] - --- method Selection::add_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_selection_add_selection" atk_selection_add_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection" - Int32 -> -- i : TBasicType TInt32 - IO CInt - - -selectionAddSelection :: - (MonadIO m, SelectionK a) => - a -> -- _obj - Int32 -> -- i - m Bool -selectionAddSelection _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_selection_add_selection _obj' i - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Selection::clear_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_selection_clear_selection" atk_selection_clear_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection" - IO CInt - - -selectionClearSelection :: - (MonadIO m, SelectionK a) => - a -> -- _obj - m Bool -selectionClearSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_selection_clear_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Selection::get_selection_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_selection_get_selection_count" atk_selection_get_selection_count :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection" - IO Int32 - - -selectionGetSelectionCount :: - (MonadIO m, SelectionK a) => - a -> -- _obj - m Int32 -selectionGetSelectionCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_selection_get_selection_count _obj' - touchManagedPtr _obj - return result - --- method Selection::is_child_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_selection_is_child_selected" atk_selection_is_child_selected :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection" - Int32 -> -- i : TBasicType TInt32 - IO CInt - - -selectionIsChildSelected :: - (MonadIO m, SelectionK a) => - a -> -- _obj - Int32 -> -- i - m Bool -selectionIsChildSelected _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_selection_is_child_selected _obj' i - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Selection::ref_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_selection_ref_selection" atk_selection_ref_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection" - Int32 -> -- i : TBasicType TInt32 - IO (Ptr Object) - - -selectionRefSelection :: - (MonadIO m, SelectionK a) => - a -> -- _obj - Int32 -> -- i - m Object -selectionRefSelection _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_selection_ref_selection _obj' i - checkUnexpectedReturnNULL "atk_selection_ref_selection" result - result' <- (wrapObject Object) result - touchManagedPtr _obj - return result' - --- method Selection::remove_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_selection_remove_selection" atk_selection_remove_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection" - Int32 -> -- i : TBasicType TInt32 - IO CInt - - -selectionRemoveSelection :: - (MonadIO m, SelectionK a) => - a -> -- _obj - Int32 -> -- i - m Bool -selectionRemoveSelection _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_selection_remove_selection _obj' i - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Selection::select_all_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_selection_select_all_selection" atk_selection_select_all_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection" - IO CInt - - -selectionSelectAllSelection :: - (MonadIO m, SelectionK a) => - a -> -- _obj - m Bool -selectionSelectAllSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_selection_select_all_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- signal Selection::selection-changed -type SelectionSelectionChangedCallback = - IO () - -noSelectionSelectionChangedCallback :: Maybe SelectionSelectionChangedCallback -noSelectionSelectionChangedCallback = Nothing - -type SelectionSelectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSelectionSelectionChangedCallback :: SelectionSelectionChangedCallbackC -> IO (FunPtr SelectionSelectionChangedCallbackC) - -selectionSelectionChangedClosure :: SelectionSelectionChangedCallback -> IO Closure -selectionSelectionChangedClosure cb = newCClosure =<< mkSelectionSelectionChangedCallback wrapped - where wrapped = selectionSelectionChangedCallbackWrapper cb - -selectionSelectionChangedCallbackWrapper :: - SelectionSelectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -selectionSelectionChangedCallbackWrapper _cb _ _ = do - _cb - -onSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId -onSelectionSelectionChanged obj cb = liftIO $ connectSelectionSelectionChanged obj cb SignalConnectBefore -afterSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId -afterSelectionSelectionChanged obj cb = connectSelectionSelectionChanged obj cb SignalConnectAfter - -connectSelectionSelectionChanged :: (GObject a, MonadIO m) => - a -> SelectionSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectSelectionSelectionChanged obj cb after = liftIO $ do - cb' <- mkSelectionSelectionChangedCallback (selectionSelectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "selection-changed" cb' after - --- object Socket -newtype Socket = Socket (ForeignPtr Socket) -noSocket :: Maybe Socket -noSocket = Nothing - -foreign import ccall "atk_socket_get_type" - c_atk_socket_get_type :: IO GType - -type instance ParentTypes Socket = '[Object, GObject.Object, Component] - -instance GObject Socket where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_socket_get_type - - -class GObject o => SocketK o -instance (GObject o, IsDescendantOf Socket o) => SocketK o - -toSocket :: SocketK o => o -> IO Socket -toSocket = unsafeCastTo Socket - --- method Socket::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Atk" "Socket" --- throws : False --- Skip return : False - -foreign import ccall "atk_socket_new" atk_socket_new :: - IO (Ptr Socket) - - -socketNew :: - (MonadIO m) => - m Socket -socketNew = liftIO $ do - result <- atk_socket_new - checkUnexpectedReturnNULL "atk_socket_new" result - result' <- (wrapObject Socket) result - return result' - --- method Socket::embed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plug_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plug_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_socket_embed" atk_socket_embed :: - Ptr Socket -> -- _obj : TInterface "Atk" "Socket" - CString -> -- plug_id : TBasicType TUTF8 - IO () - - -socketEmbed :: - (MonadIO m, SocketK a) => - a -> -- _obj - T.Text -> -- plug_id - m () -socketEmbed _obj plug_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - plug_id' <- textToCString plug_id - atk_socket_embed _obj' plug_id' - touchManagedPtr _obj - freeMem plug_id' - return () - --- method Socket::is_occupied --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_socket_is_occupied" atk_socket_is_occupied :: - Ptr Socket -> -- _obj : TInterface "Atk" "Socket" - IO CInt - - -socketIsOccupied :: - (MonadIO m, SocketK a) => - a -> -- _obj - m Bool -socketIsOccupied _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_socket_is_occupied _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- object StateSet -newtype StateSet = StateSet (ForeignPtr StateSet) -noStateSet :: Maybe StateSet -noStateSet = Nothing - -foreign import ccall "atk_state_set_get_type" - c_atk_state_set_get_type :: IO GType - -type instance ParentTypes StateSet = '[GObject.Object] - -instance GObject StateSet where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_state_set_get_type - - -class GObject o => StateSetK o -instance (GObject o, IsDescendantOf StateSet o) => StateSetK o - -toStateSet :: StateSetK o => o -> IO StateSet -toStateSet = unsafeCastTo StateSet - --- method StateSet::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Atk" "StateSet" --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_new" atk_state_set_new :: - IO (Ptr StateSet) - - -stateSetNew :: - (MonadIO m) => - m StateSet -stateSetNew = liftIO $ do - result <- atk_state_set_new - checkUnexpectedReturnNULL "atk_state_set_new" result - result' <- (wrapObject StateSet) result - return result' - --- method StateSet::add_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_add_state" atk_state_set_add_state :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - CUInt -> -- type : TInterface "Atk" "StateType" - IO CInt - - -stateSetAddState :: - (MonadIO m, StateSetK a) => - a -> -- _obj - StateType -> -- type - m Bool -stateSetAddState _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - result <- atk_state_set_add_state _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method StateSet::add_states --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_add_states" atk_state_set_add_states :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - Ptr CUInt -> -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType") - Int32 -> -- n_types : TBasicType TInt32 - IO () - - -stateSetAddStates :: - (MonadIO m, StateSetK a) => - a -> -- _obj - [StateType] -> -- types - m () -stateSetAddStates _obj types = liftIO $ do - let n_types = fromIntegral $ length types - let _obj' = unsafeManagedPtrCastPtr _obj - let types' = map (fromIntegral . fromEnum) types - types'' <- packStorableArray types' - atk_state_set_add_states _obj' types'' n_types - touchManagedPtr _obj - freeMem types'' - return () - --- method StateSet::and_sets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "StateSet" --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_and_sets" atk_state_set_and_sets :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - Ptr StateSet -> -- compare_set : TInterface "Atk" "StateSet" - IO (Ptr StateSet) - - -stateSetAndSets :: - (MonadIO m, StateSetK a, StateSetK b) => - a -> -- _obj - b -> -- compare_set - m StateSet -stateSetAndSets _obj compare_set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let compare_set' = unsafeManagedPtrCastPtr compare_set - result <- atk_state_set_and_sets _obj' compare_set' - checkUnexpectedReturnNULL "atk_state_set_and_sets" result - result' <- (wrapObject StateSet) result - touchManagedPtr _obj - touchManagedPtr compare_set - return result' - --- method StateSet::clear_states --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_clear_states" atk_state_set_clear_states :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - IO () - - -stateSetClearStates :: - (MonadIO m, StateSetK a) => - a -> -- _obj - m () -stateSetClearStates _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - atk_state_set_clear_states _obj' - touchManagedPtr _obj - return () - --- method StateSet::contains_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_contains_state" atk_state_set_contains_state :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - CUInt -> -- type : TInterface "Atk" "StateType" - IO CInt - - -stateSetContainsState :: - (MonadIO m, StateSetK a) => - a -> -- _obj - StateType -> -- type - m Bool -stateSetContainsState _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - result <- atk_state_set_contains_state _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method StateSet::contains_states --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_contains_states" atk_state_set_contains_states :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - Ptr CUInt -> -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType") - Int32 -> -- n_types : TBasicType TInt32 - IO CInt - - -stateSetContainsStates :: - (MonadIO m, StateSetK a) => - a -> -- _obj - [StateType] -> -- types - m Bool -stateSetContainsStates _obj types = liftIO $ do - let n_types = fromIntegral $ length types - let _obj' = unsafeManagedPtrCastPtr _obj - let types' = map (fromIntegral . fromEnum) types - types'' <- packStorableArray types' - result <- atk_state_set_contains_states _obj' types'' n_types - let result' = (/= 0) result - touchManagedPtr _obj - freeMem types'' - return result' - --- method StateSet::is_empty --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_is_empty" atk_state_set_is_empty :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - IO CInt - - -stateSetIsEmpty :: - (MonadIO m, StateSetK a) => - a -> -- _obj - m Bool -stateSetIsEmpty _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_state_set_is_empty _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method StateSet::or_sets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "StateSet" --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_or_sets" atk_state_set_or_sets :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - Ptr StateSet -> -- compare_set : TInterface "Atk" "StateSet" - IO (Ptr StateSet) - - -stateSetOrSets :: - (MonadIO m, StateSetK a, StateSetK b) => - a -> -- _obj - b -> -- compare_set - m StateSet -stateSetOrSets _obj compare_set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let compare_set' = unsafeManagedPtrCastPtr compare_set - result <- atk_state_set_or_sets _obj' compare_set' - checkUnexpectedReturnNULL "atk_state_set_or_sets" result - result' <- (wrapObject StateSet) result - touchManagedPtr _obj - touchManagedPtr compare_set - return result' - --- method StateSet::remove_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_remove_state" atk_state_set_remove_state :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - CUInt -> -- type : TInterface "Atk" "StateType" - IO CInt - - -stateSetRemoveState :: - (MonadIO m, StateSetK a) => - a -> -- _obj - StateType -> -- type - m Bool -stateSetRemoveState _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - result <- atk_state_set_remove_state _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method StateSet::xor_sets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "StateSet" --- throws : False --- Skip return : False - -foreign import ccall "atk_state_set_xor_sets" atk_state_set_xor_sets :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" - Ptr StateSet -> -- compare_set : TInterface "Atk" "StateSet" - IO (Ptr StateSet) - - -stateSetXorSets :: - (MonadIO m, StateSetK a, StateSetK b) => - a -> -- _obj - b -> -- compare_set - m StateSet -stateSetXorSets _obj compare_set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let compare_set' = unsafeManagedPtrCastPtr compare_set - result <- atk_state_set_xor_sets _obj' compare_set' - checkUnexpectedReturnNULL "atk_state_set_xor_sets" result - result' <- (wrapObject StateSet) result - touchManagedPtr _obj - touchManagedPtr compare_set - return result' - --- Enum StateType - -data StateType = - StateTypeInvalid - | StateTypeActive - | StateTypeArmed - | StateTypeBusy - | StateTypeChecked - | StateTypeDefunct - | StateTypeEditable - | StateTypeEnabled - | StateTypeExpandable - | StateTypeExpanded - | StateTypeFocusable - | StateTypeFocused - | StateTypeHorizontal - | StateTypeIconified - | StateTypeModal - | StateTypeMultiLine - | StateTypeMultiselectable - | StateTypeOpaque - | StateTypePressed - | StateTypeResizable - | StateTypeSelectable - | StateTypeSelected - | StateTypeSensitive - | StateTypeShowing - | StateTypeSingleLine - | StateTypeStale - | StateTypeTransient - | StateTypeVertical - | StateTypeVisible - | StateTypeManagesDescendants - | StateTypeIndeterminate - | StateTypeTruncated - | StateTypeRequired - | StateTypeInvalidEntry - | StateTypeSupportsAutocompletion - | StateTypeSelectableText - | StateTypeDefault - | StateTypeAnimated - | StateTypeVisited - | StateTypeCheckable - | StateTypeHasPopup - | StateTypeHasTooltip - | StateTypeReadOnly - | StateTypeLastDefined - | AnotherStateType Int - deriving (Show, Eq) - -instance Enum StateType where - fromEnum StateTypeInvalid = 0 - fromEnum StateTypeActive = 1 - fromEnum StateTypeArmed = 2 - fromEnum StateTypeBusy = 3 - fromEnum StateTypeChecked = 4 - fromEnum StateTypeDefunct = 5 - fromEnum StateTypeEditable = 6 - fromEnum StateTypeEnabled = 7 - fromEnum StateTypeExpandable = 8 - fromEnum StateTypeExpanded = 9 - fromEnum StateTypeFocusable = 10 - fromEnum StateTypeFocused = 11 - fromEnum StateTypeHorizontal = 12 - fromEnum StateTypeIconified = 13 - fromEnum StateTypeModal = 14 - fromEnum StateTypeMultiLine = 15 - fromEnum StateTypeMultiselectable = 16 - fromEnum StateTypeOpaque = 17 - fromEnum StateTypePressed = 18 - fromEnum StateTypeResizable = 19 - fromEnum StateTypeSelectable = 20 - fromEnum StateTypeSelected = 21 - fromEnum StateTypeSensitive = 22 - fromEnum StateTypeShowing = 23 - fromEnum StateTypeSingleLine = 24 - fromEnum StateTypeStale = 25 - fromEnum StateTypeTransient = 26 - fromEnum StateTypeVertical = 27 - fromEnum StateTypeVisible = 28 - fromEnum StateTypeManagesDescendants = 29 - fromEnum StateTypeIndeterminate = 30 - fromEnum StateTypeTruncated = 31 - fromEnum StateTypeRequired = 32 - fromEnum StateTypeInvalidEntry = 33 - fromEnum StateTypeSupportsAutocompletion = 34 - fromEnum StateTypeSelectableText = 35 - fromEnum StateTypeDefault = 36 - fromEnum StateTypeAnimated = 37 - fromEnum StateTypeVisited = 38 - fromEnum StateTypeCheckable = 39 - fromEnum StateTypeHasPopup = 40 - fromEnum StateTypeHasTooltip = 41 - fromEnum StateTypeReadOnly = 42 - fromEnum StateTypeLastDefined = 43 - fromEnum (AnotherStateType k) = k - - toEnum 0 = StateTypeInvalid - toEnum 1 = StateTypeActive - toEnum 2 = StateTypeArmed - toEnum 3 = StateTypeBusy - toEnum 4 = StateTypeChecked - toEnum 5 = StateTypeDefunct - toEnum 6 = StateTypeEditable - toEnum 7 = StateTypeEnabled - toEnum 8 = StateTypeExpandable - toEnum 9 = StateTypeExpanded - toEnum 10 = StateTypeFocusable - toEnum 11 = StateTypeFocused - toEnum 12 = StateTypeHorizontal - toEnum 13 = StateTypeIconified - toEnum 14 = StateTypeModal - toEnum 15 = StateTypeMultiLine - toEnum 16 = StateTypeMultiselectable - toEnum 17 = StateTypeOpaque - toEnum 18 = StateTypePressed - toEnum 19 = StateTypeResizable - toEnum 20 = StateTypeSelectable - toEnum 21 = StateTypeSelected - toEnum 22 = StateTypeSensitive - toEnum 23 = StateTypeShowing - toEnum 24 = StateTypeSingleLine - toEnum 25 = StateTypeStale - toEnum 26 = StateTypeTransient - toEnum 27 = StateTypeVertical - toEnum 28 = StateTypeVisible - toEnum 29 = StateTypeManagesDescendants - toEnum 30 = StateTypeIndeterminate - toEnum 31 = StateTypeTruncated - toEnum 32 = StateTypeRequired - toEnum 33 = StateTypeInvalidEntry - toEnum 34 = StateTypeSupportsAutocompletion - toEnum 35 = StateTypeSelectableText - toEnum 36 = StateTypeDefault - toEnum 37 = StateTypeAnimated - toEnum 38 = StateTypeVisited - toEnum 39 = StateTypeCheckable - toEnum 40 = StateTypeHasPopup - toEnum 41 = StateTypeHasTooltip - toEnum 42 = StateTypeReadOnly - toEnum 43 = StateTypeLastDefined - toEnum k = AnotherStateType k - -foreign import ccall "atk_state_type_get_type" c_atk_state_type_get_type :: - IO GType - -instance BoxedEnum StateType where - boxedEnumType _ = c_atk_state_type_get_type - --- interface StreamableContent - -newtype StreamableContent = StreamableContent (ForeignPtr StreamableContent) -noStreamableContent :: Maybe StreamableContent -noStreamableContent = Nothing - -class ForeignPtrNewtype a => StreamableContentK a -instance (ForeignPtrNewtype o, IsDescendantOf StreamableContent o) => StreamableContentK o -type instance ParentTypes StreamableContent = '[] - --- method StreamableContent::get_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_streamable_content_get_mime_type" atk_streamable_content_get_mime_type :: - Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent" - Int32 -> -- i : TBasicType TInt32 - IO CString - - -streamableContentGetMimeType :: - (MonadIO m, StreamableContentK a) => - a -> -- _obj - Int32 -> -- i - m T.Text -streamableContentGetMimeType _obj i = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_streamable_content_get_mime_type _obj' i - checkUnexpectedReturnNULL "atk_streamable_content_get_mime_type" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method StreamableContent::get_n_mime_types --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_streamable_content_get_n_mime_types" atk_streamable_content_get_n_mime_types :: - Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent" - IO Int32 - - -streamableContentGetNMimeTypes :: - (MonadIO m, StreamableContentK a) => - a -> -- _obj - m Int32 -streamableContentGetNMimeTypes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_streamable_content_get_n_mime_types _obj' - touchManagedPtr _obj - return result - --- method StreamableContent::get_stream --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOChannel" --- throws : False --- Skip return : False - -foreign import ccall "atk_streamable_content_get_stream" atk_streamable_content_get_stream :: - Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent" - CString -> -- mime_type : TBasicType TUTF8 - IO (Ptr GLib.IOChannel) - - -streamableContentGetStream :: - (MonadIO m, StreamableContentK a) => - a -> -- _obj - T.Text -> -- mime_type - m GLib.IOChannel -streamableContentGetStream _obj mime_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - result <- atk_streamable_content_get_stream _obj' mime_type' - checkUnexpectedReturnNULL "atk_streamable_content_get_stream" result - result' <- (wrapBoxed GLib.IOChannel) result - touchManagedPtr _obj - freeMem mime_type' - return result' - --- method StreamableContent::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_streamable_content_get_uri" atk_streamable_content_get_uri :: - Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent" - CString -> -- mime_type : TBasicType TUTF8 - IO CString - - -streamableContentGetUri :: - (MonadIO m, StreamableContentK a) => - a -> -- _obj - T.Text -> -- mime_type - m T.Text -streamableContentGetUri _obj mime_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - result <- atk_streamable_content_get_uri _obj' mime_type' - checkUnexpectedReturnNULL "atk_streamable_content_get_uri" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem mime_type' - return result' - --- interface Table - -newtype Table = Table (ForeignPtr Table) -noTable :: Maybe Table -noTable = Nothing - -class ForeignPtrNewtype a => TableK a -instance (ForeignPtrNewtype o, IsDescendantOf Table o) => TableK o -type instance ParentTypes Table = '[] - --- method Table::add_column_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_table_add_column_selection" atk_table_add_column_selection :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- column : TBasicType TInt32 - IO CInt - - -tableAddColumnSelection :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- column - m Bool -tableAddColumnSelection _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_add_column_selection _obj' column - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Table::add_row_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_table_add_row_selection" atk_table_add_row_selection :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - IO CInt - - -tableAddRowSelection :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - m Bool -tableAddRowSelection _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_add_row_selection _obj' row - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Table::get_caption --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_caption" atk_table_get_caption :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - IO (Ptr Object) - - -tableGetCaption :: - (MonadIO m, TableK a) => - a -> -- _obj - m Object -tableGetCaption _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_caption _obj' - checkUnexpectedReturnNULL "atk_table_get_caption" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Table::get_column_at_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_column_at_index" atk_table_get_column_at_index :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- index_ : TBasicType TInt32 - IO Int32 - -{-# DEPRECATED tableGetColumnAtIndex ["Since 2.12."]#-} -tableGetColumnAtIndex :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- index_ - m Int32 -tableGetColumnAtIndex _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_column_at_index _obj' index_ - touchManagedPtr _obj - return result - --- method Table::get_column_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_column_description" atk_table_get_column_description :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- column : TBasicType TInt32 - IO CString - - -tableGetColumnDescription :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- column - m T.Text -tableGetColumnDescription _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_column_description _obj' column - checkUnexpectedReturnNULL "atk_table_get_column_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Table::get_column_extent_at --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_column_extent_at" atk_table_get_column_extent_at :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - Int32 -> -- column : TBasicType TInt32 - IO Int32 - - -tableGetColumnExtentAt :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - Int32 -> -- column - m Int32 -tableGetColumnExtentAt _obj row column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_column_extent_at _obj' row column - touchManagedPtr _obj - return result - --- method Table::get_column_header --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_column_header" atk_table_get_column_header :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- column : TBasicType TInt32 - IO (Ptr Object) - - -tableGetColumnHeader :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- column - m Object -tableGetColumnHeader _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_column_header _obj' column - checkUnexpectedReturnNULL "atk_table_get_column_header" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Table::get_index_at --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_index_at" atk_table_get_index_at :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - Int32 -> -- column : TBasicType TInt32 - IO Int32 - -{-# DEPRECATED tableGetIndexAt ["Since 2.12. Use atk_table_ref_at() in order to get the","accessible that represents the cell at (@row, @column)"]#-} -tableGetIndexAt :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - Int32 -> -- column - m Int32 -tableGetIndexAt _obj row column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_index_at _obj' row column - touchManagedPtr _obj - return result - --- method Table::get_n_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_n_columns" atk_table_get_n_columns :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - IO Int32 - - -tableGetNColumns :: - (MonadIO m, TableK a) => - a -> -- _obj - m Int32 -tableGetNColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_n_columns _obj' - touchManagedPtr _obj - return result - --- method Table::get_n_rows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_n_rows" atk_table_get_n_rows :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - IO Int32 - - -tableGetNRows :: - (MonadIO m, TableK a) => - a -> -- _obj - m Int32 -tableGetNRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_n_rows _obj' - touchManagedPtr _obj - return result - --- method Table::get_row_at_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_row_at_index" atk_table_get_row_at_index :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- index_ : TBasicType TInt32 - IO Int32 - -{-# DEPRECATED tableGetRowAtIndex ["since 2.12."]#-} -tableGetRowAtIndex :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- index_ - m Int32 -tableGetRowAtIndex _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_row_at_index _obj' index_ - touchManagedPtr _obj - return result - --- method Table::get_row_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_row_description" atk_table_get_row_description :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - IO CString - - -tableGetRowDescription :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - m T.Text -tableGetRowDescription _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_row_description _obj' row - checkUnexpectedReturnNULL "atk_table_get_row_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Table::get_row_extent_at --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_row_extent_at" atk_table_get_row_extent_at :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - Int32 -> -- column : TBasicType TInt32 - IO Int32 - - -tableGetRowExtentAt :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - Int32 -> -- column - m Int32 -tableGetRowExtentAt _obj row column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_row_extent_at _obj' row column - touchManagedPtr _obj - return result - --- method Table::get_row_header --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_row_header" atk_table_get_row_header :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - IO (Ptr Object) - - -tableGetRowHeader :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - m Object -tableGetRowHeader _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_row_header _obj' row - checkUnexpectedReturnNULL "atk_table_get_row_header" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Table::get_selected_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_selected_columns" atk_table_get_selected_columns :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- selected : TBasicType TInt32 - IO Int32 - - -tableGetSelectedColumns :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- selected - m Int32 -tableGetSelectedColumns _obj selected = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_selected_columns _obj' selected - touchManagedPtr _obj - return result - --- method Table::get_selected_rows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_selected_rows" atk_table_get_selected_rows :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- selected : TBasicType TInt32 - IO Int32 - - -tableGetSelectedRows :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- selected - m Int32 -tableGetSelectedRows _obj selected = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_selected_rows _obj' selected - touchManagedPtr _obj - return result - --- method Table::get_summary --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_table_get_summary" atk_table_get_summary :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - IO (Ptr Object) - - -tableGetSummary :: - (MonadIO m, TableK a) => - a -> -- _obj - m Object -tableGetSummary _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_get_summary _obj' - checkUnexpectedReturnNULL "atk_table_get_summary" result - result' <- (wrapObject Object) result - touchManagedPtr _obj - return result' - --- method Table::is_column_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_table_is_column_selected" atk_table_is_column_selected :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- column : TBasicType TInt32 - IO CInt - - -tableIsColumnSelected :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- column - m Bool -tableIsColumnSelected _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_is_column_selected _obj' column - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Table::is_row_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_table_is_row_selected" atk_table_is_row_selected :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - IO CInt - - -tableIsRowSelected :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - m Bool -tableIsRowSelected _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_is_row_selected _obj' row - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Table::is_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_table_is_selected" atk_table_is_selected :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - Int32 -> -- column : TBasicType TInt32 - IO CInt - - -tableIsSelected :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - Int32 -> -- column - m Bool -tableIsSelected _obj row column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_is_selected _obj' row column - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Table::ref_at --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_table_ref_at" atk_table_ref_at :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - Int32 -> -- column : TBasicType TInt32 - IO (Ptr Object) - - -tableRefAt :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - Int32 -> -- column - m Object -tableRefAt _obj row column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_ref_at _obj' row column - checkUnexpectedReturnNULL "atk_table_ref_at" result - result' <- (wrapObject Object) result - touchManagedPtr _obj - return result' - --- method Table::remove_column_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_table_remove_column_selection" atk_table_remove_column_selection :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- column : TBasicType TInt32 - IO CInt - - -tableRemoveColumnSelection :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- column - m Bool -tableRemoveColumnSelection _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_remove_column_selection _obj' column - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Table::remove_row_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_table_remove_row_selection" atk_table_remove_row_selection :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - IO CInt - - -tableRemoveRowSelection :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - m Bool -tableRemoveRowSelection _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_remove_row_selection _obj' row - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Table::set_caption --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_table_set_caption" atk_table_set_caption :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Ptr Object -> -- caption : TInterface "Atk" "Object" - IO () - - -tableSetCaption :: - (MonadIO m, TableK a, ObjectK b) => - a -> -- _obj - b -> -- caption - m () -tableSetCaption _obj caption = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let caption' = unsafeManagedPtrCastPtr caption - atk_table_set_caption _obj' caption' - touchManagedPtr _obj - touchManagedPtr caption - return () - --- method Table::set_column_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_table_set_column_description" atk_table_set_column_description :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- column : TBasicType TInt32 - CString -> -- description : TBasicType TUTF8 - IO () - - -tableSetColumnDescription :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- column - T.Text -> -- description - m () -tableSetColumnDescription _obj column description = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - description' <- textToCString description - atk_table_set_column_description _obj' column description' - touchManagedPtr _obj - freeMem description' - return () - --- method Table::set_column_header --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_table_set_column_header" atk_table_set_column_header :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- column : TBasicType TInt32 - Ptr Object -> -- header : TInterface "Atk" "Object" - IO () - - -tableSetColumnHeader :: - (MonadIO m, TableK a, ObjectK b) => - a -> -- _obj - Int32 -> -- column - b -> -- header - m () -tableSetColumnHeader _obj column header = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let header' = unsafeManagedPtrCastPtr header - atk_table_set_column_header _obj' column header' - touchManagedPtr _obj - touchManagedPtr header - return () - --- method Table::set_row_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_table_set_row_description" atk_table_set_row_description :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - CString -> -- description : TBasicType TUTF8 - IO () - - -tableSetRowDescription :: - (MonadIO m, TableK a) => - a -> -- _obj - Int32 -> -- row - T.Text -> -- description - m () -tableSetRowDescription _obj row description = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - description' <- textToCString description - atk_table_set_row_description _obj' row description' - touchManagedPtr _obj - freeMem description' - return () - --- method Table::set_row_header --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_table_set_row_header" atk_table_set_row_header :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Int32 -> -- row : TBasicType TInt32 - Ptr Object -> -- header : TInterface "Atk" "Object" - IO () - - -tableSetRowHeader :: - (MonadIO m, TableK a, ObjectK b) => - a -> -- _obj - Int32 -> -- row - b -> -- header - m () -tableSetRowHeader _obj row header = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let header' = unsafeManagedPtrCastPtr header - atk_table_set_row_header _obj' row header' - touchManagedPtr _obj - touchManagedPtr header - return () - --- method Table::set_summary --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_table_set_summary" atk_table_set_summary :: - Ptr Table -> -- _obj : TInterface "Atk" "Table" - Ptr Object -> -- accessible : TInterface "Atk" "Object" - IO () - - -tableSetSummary :: - (MonadIO m, TableK a, ObjectK b) => - a -> -- _obj - b -> -- accessible - m () -tableSetSummary _obj accessible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accessible' = unsafeManagedPtrCastPtr accessible - atk_table_set_summary _obj' accessible' - touchManagedPtr _obj - touchManagedPtr accessible - return () - --- signal Table::column-deleted -type TableColumnDeletedCallback = - Int32 -> - Int32 -> - IO () - -noTableColumnDeletedCallback :: Maybe TableColumnDeletedCallback -noTableColumnDeletedCallback = Nothing - -type TableColumnDeletedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTableColumnDeletedCallback :: TableColumnDeletedCallbackC -> IO (FunPtr TableColumnDeletedCallbackC) - -tableColumnDeletedClosure :: TableColumnDeletedCallback -> IO Closure -tableColumnDeletedClosure cb = newCClosure =<< mkTableColumnDeletedCallback wrapped - where wrapped = tableColumnDeletedCallbackWrapper cb - -tableColumnDeletedCallbackWrapper :: - TableColumnDeletedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO () -tableColumnDeletedCallbackWrapper _cb _ arg1 arg2 _ = do - _cb arg1 arg2 - -onTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId -onTableColumnDeleted obj cb = liftIO $ connectTableColumnDeleted obj cb SignalConnectBefore -afterTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId -afterTableColumnDeleted obj cb = connectTableColumnDeleted obj cb SignalConnectAfter - -connectTableColumnDeleted :: (GObject a, MonadIO m) => - a -> TableColumnDeletedCallback -> SignalConnectMode -> m SignalHandlerId -connectTableColumnDeleted obj cb after = liftIO $ do - cb' <- mkTableColumnDeletedCallback (tableColumnDeletedCallbackWrapper cb) - connectSignalFunPtr obj "column-deleted" cb' after - --- signal Table::column-inserted -type TableColumnInsertedCallback = - Int32 -> - Int32 -> - IO () - -noTableColumnInsertedCallback :: Maybe TableColumnInsertedCallback -noTableColumnInsertedCallback = Nothing - -type TableColumnInsertedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTableColumnInsertedCallback :: TableColumnInsertedCallbackC -> IO (FunPtr TableColumnInsertedCallbackC) - -tableColumnInsertedClosure :: TableColumnInsertedCallback -> IO Closure -tableColumnInsertedClosure cb = newCClosure =<< mkTableColumnInsertedCallback wrapped - where wrapped = tableColumnInsertedCallbackWrapper cb - -tableColumnInsertedCallbackWrapper :: - TableColumnInsertedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO () -tableColumnInsertedCallbackWrapper _cb _ arg1 arg2 _ = do - _cb arg1 arg2 - -onTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId -onTableColumnInserted obj cb = liftIO $ connectTableColumnInserted obj cb SignalConnectBefore -afterTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId -afterTableColumnInserted obj cb = connectTableColumnInserted obj cb SignalConnectAfter - -connectTableColumnInserted :: (GObject a, MonadIO m) => - a -> TableColumnInsertedCallback -> SignalConnectMode -> m SignalHandlerId -connectTableColumnInserted obj cb after = liftIO $ do - cb' <- mkTableColumnInsertedCallback (tableColumnInsertedCallbackWrapper cb) - connectSignalFunPtr obj "column-inserted" cb' after - --- signal Table::column-reordered -type TableColumnReorderedCallback = - IO () - -noTableColumnReorderedCallback :: Maybe TableColumnReorderedCallback -noTableColumnReorderedCallback = Nothing - -type TableColumnReorderedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTableColumnReorderedCallback :: TableColumnReorderedCallbackC -> IO (FunPtr TableColumnReorderedCallbackC) - -tableColumnReorderedClosure :: TableColumnReorderedCallback -> IO Closure -tableColumnReorderedClosure cb = newCClosure =<< mkTableColumnReorderedCallback wrapped - where wrapped = tableColumnReorderedCallbackWrapper cb - -tableColumnReorderedCallbackWrapper :: - TableColumnReorderedCallback -> - Ptr () -> - Ptr () -> - IO () -tableColumnReorderedCallbackWrapper _cb _ _ = do - _cb - -onTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId -onTableColumnReordered obj cb = liftIO $ connectTableColumnReordered obj cb SignalConnectBefore -afterTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId -afterTableColumnReordered obj cb = connectTableColumnReordered obj cb SignalConnectAfter - -connectTableColumnReordered :: (GObject a, MonadIO m) => - a -> TableColumnReorderedCallback -> SignalConnectMode -> m SignalHandlerId -connectTableColumnReordered obj cb after = liftIO $ do - cb' <- mkTableColumnReorderedCallback (tableColumnReorderedCallbackWrapper cb) - connectSignalFunPtr obj "column-reordered" cb' after - --- signal Table::model-changed -type TableModelChangedCallback = - IO () - -noTableModelChangedCallback :: Maybe TableModelChangedCallback -noTableModelChangedCallback = Nothing - -type TableModelChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTableModelChangedCallback :: TableModelChangedCallbackC -> IO (FunPtr TableModelChangedCallbackC) - -tableModelChangedClosure :: TableModelChangedCallback -> IO Closure -tableModelChangedClosure cb = newCClosure =<< mkTableModelChangedCallback wrapped - where wrapped = tableModelChangedCallbackWrapper cb - -tableModelChangedCallbackWrapper :: - TableModelChangedCallback -> - Ptr () -> - Ptr () -> - IO () -tableModelChangedCallbackWrapper _cb _ _ = do - _cb - -onTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId -onTableModelChanged obj cb = liftIO $ connectTableModelChanged obj cb SignalConnectBefore -afterTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId -afterTableModelChanged obj cb = connectTableModelChanged obj cb SignalConnectAfter - -connectTableModelChanged :: (GObject a, MonadIO m) => - a -> TableModelChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTableModelChanged obj cb after = liftIO $ do - cb' <- mkTableModelChangedCallback (tableModelChangedCallbackWrapper cb) - connectSignalFunPtr obj "model-changed" cb' after - --- signal Table::row-deleted -type TableRowDeletedCallback = - Int32 -> - Int32 -> - IO () - -noTableRowDeletedCallback :: Maybe TableRowDeletedCallback -noTableRowDeletedCallback = Nothing - -type TableRowDeletedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTableRowDeletedCallback :: TableRowDeletedCallbackC -> IO (FunPtr TableRowDeletedCallbackC) - -tableRowDeletedClosure :: TableRowDeletedCallback -> IO Closure -tableRowDeletedClosure cb = newCClosure =<< mkTableRowDeletedCallback wrapped - where wrapped = tableRowDeletedCallbackWrapper cb - -tableRowDeletedCallbackWrapper :: - TableRowDeletedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO () -tableRowDeletedCallbackWrapper _cb _ arg1 arg2 _ = do - _cb arg1 arg2 - -onTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId -onTableRowDeleted obj cb = liftIO $ connectTableRowDeleted obj cb SignalConnectBefore -afterTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId -afterTableRowDeleted obj cb = connectTableRowDeleted obj cb SignalConnectAfter - -connectTableRowDeleted :: (GObject a, MonadIO m) => - a -> TableRowDeletedCallback -> SignalConnectMode -> m SignalHandlerId -connectTableRowDeleted obj cb after = liftIO $ do - cb' <- mkTableRowDeletedCallback (tableRowDeletedCallbackWrapper cb) - connectSignalFunPtr obj "row-deleted" cb' after - --- signal Table::row-inserted -type TableRowInsertedCallback = - Int32 -> - Int32 -> - IO () - -noTableRowInsertedCallback :: Maybe TableRowInsertedCallback -noTableRowInsertedCallback = Nothing - -type TableRowInsertedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTableRowInsertedCallback :: TableRowInsertedCallbackC -> IO (FunPtr TableRowInsertedCallbackC) - -tableRowInsertedClosure :: TableRowInsertedCallback -> IO Closure -tableRowInsertedClosure cb = newCClosure =<< mkTableRowInsertedCallback wrapped - where wrapped = tableRowInsertedCallbackWrapper cb - -tableRowInsertedCallbackWrapper :: - TableRowInsertedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO () -tableRowInsertedCallbackWrapper _cb _ arg1 arg2 _ = do - _cb arg1 arg2 - -onTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId -onTableRowInserted obj cb = liftIO $ connectTableRowInserted obj cb SignalConnectBefore -afterTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId -afterTableRowInserted obj cb = connectTableRowInserted obj cb SignalConnectAfter - -connectTableRowInserted :: (GObject a, MonadIO m) => - a -> TableRowInsertedCallback -> SignalConnectMode -> m SignalHandlerId -connectTableRowInserted obj cb after = liftIO $ do - cb' <- mkTableRowInsertedCallback (tableRowInsertedCallbackWrapper cb) - connectSignalFunPtr obj "row-inserted" cb' after - --- signal Table::row-reordered -type TableRowReorderedCallback = - IO () - -noTableRowReorderedCallback :: Maybe TableRowReorderedCallback -noTableRowReorderedCallback = Nothing - -type TableRowReorderedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTableRowReorderedCallback :: TableRowReorderedCallbackC -> IO (FunPtr TableRowReorderedCallbackC) - -tableRowReorderedClosure :: TableRowReorderedCallback -> IO Closure -tableRowReorderedClosure cb = newCClosure =<< mkTableRowReorderedCallback wrapped - where wrapped = tableRowReorderedCallbackWrapper cb - -tableRowReorderedCallbackWrapper :: - TableRowReorderedCallback -> - Ptr () -> - Ptr () -> - IO () -tableRowReorderedCallbackWrapper _cb _ _ = do - _cb - -onTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId -onTableRowReordered obj cb = liftIO $ connectTableRowReordered obj cb SignalConnectBefore -afterTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId -afterTableRowReordered obj cb = connectTableRowReordered obj cb SignalConnectAfter - -connectTableRowReordered :: (GObject a, MonadIO m) => - a -> TableRowReorderedCallback -> SignalConnectMode -> m SignalHandlerId -connectTableRowReordered obj cb after = liftIO $ do - cb' <- mkTableRowReorderedCallback (tableRowReorderedCallbackWrapper cb) - connectSignalFunPtr obj "row-reordered" cb' after - --- interface TableCell - -newtype TableCell = TableCell (ForeignPtr TableCell) -noTableCell :: Maybe TableCell -noTableCell = Nothing - -foreign import ccall "atk_table_cell_get_type" - c_atk_table_cell_get_type :: IO GType - -type instance ParentTypes TableCell = '[Object, GObject.Object] - -instance GObject TableCell where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_table_cell_get_type - - -class GObject o => TableCellK o -instance (GObject o, IsDescendantOf TableCell o) => TableCellK o - -toTableCell :: TableCellK o => o -> IO TableCell -toTableCell = unsafeCastTo TableCell - --- method TableCell::get_column_header_cells --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TPtrArray (TInterface "Atk" "Object") --- throws : False --- Skip return : False - -foreign import ccall "atk_table_cell_get_column_header_cells" atk_table_cell_get_column_header_cells :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" - IO (Ptr (GPtrArray (Ptr Object))) - - -tableCellGetColumnHeaderCells :: - (MonadIO m, TableCellK a) => - a -> -- _obj - m [Object] -tableCellGetColumnHeaderCells _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_cell_get_column_header_cells _obj' - checkUnexpectedReturnNULL "atk_table_cell_get_column_header_cells" result - result' <- unpackGPtrArray result - result'' <- mapM (wrapObject Object) result' - unrefPtrArray result - touchManagedPtr _obj - return result'' - --- method TableCell::get_column_span --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_cell_get_column_span" atk_table_cell_get_column_span :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" - IO Int32 - - -tableCellGetColumnSpan :: - (MonadIO m, TableCellK a) => - a -> -- _obj - m Int32 -tableCellGetColumnSpan _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_cell_get_column_span _obj' - touchManagedPtr _obj - return result - --- method TableCell::get_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_table_cell_get_position" atk_table_cell_get_position :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" - Ptr Int32 -> -- row : TBasicType TInt32 - Ptr Int32 -> -- column : TBasicType TInt32 - IO CInt - - -tableCellGetPosition :: - (MonadIO m, TableCellK a) => - a -> -- _obj - m (Bool,Int32,Int32) -tableCellGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - row <- allocMem :: IO (Ptr Int32) - column <- allocMem :: IO (Ptr Int32) - result <- atk_table_cell_get_position _obj' row column - let result' = (/= 0) result - row' <- peek row - column' <- peek column - touchManagedPtr _obj - freeMem row - freeMem column - return (result', row', column') - --- method TableCell::get_row_column_span --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_table_cell_get_row_column_span" atk_table_cell_get_row_column_span :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" - Ptr Int32 -> -- row : TBasicType TInt32 - Ptr Int32 -> -- column : TBasicType TInt32 - Ptr Int32 -> -- row_span : TBasicType TInt32 - Ptr Int32 -> -- column_span : TBasicType TInt32 - IO CInt - - -tableCellGetRowColumnSpan :: - (MonadIO m, TableCellK a) => - a -> -- _obj - m (Bool,Int32,Int32,Int32,Int32) -tableCellGetRowColumnSpan _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - row <- allocMem :: IO (Ptr Int32) - column <- allocMem :: IO (Ptr Int32) - row_span <- allocMem :: IO (Ptr Int32) - column_span <- allocMem :: IO (Ptr Int32) - result <- atk_table_cell_get_row_column_span _obj' row column row_span column_span - let result' = (/= 0) result - row' <- peek row - column' <- peek column - row_span' <- peek row_span - column_span' <- peek column_span - touchManagedPtr _obj - freeMem row - freeMem column - freeMem row_span - freeMem column_span - return (result', row', column', row_span', column_span') - --- method TableCell::get_row_header_cells --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TPtrArray (TInterface "Atk" "Object") --- throws : False --- Skip return : False - -foreign import ccall "atk_table_cell_get_row_header_cells" atk_table_cell_get_row_header_cells :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" - IO (Ptr (GPtrArray (Ptr Object))) - - -tableCellGetRowHeaderCells :: - (MonadIO m, TableCellK a) => - a -> -- _obj - m [Object] -tableCellGetRowHeaderCells _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_cell_get_row_header_cells _obj' - checkUnexpectedReturnNULL "atk_table_cell_get_row_header_cells" result - result' <- unpackGPtrArray result - result'' <- mapM (wrapObject Object) result' - unrefPtrArray result - touchManagedPtr _obj - return result'' - --- method TableCell::get_row_span --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_table_cell_get_row_span" atk_table_cell_get_row_span :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" - IO Int32 - - -tableCellGetRowSpan :: - (MonadIO m, TableCellK a) => - a -> -- _obj - m Int32 -tableCellGetRowSpan _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_cell_get_row_span _obj' - touchManagedPtr _obj - return result - --- method TableCell::get_table --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_table_cell_get_table" atk_table_cell_get_table :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" - IO (Ptr Object) - - -tableCellGetTable :: - (MonadIO m, TableCellK a) => - a -> -- _obj - m Object -tableCellGetTable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_table_cell_get_table _obj' - checkUnexpectedReturnNULL "atk_table_cell_get_table" result - result' <- (wrapObject Object) result - touchManagedPtr _obj - return result' - --- interface Text - -newtype Text = Text (ForeignPtr Text) -noText :: Maybe Text -noText = Nothing - -class ForeignPtrNewtype a => TextK a -instance (ForeignPtrNewtype o, IsDescendantOf Text o) => TextK o -type instance ParentTypes Text = '[] - --- method Text::add_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_text_add_selection" atk_text_add_selection :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- start_offset : TBasicType TInt32 - Int32 -> -- end_offset : TBasicType TInt32 - IO CInt - - -textAddSelection :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- start_offset - Int32 -> -- end_offset - m Bool -textAddSelection _obj start_offset end_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_add_selection _obj' start_offset end_offset - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Text::get_bounded_ranges --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray True (-1) (-1) (TInterface "Atk" "TextRange") --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_bounded_ranges" atk_text_get_bounded_ranges :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Ptr TextRectangle -> -- rect : TInterface "Atk" "TextRectangle" - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - CUInt -> -- x_clip_type : TInterface "Atk" "TextClipType" - CUInt -> -- y_clip_type : TInterface "Atk" "TextClipType" - IO (Ptr (Ptr TextRange)) - - -textGetBoundedRanges :: - (MonadIO m, TextK a) => - a -> -- _obj - TextRectangle -> -- rect - CoordType -> -- coord_type - TextClipType -> -- x_clip_type - TextClipType -> -- y_clip_type - m [TextRange] -textGetBoundedRanges _obj rect coord_type x_clip_type y_clip_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rect' = unsafeManagedPtrGetPtr rect - let coord_type' = (fromIntegral . fromEnum) coord_type - let x_clip_type' = (fromIntegral . fromEnum) x_clip_type - let y_clip_type' = (fromIntegral . fromEnum) y_clip_type - result <- atk_text_get_bounded_ranges _obj' rect' coord_type' x_clip_type' y_clip_type' - checkUnexpectedReturnNULL "atk_text_get_bounded_ranges" result - result' <- unpackZeroTerminatedPtrArray result - result'' <- mapM (wrapBoxed TextRange) result' - freeMem result - touchManagedPtr _obj - touchManagedPtr rect - return result'' - --- method Text::get_caret_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_caret_offset" atk_text_get_caret_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - IO Int32 - - -textGetCaretOffset :: - (MonadIO m, TextK a) => - a -> -- _obj - m Int32 -textGetCaretOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_get_caret_offset _obj' - touchManagedPtr _obj - return result - --- method Text::get_character_at_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUniChar --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_character_at_offset" atk_text_get_character_at_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- offset : TBasicType TInt32 - IO CInt - - -textGetCharacterAtOffset :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- offset - m Char -textGetCharacterAtOffset _obj offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_get_character_at_offset _obj' offset - let result' = (chr . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Text::get_character_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_character_count" atk_text_get_character_count :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - IO Int32 - - -textGetCharacterCount :: - (MonadIO m, TextK a) => - a -> -- _obj - m Int32 -textGetCharacterCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_get_character_count _obj' - touchManagedPtr _obj - return result - --- method Text::get_character_extents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_character_extents" atk_text_get_character_extents :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- offset : TBasicType TInt32 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - CUInt -> -- coords : TInterface "Atk" "CoordType" - IO () - - -textGetCharacterExtents :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- offset - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - CoordType -> -- coords - m () -textGetCharacterExtents _obj offset x y width height coords = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coords' = (fromIntegral . fromEnum) coords - atk_text_get_character_extents _obj' offset x y width height coords' - touchManagedPtr _obj - return () - --- method Text::get_default_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TVoid) --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_default_attributes" atk_text_get_default_attributes :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - IO (Ptr (GSList (Ptr ()))) - - -textGetDefaultAttributes :: - (MonadIO m, TextK a) => - a -> -- _obj - m [Ptr ()] -textGetDefaultAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_get_default_attributes _obj' - checkUnexpectedReturnNULL "atk_text_get_default_attributes" result - result' <- unpackGSList result - g_slist_free result - touchManagedPtr _obj - return result' - --- method Text::get_n_selections --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_n_selections" atk_text_get_n_selections :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - IO Int32 - - -textGetNSelections :: - (MonadIO m, TextK a) => - a -> -- _obj - m Int32 -textGetNSelections _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_get_n_selections _obj' - touchManagedPtr _obj - return result - --- method Text::get_offset_at_point --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_offset_at_point" atk_text_get_offset_at_point :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - CUInt -> -- coords : TInterface "Atk" "CoordType" - IO Int32 - - -textGetOffsetAtPoint :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - CoordType -> -- coords - m Int32 -textGetOffsetAtPoint _obj x y coords = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coords' = (fromIntegral . fromEnum) coords - result <- atk_text_get_offset_at_point _obj' x y coords' - touchManagedPtr _obj - return result - --- method Text::get_range_extents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_range_extents" atk_text_get_range_extents :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- start_offset : TBasicType TInt32 - Int32 -> -- end_offset : TBasicType TInt32 - CUInt -> -- coord_type : TInterface "Atk" "CoordType" - Ptr TextRectangle -> -- rect : TInterface "Atk" "TextRectangle" - IO () - - -textGetRangeExtents :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- start_offset - Int32 -> -- end_offset - CoordType -> -- coord_type - TextRectangle -> -- rect - m () -textGetRangeExtents _obj start_offset end_offset coord_type rect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let coord_type' = (fromIntegral . fromEnum) coord_type - let rect' = unsafeManagedPtrGetPtr rect - atk_text_get_range_extents _obj' start_offset end_offset coord_type' rect' - touchManagedPtr _obj - touchManagedPtr rect - return () - --- method Text::get_run_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TVoid) --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_run_attributes" atk_text_get_run_attributes :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- offset : TBasicType TInt32 - Ptr Int32 -> -- start_offset : TBasicType TInt32 - Ptr Int32 -> -- end_offset : TBasicType TInt32 - IO (Ptr (GSList (Ptr ()))) - - -textGetRunAttributes :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- offset - m ([Ptr ()],Int32,Int32) -textGetRunAttributes _obj offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start_offset <- allocMem :: IO (Ptr Int32) - end_offset <- allocMem :: IO (Ptr Int32) - result <- atk_text_get_run_attributes _obj' offset start_offset end_offset - checkUnexpectedReturnNULL "atk_text_get_run_attributes" result - result' <- unpackGSList result - g_slist_free result - start_offset' <- peek start_offset - end_offset' <- peek end_offset - touchManagedPtr _obj - freeMem start_offset - freeMem end_offset - return (result', start_offset', end_offset') - --- method Text::get_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_selection" atk_text_get_selection :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- selection_num : TBasicType TInt32 - Ptr Int32 -> -- start_offset : TBasicType TInt32 - Ptr Int32 -> -- end_offset : TBasicType TInt32 - IO CString - - -textGetSelection :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- selection_num - m (T.Text,Int32,Int32) -textGetSelection _obj selection_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start_offset <- allocMem :: IO (Ptr Int32) - end_offset <- allocMem :: IO (Ptr Int32) - result <- atk_text_get_selection _obj' selection_num start_offset end_offset - checkUnexpectedReturnNULL "atk_text_get_selection" result - result' <- cstringToText result - freeMem result - start_offset' <- peek start_offset - end_offset' <- peek end_offset - touchManagedPtr _obj - freeMem start_offset - freeMem end_offset - return (result', start_offset', end_offset') - --- method Text::get_string_at_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_string_at_offset" atk_text_get_string_at_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- offset : TBasicType TInt32 - CUInt -> -- granularity : TInterface "Atk" "TextGranularity" - Ptr Int32 -> -- start_offset : TBasicType TInt32 - Ptr Int32 -> -- end_offset : TBasicType TInt32 - IO CString - - -textGetStringAtOffset :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- offset - TextGranularity -> -- granularity - m (T.Text,Int32,Int32) -textGetStringAtOffset _obj offset granularity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let granularity' = (fromIntegral . fromEnum) granularity - start_offset <- allocMem :: IO (Ptr Int32) - end_offset <- allocMem :: IO (Ptr Int32) - result <- atk_text_get_string_at_offset _obj' offset granularity' start_offset end_offset - checkUnexpectedReturnNULL "atk_text_get_string_at_offset" result - result' <- cstringToText result - freeMem result - start_offset' <- peek start_offset - end_offset' <- peek end_offset - touchManagedPtr _obj - freeMem start_offset - freeMem end_offset - return (result', start_offset', end_offset') - --- method Text::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_text" atk_text_get_text :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- start_offset : TBasicType TInt32 - Int32 -> -- end_offset : TBasicType TInt32 - IO CString - - -textGetText :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- start_offset - Int32 -> -- end_offset - m T.Text -textGetText _obj start_offset end_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_get_text _obj' start_offset end_offset - checkUnexpectedReturnNULL "atk_text_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Text::get_text_after_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_text_after_offset" atk_text_get_text_after_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- offset : TBasicType TInt32 - CUInt -> -- boundary_type : TInterface "Atk" "TextBoundary" - Ptr Int32 -> -- start_offset : TBasicType TInt32 - Ptr Int32 -> -- end_offset : TBasicType TInt32 - IO CString - -{-# DEPRECATED textGetTextAfterOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-} -textGetTextAfterOffset :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- offset - TextBoundary -> -- boundary_type - m (T.Text,Int32,Int32) -textGetTextAfterOffset _obj offset boundary_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let boundary_type' = (fromIntegral . fromEnum) boundary_type - start_offset <- allocMem :: IO (Ptr Int32) - end_offset <- allocMem :: IO (Ptr Int32) - result <- atk_text_get_text_after_offset _obj' offset boundary_type' start_offset end_offset - checkUnexpectedReturnNULL "atk_text_get_text_after_offset" result - result' <- cstringToText result - freeMem result - start_offset' <- peek start_offset - end_offset' <- peek end_offset - touchManagedPtr _obj - freeMem start_offset - freeMem end_offset - return (result', start_offset', end_offset') - --- method Text::get_text_at_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_text_at_offset" atk_text_get_text_at_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- offset : TBasicType TInt32 - CUInt -> -- boundary_type : TInterface "Atk" "TextBoundary" - Ptr Int32 -> -- start_offset : TBasicType TInt32 - Ptr Int32 -> -- end_offset : TBasicType TInt32 - IO CString - -{-# DEPRECATED textGetTextAtOffset ["This method is deprecated since ATK version","2.9.4. Please use atk_text_get_string_at_offset() instead."]#-} -textGetTextAtOffset :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- offset - TextBoundary -> -- boundary_type - m (T.Text,Int32,Int32) -textGetTextAtOffset _obj offset boundary_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let boundary_type' = (fromIntegral . fromEnum) boundary_type - start_offset <- allocMem :: IO (Ptr Int32) - end_offset <- allocMem :: IO (Ptr Int32) - result <- atk_text_get_text_at_offset _obj' offset boundary_type' start_offset end_offset - checkUnexpectedReturnNULL "atk_text_get_text_at_offset" result - result' <- cstringToText result - freeMem result - start_offset' <- peek start_offset - end_offset' <- peek end_offset - touchManagedPtr _obj - freeMem start_offset - freeMem end_offset - return (result', start_offset', end_offset') - --- method Text::get_text_before_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_get_text_before_offset" atk_text_get_text_before_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- offset : TBasicType TInt32 - CUInt -> -- boundary_type : TInterface "Atk" "TextBoundary" - Ptr Int32 -> -- start_offset : TBasicType TInt32 - Ptr Int32 -> -- end_offset : TBasicType TInt32 - IO CString - -{-# DEPRECATED textGetTextBeforeOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-} -textGetTextBeforeOffset :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- offset - TextBoundary -> -- boundary_type - m (T.Text,Int32,Int32) -textGetTextBeforeOffset _obj offset boundary_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let boundary_type' = (fromIntegral . fromEnum) boundary_type - start_offset <- allocMem :: IO (Ptr Int32) - end_offset <- allocMem :: IO (Ptr Int32) - result <- atk_text_get_text_before_offset _obj' offset boundary_type' start_offset end_offset - checkUnexpectedReturnNULL "atk_text_get_text_before_offset" result - result' <- cstringToText result - freeMem result - start_offset' <- peek start_offset - end_offset' <- peek end_offset - touchManagedPtr _obj - freeMem start_offset - freeMem end_offset - return (result', start_offset', end_offset') - --- method Text::remove_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_text_remove_selection" atk_text_remove_selection :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- selection_num : TBasicType TInt32 - IO CInt - - -textRemoveSelection :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- selection_num - m Bool -textRemoveSelection _obj selection_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_remove_selection _obj' selection_num - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Text::set_caret_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_text_set_caret_offset" atk_text_set_caret_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- offset : TBasicType TInt32 - IO CInt - - -textSetCaretOffset :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- offset - m Bool -textSetCaretOffset _obj offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_set_caret_offset _obj' offset - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Text::set_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_text_set_selection" atk_text_set_selection :: - Ptr Text -> -- _obj : TInterface "Atk" "Text" - Int32 -> -- selection_num : TBasicType TInt32 - Int32 -> -- start_offset : TBasicType TInt32 - Int32 -> -- end_offset : TBasicType TInt32 - IO CInt - - -textSetSelection :: - (MonadIO m, TextK a) => - a -> -- _obj - Int32 -> -- selection_num - Int32 -> -- start_offset - Int32 -> -- end_offset - m Bool -textSetSelection _obj selection_num start_offset end_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_text_set_selection _obj' selection_num start_offset end_offset - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- signal Text::text-attributes-changed -type TextTextAttributesChangedCallback = - IO () - -noTextTextAttributesChangedCallback :: Maybe TextTextAttributesChangedCallback -noTextTextAttributesChangedCallback = Nothing - -type TextTextAttributesChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextTextAttributesChangedCallback :: TextTextAttributesChangedCallbackC -> IO (FunPtr TextTextAttributesChangedCallbackC) - -textTextAttributesChangedClosure :: TextTextAttributesChangedCallback -> IO Closure -textTextAttributesChangedClosure cb = newCClosure =<< mkTextTextAttributesChangedCallback wrapped - where wrapped = textTextAttributesChangedCallbackWrapper cb - -textTextAttributesChangedCallbackWrapper :: - TextTextAttributesChangedCallback -> - Ptr () -> - Ptr () -> - IO () -textTextAttributesChangedCallbackWrapper _cb _ _ = do - _cb - -onTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId -onTextTextAttributesChanged obj cb = liftIO $ connectTextTextAttributesChanged obj cb SignalConnectBefore -afterTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId -afterTextTextAttributesChanged obj cb = connectTextTextAttributesChanged obj cb SignalConnectAfter - -connectTextTextAttributesChanged :: (GObject a, MonadIO m) => - a -> TextTextAttributesChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTextAttributesChanged obj cb after = liftIO $ do - cb' <- mkTextTextAttributesChangedCallback (textTextAttributesChangedCallbackWrapper cb) - connectSignalFunPtr obj "text-attributes-changed" cb' after - --- signal Text::text-caret-moved -type TextTextCaretMovedCallback = - Int32 -> - IO () - -noTextTextCaretMovedCallback :: Maybe TextTextCaretMovedCallback -noTextTextCaretMovedCallback = Nothing - -type TextTextCaretMovedCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextTextCaretMovedCallback :: TextTextCaretMovedCallbackC -> IO (FunPtr TextTextCaretMovedCallbackC) - -textTextCaretMovedClosure :: TextTextCaretMovedCallback -> IO Closure -textTextCaretMovedClosure cb = newCClosure =<< mkTextTextCaretMovedCallback wrapped - where wrapped = textTextCaretMovedCallbackWrapper cb - -textTextCaretMovedCallbackWrapper :: - TextTextCaretMovedCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO () -textTextCaretMovedCallbackWrapper _cb _ arg1 _ = do - _cb arg1 - -onTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId -onTextTextCaretMoved obj cb = liftIO $ connectTextTextCaretMoved obj cb SignalConnectBefore -afterTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId -afterTextTextCaretMoved obj cb = connectTextTextCaretMoved obj cb SignalConnectAfter - -connectTextTextCaretMoved :: (GObject a, MonadIO m) => - a -> TextTextCaretMovedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTextCaretMoved obj cb after = liftIO $ do - cb' <- mkTextTextCaretMovedCallback (textTextCaretMovedCallbackWrapper cb) - connectSignalFunPtr obj "text-caret-moved" cb' after - --- signal Text::text-changed -type TextTextChangedCallback = - Int32 -> - Int32 -> - IO () - -noTextTextChangedCallback :: Maybe TextTextChangedCallback -noTextTextChangedCallback = Nothing - -type TextTextChangedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextTextChangedCallback :: TextTextChangedCallbackC -> IO (FunPtr TextTextChangedCallbackC) - -textTextChangedClosure :: TextTextChangedCallback -> IO Closure -textTextChangedClosure cb = newCClosure =<< mkTextTextChangedCallback wrapped - where wrapped = textTextChangedCallbackWrapper cb - -textTextChangedCallbackWrapper :: - TextTextChangedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO () -textTextChangedCallbackWrapper _cb _ arg1 arg2 _ = do - _cb arg1 arg2 - -onTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId -onTextTextChanged obj cb = liftIO $ connectTextTextChanged obj cb SignalConnectBefore -afterTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId -afterTextTextChanged obj cb = connectTextTextChanged obj cb SignalConnectAfter - -connectTextTextChanged :: (GObject a, MonadIO m) => - a -> TextTextChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTextChanged obj cb after = liftIO $ do - cb' <- mkTextTextChangedCallback (textTextChangedCallbackWrapper cb) - connectSignalFunPtr obj "text-changed" cb' after - --- signal Text::text-insert -type TextTextInsertCallback = - Int32 -> - Int32 -> - T.Text -> - IO () - -noTextTextInsertCallback :: Maybe TextTextInsertCallback -noTextTextInsertCallback = Nothing - -type TextTextInsertCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextTextInsertCallback :: TextTextInsertCallbackC -> IO (FunPtr TextTextInsertCallbackC) - -textTextInsertClosure :: TextTextInsertCallback -> IO Closure -textTextInsertClosure cb = newCClosure =<< mkTextTextInsertCallback wrapped - where wrapped = textTextInsertCallbackWrapper cb - -textTextInsertCallbackWrapper :: - TextTextInsertCallback -> - Ptr () -> - Int32 -> - Int32 -> - CString -> - Ptr () -> - IO () -textTextInsertCallbackWrapper _cb _ arg1 arg2 arg3 _ = do - arg3' <- cstringToText arg3 - _cb arg1 arg2 arg3' - -onTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId -onTextTextInsert obj cb = liftIO $ connectTextTextInsert obj cb SignalConnectBefore -afterTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId -afterTextTextInsert obj cb = connectTextTextInsert obj cb SignalConnectAfter - -connectTextTextInsert :: (GObject a, MonadIO m) => - a -> TextTextInsertCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTextInsert obj cb after = liftIO $ do - cb' <- mkTextTextInsertCallback (textTextInsertCallbackWrapper cb) - connectSignalFunPtr obj "text-insert" cb' after - --- signal Text::text-remove -type TextTextRemoveCallback = - Int32 -> - Int32 -> - T.Text -> - IO () - -noTextTextRemoveCallback :: Maybe TextTextRemoveCallback -noTextTextRemoveCallback = Nothing - -type TextTextRemoveCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextTextRemoveCallback :: TextTextRemoveCallbackC -> IO (FunPtr TextTextRemoveCallbackC) - -textTextRemoveClosure :: TextTextRemoveCallback -> IO Closure -textTextRemoveClosure cb = newCClosure =<< mkTextTextRemoveCallback wrapped - where wrapped = textTextRemoveCallbackWrapper cb - -textTextRemoveCallbackWrapper :: - TextTextRemoveCallback -> - Ptr () -> - Int32 -> - Int32 -> - CString -> - Ptr () -> - IO () -textTextRemoveCallbackWrapper _cb _ arg1 arg2 arg3 _ = do - arg3' <- cstringToText arg3 - _cb arg1 arg2 arg3' - -onTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId -onTextTextRemove obj cb = liftIO $ connectTextTextRemove obj cb SignalConnectBefore -afterTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId -afterTextTextRemove obj cb = connectTextTextRemove obj cb SignalConnectAfter - -connectTextTextRemove :: (GObject a, MonadIO m) => - a -> TextTextRemoveCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTextRemove obj cb after = liftIO $ do - cb' <- mkTextTextRemoveCallback (textTextRemoveCallbackWrapper cb) - connectSignalFunPtr obj "text-remove" cb' after - --- signal Text::text-selection-changed -type TextTextSelectionChangedCallback = - IO () - -noTextTextSelectionChangedCallback :: Maybe TextTextSelectionChangedCallback -noTextTextSelectionChangedCallback = Nothing - -type TextTextSelectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextTextSelectionChangedCallback :: TextTextSelectionChangedCallbackC -> IO (FunPtr TextTextSelectionChangedCallbackC) - -textTextSelectionChangedClosure :: TextTextSelectionChangedCallback -> IO Closure -textTextSelectionChangedClosure cb = newCClosure =<< mkTextTextSelectionChangedCallback wrapped - where wrapped = textTextSelectionChangedCallbackWrapper cb - -textTextSelectionChangedCallbackWrapper :: - TextTextSelectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -textTextSelectionChangedCallbackWrapper _cb _ _ = do - _cb - -onTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId -onTextTextSelectionChanged obj cb = liftIO $ connectTextTextSelectionChanged obj cb SignalConnectBefore -afterTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId -afterTextTextSelectionChanged obj cb = connectTextTextSelectionChanged obj cb SignalConnectAfter - -connectTextTextSelectionChanged :: (GObject a, MonadIO m) => - a -> TextTextSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextTextSelectionChanged obj cb after = liftIO $ do - cb' <- mkTextTextSelectionChangedCallback (textTextSelectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "text-selection-changed" cb' after - --- Enum TextAttribute - -data TextAttribute = - TextAttributeInvalid - | TextAttributeLeftMargin - | TextAttributeRightMargin - | TextAttributeIndent - | TextAttributeInvisible - | TextAttributeEditable - | TextAttributePixelsAboveLines - | TextAttributePixelsBelowLines - | TextAttributePixelsInsideWrap - | TextAttributeBgFullHeight - | TextAttributeRise - | TextAttributeUnderline - | TextAttributeStrikethrough - | TextAttributeSize - | TextAttributeScale - | TextAttributeWeight - | TextAttributeLanguage - | TextAttributeFamilyName - | TextAttributeBgColor - | TextAttributeFgColor - | TextAttributeBgStipple - | TextAttributeFgStipple - | TextAttributeWrapMode - | TextAttributeDirection - | TextAttributeJustification - | TextAttributeStretch - | TextAttributeVariant - | TextAttributeStyle - | TextAttributeLastDefined - | AnotherTextAttribute Int - deriving (Show, Eq) - -instance Enum TextAttribute where - fromEnum TextAttributeInvalid = 0 - fromEnum TextAttributeLeftMargin = 1 - fromEnum TextAttributeRightMargin = 2 - fromEnum TextAttributeIndent = 3 - fromEnum TextAttributeInvisible = 4 - fromEnum TextAttributeEditable = 5 - fromEnum TextAttributePixelsAboveLines = 6 - fromEnum TextAttributePixelsBelowLines = 7 - fromEnum TextAttributePixelsInsideWrap = 8 - fromEnum TextAttributeBgFullHeight = 9 - fromEnum TextAttributeRise = 10 - fromEnum TextAttributeUnderline = 11 - fromEnum TextAttributeStrikethrough = 12 - fromEnum TextAttributeSize = 13 - fromEnum TextAttributeScale = 14 - fromEnum TextAttributeWeight = 15 - fromEnum TextAttributeLanguage = 16 - fromEnum TextAttributeFamilyName = 17 - fromEnum TextAttributeBgColor = 18 - fromEnum TextAttributeFgColor = 19 - fromEnum TextAttributeBgStipple = 20 - fromEnum TextAttributeFgStipple = 21 - fromEnum TextAttributeWrapMode = 22 - fromEnum TextAttributeDirection = 23 - fromEnum TextAttributeJustification = 24 - fromEnum TextAttributeStretch = 25 - fromEnum TextAttributeVariant = 26 - fromEnum TextAttributeStyle = 27 - fromEnum TextAttributeLastDefined = 28 - fromEnum (AnotherTextAttribute k) = k - - toEnum 0 = TextAttributeInvalid - toEnum 1 = TextAttributeLeftMargin - toEnum 2 = TextAttributeRightMargin - toEnum 3 = TextAttributeIndent - toEnum 4 = TextAttributeInvisible - toEnum 5 = TextAttributeEditable - toEnum 6 = TextAttributePixelsAboveLines - toEnum 7 = TextAttributePixelsBelowLines - toEnum 8 = TextAttributePixelsInsideWrap - toEnum 9 = TextAttributeBgFullHeight - toEnum 10 = TextAttributeRise - toEnum 11 = TextAttributeUnderline - toEnum 12 = TextAttributeStrikethrough - toEnum 13 = TextAttributeSize - toEnum 14 = TextAttributeScale - toEnum 15 = TextAttributeWeight - toEnum 16 = TextAttributeLanguage - toEnum 17 = TextAttributeFamilyName - toEnum 18 = TextAttributeBgColor - toEnum 19 = TextAttributeFgColor - toEnum 20 = TextAttributeBgStipple - toEnum 21 = TextAttributeFgStipple - toEnum 22 = TextAttributeWrapMode - toEnum 23 = TextAttributeDirection - toEnum 24 = TextAttributeJustification - toEnum 25 = TextAttributeStretch - toEnum 26 = TextAttributeVariant - toEnum 27 = TextAttributeStyle - toEnum 28 = TextAttributeLastDefined - toEnum k = AnotherTextAttribute k - -foreign import ccall "atk_text_attribute_get_type" c_atk_text_attribute_get_type :: - IO GType - -instance BoxedEnum TextAttribute where - boxedEnumType _ = c_atk_text_attribute_get_type - --- Enum TextBoundary - -data TextBoundary = - TextBoundaryChar - | TextBoundaryWordStart - | TextBoundaryWordEnd - | TextBoundarySentenceStart - | TextBoundarySentenceEnd - | TextBoundaryLineStart - | TextBoundaryLineEnd - | AnotherTextBoundary Int - deriving (Show, Eq) - -instance Enum TextBoundary where - fromEnum TextBoundaryChar = 0 - fromEnum TextBoundaryWordStart = 1 - fromEnum TextBoundaryWordEnd = 2 - fromEnum TextBoundarySentenceStart = 3 - fromEnum TextBoundarySentenceEnd = 4 - fromEnum TextBoundaryLineStart = 5 - fromEnum TextBoundaryLineEnd = 6 - fromEnum (AnotherTextBoundary k) = k - - toEnum 0 = TextBoundaryChar - toEnum 1 = TextBoundaryWordStart - toEnum 2 = TextBoundaryWordEnd - toEnum 3 = TextBoundarySentenceStart - toEnum 4 = TextBoundarySentenceEnd - toEnum 5 = TextBoundaryLineStart - toEnum 6 = TextBoundaryLineEnd - toEnum k = AnotherTextBoundary k - -foreign import ccall "atk_text_boundary_get_type" c_atk_text_boundary_get_type :: - IO GType - -instance BoxedEnum TextBoundary where - boxedEnumType _ = c_atk_text_boundary_get_type - --- Enum TextClipType - -data TextClipType = - TextClipTypeNone - | TextClipTypeMin - | TextClipTypeMax - | TextClipTypeBoth - | AnotherTextClipType Int - deriving (Show, Eq) - -instance Enum TextClipType where - fromEnum TextClipTypeNone = 0 - fromEnum TextClipTypeMin = 1 - fromEnum TextClipTypeMax = 2 - fromEnum TextClipTypeBoth = 3 - fromEnum (AnotherTextClipType k) = k - - toEnum 0 = TextClipTypeNone - toEnum 1 = TextClipTypeMin - toEnum 2 = TextClipTypeMax - toEnum 3 = TextClipTypeBoth - toEnum k = AnotherTextClipType k - -foreign import ccall "atk_text_clip_type_get_type" c_atk_text_clip_type_get_type :: - IO GType - -instance BoxedEnum TextClipType where - boxedEnumType _ = c_atk_text_clip_type_get_type - --- Enum TextGranularity - -data TextGranularity = - TextGranularityChar - | TextGranularityWord - | TextGranularitySentence - | TextGranularityLine - | TextGranularityParagraph - | AnotherTextGranularity Int - deriving (Show, Eq) - -instance Enum TextGranularity where - fromEnum TextGranularityChar = 0 - fromEnum TextGranularityWord = 1 - fromEnum TextGranularitySentence = 2 - fromEnum TextGranularityLine = 3 - fromEnum TextGranularityParagraph = 4 - fromEnum (AnotherTextGranularity k) = k - - toEnum 0 = TextGranularityChar - toEnum 1 = TextGranularityWord - toEnum 2 = TextGranularitySentence - toEnum 3 = TextGranularityLine - toEnum 4 = TextGranularityParagraph - toEnum k = AnotherTextGranularity k - -foreign import ccall "atk_text_granularity_get_type" c_atk_text_granularity_get_type :: - IO GType - -instance BoxedEnum TextGranularity where - boxedEnumType _ = c_atk_text_granularity_get_type - --- struct TextRange -newtype TextRange = TextRange (ForeignPtr TextRange) -noTextRange :: Maybe TextRange -noTextRange = Nothing - -foreign import ccall "atk_text_range_get_type" c_atk_text_range_get_type :: - IO GType - -instance BoxedObject TextRange where - boxedType _ = c_atk_text_range_get_type - -textRangeReadBounds :: TextRange -> IO TextRectangle -textRangeReadBounds s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr TextRectangle) - val' <- (newPtr 16 TextRectangle) val - return val' - -textRangeReadStartOffset :: TextRange -> IO Int32 -textRangeReadStartOffset s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int32 - return val - -textRangeReadEndOffset :: TextRange -> IO Int32 -textRangeReadEndOffset s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Int32 - return val - -textRangeReadContent :: TextRange -> IO T.Text -textRangeReadContent s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - --- struct TextRectangle -newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle) -noTextRectangle :: Maybe TextRectangle -noTextRectangle = Nothing - -textRectangleReadX :: TextRectangle -> IO Int32 -textRectangleReadX s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -textRectangleReadY :: TextRectangle -> IO Int32 -textRectangleReadY s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -textRectangleReadWidth :: TextRectangle -> IO Int32 -textRectangleReadWidth s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -textRectangleReadHeight :: TextRectangle -> IO Int32 -textRectangleReadHeight s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - --- object Util -newtype Util = Util (ForeignPtr Util) -noUtil :: Maybe Util -noUtil = Nothing - -foreign import ccall "atk_util_get_type" - c_atk_util_get_type :: IO GType - -type instance ParentTypes Util = '[GObject.Object] - -instance GObject Util where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_util_get_type - - -class GObject o => UtilK o -instance (GObject o, IsDescendantOf Util o) => UtilK o - -toUtil :: UtilK o => o -> IO Util -toUtil = unsafeCastTo Util - --- interface Value - -newtype Value = Value (ForeignPtr Value) -noValue :: Maybe Value -noValue = Nothing - -class ForeignPtrNewtype a => ValueK a -instance (ForeignPtrNewtype o, IsDescendantOf Value o) => ValueK o -type instance ParentTypes Value = '[] - --- method Value::get_current_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_value_get_current_value" atk_value_get_current_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - -{-# DEPRECATED valueGetCurrentValue ["Since 2.12. Use atk_value_get_value_and_text()","instead."]#-} -valueGetCurrentValue :: - (MonadIO m, ValueK a) => - a -> -- _obj - GValue -> -- value - m () -valueGetCurrentValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = unsafeManagedPtrGetPtr value - atk_value_get_current_value _obj' value' - touchManagedPtr _obj - touchManagedPtr value - return () - --- method Value::get_increment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "atk_value_get_increment" atk_value_get_increment :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - IO CDouble - - -valueGetIncrement :: - (MonadIO m, ValueK a) => - a -> -- _obj - m Double -valueGetIncrement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_value_get_increment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Value::get_maximum_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_value_get_maximum_value" atk_value_get_maximum_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - -{-# DEPRECATED valueGetMaximumValue ["Since 2.12. Use atk_value_get_range() instead."]#-} -valueGetMaximumValue :: - (MonadIO m, ValueK a) => - a -> -- _obj - GValue -> -- value - m () -valueGetMaximumValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = unsafeManagedPtrGetPtr value - atk_value_get_maximum_value _obj' value' - touchManagedPtr _obj - touchManagedPtr value - return () - --- method Value::get_minimum_increment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_value_get_minimum_increment" atk_value_get_minimum_increment :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - -{-# DEPRECATED valueGetMinimumIncrement ["Since 2.12. Use atk_value_get_increment() instead."]#-} -valueGetMinimumIncrement :: - (MonadIO m, ValueK a) => - a -> -- _obj - GValue -> -- value - m () -valueGetMinimumIncrement _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = unsafeManagedPtrGetPtr value - atk_value_get_minimum_increment _obj' value' - touchManagedPtr _obj - touchManagedPtr value - return () - --- method Value::get_minimum_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_value_get_minimum_value" atk_value_get_minimum_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - -{-# DEPRECATED valueGetMinimumValue ["Since 2.12. Use atk_value_get_range() instead."]#-} -valueGetMinimumValue :: - (MonadIO m, ValueK a) => - a -> -- _obj - GValue -> -- value - m () -valueGetMinimumValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = unsafeManagedPtrGetPtr value - atk_value_get_minimum_value _obj' value' - touchManagedPtr _obj - touchManagedPtr value - return () - --- method Value::get_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Range" --- throws : False --- Skip return : False - -foreign import ccall "atk_value_get_range" atk_value_get_range :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - IO (Ptr Range) - - -valueGetRange :: - (MonadIO m, ValueK a) => - a -> -- _obj - m Range -valueGetRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_value_get_range _obj' - checkUnexpectedReturnNULL "atk_value_get_range" result - result' <- (wrapBoxed Range) result - touchManagedPtr _obj - return result' - --- method Value::get_sub_ranges --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Atk" "Range") --- throws : False --- Skip return : False - -foreign import ccall "atk_value_get_sub_ranges" atk_value_get_sub_ranges :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - IO (Ptr (GSList (Ptr Range))) - - -valueGetSubRanges :: - (MonadIO m, ValueK a) => - a -> -- _obj - m [Range] -valueGetSubRanges _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- atk_value_get_sub_ranges _obj' - checkUnexpectedReturnNULL "atk_value_get_sub_ranges" result - result' <- unpackGSList result - result'' <- mapM (wrapBoxed Range) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method Value::get_value_and_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_value_get_value_and_text" atk_value_get_value_and_text :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - Ptr CDouble -> -- value : TBasicType TDouble - Ptr CString -> -- text : TBasicType TUTF8 - IO () - - -valueGetValueAndText :: - (MonadIO m, ValueK a) => - a -> -- _obj - m (Double,T.Text) -valueGetValueAndText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value <- allocMem :: IO (Ptr CDouble) - text <- allocMem :: IO (Ptr CString) - atk_value_get_value_and_text _obj' value text - value' <- peek value - let value'' = realToFrac value' - text' <- peek text - text'' <- cstringToText text' - freeMem text' - touchManagedPtr _obj - freeMem value - freeMem text - return (value'', text'') - --- method Value::set_current_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "atk_value_set_current_value" atk_value_set_current_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO CInt - -{-# DEPRECATED valueSetCurrentValue ["Since 2.12. Use atk_value_set_value() instead."]#-} -valueSetCurrentValue :: - (MonadIO m, ValueK a) => - a -> -- _obj - GValue -> -- value - m Bool -valueSetCurrentValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = unsafeManagedPtrGetPtr value - result <- atk_value_set_current_value _obj' value' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr value - return result' - --- method Value::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_value_set_value" atk_value_set_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value" - CDouble -> -- new_value : TBasicType TDouble - IO () - - -valueSetValue :: - (MonadIO m, ValueK a) => - a -> -- _obj - Double -> -- new_value - m () -valueSetValue _obj new_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let new_value' = realToFrac new_value - atk_value_set_value _obj' new_value' - touchManagedPtr _obj - return () - --- signal Value::value-changed -type ValueValueChangedCallback = - Double -> - T.Text -> - IO () - -noValueValueChangedCallback :: Maybe ValueValueChangedCallback -noValueValueChangedCallback = Nothing - -type ValueValueChangedCallbackC = - Ptr () -> -- object - CDouble -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkValueValueChangedCallback :: ValueValueChangedCallbackC -> IO (FunPtr ValueValueChangedCallbackC) - -valueValueChangedClosure :: ValueValueChangedCallback -> IO Closure -valueValueChangedClosure cb = newCClosure =<< mkValueValueChangedCallback wrapped - where wrapped = valueValueChangedCallbackWrapper cb - -valueValueChangedCallbackWrapper :: - ValueValueChangedCallback -> - Ptr () -> - CDouble -> - CString -> - Ptr () -> - IO () -valueValueChangedCallbackWrapper _cb _ value text _ = do - let value' = realToFrac value - text' <- cstringToText text - _cb value' text' - -onValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId -onValueValueChanged obj cb = liftIO $ connectValueValueChanged obj cb SignalConnectBefore -afterValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId -afterValueValueChanged obj cb = connectValueValueChanged obj cb SignalConnectAfter - -connectValueValueChanged :: (GObject a, MonadIO m) => - a -> ValueValueChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectValueValueChanged obj cb after = liftIO $ do - cb' <- mkValueValueChangedCallback (valueValueChangedCallbackWrapper cb) - connectSignalFunPtr obj "value-changed" cb' after - --- Enum ValueType - -data ValueType = - ValueTypeVeryWeak - | ValueTypeWeak - | ValueTypeAcceptable - | ValueTypeStrong - | ValueTypeVeryStrong - | ValueTypeVeryLow - | ValueTypeLow - | ValueTypeMedium - | ValueTypeHigh - | ValueTypeVeryHigh - | ValueTypeVeryBad - | ValueTypeBad - | ValueTypeGood - | ValueTypeVeryGood - | ValueTypeBest - | ValueTypeLastDefined - | AnotherValueType Int - deriving (Show, Eq) - -instance Enum ValueType where - fromEnum ValueTypeVeryWeak = 0 - fromEnum ValueTypeWeak = 1 - fromEnum ValueTypeAcceptable = 2 - fromEnum ValueTypeStrong = 3 - fromEnum ValueTypeVeryStrong = 4 - fromEnum ValueTypeVeryLow = 5 - fromEnum ValueTypeLow = 6 - fromEnum ValueTypeMedium = 7 - fromEnum ValueTypeHigh = 8 - fromEnum ValueTypeVeryHigh = 9 - fromEnum ValueTypeVeryBad = 10 - fromEnum ValueTypeBad = 11 - fromEnum ValueTypeGood = 12 - fromEnum ValueTypeVeryGood = 13 - fromEnum ValueTypeBest = 14 - fromEnum ValueTypeLastDefined = 15 - fromEnum (AnotherValueType k) = k - - toEnum 0 = ValueTypeVeryWeak - toEnum 1 = ValueTypeWeak - toEnum 2 = ValueTypeAcceptable - toEnum 3 = ValueTypeStrong - toEnum 4 = ValueTypeVeryStrong - toEnum 5 = ValueTypeVeryLow - toEnum 6 = ValueTypeLow - toEnum 7 = ValueTypeMedium - toEnum 8 = ValueTypeHigh - toEnum 9 = ValueTypeVeryHigh - toEnum 10 = ValueTypeVeryBad - toEnum 11 = ValueTypeBad - toEnum 12 = ValueTypeGood - toEnum 13 = ValueTypeVeryGood - toEnum 14 = ValueTypeBest - toEnum 15 = ValueTypeLastDefined - toEnum k = AnotherValueType k - -foreign import ccall "atk_value_type_get_type" c_atk_value_type_get_type :: - IO GType - -instance BoxedEnum ValueType where - boxedEnumType _ = c_atk_value_type_get_type - --- interface Window - -newtype Window = Window (ForeignPtr Window) -noWindow :: Maybe Window -noWindow = Nothing - -foreign import ccall "atk_window_get_type" - c_atk_window_get_type :: IO GType - -type instance ParentTypes Window = '[Object, GObject.Object] - -instance GObject Window where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_atk_window_get_type - - -class GObject o => WindowK o -instance (GObject o, IsDescendantOf Window o) => WindowK o - -toWindow :: WindowK o => o -> IO Window -toWindow = unsafeCastTo Window - --- signal Window::activate -type WindowActivateCallback = - IO () - -noWindowActivateCallback :: Maybe WindowActivateCallback -noWindowActivateCallback = Nothing - -type WindowActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowActivateCallback :: WindowActivateCallbackC -> IO (FunPtr WindowActivateCallbackC) - -windowActivateClosure :: WindowActivateCallback -> IO Closure -windowActivateClosure cb = newCClosure =<< mkWindowActivateCallback wrapped - where wrapped = windowActivateCallbackWrapper cb - -windowActivateCallbackWrapper :: - WindowActivateCallback -> - Ptr () -> - Ptr () -> - IO () -windowActivateCallbackWrapper _cb _ _ = do - _cb - -onWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId -onWindowActivate obj cb = liftIO $ connectWindowActivate obj cb SignalConnectBefore -afterWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId -afterWindowActivate obj cb = connectWindowActivate obj cb SignalConnectAfter - -connectWindowActivate :: (GObject a, MonadIO m) => - a -> WindowActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowActivate obj cb after = liftIO $ do - cb' <- mkWindowActivateCallback (windowActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- signal Window::create -type WindowCreateCallback = - IO () - -noWindowCreateCallback :: Maybe WindowCreateCallback -noWindowCreateCallback = Nothing - -type WindowCreateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowCreateCallback :: WindowCreateCallbackC -> IO (FunPtr WindowCreateCallbackC) - -windowCreateClosure :: WindowCreateCallback -> IO Closure -windowCreateClosure cb = newCClosure =<< mkWindowCreateCallback wrapped - where wrapped = windowCreateCallbackWrapper cb - -windowCreateCallbackWrapper :: - WindowCreateCallback -> - Ptr () -> - Ptr () -> - IO () -windowCreateCallbackWrapper _cb _ _ = do - _cb - -onWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId -onWindowCreate obj cb = liftIO $ connectWindowCreate obj cb SignalConnectBefore -afterWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId -afterWindowCreate obj cb = connectWindowCreate obj cb SignalConnectAfter - -connectWindowCreate :: (GObject a, MonadIO m) => - a -> WindowCreateCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowCreate obj cb after = liftIO $ do - cb' <- mkWindowCreateCallback (windowCreateCallbackWrapper cb) - connectSignalFunPtr obj "create" cb' after - --- signal Window::deactivate -type WindowDeactivateCallback = - IO () - -noWindowDeactivateCallback :: Maybe WindowDeactivateCallback -noWindowDeactivateCallback = Nothing - -type WindowDeactivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowDeactivateCallback :: WindowDeactivateCallbackC -> IO (FunPtr WindowDeactivateCallbackC) - -windowDeactivateClosure :: WindowDeactivateCallback -> IO Closure -windowDeactivateClosure cb = newCClosure =<< mkWindowDeactivateCallback wrapped - where wrapped = windowDeactivateCallbackWrapper cb - -windowDeactivateCallbackWrapper :: - WindowDeactivateCallback -> - Ptr () -> - Ptr () -> - IO () -windowDeactivateCallbackWrapper _cb _ _ = do - _cb - -onWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId -onWindowDeactivate obj cb = liftIO $ connectWindowDeactivate obj cb SignalConnectBefore -afterWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId -afterWindowDeactivate obj cb = connectWindowDeactivate obj cb SignalConnectAfter - -connectWindowDeactivate :: (GObject a, MonadIO m) => - a -> WindowDeactivateCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowDeactivate obj cb after = liftIO $ do - cb' <- mkWindowDeactivateCallback (windowDeactivateCallbackWrapper cb) - connectSignalFunPtr obj "deactivate" cb' after - --- signal Window::destroy -type WindowDestroyCallback = - IO () - -noWindowDestroyCallback :: Maybe WindowDestroyCallback -noWindowDestroyCallback = Nothing - -type WindowDestroyCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowDestroyCallback :: WindowDestroyCallbackC -> IO (FunPtr WindowDestroyCallbackC) - -windowDestroyClosure :: WindowDestroyCallback -> IO Closure -windowDestroyClosure cb = newCClosure =<< mkWindowDestroyCallback wrapped - where wrapped = windowDestroyCallbackWrapper cb - -windowDestroyCallbackWrapper :: - WindowDestroyCallback -> - Ptr () -> - Ptr () -> - IO () -windowDestroyCallbackWrapper _cb _ _ = do - _cb - -onWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId -onWindowDestroy obj cb = liftIO $ connectWindowDestroy obj cb SignalConnectBefore -afterWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId -afterWindowDestroy obj cb = connectWindowDestroy obj cb SignalConnectAfter - -connectWindowDestroy :: (GObject a, MonadIO m) => - a -> WindowDestroyCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowDestroy obj cb after = liftIO $ do - cb' <- mkWindowDestroyCallback (windowDestroyCallbackWrapper cb) - connectSignalFunPtr obj "destroy" cb' after - --- signal Window::maximize -type WindowMaximizeCallback = - IO () - -noWindowMaximizeCallback :: Maybe WindowMaximizeCallback -noWindowMaximizeCallback = Nothing - -type WindowMaximizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowMaximizeCallback :: WindowMaximizeCallbackC -> IO (FunPtr WindowMaximizeCallbackC) - -windowMaximizeClosure :: WindowMaximizeCallback -> IO Closure -windowMaximizeClosure cb = newCClosure =<< mkWindowMaximizeCallback wrapped - where wrapped = windowMaximizeCallbackWrapper cb - -windowMaximizeCallbackWrapper :: - WindowMaximizeCallback -> - Ptr () -> - Ptr () -> - IO () -windowMaximizeCallbackWrapper _cb _ _ = do - _cb - -onWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId -onWindowMaximize obj cb = liftIO $ connectWindowMaximize obj cb SignalConnectBefore -afterWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId -afterWindowMaximize obj cb = connectWindowMaximize obj cb SignalConnectAfter - -connectWindowMaximize :: (GObject a, MonadIO m) => - a -> WindowMaximizeCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowMaximize obj cb after = liftIO $ do - cb' <- mkWindowMaximizeCallback (windowMaximizeCallbackWrapper cb) - connectSignalFunPtr obj "maximize" cb' after - --- signal Window::minimize -type WindowMinimizeCallback = - IO () - -noWindowMinimizeCallback :: Maybe WindowMinimizeCallback -noWindowMinimizeCallback = Nothing - -type WindowMinimizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowMinimizeCallback :: WindowMinimizeCallbackC -> IO (FunPtr WindowMinimizeCallbackC) - -windowMinimizeClosure :: WindowMinimizeCallback -> IO Closure -windowMinimizeClosure cb = newCClosure =<< mkWindowMinimizeCallback wrapped - where wrapped = windowMinimizeCallbackWrapper cb - -windowMinimizeCallbackWrapper :: - WindowMinimizeCallback -> - Ptr () -> - Ptr () -> - IO () -windowMinimizeCallbackWrapper _cb _ _ = do - _cb - -onWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId -onWindowMinimize obj cb = liftIO $ connectWindowMinimize obj cb SignalConnectBefore -afterWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId -afterWindowMinimize obj cb = connectWindowMinimize obj cb SignalConnectAfter - -connectWindowMinimize :: (GObject a, MonadIO m) => - a -> WindowMinimizeCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowMinimize obj cb after = liftIO $ do - cb' <- mkWindowMinimizeCallback (windowMinimizeCallbackWrapper cb) - connectSignalFunPtr obj "minimize" cb' after - --- signal Window::move -type WindowMoveCallback = - IO () - -noWindowMoveCallback :: Maybe WindowMoveCallback -noWindowMoveCallback = Nothing - -type WindowMoveCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowMoveCallback :: WindowMoveCallbackC -> IO (FunPtr WindowMoveCallbackC) - -windowMoveClosure :: WindowMoveCallback -> IO Closure -windowMoveClosure cb = newCClosure =<< mkWindowMoveCallback wrapped - where wrapped = windowMoveCallbackWrapper cb - -windowMoveCallbackWrapper :: - WindowMoveCallback -> - Ptr () -> - Ptr () -> - IO () -windowMoveCallbackWrapper _cb _ _ = do - _cb - -onWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId -onWindowMove obj cb = liftIO $ connectWindowMove obj cb SignalConnectBefore -afterWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId -afterWindowMove obj cb = connectWindowMove obj cb SignalConnectAfter - -connectWindowMove :: (GObject a, MonadIO m) => - a -> WindowMoveCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowMove obj cb after = liftIO $ do - cb' <- mkWindowMoveCallback (windowMoveCallbackWrapper cb) - connectSignalFunPtr obj "move" cb' after - --- signal Window::resize -type WindowResizeCallback = - IO () - -noWindowResizeCallback :: Maybe WindowResizeCallback -noWindowResizeCallback = Nothing - -type WindowResizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowResizeCallback :: WindowResizeCallbackC -> IO (FunPtr WindowResizeCallbackC) - -windowResizeClosure :: WindowResizeCallback -> IO Closure -windowResizeClosure cb = newCClosure =<< mkWindowResizeCallback wrapped - where wrapped = windowResizeCallbackWrapper cb - -windowResizeCallbackWrapper :: - WindowResizeCallback -> - Ptr () -> - Ptr () -> - IO () -windowResizeCallbackWrapper _cb _ _ = do - _cb - -onWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId -onWindowResize obj cb = liftIO $ connectWindowResize obj cb SignalConnectBefore -afterWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId -afterWindowResize obj cb = connectWindowResize obj cb SignalConnectAfter - -connectWindowResize :: (GObject a, MonadIO m) => - a -> WindowResizeCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowResize obj cb after = liftIO $ do - cb' <- mkWindowResizeCallback (windowResizeCallbackWrapper cb) - connectSignalFunPtr obj "resize" cb' after - --- signal Window::restore -type WindowRestoreCallback = - IO () - -noWindowRestoreCallback :: Maybe WindowRestoreCallback -noWindowRestoreCallback = Nothing - -type WindowRestoreCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowRestoreCallback :: WindowRestoreCallbackC -> IO (FunPtr WindowRestoreCallbackC) - -windowRestoreClosure :: WindowRestoreCallback -> IO Closure -windowRestoreClosure cb = newCClosure =<< mkWindowRestoreCallback wrapped - where wrapped = windowRestoreCallbackWrapper cb - -windowRestoreCallbackWrapper :: - WindowRestoreCallback -> - Ptr () -> - Ptr () -> - IO () -windowRestoreCallbackWrapper _cb _ _ = do - _cb - -onWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId -onWindowRestore obj cb = liftIO $ connectWindowRestore obj cb SignalConnectBefore -afterWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId -afterWindowRestore obj cb = connectWindowRestore obj cb SignalConnectAfter - -connectWindowRestore :: (GObject a, MonadIO m) => - a -> WindowRestoreCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowRestore obj cb after = liftIO $ do - cb' <- mkWindowRestoreCallback (windowRestoreCallbackWrapper cb) - connectSignalFunPtr obj "restore" cb' after - --- constant _BINARY_AGE - -_BINARY_AGE :: Int32 -_BINARY_AGE = 21810 --- constant _INTERFACE_AGE - -_INTERFACE_AGE :: Int32 -_INTERFACE_AGE = 1 --- constant _MAJOR_VERSION - -_MAJOR_VERSION :: Int32 -_MAJOR_VERSION = 2 --- constant _MICRO_VERSION - -_MICRO_VERSION :: Int32 -_MICRO_VERSION = 0 --- constant _MINOR_VERSION - -_MINOR_VERSION :: Int32 -_MINOR_VERSION = 18 --- constant _VERSION_MIN_REQUIRED - -_VERSION_MIN_REQUIRED :: Int32 -_VERSION_MIN_REQUIRED = 2 --- function atk_attribute_set_free --- Args : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_attribute_set_free" atk_attribute_set_free :: - Ptr (GSList (Ptr ())) -> -- attrib_set : TGSList (TBasicType TVoid) - IO () - - -attributeSetFree :: - (MonadIO m) => - [Ptr ()] -> -- attrib_set - m () -attributeSetFree attrib_set = liftIO $ do - attrib_set' <- packGSList attrib_set - atk_attribute_set_free attrib_set' - g_slist_free attrib_set' - return () - --- function atk_focus_tracker_notify --- Args : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_focus_tracker_notify" atk_focus_tracker_notify :: - Ptr Object -> -- object : TInterface "Atk" "Object" - IO () - -{-# DEPRECATED focusTrackerNotify ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. As #AtkObject::focus-event was","deprecated in favor of a #AtkObject::state-change signal, in order","to notify a focus change on your implementation, you can use","atk_object_notify_state_change() instead."]#-} -focusTrackerNotify :: - (MonadIO m, ObjectK a) => - a -> -- object - m () -focusTrackerNotify object = liftIO $ do - let object' = unsafeManagedPtrCastPtr object - atk_focus_tracker_notify object' - touchManagedPtr object - return () - --- function atk_get_binary_age --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_get_binary_age" atk_get_binary_age :: - IO Word32 - - -getBinaryAge :: - (MonadIO m) => - m Word32 -getBinaryAge = liftIO $ do - result <- atk_get_binary_age - return result - --- function atk_get_default_registry --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Atk" "Registry" --- throws : False --- Skip return : False - -foreign import ccall "atk_get_default_registry" atk_get_default_registry :: - IO (Ptr Registry) - - -getDefaultRegistry :: - (MonadIO m) => - m Registry -getDefaultRegistry = liftIO $ do - result <- atk_get_default_registry - checkUnexpectedReturnNULL "atk_get_default_registry" result - result' <- (wrapObject Registry) result - return result' - --- function atk_get_focus_object --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_get_focus_object" atk_get_focus_object :: - IO (Ptr Object) - - -getFocusObject :: - (MonadIO m) => - m Object -getFocusObject = liftIO $ do - result <- atk_get_focus_object - checkUnexpectedReturnNULL "atk_get_focus_object" result - result' <- (newObject Object) result - return result' - --- function atk_get_interface_age --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_get_interface_age" atk_get_interface_age :: - IO Word32 - - -getInterfaceAge :: - (MonadIO m) => - m Word32 -getInterfaceAge = liftIO $ do - result <- atk_get_interface_age - return result - --- function atk_get_major_version --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_get_major_version" atk_get_major_version :: - IO Word32 - - -getMajorVersion :: - (MonadIO m) => - m Word32 -getMajorVersion = liftIO $ do - result <- atk_get_major_version - return result - --- function atk_get_micro_version --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_get_micro_version" atk_get_micro_version :: - IO Word32 - - -getMicroVersion :: - (MonadIO m) => - m Word32 -getMicroVersion = liftIO $ do - result <- atk_get_micro_version - return result - --- function atk_get_minor_version --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "atk_get_minor_version" atk_get_minor_version :: - IO Word32 - - -getMinorVersion :: - (MonadIO m) => - m Word32 -getMinorVersion = liftIO $ do - result <- atk_get_minor_version - return result - --- function atk_get_root --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "atk_get_root" atk_get_root :: - IO (Ptr Object) - - -getRoot :: - (MonadIO m) => - m Object -getRoot = liftIO $ do - result <- atk_get_root - checkUnexpectedReturnNULL "atk_get_root" result - result' <- (newObject Object) result - return result' - --- function atk_get_toolkit_name --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_get_toolkit_name" atk_get_toolkit_name :: - IO CString - - -getToolkitName :: - (MonadIO m) => - m T.Text -getToolkitName = liftIO $ do - result <- atk_get_toolkit_name - checkUnexpectedReturnNULL "atk_get_toolkit_name" result - result' <- cstringToText result - return result' - --- function atk_get_toolkit_version --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_get_toolkit_version" atk_get_toolkit_version :: - IO CString - - -getToolkitVersion :: - (MonadIO m) => - m T.Text -getToolkitVersion = liftIO $ do - result <- atk_get_toolkit_version - checkUnexpectedReturnNULL "atk_get_toolkit_version" result - result' <- cstringToText result - return result' - --- function atk_get_version --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_get_version" atk_get_version :: - IO CString - - -getVersion :: - (MonadIO m) => - m T.Text -getVersion = liftIO $ do - result <- atk_get_version - checkUnexpectedReturnNULL "atk_get_version" result - result' <- cstringToText result - return result' - --- function atk_relation_type_for_name --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "RelationType" --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_type_for_name" atk_relation_type_for_name :: - CString -> -- name : TBasicType TUTF8 - IO CUInt - - -relationTypeForName :: - (MonadIO m) => - T.Text -> -- name - m RelationType -relationTypeForName name = liftIO $ do - name' <- textToCString name - result <- atk_relation_type_for_name name' - let result' = (toEnum . fromIntegral) result - freeMem name' - return result' - --- function atk_relation_type_get_name --- Args : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_type_get_name" atk_relation_type_get_name :: - CUInt -> -- type : TInterface "Atk" "RelationType" - IO CString - - -relationTypeGetName :: - (MonadIO m) => - RelationType -> -- type - m T.Text -relationTypeGetName type_ = liftIO $ do - let type_' = (fromIntegral . fromEnum) type_ - result <- atk_relation_type_get_name type_' - checkUnexpectedReturnNULL "atk_relation_type_get_name" result - result' <- cstringToText result - return result' - --- function atk_relation_type_register --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "RelationType" --- throws : False --- Skip return : False - -foreign import ccall "atk_relation_type_register" atk_relation_type_register :: - CString -> -- name : TBasicType TUTF8 - IO CUInt - - -relationTypeRegister :: - (MonadIO m) => - T.Text -> -- name - m RelationType -relationTypeRegister name = liftIO $ do - name' <- textToCString name - result <- atk_relation_type_register name' - let result' = (toEnum . fromIntegral) result - freeMem name' - return result' - --- function atk_remove_focus_tracker --- Args : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_remove_focus_tracker" atk_remove_focus_tracker :: - Word32 -> -- tracker_id : TBasicType TUInt32 - IO () - -{-# DEPRECATED removeFocusTracker ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. If you need focus tracking on your","implementation, subscribe to the #AtkObject::state-change \"focused\" signal.","","Removes the specified focus tracker from the list of functions","to be called when any object receives focus."]#-} -removeFocusTracker :: - (MonadIO m) => - Word32 -> -- tracker_id - m () -removeFocusTracker tracker_id = liftIO $ do - atk_remove_focus_tracker tracker_id - return () - --- function atk_remove_global_event_listener --- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_remove_global_event_listener" atk_remove_global_event_listener :: - Word32 -> -- listener_id : TBasicType TUInt32 - IO () - - -removeGlobalEventListener :: - (MonadIO m) => - Word32 -> -- listener_id - m () -removeGlobalEventListener listener_id = liftIO $ do - atk_remove_global_event_listener listener_id - return () - --- function atk_remove_key_event_listener --- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_remove_key_event_listener" atk_remove_key_event_listener :: - Word32 -> -- listener_id : TBasicType TUInt32 - IO () - - -removeKeyEventListener :: - (MonadIO m) => - Word32 -> -- listener_id - m () -removeKeyEventListener listener_id = liftIO $ do - atk_remove_key_event_listener listener_id - return () - --- function atk_role_for_name --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Role" --- throws : False --- Skip return : False - -foreign import ccall "atk_role_for_name" atk_role_for_name :: - CString -> -- name : TBasicType TUTF8 - IO CUInt - - -roleForName :: - (MonadIO m) => - T.Text -> -- name - m Role -roleForName name = liftIO $ do - name' <- textToCString name - result <- atk_role_for_name name' - let result' = (toEnum . fromIntegral) result - freeMem name' - return result' - --- function atk_role_get_localized_name --- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_role_get_localized_name" atk_role_get_localized_name :: - CUInt -> -- role : TInterface "Atk" "Role" - IO CString - - -roleGetLocalizedName :: - (MonadIO m) => - Role -> -- role - m T.Text -roleGetLocalizedName role = liftIO $ do - let role' = (fromIntegral . fromEnum) role - result <- atk_role_get_localized_name role' - checkUnexpectedReturnNULL "atk_role_get_localized_name" result - result' <- cstringToText result - return result' - --- function atk_role_get_name --- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_role_get_name" atk_role_get_name :: - CUInt -> -- role : TInterface "Atk" "Role" - IO CString - - -roleGetName :: - (MonadIO m) => - Role -> -- role - m T.Text -roleGetName role = liftIO $ do - let role' = (fromIntegral . fromEnum) role - result <- atk_role_get_name role' - checkUnexpectedReturnNULL "atk_role_get_name" result - result' <- cstringToText result - return result' - --- function atk_role_register --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Role" --- throws : False --- Skip return : False - -foreign import ccall "atk_role_register" atk_role_register :: - CString -> -- name : TBasicType TUTF8 - IO CUInt - -{-# DEPRECATED roleRegister ["Since 2.12. If your application/toolkit doesn't find a","suitable role for a specific object defined at #AtkRole, please","submit a bug in order to add a new role to the specification."]#-} -roleRegister :: - (MonadIO m) => - T.Text -> -- name - m Role -roleRegister name = liftIO $ do - name' <- textToCString name - result <- atk_role_register name' - let result' = (toEnum . fromIntegral) result - freeMem name' - return result' - --- function atk_state_type_for_name --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "StateType" --- throws : False --- Skip return : False - -foreign import ccall "atk_state_type_for_name" atk_state_type_for_name :: - CString -> -- name : TBasicType TUTF8 - IO CUInt - - -stateTypeForName :: - (MonadIO m) => - T.Text -> -- name - m StateType -stateTypeForName name = liftIO $ do - name' <- textToCString name - result <- atk_state_type_for_name name' - let result' = (toEnum . fromIntegral) result - freeMem name' - return result' - --- function atk_state_type_get_name --- Args : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_state_type_get_name" atk_state_type_get_name :: - CUInt -> -- type : TInterface "Atk" "StateType" - IO CString - - -stateTypeGetName :: - (MonadIO m) => - StateType -> -- type - m T.Text -stateTypeGetName type_ = liftIO $ do - let type_' = (fromIntegral . fromEnum) type_ - result <- atk_state_type_get_name type_' - checkUnexpectedReturnNULL "atk_state_type_get_name" result - result' <- cstringToText result - return result' - --- function atk_state_type_register --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "StateType" --- throws : False --- Skip return : False - -foreign import ccall "atk_state_type_register" atk_state_type_register :: - CString -> -- name : TBasicType TUTF8 - IO CUInt - - -stateTypeRegister :: - (MonadIO m) => - T.Text -> -- name - m StateType -stateTypeRegister name = liftIO $ do - name' <- textToCString name - result <- atk_state_type_register name' - let result' = (toEnum . fromIntegral) result - freeMem name' - return result' - --- function atk_text_attribute_for_name --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "TextAttribute" --- throws : False --- Skip return : False - -foreign import ccall "atk_text_attribute_for_name" atk_text_attribute_for_name :: - CString -> -- name : TBasicType TUTF8 - IO CUInt - - -textAttributeForName :: - (MonadIO m) => - T.Text -> -- name - m TextAttribute -textAttributeForName name = liftIO $ do - name' <- textToCString name - result <- atk_text_attribute_for_name name' - let result' = (toEnum . fromIntegral) result - freeMem name' - return result' - --- function atk_text_attribute_get_name --- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_attribute_get_name" atk_text_attribute_get_name :: - CUInt -> -- attr : TInterface "Atk" "TextAttribute" - IO CString - - -textAttributeGetName :: - (MonadIO m) => - TextAttribute -> -- attr - m T.Text -textAttributeGetName attr = liftIO $ do - let attr' = (fromIntegral . fromEnum) attr - result <- atk_text_attribute_get_name attr' - checkUnexpectedReturnNULL "atk_text_attribute_get_name" result - result' <- cstringToText result - return result' - --- function atk_text_attribute_get_value --- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_text_attribute_get_value" atk_text_attribute_get_value :: - CUInt -> -- attr : TInterface "Atk" "TextAttribute" - Int32 -> -- index_ : TBasicType TInt32 - IO CString - - -textAttributeGetValue :: - (MonadIO m) => - TextAttribute -> -- attr - Int32 -> -- index_ - m T.Text -textAttributeGetValue attr index_ = liftIO $ do - let attr' = (fromIntegral . fromEnum) attr - result <- atk_text_attribute_get_value attr' index_ - checkUnexpectedReturnNULL "atk_text_attribute_get_value" result - result' <- cstringToText result - return result' - --- function atk_text_attribute_register --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "TextAttribute" --- throws : False --- Skip return : False - -foreign import ccall "atk_text_attribute_register" atk_text_attribute_register :: - CString -> -- name : TBasicType TUTF8 - IO CUInt - - -textAttributeRegister :: - (MonadIO m) => - T.Text -> -- name - m TextAttribute -textAttributeRegister name = liftIO $ do - name' <- textToCString name - result <- atk_text_attribute_register name' - let result' = (toEnum . fromIntegral) result - freeMem name' - return result' - --- function atk_text_free_ranges --- Args : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "atk_text_free_ranges" atk_text_free_ranges :: - Ptr (Ptr TextRange) -> -- ranges : TCArray False (-1) (-1) (TInterface "Atk" "TextRange") - IO () - - -textFreeRanges :: - (MonadIO m) => - Ptr (Ptr TextRange) -> -- ranges - m () -textFreeRanges ranges = liftIO $ do - atk_text_free_ranges ranges - return () - --- function atk_value_type_get_localized_name --- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_value_type_get_localized_name" atk_value_type_get_localized_name :: - CUInt -> -- value_type : TInterface "Atk" "ValueType" - IO CString - - -valueTypeGetLocalizedName :: - (MonadIO m) => - ValueType -> -- value_type - m T.Text -valueTypeGetLocalizedName value_type = liftIO $ do - let value_type' = (fromIntegral . fromEnum) value_type - result <- atk_value_type_get_localized_name value_type' - checkUnexpectedReturnNULL "atk_value_type_get_localized_name" result - result' <- cstringToText result - return result' - --- function atk_value_type_get_name --- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "atk_value_type_get_name" atk_value_type_get_name :: - CUInt -> -- value_type : TInterface "Atk" "ValueType" - IO CString - - -valueTypeGetName :: - (MonadIO m) => - ValueType -> -- value_type - m T.Text -valueTypeGetName value_type = liftIO $ do - let value_type' = (fromIntegral . fromEnum) value_type - result <- atk_value_type_get_name value_type' - checkUnexpectedReturnNULL "atk_value_type_get_name" result - result' <- cstringToText result - return result' + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk + ( module GI.Atk.Callbacks , + module GI.Atk.Constants , + module GI.Atk.Enums , + module GI.Atk.Flags , + module GI.Atk.Functions , + module GI.Atk.Interfaces , + module GI.Atk.Objects , + module GI.Atk.Structs , + + + ) where + +import GI.Atk.Callbacks +import GI.Atk.Constants +import GI.Atk.Enums +import GI.Atk.Flags +import GI.Atk.Functions +import GI.Atk.Interfaces +import GI.Atk.Objects +import GI.Atk.Structs + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + diff --git a/GI/Atk/Callbacks.hs b/GI/Atk/Callbacks.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Callbacks.hs @@ -0,0 +1,261 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Callbacks + ( + + -- * Signals +-- ** EventListener + EventListener , + EventListenerC , + eventListenerClosure , + eventListenerWrapper , + mkEventListener , + noEventListener , + + +-- ** EventListenerInit + EventListenerInit , + EventListenerInitC , + eventListenerInitClosure , + eventListenerInitWrapper , + mkEventListenerInit , + noEventListenerInit , + + +-- ** FocusHandler + FocusHandler , + FocusHandlerC , + focusHandlerClosure , + focusHandlerWrapper , + mkFocusHandler , + noFocusHandler , + + +-- ** Function + Function , + FunctionC , + functionClosure , + functionWrapper , + mkFunction , + noFunction , + + +-- ** KeySnoopFunc + KeySnoopFunc , + KeySnoopFuncC , + keySnoopFuncClosure , + keySnoopFuncWrapper , + mkKeySnoopFunc , + noKeySnoopFunc , + + +-- ** PropertyChangeHandler + PropertyChangeHandler , + PropertyChangeHandlerC , + mkPropertyChangeHandler , + noPropertyChangeHandler , + propertyChangeHandlerClosure , + propertyChangeHandlerWrapper , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types + + +-- callback PropertyChangeHandler +propertyChangeHandlerClosure :: PropertyChangeHandler -> IO Closure +propertyChangeHandlerClosure cb = newCClosure =<< mkPropertyChangeHandler wrapped + where wrapped = propertyChangeHandlerWrapper Nothing cb + +type PropertyChangeHandlerC = + Ptr Object -> + Ptr PropertyValues -> + IO () + +foreign import ccall "wrapper" + mkPropertyChangeHandler :: PropertyChangeHandlerC -> IO (FunPtr PropertyChangeHandlerC) + +type PropertyChangeHandler = + Object -> + PropertyValues -> + IO () + +noPropertyChangeHandler :: Maybe PropertyChangeHandler +noPropertyChangeHandler = Nothing + +propertyChangeHandlerWrapper :: + Maybe (Ptr (FunPtr (PropertyChangeHandlerC))) -> + PropertyChangeHandler -> + Ptr Object -> + Ptr PropertyValues -> + IO () +propertyChangeHandlerWrapper funptrptr _cb obj vals = do + obj' <- (newObject Object) obj + vals' <- (newPtr 56 PropertyValues) vals + _cb obj' vals' + maybeReleaseFunPtr funptrptr + +-- callback KeySnoopFunc +keySnoopFuncClosure :: KeySnoopFunc -> IO Closure +keySnoopFuncClosure cb = newCClosure =<< mkKeySnoopFunc wrapped + where wrapped = keySnoopFuncWrapper Nothing cb + +type KeySnoopFuncC = + Ptr KeyEventStruct -> + Ptr () -> + IO Int32 + +foreign import ccall "wrapper" + mkKeySnoopFunc :: KeySnoopFuncC -> IO (FunPtr KeySnoopFuncC) + +type KeySnoopFunc = + KeyEventStruct -> + IO Int32 + +noKeySnoopFunc :: Maybe KeySnoopFunc +noKeySnoopFunc = Nothing + +keySnoopFuncWrapper :: + Maybe (Ptr (FunPtr (KeySnoopFuncC))) -> + KeySnoopFunc -> + Ptr KeyEventStruct -> + Ptr () -> + IO Int32 +keySnoopFuncWrapper funptrptr _cb event _ = do + event' <- (newPtr 32 KeyEventStruct) event + result <- _cb event' + maybeReleaseFunPtr funptrptr + return result + +-- callback Function +functionClosure :: Function -> IO Closure +functionClosure cb = newCClosure =<< mkFunction wrapped + where wrapped = functionWrapper Nothing cb + +type FunctionC = + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkFunction :: FunctionC -> IO (FunPtr FunctionC) + +type Function = + IO Bool + +noFunction :: Maybe Function +noFunction = Nothing + +functionWrapper :: + Maybe (Ptr (FunPtr (FunctionC))) -> + Function -> + Ptr () -> + IO CInt +functionWrapper funptrptr _cb _ = do + result <- _cb + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback FocusHandler +focusHandlerClosure :: FocusHandler -> IO Closure +focusHandlerClosure cb = newCClosure =<< mkFocusHandler wrapped + where wrapped = focusHandlerWrapper Nothing cb + +type FocusHandlerC = + Ptr Object -> + CInt -> + IO () + +foreign import ccall "wrapper" + mkFocusHandler :: FocusHandlerC -> IO (FunPtr FocusHandlerC) + +type FocusHandler = + Object -> + Bool -> + IO () + +noFocusHandler :: Maybe FocusHandler +noFocusHandler = Nothing + +focusHandlerWrapper :: + Maybe (Ptr (FunPtr (FocusHandlerC))) -> + FocusHandler -> + Ptr Object -> + CInt -> + IO () +focusHandlerWrapper funptrptr _cb object focus_in = do + object' <- (newObject Object) object + let focus_in' = (/= 0) focus_in + _cb object' focus_in' + maybeReleaseFunPtr funptrptr + +-- callback EventListenerInit +eventListenerInitClosure :: EventListenerInit -> IO Closure +eventListenerInitClosure cb = newCClosure =<< mkEventListenerInit wrapped + where wrapped = eventListenerInitWrapper Nothing cb + +type EventListenerInitC = + IO () + +foreign import ccall "wrapper" + mkEventListenerInit :: EventListenerInitC -> IO (FunPtr EventListenerInitC) + +type EventListenerInit = + IO () + +noEventListenerInit :: Maybe EventListenerInit +noEventListenerInit = Nothing + +eventListenerInitWrapper :: + Maybe (Ptr (FunPtr (EventListenerInitC))) -> + EventListenerInit -> + IO () +eventListenerInitWrapper funptrptr _cb = do + _cb + maybeReleaseFunPtr funptrptr + +-- callback EventListener +eventListenerClosure :: EventListener -> IO Closure +eventListenerClosure cb = newCClosure =<< mkEventListener wrapped + where wrapped = eventListenerWrapper Nothing cb + +type EventListenerC = + Ptr Object -> + IO () + +foreign import ccall "wrapper" + mkEventListener :: EventListenerC -> IO (FunPtr EventListenerC) + +type EventListener = + Object -> + IO () + +noEventListener :: Maybe EventListener +noEventListener = Nothing + +eventListenerWrapper :: + Maybe (Ptr (FunPtr (EventListenerC))) -> + EventListener -> + Ptr Object -> + IO () +eventListenerWrapper funptrptr _cb obj = do + obj' <- (newObject Object) obj + _cb obj' + maybeReleaseFunPtr funptrptr + + diff --git a/GI/Atk/Constants.hs b/GI/Atk/Constants.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Constants.hs @@ -0,0 +1,48 @@ +{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Constants + ( + pattern VERSION_MIN_REQUIRED , + pattern MINOR_VERSION , + pattern MICRO_VERSION , + pattern MAJOR_VERSION , + pattern INTERFACE_AGE , + pattern BINARY_AGE , + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + + +pattern VERSION_MIN_REQUIRED = 2 :: Int32 + + +pattern MINOR_VERSION = 18 :: Int32 + + +pattern MICRO_VERSION = 0 :: Int32 + + +pattern MAJOR_VERSION = 2 :: Int32 + + +pattern INTERFACE_AGE = 1 :: Int32 + + +pattern BINARY_AGE = 21810 :: Int32 + + diff --git a/GI/Atk/Enums.hs b/GI/Atk/Enums.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Enums.hs @@ -0,0 +1,1001 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Enums + ( + +-- * Exported types + ValueType(..) , + TextGranularity(..) , + TextClipType(..) , + TextBoundary(..) , + TextAttribute(..) , + StateType(..) , + Role(..) , + RelationType(..) , + Layer(..) , + KeyEventType(..) , + CoordType(..) , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + + + + +-- Enum ValueType + +data ValueType = + ValueTypeVeryWeak + | ValueTypeWeak + | ValueTypeAcceptable + | ValueTypeStrong + | ValueTypeVeryStrong + | ValueTypeVeryLow + | ValueTypeLow + | ValueTypeMedium + | ValueTypeHigh + | ValueTypeVeryHigh + | ValueTypeVeryBad + | ValueTypeBad + | ValueTypeGood + | ValueTypeVeryGood + | ValueTypeBest + | ValueTypeLastDefined + | AnotherValueType Int + deriving (Show, Eq) + +instance Enum ValueType where + fromEnum ValueTypeVeryWeak = 0 + fromEnum ValueTypeWeak = 1 + fromEnum ValueTypeAcceptable = 2 + fromEnum ValueTypeStrong = 3 + fromEnum ValueTypeVeryStrong = 4 + fromEnum ValueTypeVeryLow = 5 + fromEnum ValueTypeLow = 6 + fromEnum ValueTypeMedium = 7 + fromEnum ValueTypeHigh = 8 + fromEnum ValueTypeVeryHigh = 9 + fromEnum ValueTypeVeryBad = 10 + fromEnum ValueTypeBad = 11 + fromEnum ValueTypeGood = 12 + fromEnum ValueTypeVeryGood = 13 + fromEnum ValueTypeBest = 14 + fromEnum ValueTypeLastDefined = 15 + fromEnum (AnotherValueType k) = k + + toEnum 0 = ValueTypeVeryWeak + toEnum 1 = ValueTypeWeak + toEnum 2 = ValueTypeAcceptable + toEnum 3 = ValueTypeStrong + toEnum 4 = ValueTypeVeryStrong + toEnum 5 = ValueTypeVeryLow + toEnum 6 = ValueTypeLow + toEnum 7 = ValueTypeMedium + toEnum 8 = ValueTypeHigh + toEnum 9 = ValueTypeVeryHigh + toEnum 10 = ValueTypeVeryBad + toEnum 11 = ValueTypeBad + toEnum 12 = ValueTypeGood + toEnum 13 = ValueTypeVeryGood + toEnum 14 = ValueTypeBest + toEnum 15 = ValueTypeLastDefined + toEnum k = AnotherValueType k + +foreign import ccall "atk_value_type_get_type" c_atk_value_type_get_type :: + IO GType + +instance BoxedEnum ValueType where + boxedEnumType _ = c_atk_value_type_get_type + +-- Enum TextGranularity + +data TextGranularity = + TextGranularityChar + | TextGranularityWord + | TextGranularitySentence + | TextGranularityLine + | TextGranularityParagraph + | AnotherTextGranularity Int + deriving (Show, Eq) + +instance Enum TextGranularity where + fromEnum TextGranularityChar = 0 + fromEnum TextGranularityWord = 1 + fromEnum TextGranularitySentence = 2 + fromEnum TextGranularityLine = 3 + fromEnum TextGranularityParagraph = 4 + fromEnum (AnotherTextGranularity k) = k + + toEnum 0 = TextGranularityChar + toEnum 1 = TextGranularityWord + toEnum 2 = TextGranularitySentence + toEnum 3 = TextGranularityLine + toEnum 4 = TextGranularityParagraph + toEnum k = AnotherTextGranularity k + +foreign import ccall "atk_text_granularity_get_type" c_atk_text_granularity_get_type :: + IO GType + +instance BoxedEnum TextGranularity where + boxedEnumType _ = c_atk_text_granularity_get_type + +-- Enum TextClipType + +data TextClipType = + TextClipTypeNone + | TextClipTypeMin + | TextClipTypeMax + | TextClipTypeBoth + | AnotherTextClipType Int + deriving (Show, Eq) + +instance Enum TextClipType where + fromEnum TextClipTypeNone = 0 + fromEnum TextClipTypeMin = 1 + fromEnum TextClipTypeMax = 2 + fromEnum TextClipTypeBoth = 3 + fromEnum (AnotherTextClipType k) = k + + toEnum 0 = TextClipTypeNone + toEnum 1 = TextClipTypeMin + toEnum 2 = TextClipTypeMax + toEnum 3 = TextClipTypeBoth + toEnum k = AnotherTextClipType k + +foreign import ccall "atk_text_clip_type_get_type" c_atk_text_clip_type_get_type :: + IO GType + +instance BoxedEnum TextClipType where + boxedEnumType _ = c_atk_text_clip_type_get_type + +-- Enum TextBoundary + +data TextBoundary = + TextBoundaryChar + | TextBoundaryWordStart + | TextBoundaryWordEnd + | TextBoundarySentenceStart + | TextBoundarySentenceEnd + | TextBoundaryLineStart + | TextBoundaryLineEnd + | AnotherTextBoundary Int + deriving (Show, Eq) + +instance Enum TextBoundary where + fromEnum TextBoundaryChar = 0 + fromEnum TextBoundaryWordStart = 1 + fromEnum TextBoundaryWordEnd = 2 + fromEnum TextBoundarySentenceStart = 3 + fromEnum TextBoundarySentenceEnd = 4 + fromEnum TextBoundaryLineStart = 5 + fromEnum TextBoundaryLineEnd = 6 + fromEnum (AnotherTextBoundary k) = k + + toEnum 0 = TextBoundaryChar + toEnum 1 = TextBoundaryWordStart + toEnum 2 = TextBoundaryWordEnd + toEnum 3 = TextBoundarySentenceStart + toEnum 4 = TextBoundarySentenceEnd + toEnum 5 = TextBoundaryLineStart + toEnum 6 = TextBoundaryLineEnd + toEnum k = AnotherTextBoundary k + +foreign import ccall "atk_text_boundary_get_type" c_atk_text_boundary_get_type :: + IO GType + +instance BoxedEnum TextBoundary where + boxedEnumType _ = c_atk_text_boundary_get_type + +-- Enum TextAttribute + +data TextAttribute = + TextAttributeInvalid + | TextAttributeLeftMargin + | TextAttributeRightMargin + | TextAttributeIndent + | TextAttributeInvisible + | TextAttributeEditable + | TextAttributePixelsAboveLines + | TextAttributePixelsBelowLines + | TextAttributePixelsInsideWrap + | TextAttributeBgFullHeight + | TextAttributeRise + | TextAttributeUnderline + | TextAttributeStrikethrough + | TextAttributeSize + | TextAttributeScale + | TextAttributeWeight + | TextAttributeLanguage + | TextAttributeFamilyName + | TextAttributeBgColor + | TextAttributeFgColor + | TextAttributeBgStipple + | TextAttributeFgStipple + | TextAttributeWrapMode + | TextAttributeDirection + | TextAttributeJustification + | TextAttributeStretch + | TextAttributeVariant + | TextAttributeStyle + | TextAttributeLastDefined + | AnotherTextAttribute Int + deriving (Show, Eq) + +instance Enum TextAttribute where + fromEnum TextAttributeInvalid = 0 + fromEnum TextAttributeLeftMargin = 1 + fromEnum TextAttributeRightMargin = 2 + fromEnum TextAttributeIndent = 3 + fromEnum TextAttributeInvisible = 4 + fromEnum TextAttributeEditable = 5 + fromEnum TextAttributePixelsAboveLines = 6 + fromEnum TextAttributePixelsBelowLines = 7 + fromEnum TextAttributePixelsInsideWrap = 8 + fromEnum TextAttributeBgFullHeight = 9 + fromEnum TextAttributeRise = 10 + fromEnum TextAttributeUnderline = 11 + fromEnum TextAttributeStrikethrough = 12 + fromEnum TextAttributeSize = 13 + fromEnum TextAttributeScale = 14 + fromEnum TextAttributeWeight = 15 + fromEnum TextAttributeLanguage = 16 + fromEnum TextAttributeFamilyName = 17 + fromEnum TextAttributeBgColor = 18 + fromEnum TextAttributeFgColor = 19 + fromEnum TextAttributeBgStipple = 20 + fromEnum TextAttributeFgStipple = 21 + fromEnum TextAttributeWrapMode = 22 + fromEnum TextAttributeDirection = 23 + fromEnum TextAttributeJustification = 24 + fromEnum TextAttributeStretch = 25 + fromEnum TextAttributeVariant = 26 + fromEnum TextAttributeStyle = 27 + fromEnum TextAttributeLastDefined = 28 + fromEnum (AnotherTextAttribute k) = k + + toEnum 0 = TextAttributeInvalid + toEnum 1 = TextAttributeLeftMargin + toEnum 2 = TextAttributeRightMargin + toEnum 3 = TextAttributeIndent + toEnum 4 = TextAttributeInvisible + toEnum 5 = TextAttributeEditable + toEnum 6 = TextAttributePixelsAboveLines + toEnum 7 = TextAttributePixelsBelowLines + toEnum 8 = TextAttributePixelsInsideWrap + toEnum 9 = TextAttributeBgFullHeight + toEnum 10 = TextAttributeRise + toEnum 11 = TextAttributeUnderline + toEnum 12 = TextAttributeStrikethrough + toEnum 13 = TextAttributeSize + toEnum 14 = TextAttributeScale + toEnum 15 = TextAttributeWeight + toEnum 16 = TextAttributeLanguage + toEnum 17 = TextAttributeFamilyName + toEnum 18 = TextAttributeBgColor + toEnum 19 = TextAttributeFgColor + toEnum 20 = TextAttributeBgStipple + toEnum 21 = TextAttributeFgStipple + toEnum 22 = TextAttributeWrapMode + toEnum 23 = TextAttributeDirection + toEnum 24 = TextAttributeJustification + toEnum 25 = TextAttributeStretch + toEnum 26 = TextAttributeVariant + toEnum 27 = TextAttributeStyle + toEnum 28 = TextAttributeLastDefined + toEnum k = AnotherTextAttribute k + +foreign import ccall "atk_text_attribute_get_type" c_atk_text_attribute_get_type :: + IO GType + +instance BoxedEnum TextAttribute where + boxedEnumType _ = c_atk_text_attribute_get_type + +-- Enum StateType + +data StateType = + StateTypeInvalid + | StateTypeActive + | StateTypeArmed + | StateTypeBusy + | StateTypeChecked + | StateTypeDefunct + | StateTypeEditable + | StateTypeEnabled + | StateTypeExpandable + | StateTypeExpanded + | StateTypeFocusable + | StateTypeFocused + | StateTypeHorizontal + | StateTypeIconified + | StateTypeModal + | StateTypeMultiLine + | StateTypeMultiselectable + | StateTypeOpaque + | StateTypePressed + | StateTypeResizable + | StateTypeSelectable + | StateTypeSelected + | StateTypeSensitive + | StateTypeShowing + | StateTypeSingleLine + | StateTypeStale + | StateTypeTransient + | StateTypeVertical + | StateTypeVisible + | StateTypeManagesDescendants + | StateTypeIndeterminate + | StateTypeTruncated + | StateTypeRequired + | StateTypeInvalidEntry + | StateTypeSupportsAutocompletion + | StateTypeSelectableText + | StateTypeDefault + | StateTypeAnimated + | StateTypeVisited + | StateTypeCheckable + | StateTypeHasPopup + | StateTypeHasTooltip + | StateTypeReadOnly + | StateTypeLastDefined + | AnotherStateType Int + deriving (Show, Eq) + +instance Enum StateType where + fromEnum StateTypeInvalid = 0 + fromEnum StateTypeActive = 1 + fromEnum StateTypeArmed = 2 + fromEnum StateTypeBusy = 3 + fromEnum StateTypeChecked = 4 + fromEnum StateTypeDefunct = 5 + fromEnum StateTypeEditable = 6 + fromEnum StateTypeEnabled = 7 + fromEnum StateTypeExpandable = 8 + fromEnum StateTypeExpanded = 9 + fromEnum StateTypeFocusable = 10 + fromEnum StateTypeFocused = 11 + fromEnum StateTypeHorizontal = 12 + fromEnum StateTypeIconified = 13 + fromEnum StateTypeModal = 14 + fromEnum StateTypeMultiLine = 15 + fromEnum StateTypeMultiselectable = 16 + fromEnum StateTypeOpaque = 17 + fromEnum StateTypePressed = 18 + fromEnum StateTypeResizable = 19 + fromEnum StateTypeSelectable = 20 + fromEnum StateTypeSelected = 21 + fromEnum StateTypeSensitive = 22 + fromEnum StateTypeShowing = 23 + fromEnum StateTypeSingleLine = 24 + fromEnum StateTypeStale = 25 + fromEnum StateTypeTransient = 26 + fromEnum StateTypeVertical = 27 + fromEnum StateTypeVisible = 28 + fromEnum StateTypeManagesDescendants = 29 + fromEnum StateTypeIndeterminate = 30 + fromEnum StateTypeTruncated = 31 + fromEnum StateTypeRequired = 32 + fromEnum StateTypeInvalidEntry = 33 + fromEnum StateTypeSupportsAutocompletion = 34 + fromEnum StateTypeSelectableText = 35 + fromEnum StateTypeDefault = 36 + fromEnum StateTypeAnimated = 37 + fromEnum StateTypeVisited = 38 + fromEnum StateTypeCheckable = 39 + fromEnum StateTypeHasPopup = 40 + fromEnum StateTypeHasTooltip = 41 + fromEnum StateTypeReadOnly = 42 + fromEnum StateTypeLastDefined = 43 + fromEnum (AnotherStateType k) = k + + toEnum 0 = StateTypeInvalid + toEnum 1 = StateTypeActive + toEnum 2 = StateTypeArmed + toEnum 3 = StateTypeBusy + toEnum 4 = StateTypeChecked + toEnum 5 = StateTypeDefunct + toEnum 6 = StateTypeEditable + toEnum 7 = StateTypeEnabled + toEnum 8 = StateTypeExpandable + toEnum 9 = StateTypeExpanded + toEnum 10 = StateTypeFocusable + toEnum 11 = StateTypeFocused + toEnum 12 = StateTypeHorizontal + toEnum 13 = StateTypeIconified + toEnum 14 = StateTypeModal + toEnum 15 = StateTypeMultiLine + toEnum 16 = StateTypeMultiselectable + toEnum 17 = StateTypeOpaque + toEnum 18 = StateTypePressed + toEnum 19 = StateTypeResizable + toEnum 20 = StateTypeSelectable + toEnum 21 = StateTypeSelected + toEnum 22 = StateTypeSensitive + toEnum 23 = StateTypeShowing + toEnum 24 = StateTypeSingleLine + toEnum 25 = StateTypeStale + toEnum 26 = StateTypeTransient + toEnum 27 = StateTypeVertical + toEnum 28 = StateTypeVisible + toEnum 29 = StateTypeManagesDescendants + toEnum 30 = StateTypeIndeterminate + toEnum 31 = StateTypeTruncated + toEnum 32 = StateTypeRequired + toEnum 33 = StateTypeInvalidEntry + toEnum 34 = StateTypeSupportsAutocompletion + toEnum 35 = StateTypeSelectableText + toEnum 36 = StateTypeDefault + toEnum 37 = StateTypeAnimated + toEnum 38 = StateTypeVisited + toEnum 39 = StateTypeCheckable + toEnum 40 = StateTypeHasPopup + toEnum 41 = StateTypeHasTooltip + toEnum 42 = StateTypeReadOnly + toEnum 43 = StateTypeLastDefined + toEnum k = AnotherStateType k + +foreign import ccall "atk_state_type_get_type" c_atk_state_type_get_type :: + IO GType + +instance BoxedEnum StateType where + boxedEnumType _ = c_atk_state_type_get_type + +-- Enum Role + +data Role = + RoleInvalid + | RoleAcceleratorLabel + | RoleAlert + | RoleAnimation + | RoleArrow + | RoleCalendar + | RoleCanvas + | RoleCheckBox + | RoleCheckMenuItem + | RoleColorChooser + | RoleColumnHeader + | RoleComboBox + | RoleDateEditor + | RoleDesktopIcon + | RoleDesktopFrame + | RoleDial + | RoleDialog + | RoleDirectoryPane + | RoleDrawingArea + | RoleFileChooser + | RoleFiller + | RoleFontChooser + | RoleFrame + | RoleGlassPane + | RoleHtmlContainer + | RoleIcon + | RoleImage + | RoleInternalFrame + | RoleLabel + | RoleLayeredPane + | RoleList + | RoleListItem + | RoleMenu + | RoleMenuBar + | RoleMenuItem + | RoleOptionPane + | RolePageTab + | RolePageTabList + | RolePanel + | RolePasswordText + | RolePopupMenu + | RoleProgressBar + | RolePushButton + | RoleRadioButton + | RoleRadioMenuItem + | RoleRootPane + | RoleRowHeader + | RoleScrollBar + | RoleScrollPane + | RoleSeparator + | RoleSlider + | RoleSplitPane + | RoleSpinButton + | RoleStatusbar + | RoleTable + | RoleTableCell + | RoleTableColumnHeader + | RoleTableRowHeader + | RoleTearOffMenuItem + | RoleTerminal + | RoleText + | RoleToggleButton + | RoleToolBar + | RoleToolTip + | RoleTree + | RoleTreeTable + | RoleUnknown + | RoleViewport + | RoleWindow + | RoleHeader + | RoleFooter + | RoleParagraph + | RoleRuler + | RoleApplication + | RoleAutocomplete + | RoleEditBar + | RoleEmbedded + | RoleEntry + | RoleChart + | RoleCaption + | RoleDocumentFrame + | RoleHeading + | RolePage + | RoleSection + | RoleRedundantObject + | RoleForm + | RoleLink + | RoleInputMethodWindow + | RoleTableRow + | RoleTreeItem + | RoleDocumentSpreadsheet + | RoleDocumentPresentation + | RoleDocumentText + | RoleDocumentWeb + | RoleDocumentEmail + | RoleComment + | RoleListBox + | RoleGrouping + | RoleImageMap + | RoleNotification + | RoleInfoBar + | RoleLevelBar + | RoleTitleBar + | RoleBlockQuote + | RoleAudio + | RoleVideo + | RoleDefinition + | RoleArticle + | RoleLandmark + | RoleLog + | RoleMarquee + | RoleMath + | RoleRating + | RoleTimer + | RoleDescriptionList + | RoleDescriptionTerm + | RoleDescriptionValue + | RoleStatic + | RoleMathFraction + | RoleMathRoot + | RoleSubscript + | RoleSuperscript + | RoleLastDefined + | AnotherRole Int + deriving (Show, Eq) + +instance Enum Role where + fromEnum RoleInvalid = 0 + fromEnum RoleAcceleratorLabel = 1 + fromEnum RoleAlert = 2 + fromEnum RoleAnimation = 3 + fromEnum RoleArrow = 4 + fromEnum RoleCalendar = 5 + fromEnum RoleCanvas = 6 + fromEnum RoleCheckBox = 7 + fromEnum RoleCheckMenuItem = 8 + fromEnum RoleColorChooser = 9 + fromEnum RoleColumnHeader = 10 + fromEnum RoleComboBox = 11 + fromEnum RoleDateEditor = 12 + fromEnum RoleDesktopIcon = 13 + fromEnum RoleDesktopFrame = 14 + fromEnum RoleDial = 15 + fromEnum RoleDialog = 16 + fromEnum RoleDirectoryPane = 17 + fromEnum RoleDrawingArea = 18 + fromEnum RoleFileChooser = 19 + fromEnum RoleFiller = 20 + fromEnum RoleFontChooser = 21 + fromEnum RoleFrame = 22 + fromEnum RoleGlassPane = 23 + fromEnum RoleHtmlContainer = 24 + fromEnum RoleIcon = 25 + fromEnum RoleImage = 26 + fromEnum RoleInternalFrame = 27 + fromEnum RoleLabel = 28 + fromEnum RoleLayeredPane = 29 + fromEnum RoleList = 30 + fromEnum RoleListItem = 31 + fromEnum RoleMenu = 32 + fromEnum RoleMenuBar = 33 + fromEnum RoleMenuItem = 34 + fromEnum RoleOptionPane = 35 + fromEnum RolePageTab = 36 + fromEnum RolePageTabList = 37 + fromEnum RolePanel = 38 + fromEnum RolePasswordText = 39 + fromEnum RolePopupMenu = 40 + fromEnum RoleProgressBar = 41 + fromEnum RolePushButton = 42 + fromEnum RoleRadioButton = 43 + fromEnum RoleRadioMenuItem = 44 + fromEnum RoleRootPane = 45 + fromEnum RoleRowHeader = 46 + fromEnum RoleScrollBar = 47 + fromEnum RoleScrollPane = 48 + fromEnum RoleSeparator = 49 + fromEnum RoleSlider = 50 + fromEnum RoleSplitPane = 51 + fromEnum RoleSpinButton = 52 + fromEnum RoleStatusbar = 53 + fromEnum RoleTable = 54 + fromEnum RoleTableCell = 55 + fromEnum RoleTableColumnHeader = 56 + fromEnum RoleTableRowHeader = 57 + fromEnum RoleTearOffMenuItem = 58 + fromEnum RoleTerminal = 59 + fromEnum RoleText = 60 + fromEnum RoleToggleButton = 61 + fromEnum RoleToolBar = 62 + fromEnum RoleToolTip = 63 + fromEnum RoleTree = 64 + fromEnum RoleTreeTable = 65 + fromEnum RoleUnknown = 66 + fromEnum RoleViewport = 67 + fromEnum RoleWindow = 68 + fromEnum RoleHeader = 69 + fromEnum RoleFooter = 70 + fromEnum RoleParagraph = 71 + fromEnum RoleRuler = 72 + fromEnum RoleApplication = 73 + fromEnum RoleAutocomplete = 74 + fromEnum RoleEditBar = 75 + fromEnum RoleEmbedded = 76 + fromEnum RoleEntry = 77 + fromEnum RoleChart = 78 + fromEnum RoleCaption = 79 + fromEnum RoleDocumentFrame = 80 + fromEnum RoleHeading = 81 + fromEnum RolePage = 82 + fromEnum RoleSection = 83 + fromEnum RoleRedundantObject = 84 + fromEnum RoleForm = 85 + fromEnum RoleLink = 86 + fromEnum RoleInputMethodWindow = 87 + fromEnum RoleTableRow = 88 + fromEnum RoleTreeItem = 89 + fromEnum RoleDocumentSpreadsheet = 90 + fromEnum RoleDocumentPresentation = 91 + fromEnum RoleDocumentText = 92 + fromEnum RoleDocumentWeb = 93 + fromEnum RoleDocumentEmail = 94 + fromEnum RoleComment = 95 + fromEnum RoleListBox = 96 + fromEnum RoleGrouping = 97 + fromEnum RoleImageMap = 98 + fromEnum RoleNotification = 99 + fromEnum RoleInfoBar = 100 + fromEnum RoleLevelBar = 101 + fromEnum RoleTitleBar = 102 + fromEnum RoleBlockQuote = 103 + fromEnum RoleAudio = 104 + fromEnum RoleVideo = 105 + fromEnum RoleDefinition = 106 + fromEnum RoleArticle = 107 + fromEnum RoleLandmark = 108 + fromEnum RoleLog = 109 + fromEnum RoleMarquee = 110 + fromEnum RoleMath = 111 + fromEnum RoleRating = 112 + fromEnum RoleTimer = 113 + fromEnum RoleDescriptionList = 114 + fromEnum RoleDescriptionTerm = 115 + fromEnum RoleDescriptionValue = 116 + fromEnum RoleStatic = 117 + fromEnum RoleMathFraction = 118 + fromEnum RoleMathRoot = 119 + fromEnum RoleSubscript = 120 + fromEnum RoleSuperscript = 121 + fromEnum RoleLastDefined = 122 + fromEnum (AnotherRole k) = k + + toEnum 0 = RoleInvalid + toEnum 1 = RoleAcceleratorLabel + toEnum 2 = RoleAlert + toEnum 3 = RoleAnimation + toEnum 4 = RoleArrow + toEnum 5 = RoleCalendar + toEnum 6 = RoleCanvas + toEnum 7 = RoleCheckBox + toEnum 8 = RoleCheckMenuItem + toEnum 9 = RoleColorChooser + toEnum 10 = RoleColumnHeader + toEnum 11 = RoleComboBox + toEnum 12 = RoleDateEditor + toEnum 13 = RoleDesktopIcon + toEnum 14 = RoleDesktopFrame + toEnum 15 = RoleDial + toEnum 16 = RoleDialog + toEnum 17 = RoleDirectoryPane + toEnum 18 = RoleDrawingArea + toEnum 19 = RoleFileChooser + toEnum 20 = RoleFiller + toEnum 21 = RoleFontChooser + toEnum 22 = RoleFrame + toEnum 23 = RoleGlassPane + toEnum 24 = RoleHtmlContainer + toEnum 25 = RoleIcon + toEnum 26 = RoleImage + toEnum 27 = RoleInternalFrame + toEnum 28 = RoleLabel + toEnum 29 = RoleLayeredPane + toEnum 30 = RoleList + toEnum 31 = RoleListItem + toEnum 32 = RoleMenu + toEnum 33 = RoleMenuBar + toEnum 34 = RoleMenuItem + toEnum 35 = RoleOptionPane + toEnum 36 = RolePageTab + toEnum 37 = RolePageTabList + toEnum 38 = RolePanel + toEnum 39 = RolePasswordText + toEnum 40 = RolePopupMenu + toEnum 41 = RoleProgressBar + toEnum 42 = RolePushButton + toEnum 43 = RoleRadioButton + toEnum 44 = RoleRadioMenuItem + toEnum 45 = RoleRootPane + toEnum 46 = RoleRowHeader + toEnum 47 = RoleScrollBar + toEnum 48 = RoleScrollPane + toEnum 49 = RoleSeparator + toEnum 50 = RoleSlider + toEnum 51 = RoleSplitPane + toEnum 52 = RoleSpinButton + toEnum 53 = RoleStatusbar + toEnum 54 = RoleTable + toEnum 55 = RoleTableCell + toEnum 56 = RoleTableColumnHeader + toEnum 57 = RoleTableRowHeader + toEnum 58 = RoleTearOffMenuItem + toEnum 59 = RoleTerminal + toEnum 60 = RoleText + toEnum 61 = RoleToggleButton + toEnum 62 = RoleToolBar + toEnum 63 = RoleToolTip + toEnum 64 = RoleTree + toEnum 65 = RoleTreeTable + toEnum 66 = RoleUnknown + toEnum 67 = RoleViewport + toEnum 68 = RoleWindow + toEnum 69 = RoleHeader + toEnum 70 = RoleFooter + toEnum 71 = RoleParagraph + toEnum 72 = RoleRuler + toEnum 73 = RoleApplication + toEnum 74 = RoleAutocomplete + toEnum 75 = RoleEditBar + toEnum 76 = RoleEmbedded + toEnum 77 = RoleEntry + toEnum 78 = RoleChart + toEnum 79 = RoleCaption + toEnum 80 = RoleDocumentFrame + toEnum 81 = RoleHeading + toEnum 82 = RolePage + toEnum 83 = RoleSection + toEnum 84 = RoleRedundantObject + toEnum 85 = RoleForm + toEnum 86 = RoleLink + toEnum 87 = RoleInputMethodWindow + toEnum 88 = RoleTableRow + toEnum 89 = RoleTreeItem + toEnum 90 = RoleDocumentSpreadsheet + toEnum 91 = RoleDocumentPresentation + toEnum 92 = RoleDocumentText + toEnum 93 = RoleDocumentWeb + toEnum 94 = RoleDocumentEmail + toEnum 95 = RoleComment + toEnum 96 = RoleListBox + toEnum 97 = RoleGrouping + toEnum 98 = RoleImageMap + toEnum 99 = RoleNotification + toEnum 100 = RoleInfoBar + toEnum 101 = RoleLevelBar + toEnum 102 = RoleTitleBar + toEnum 103 = RoleBlockQuote + toEnum 104 = RoleAudio + toEnum 105 = RoleVideo + toEnum 106 = RoleDefinition + toEnum 107 = RoleArticle + toEnum 108 = RoleLandmark + toEnum 109 = RoleLog + toEnum 110 = RoleMarquee + toEnum 111 = RoleMath + toEnum 112 = RoleRating + toEnum 113 = RoleTimer + toEnum 114 = RoleDescriptionList + toEnum 115 = RoleDescriptionTerm + toEnum 116 = RoleDescriptionValue + toEnum 117 = RoleStatic + toEnum 118 = RoleMathFraction + toEnum 119 = RoleMathRoot + toEnum 120 = RoleSubscript + toEnum 121 = RoleSuperscript + toEnum 122 = RoleLastDefined + toEnum k = AnotherRole k + +foreign import ccall "atk_role_get_type" c_atk_role_get_type :: + IO GType + +instance BoxedEnum Role where + boxedEnumType _ = c_atk_role_get_type + +-- Enum RelationType + +data RelationType = + RelationTypeNull + | RelationTypeControlledBy + | RelationTypeControllerFor + | RelationTypeLabelFor + | RelationTypeLabelledBy + | RelationTypeMemberOf + | RelationTypeNodeChildOf + | RelationTypeFlowsTo + | RelationTypeFlowsFrom + | RelationTypeSubwindowOf + | RelationTypeEmbeds + | RelationTypeEmbeddedBy + | RelationTypePopupFor + | RelationTypeParentWindowOf + | RelationTypeDescribedBy + | RelationTypeDescriptionFor + | RelationTypeNodeParentOf + | RelationTypeLastDefined + | AnotherRelationType Int + deriving (Show, Eq) + +instance Enum RelationType where + fromEnum RelationTypeNull = 0 + fromEnum RelationTypeControlledBy = 1 + fromEnum RelationTypeControllerFor = 2 + fromEnum RelationTypeLabelFor = 3 + fromEnum RelationTypeLabelledBy = 4 + fromEnum RelationTypeMemberOf = 5 + fromEnum RelationTypeNodeChildOf = 6 + fromEnum RelationTypeFlowsTo = 7 + fromEnum RelationTypeFlowsFrom = 8 + fromEnum RelationTypeSubwindowOf = 9 + fromEnum RelationTypeEmbeds = 10 + fromEnum RelationTypeEmbeddedBy = 11 + fromEnum RelationTypePopupFor = 12 + fromEnum RelationTypeParentWindowOf = 13 + fromEnum RelationTypeDescribedBy = 14 + fromEnum RelationTypeDescriptionFor = 15 + fromEnum RelationTypeNodeParentOf = 16 + fromEnum RelationTypeLastDefined = 17 + fromEnum (AnotherRelationType k) = k + + toEnum 0 = RelationTypeNull + toEnum 1 = RelationTypeControlledBy + toEnum 2 = RelationTypeControllerFor + toEnum 3 = RelationTypeLabelFor + toEnum 4 = RelationTypeLabelledBy + toEnum 5 = RelationTypeMemberOf + toEnum 6 = RelationTypeNodeChildOf + toEnum 7 = RelationTypeFlowsTo + toEnum 8 = RelationTypeFlowsFrom + toEnum 9 = RelationTypeSubwindowOf + toEnum 10 = RelationTypeEmbeds + toEnum 11 = RelationTypeEmbeddedBy + toEnum 12 = RelationTypePopupFor + toEnum 13 = RelationTypeParentWindowOf + toEnum 14 = RelationTypeDescribedBy + toEnum 15 = RelationTypeDescriptionFor + toEnum 16 = RelationTypeNodeParentOf + toEnum 17 = RelationTypeLastDefined + toEnum k = AnotherRelationType k + +foreign import ccall "atk_relation_type_get_type" c_atk_relation_type_get_type :: + IO GType + +instance BoxedEnum RelationType where + boxedEnumType _ = c_atk_relation_type_get_type + +-- Enum Layer + +data Layer = + LayerInvalid + | LayerBackground + | LayerCanvas + | LayerWidget + | LayerMdi + | LayerPopup + | LayerOverlay + | LayerWindow + | AnotherLayer Int + deriving (Show, Eq) + +instance Enum Layer where + fromEnum LayerInvalid = 0 + fromEnum LayerBackground = 1 + fromEnum LayerCanvas = 2 + fromEnum LayerWidget = 3 + fromEnum LayerMdi = 4 + fromEnum LayerPopup = 5 + fromEnum LayerOverlay = 6 + fromEnum LayerWindow = 7 + fromEnum (AnotherLayer k) = k + + toEnum 0 = LayerInvalid + toEnum 1 = LayerBackground + toEnum 2 = LayerCanvas + toEnum 3 = LayerWidget + toEnum 4 = LayerMdi + toEnum 5 = LayerPopup + toEnum 6 = LayerOverlay + toEnum 7 = LayerWindow + toEnum k = AnotherLayer k + +foreign import ccall "atk_layer_get_type" c_atk_layer_get_type :: + IO GType + +instance BoxedEnum Layer where + boxedEnumType _ = c_atk_layer_get_type + +-- Enum KeyEventType + +data KeyEventType = + KeyEventTypePress + | KeyEventTypeRelease + | KeyEventTypeLastDefined + | AnotherKeyEventType Int + deriving (Show, Eq) + +instance Enum KeyEventType where + fromEnum KeyEventTypePress = 0 + fromEnum KeyEventTypeRelease = 1 + fromEnum KeyEventTypeLastDefined = 2 + fromEnum (AnotherKeyEventType k) = k + + toEnum 0 = KeyEventTypePress + toEnum 1 = KeyEventTypeRelease + toEnum 2 = KeyEventTypeLastDefined + toEnum k = AnotherKeyEventType k + +foreign import ccall "atk_key_event_type_get_type" c_atk_key_event_type_get_type :: + IO GType + +instance BoxedEnum KeyEventType where + boxedEnumType _ = c_atk_key_event_type_get_type + +-- Enum CoordType + +data CoordType = + CoordTypeScreen + | CoordTypeWindow + | AnotherCoordType Int + deriving (Show, Eq) + +instance Enum CoordType where + fromEnum CoordTypeScreen = 0 + fromEnum CoordTypeWindow = 1 + fromEnum (AnotherCoordType k) = k + + toEnum 0 = CoordTypeScreen + toEnum 1 = CoordTypeWindow + toEnum k = AnotherCoordType k + +foreign import ccall "atk_coord_type_get_type" c_atk_coord_type_get_type :: + IO GType + +instance BoxedEnum CoordType where + boxedEnumType _ = c_atk_coord_type_get_type + + diff --git a/GI/Atk/Flags.hs b/GI/Atk/Flags.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Flags.hs @@ -0,0 +1,49 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Flags + ( + +-- * Exported types + HyperlinkStateFlags(..) , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + + + + +-- Flags HyperlinkStateFlags + +data HyperlinkStateFlags = + HyperlinkStateFlagsInline + | AnotherHyperlinkStateFlags Int + deriving (Show, Eq) + +instance Enum HyperlinkStateFlags where + fromEnum HyperlinkStateFlagsInline = 1 + fromEnum (AnotherHyperlinkStateFlags k) = k + + toEnum 1 = HyperlinkStateFlagsInline + toEnum k = AnotherHyperlinkStateFlags k + +foreign import ccall "atk_hyperlink_state_flags_get_type" c_atk_hyperlink_state_flags_get_type :: + IO GType + +instance BoxedEnum HyperlinkStateFlags where + boxedEnumType _ = c_atk_hyperlink_state_flags_get_type + +instance IsGFlag HyperlinkStateFlags + + diff --git a/GI/Atk/Functions.hs b/GI/Atk/Functions.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Functions.hs @@ -0,0 +1,928 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Functions + ( + + -- * Methods +-- ** attributeSetFree + attributeSetFree , + + +-- ** focusTrackerNotify + focusTrackerNotify , + + +-- ** getBinaryAge + getBinaryAge , + + +-- ** getDefaultRegistry + getDefaultRegistry , + + +-- ** getFocusObject + getFocusObject , + + +-- ** getInterfaceAge + getInterfaceAge , + + +-- ** getMajorVersion + getMajorVersion , + + +-- ** getMicroVersion + getMicroVersion , + + +-- ** getMinorVersion + getMinorVersion , + + +-- ** getRoot + getRoot , + + +-- ** getToolkitName + getToolkitName , + + +-- ** getToolkitVersion + getToolkitVersion , + + +-- ** getVersion + getVersion , + + +-- ** relationTypeForName + relationTypeForName , + + +-- ** relationTypeGetName + relationTypeGetName , + + +-- ** relationTypeRegister + relationTypeRegister , + + +-- ** removeFocusTracker + removeFocusTracker , + + +-- ** removeGlobalEventListener + removeGlobalEventListener , + + +-- ** removeKeyEventListener + removeKeyEventListener , + + +-- ** roleForName + roleForName , + + +-- ** roleGetLocalizedName + roleGetLocalizedName , + + +-- ** roleGetName + roleGetName , + + +-- ** roleRegister + roleRegister , + + +-- ** stateTypeForName + stateTypeForName , + + +-- ** stateTypeGetName + stateTypeGetName , + + +-- ** stateTypeRegister + stateTypeRegister , + + +-- ** textAttributeForName + textAttributeForName , + + +-- ** textAttributeGetName + textAttributeGetName , + + +-- ** textAttributeGetValue + textAttributeGetValue , + + +-- ** textAttributeRegister + textAttributeRegister , + + +-- ** textFreeRanges + textFreeRanges , + + +-- ** valueTypeGetLocalizedName + valueTypeGetLocalizedName , + + +-- ** valueTypeGetName + valueTypeGetName , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- function atk_value_type_get_name +-- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_type_get_name" atk_value_type_get_name :: + CUInt -> -- value_type : TInterface "Atk" "ValueType" + IO CString + + +valueTypeGetName :: + (MonadIO m) => + ValueType -> -- value_type + m T.Text +valueTypeGetName value_type = liftIO $ do + let value_type' = (fromIntegral . fromEnum) value_type + result <- atk_value_type_get_name value_type' + checkUnexpectedReturnNULL "atk_value_type_get_name" result + result' <- cstringToText result + return result' + + +-- function atk_value_type_get_localized_name +-- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_type_get_localized_name" atk_value_type_get_localized_name :: + CUInt -> -- value_type : TInterface "Atk" "ValueType" + IO CString + + +valueTypeGetLocalizedName :: + (MonadIO m) => + ValueType -> -- value_type + m T.Text +valueTypeGetLocalizedName value_type = liftIO $ do + let value_type' = (fromIntegral . fromEnum) value_type + result <- atk_value_type_get_localized_name value_type' + checkUnexpectedReturnNULL "atk_value_type_get_localized_name" result + result' <- cstringToText result + return result' + + +-- function atk_text_free_ranges +-- Args : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_free_ranges" atk_text_free_ranges :: + Ptr (Ptr TextRange) -> -- ranges : TCArray False (-1) (-1) (TInterface "Atk" "TextRange") + IO () + + +textFreeRanges :: + (MonadIO m) => + Ptr (Ptr TextRange) -> -- ranges + m () +textFreeRanges ranges = liftIO $ do + atk_text_free_ranges ranges + return () + + +-- function atk_text_attribute_register +-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "TextAttribute" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_attribute_register" atk_text_attribute_register :: + CString -> -- name : TBasicType TUTF8 + IO CUInt + + +textAttributeRegister :: + (MonadIO m) => + T.Text -> -- name + m TextAttribute +textAttributeRegister name = liftIO $ do + name' <- textToCString name + result <- atk_text_attribute_register name' + let result' = (toEnum . fromIntegral) result + freeMem name' + return result' + + +-- function atk_text_attribute_get_value +-- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_attribute_get_value" atk_text_attribute_get_value :: + CUInt -> -- attr : TInterface "Atk" "TextAttribute" + Int32 -> -- index_ : TBasicType TInt32 + IO CString + + +textAttributeGetValue :: + (MonadIO m) => + TextAttribute -> -- attr + Int32 -> -- index_ + m T.Text +textAttributeGetValue attr index_ = liftIO $ do + let attr' = (fromIntegral . fromEnum) attr + result <- atk_text_attribute_get_value attr' index_ + checkUnexpectedReturnNULL "atk_text_attribute_get_value" result + result' <- cstringToText result + return result' + + +-- function atk_text_attribute_get_name +-- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_attribute_get_name" atk_text_attribute_get_name :: + CUInt -> -- attr : TInterface "Atk" "TextAttribute" + IO CString + + +textAttributeGetName :: + (MonadIO m) => + TextAttribute -> -- attr + m T.Text +textAttributeGetName attr = liftIO $ do + let attr' = (fromIntegral . fromEnum) attr + result <- atk_text_attribute_get_name attr' + checkUnexpectedReturnNULL "atk_text_attribute_get_name" result + result' <- cstringToText result + return result' + + +-- function atk_text_attribute_for_name +-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "TextAttribute" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_attribute_for_name" atk_text_attribute_for_name :: + CString -> -- name : TBasicType TUTF8 + IO CUInt + + +textAttributeForName :: + (MonadIO m) => + T.Text -> -- name + m TextAttribute +textAttributeForName name = liftIO $ do + name' <- textToCString name + result <- atk_text_attribute_for_name name' + let result' = (toEnum . fromIntegral) result + freeMem name' + return result' + + +-- function atk_state_type_register +-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "StateType" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_type_register" atk_state_type_register :: + CString -> -- name : TBasicType TUTF8 + IO CUInt + + +stateTypeRegister :: + (MonadIO m) => + T.Text -> -- name + m StateType +stateTypeRegister name = liftIO $ do + name' <- textToCString name + result <- atk_state_type_register name' + let result' = (toEnum . fromIntegral) result + freeMem name' + return result' + + +-- function atk_state_type_get_name +-- Args : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_type_get_name" atk_state_type_get_name :: + CUInt -> -- type : TInterface "Atk" "StateType" + IO CString + + +stateTypeGetName :: + (MonadIO m) => + StateType -> -- type + m T.Text +stateTypeGetName type_ = liftIO $ do + let type_' = (fromIntegral . fromEnum) type_ + result <- atk_state_type_get_name type_' + checkUnexpectedReturnNULL "atk_state_type_get_name" result + result' <- cstringToText result + return result' + + +-- function atk_state_type_for_name +-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "StateType" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_type_for_name" atk_state_type_for_name :: + CString -> -- name : TBasicType TUTF8 + IO CUInt + + +stateTypeForName :: + (MonadIO m) => + T.Text -> -- name + m StateType +stateTypeForName name = liftIO $ do + name' <- textToCString name + result <- atk_state_type_for_name name' + let result' = (toEnum . fromIntegral) result + freeMem name' + return result' + + +-- function atk_role_register +-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Role" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_role_register" atk_role_register :: + CString -> -- name : TBasicType TUTF8 + IO CUInt + +{-# DEPRECATED roleRegister ["Since 2.12. If your application/toolkit doesn't find a","suitable role for a specific object defined at #AtkRole, please","submit a bug in order to add a new role to the specification."]#-} +roleRegister :: + (MonadIO m) => + T.Text -> -- name + m Role +roleRegister name = liftIO $ do + name' <- textToCString name + result <- atk_role_register name' + let result' = (toEnum . fromIntegral) result + freeMem name' + return result' + + +-- function atk_role_get_name +-- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_role_get_name" atk_role_get_name :: + CUInt -> -- role : TInterface "Atk" "Role" + IO CString + + +roleGetName :: + (MonadIO m) => + Role -> -- role + m T.Text +roleGetName role = liftIO $ do + let role' = (fromIntegral . fromEnum) role + result <- atk_role_get_name role' + checkUnexpectedReturnNULL "atk_role_get_name" result + result' <- cstringToText result + return result' + + +-- function atk_role_get_localized_name +-- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_role_get_localized_name" atk_role_get_localized_name :: + CUInt -> -- role : TInterface "Atk" "Role" + IO CString + + +roleGetLocalizedName :: + (MonadIO m) => + Role -> -- role + m T.Text +roleGetLocalizedName role = liftIO $ do + let role' = (fromIntegral . fromEnum) role + result <- atk_role_get_localized_name role' + checkUnexpectedReturnNULL "atk_role_get_localized_name" result + result' <- cstringToText result + return result' + + +-- function atk_role_for_name +-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Role" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_role_for_name" atk_role_for_name :: + CString -> -- name : TBasicType TUTF8 + IO CUInt + + +roleForName :: + (MonadIO m) => + T.Text -> -- name + m Role +roleForName name = liftIO $ do + name' <- textToCString name + result <- atk_role_for_name name' + let result' = (toEnum . fromIntegral) result + freeMem name' + return result' + + +-- function atk_remove_key_event_listener +-- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_remove_key_event_listener" atk_remove_key_event_listener :: + Word32 -> -- listener_id : TBasicType TUInt32 + IO () + + +removeKeyEventListener :: + (MonadIO m) => + Word32 -> -- listener_id + m () +removeKeyEventListener listener_id = liftIO $ do + atk_remove_key_event_listener listener_id + return () + + +-- function atk_remove_global_event_listener +-- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_remove_global_event_listener" atk_remove_global_event_listener :: + Word32 -> -- listener_id : TBasicType TUInt32 + IO () + + +removeGlobalEventListener :: + (MonadIO m) => + Word32 -> -- listener_id + m () +removeGlobalEventListener listener_id = liftIO $ do + atk_remove_global_event_listener listener_id + return () + + +-- function atk_remove_focus_tracker +-- Args : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_remove_focus_tracker" atk_remove_focus_tracker :: + Word32 -> -- tracker_id : TBasicType TUInt32 + IO () + +{-# DEPRECATED removeFocusTracker ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. If you need focus tracking on your","implementation, subscribe to the #AtkObject::state-change \"focused\" signal.","","Removes the specified focus tracker from the list of functions","to be called when any object receives focus."]#-} +removeFocusTracker :: + (MonadIO m) => + Word32 -> -- tracker_id + m () +removeFocusTracker tracker_id = liftIO $ do + atk_remove_focus_tracker tracker_id + return () + + +-- function atk_relation_type_register +-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "RelationType" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_type_register" atk_relation_type_register :: + CString -> -- name : TBasicType TUTF8 + IO CUInt + + +relationTypeRegister :: + (MonadIO m) => + T.Text -> -- name + m RelationType +relationTypeRegister name = liftIO $ do + name' <- textToCString name + result <- atk_relation_type_register name' + let result' = (toEnum . fromIntegral) result + freeMem name' + return result' + + +-- function atk_relation_type_get_name +-- Args : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_type_get_name" atk_relation_type_get_name :: + CUInt -> -- type : TInterface "Atk" "RelationType" + IO CString + + +relationTypeGetName :: + (MonadIO m) => + RelationType -> -- type + m T.Text +relationTypeGetName type_ = liftIO $ do + let type_' = (fromIntegral . fromEnum) type_ + result <- atk_relation_type_get_name type_' + checkUnexpectedReturnNULL "atk_relation_type_get_name" result + result' <- cstringToText result + return result' + + +-- function atk_relation_type_for_name +-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "RelationType" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_type_for_name" atk_relation_type_for_name :: + CString -> -- name : TBasicType TUTF8 + IO CUInt + + +relationTypeForName :: + (MonadIO m) => + T.Text -> -- name + m RelationType +relationTypeForName name = liftIO $ do + name' <- textToCString name + result <- atk_relation_type_for_name name' + let result' = (toEnum . fromIntegral) result + freeMem name' + return result' + + +-- function atk_get_version +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_version" atk_get_version :: + IO CString + + +getVersion :: + (MonadIO m) => + m T.Text +getVersion = liftIO $ do + result <- atk_get_version + checkUnexpectedReturnNULL "atk_get_version" result + result' <- cstringToText result + return result' + + +-- function atk_get_toolkit_version +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_toolkit_version" atk_get_toolkit_version :: + IO CString + + +getToolkitVersion :: + (MonadIO m) => + m T.Text +getToolkitVersion = liftIO $ do + result <- atk_get_toolkit_version + checkUnexpectedReturnNULL "atk_get_toolkit_version" result + result' <- cstringToText result + return result' + + +-- function atk_get_toolkit_name +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_toolkit_name" atk_get_toolkit_name :: + IO CString + + +getToolkitName :: + (MonadIO m) => + m T.Text +getToolkitName = liftIO $ do + result <- atk_get_toolkit_name + checkUnexpectedReturnNULL "atk_get_toolkit_name" result + result' <- cstringToText result + return result' + + +-- function atk_get_root +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_root" atk_get_root :: + IO (Ptr Object) + + +getRoot :: + (MonadIO m) => + m Object +getRoot = liftIO $ do + result <- atk_get_root + checkUnexpectedReturnNULL "atk_get_root" result + result' <- (newObject Object) result + return result' + + +-- function atk_get_minor_version +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_minor_version" atk_get_minor_version :: + IO Word32 + + +getMinorVersion :: + (MonadIO m) => + m Word32 +getMinorVersion = liftIO $ do + result <- atk_get_minor_version + return result + + +-- function atk_get_micro_version +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_micro_version" atk_get_micro_version :: + IO Word32 + + +getMicroVersion :: + (MonadIO m) => + m Word32 +getMicroVersion = liftIO $ do + result <- atk_get_micro_version + return result + + +-- function atk_get_major_version +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_major_version" atk_get_major_version :: + IO Word32 + + +getMajorVersion :: + (MonadIO m) => + m Word32 +getMajorVersion = liftIO $ do + result <- atk_get_major_version + return result + + +-- function atk_get_interface_age +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_interface_age" atk_get_interface_age :: + IO Word32 + + +getInterfaceAge :: + (MonadIO m) => + m Word32 +getInterfaceAge = liftIO $ do + result <- atk_get_interface_age + return result + + +-- function atk_get_focus_object +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_focus_object" atk_get_focus_object :: + IO (Ptr Object) + + +getFocusObject :: + (MonadIO m) => + m Object +getFocusObject = liftIO $ do + result <- atk_get_focus_object + checkUnexpectedReturnNULL "atk_get_focus_object" result + result' <- (newObject Object) result + return result' + + +-- function atk_get_default_registry +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Atk" "Registry" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_default_registry" atk_get_default_registry :: + IO (Ptr Registry) + + +getDefaultRegistry :: + (MonadIO m) => + m Registry +getDefaultRegistry = liftIO $ do + result <- atk_get_default_registry + checkUnexpectedReturnNULL "atk_get_default_registry" result + result' <- (wrapObject Registry) result + return result' + + +-- function atk_get_binary_age +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_get_binary_age" atk_get_binary_age :: + IO Word32 + + +getBinaryAge :: + (MonadIO m) => + m Word32 +getBinaryAge = liftIO $ do + result <- atk_get_binary_age + return result + + +-- function atk_focus_tracker_notify +-- Args : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_focus_tracker_notify" atk_focus_tracker_notify :: + Ptr Object -> -- object : TInterface "Atk" "Object" + IO () + +{-# DEPRECATED focusTrackerNotify ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. As #AtkObject::focus-event was","deprecated in favor of a #AtkObject::state-change signal, in order","to notify a focus change on your implementation, you can use","atk_object_notify_state_change() instead."]#-} +focusTrackerNotify :: + (MonadIO m, ObjectK a) => + a -> -- object + m () +focusTrackerNotify object = liftIO $ do + let object' = unsafeManagedPtrCastPtr object + atk_focus_tracker_notify object' + touchManagedPtr object + return () + + +-- function atk_attribute_set_free +-- Args : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_attribute_set_free" atk_attribute_set_free :: + Ptr (GSList (Ptr ())) -> -- attrib_set : TGSList (TBasicType TVoid) + IO () + + +attributeSetFree :: + (MonadIO m) => + [Ptr ()] -> -- attrib_set + m () +attributeSetFree attrib_set = liftIO $ do + attrib_set' <- packGSList attrib_set + atk_attribute_set_free attrib_set' + g_slist_free attrib_set' + return () + + + diff --git a/GI/Atk/Interfaces.hs b/GI/Atk/Interfaces.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces.hs @@ -0,0 +1,54 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces + ( module GI.Atk.Interfaces.Action , + module GI.Atk.Interfaces.Component , + module GI.Atk.Interfaces.Document , + module GI.Atk.Interfaces.EditableText , + module GI.Atk.Interfaces.HyperlinkImpl , + module GI.Atk.Interfaces.Hypertext , + module GI.Atk.Interfaces.Image , + module GI.Atk.Interfaces.ImplementorIface, + module GI.Atk.Interfaces.Selection , + module GI.Atk.Interfaces.StreamableContent, + module GI.Atk.Interfaces.Table , + module GI.Atk.Interfaces.TableCell , + module GI.Atk.Interfaces.Text , + module GI.Atk.Interfaces.Value , + module GI.Atk.Interfaces.Window , + + + ) where + +import GI.Atk.Interfaces.Action +import GI.Atk.Interfaces.Component +import GI.Atk.Interfaces.Document +import GI.Atk.Interfaces.EditableText +import GI.Atk.Interfaces.HyperlinkImpl +import GI.Atk.Interfaces.Hypertext +import GI.Atk.Interfaces.Image +import GI.Atk.Interfaces.ImplementorIface +import GI.Atk.Interfaces.Selection +import GI.Atk.Interfaces.StreamableContent +import GI.Atk.Interfaces.Table +import GI.Atk.Interfaces.TableCell +import GI.Atk.Interfaces.Text +import GI.Atk.Interfaces.Value +import GI.Atk.Interfaces.Window + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + + diff --git a/GI/Atk/Interfaces/Action.hs b/GI/Atk/Interfaces/Action.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Action.hs @@ -0,0 +1,271 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Action + ( + +-- * Exported types + Action(..) , + noAction , + ActionK , + + + -- * Methods +-- ** actionDoAction + actionDoAction , + + +-- ** actionGetDescription + actionGetDescription , + + +-- ** actionGetKeybinding + actionGetKeybinding , + + +-- ** actionGetLocalizedName + actionGetLocalizedName , + + +-- ** actionGetNActions + actionGetNActions , + + +-- ** actionGetName + actionGetName , + + +-- ** actionSetDescription + actionSetDescription , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface Action + +newtype Action = Action (ForeignPtr Action) +noAction :: Maybe Action +noAction = Nothing + +type instance AttributeList Action = ActionAttributeList +type ActionAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList Action = ActionSignalList +type ActionSignalList = ('[ ] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => ActionK a +instance (ForeignPtrNewtype o, IsDescendantOf Action o) => ActionK o +type instance ParentTypes Action = ActionParentTypes +type ActionParentTypes = '[] + +-- method Action::do_action +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_action_do_action" atk_action_do_action :: + Ptr Action -> -- _obj : TInterface "Atk" "Action" + Int32 -> -- i : TBasicType TInt32 + IO CInt + + +actionDoAction :: + (MonadIO m, ActionK a) => + a -> -- _obj + Int32 -> -- i + m Bool +actionDoAction _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_action_do_action _obj' i + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Action::get_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_action_get_description" atk_action_get_description :: + Ptr Action -> -- _obj : TInterface "Atk" "Action" + Int32 -> -- i : TBasicType TInt32 + IO CString + + +actionGetDescription :: + (MonadIO m, ActionK a) => + a -> -- _obj + Int32 -> -- i + m T.Text +actionGetDescription _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_action_get_description _obj' i + checkUnexpectedReturnNULL "atk_action_get_description" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Action::get_keybinding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_action_get_keybinding" atk_action_get_keybinding :: + Ptr Action -> -- _obj : TInterface "Atk" "Action" + Int32 -> -- i : TBasicType TInt32 + IO CString + + +actionGetKeybinding :: + (MonadIO m, ActionK a) => + a -> -- _obj + Int32 -> -- i + m T.Text +actionGetKeybinding _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_action_get_keybinding _obj' i + checkUnexpectedReturnNULL "atk_action_get_keybinding" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Action::get_localized_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_action_get_localized_name" atk_action_get_localized_name :: + Ptr Action -> -- _obj : TInterface "Atk" "Action" + Int32 -> -- i : TBasicType TInt32 + IO CString + + +actionGetLocalizedName :: + (MonadIO m, ActionK a) => + a -> -- _obj + Int32 -> -- i + m T.Text +actionGetLocalizedName _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_action_get_localized_name _obj' i + checkUnexpectedReturnNULL "atk_action_get_localized_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Action::get_n_actions +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_action_get_n_actions" atk_action_get_n_actions :: + Ptr Action -> -- _obj : TInterface "Atk" "Action" + IO Int32 + + +actionGetNActions :: + (MonadIO m, ActionK a) => + a -> -- _obj + m Int32 +actionGetNActions _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_action_get_n_actions _obj' + touchManagedPtr _obj + return result + +-- method Action::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_action_get_name" atk_action_get_name :: + Ptr Action -> -- _obj : TInterface "Atk" "Action" + Int32 -> -- i : TBasicType TInt32 + IO CString + + +actionGetName :: + (MonadIO m, ActionK a) => + a -> -- _obj + Int32 -> -- i + m T.Text +actionGetName _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_action_get_name _obj' i + checkUnexpectedReturnNULL "atk_action_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Action::set_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_action_set_description" atk_action_set_description :: + Ptr Action -> -- _obj : TInterface "Atk" "Action" + Int32 -> -- i : TBasicType TInt32 + CString -> -- desc : TBasicType TUTF8 + IO CInt + + +actionSetDescription :: + (MonadIO m, ActionK a) => + a -> -- _obj + Int32 -> -- i + T.Text -> -- desc + m Bool +actionSetDescription _obj i desc = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + desc' <- textToCString desc + result <- atk_action_set_description _obj' i desc' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem desc' + return result' + + diff --git a/GI/Atk/Interfaces/Action.hs-boot b/GI/Atk/Interfaces/Action.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Action.hs-boot @@ -0,0 +1,12 @@ +module GI.Atk.Interfaces.Action where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Action = Action (ForeignPtr Action) +class ForeignPtrNewtype a => ActionK a +instance (ForeignPtrNewtype o, IsDescendantOf Action o) => ActionK o diff --git a/GI/Atk/Interfaces/Component.hs b/GI/Atk/Interfaces/Component.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Component.hs @@ -0,0 +1,544 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Component + ( + +-- * Exported types + Component(..) , + noComponent , + ComponentK , + + + -- * Methods +-- ** componentContains + componentContains , + + +-- ** componentGetAlpha + componentGetAlpha , + + +-- ** componentGetExtents + componentGetExtents , + + +-- ** componentGetLayer + componentGetLayer , + + +-- ** componentGetMdiZorder + componentGetMdiZorder , + + +-- ** componentGetPosition + componentGetPosition , + + +-- ** componentGetSize + componentGetSize , + + +-- ** componentGrabFocus + componentGrabFocus , + + +-- ** componentRefAccessibleAtPoint + componentRefAccessibleAtPoint , + + +-- ** componentRemoveFocusHandler + componentRemoveFocusHandler , + + +-- ** componentSetExtents + componentSetExtents , + + +-- ** componentSetPosition + componentSetPosition , + + +-- ** componentSetSize + componentSetSize , + + + + + -- * Signals +-- ** BoundsChanged + ComponentBoundsChangedCallback , + ComponentBoundsChangedCallbackC , + ComponentBoundsChangedSignalInfo , + afterComponentBoundsChanged , + componentBoundsChangedCallbackWrapper , + componentBoundsChangedClosure , + mkComponentBoundsChangedCallback , + noComponentBoundsChangedCallback , + onComponentBoundsChanged , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface Component + +newtype Component = Component (ForeignPtr Component) +noComponent :: Maybe Component +noComponent = Nothing + +-- signal Component::bounds-changed +type ComponentBoundsChangedCallback = + Rectangle -> + IO () + +noComponentBoundsChangedCallback :: Maybe ComponentBoundsChangedCallback +noComponentBoundsChangedCallback = Nothing + +type ComponentBoundsChangedCallbackC = + Ptr () -> -- object + Ptr Rectangle -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkComponentBoundsChangedCallback :: ComponentBoundsChangedCallbackC -> IO (FunPtr ComponentBoundsChangedCallbackC) + +componentBoundsChangedClosure :: ComponentBoundsChangedCallback -> IO Closure +componentBoundsChangedClosure cb = newCClosure =<< mkComponentBoundsChangedCallback wrapped + where wrapped = componentBoundsChangedCallbackWrapper cb + +componentBoundsChangedCallbackWrapper :: + ComponentBoundsChangedCallback -> + Ptr () -> + Ptr Rectangle -> + Ptr () -> + IO () +componentBoundsChangedCallbackWrapper _cb _ arg1 _ = do + arg1' <- (newBoxed Rectangle) arg1 + _cb arg1' + +onComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId +onComponentBoundsChanged obj cb = liftIO $ connectComponentBoundsChanged obj cb SignalConnectBefore +afterComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId +afterComponentBoundsChanged obj cb = connectComponentBoundsChanged obj cb SignalConnectAfter + +connectComponentBoundsChanged :: (GObject a, MonadIO m) => + a -> ComponentBoundsChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectComponentBoundsChanged obj cb after = liftIO $ do + cb' <- mkComponentBoundsChangedCallback (componentBoundsChangedCallbackWrapper cb) + connectSignalFunPtr obj "bounds-changed" cb' after + +type instance AttributeList Component = ComponentAttributeList +type ComponentAttributeList = ('[ ] :: [(Symbol, *)]) + +data ComponentBoundsChangedSignalInfo +instance SignalInfo ComponentBoundsChangedSignalInfo where + type HaskellCallbackType ComponentBoundsChangedSignalInfo = ComponentBoundsChangedCallback + connectSignal _ = connectComponentBoundsChanged + +type instance SignalList Component = ComponentSignalList +type ComponentSignalList = ('[ '("bounds-changed", ComponentBoundsChangedSignalInfo)] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => ComponentK a +instance (ForeignPtrNewtype o, IsDescendantOf Component o) => ComponentK o +type instance ParentTypes Component = ComponentParentTypes +type ComponentParentTypes = '[] + +-- method Component::contains +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_contains" atk_component_contains :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + CUInt -> -- coord_type : TInterface "Atk" "CoordType" + IO CInt + + +componentContains :: + (MonadIO m, ComponentK a) => + a -> -- _obj + Int32 -> -- x + Int32 -> -- y + CoordType -> -- coord_type + m Bool +componentContains _obj x y coord_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coord_type' = (fromIntegral . fromEnum) coord_type + result <- atk_component_contains _obj' x y coord_type' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Component::get_alpha +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_get_alpha" atk_component_get_alpha :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + IO CDouble + + +componentGetAlpha :: + (MonadIO m, ComponentK a) => + a -> -- _obj + m Double +componentGetAlpha _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_component_get_alpha _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method Component::get_extents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_get_extents" atk_component_get_extents :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + CUInt -> -- coord_type : TInterface "Atk" "CoordType" + IO () + + +componentGetExtents :: + (MonadIO m, ComponentK a) => + a -> -- _obj + Int32 -> -- x + Int32 -> -- y + Int32 -> -- width + Int32 -> -- height + CoordType -> -- coord_type + m () +componentGetExtents _obj x y width height coord_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coord_type' = (fromIntegral . fromEnum) coord_type + atk_component_get_extents _obj' x y width height coord_type' + touchManagedPtr _obj + return () + +-- method Component::get_layer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Layer" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_get_layer" atk_component_get_layer :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + IO CUInt + + +componentGetLayer :: + (MonadIO m, ComponentK a) => + a -> -- _obj + m Layer +componentGetLayer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_component_get_layer _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Component::get_mdi_zorder +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_get_mdi_zorder" atk_component_get_mdi_zorder :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + IO Int32 + + +componentGetMdiZorder :: + (MonadIO m, ComponentK a) => + a -> -- _obj + m Int32 +componentGetMdiZorder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_component_get_mdi_zorder _obj' + touchManagedPtr _obj + return result + +-- method Component::get_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_get_position" atk_component_get_position :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + CUInt -> -- coord_type : TInterface "Atk" "CoordType" + IO () + +{-# DEPRECATED componentGetPosition ["Since 2.12. Use atk_component_get_extents() instead."]#-} +componentGetPosition :: + (MonadIO m, ComponentK a) => + a -> -- _obj + Int32 -> -- x + Int32 -> -- y + CoordType -> -- coord_type + m () +componentGetPosition _obj x y coord_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coord_type' = (fromIntegral . fromEnum) coord_type + atk_component_get_position _obj' x y coord_type' + touchManagedPtr _obj + return () + +-- method Component::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_get_size" atk_component_get_size :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO () + +{-# DEPRECATED componentGetSize ["Since 2.12. Use atk_component_get_extents() instead."]#-} +componentGetSize :: + (MonadIO m, ComponentK a) => + a -> -- _obj + Int32 -> -- width + Int32 -> -- height + m () +componentGetSize _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_component_get_size _obj' width height + touchManagedPtr _obj + return () + +-- method Component::grab_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_grab_focus" atk_component_grab_focus :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + IO CInt + + +componentGrabFocus :: + (MonadIO m, ComponentK a) => + a -> -- _obj + m Bool +componentGrabFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_component_grab_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Component::ref_accessible_at_point +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_ref_accessible_at_point" atk_component_ref_accessible_at_point :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + CUInt -> -- coord_type : TInterface "Atk" "CoordType" + IO (Ptr Object) + + +componentRefAccessibleAtPoint :: + (MonadIO m, ComponentK a) => + a -> -- _obj + Int32 -> -- x + Int32 -> -- y + CoordType -> -- coord_type + m Object +componentRefAccessibleAtPoint _obj x y coord_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coord_type' = (fromIntegral . fromEnum) coord_type + result <- atk_component_ref_accessible_at_point _obj' x y coord_type' + checkUnexpectedReturnNULL "atk_component_ref_accessible_at_point" result + result' <- (wrapObject Object) result + touchManagedPtr _obj + return result' + +-- method Component::remove_focus_handler +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_remove_focus_handler" atk_component_remove_focus_handler :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + Word32 -> -- handler_id : TBasicType TUInt32 + IO () + +{-# DEPRECATED componentRemoveFocusHandler ["(Since version 2.9.4)","If you need to track when an object gains or","lose the focus, use the #AtkObject::state-change \"focused\" notification instead."]#-} +componentRemoveFocusHandler :: + (MonadIO m, ComponentK a) => + a -> -- _obj + Word32 -> -- handler_id + m () +componentRemoveFocusHandler _obj handler_id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_component_remove_focus_handler _obj' handler_id + touchManagedPtr _obj + return () + +-- method Component::set_extents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_set_extents" atk_component_set_extents :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + CUInt -> -- coord_type : TInterface "Atk" "CoordType" + IO CInt + + +componentSetExtents :: + (MonadIO m, ComponentK a) => + a -> -- _obj + Int32 -> -- x + Int32 -> -- y + Int32 -> -- width + Int32 -> -- height + CoordType -> -- coord_type + m Bool +componentSetExtents _obj x y width height coord_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coord_type' = (fromIntegral . fromEnum) coord_type + result <- atk_component_set_extents _obj' x y width height coord_type' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Component::set_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_set_position" atk_component_set_position :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + CUInt -> -- coord_type : TInterface "Atk" "CoordType" + IO CInt + + +componentSetPosition :: + (MonadIO m, ComponentK a) => + a -> -- _obj + Int32 -> -- x + Int32 -> -- y + CoordType -> -- coord_type + m Bool +componentSetPosition _obj x y coord_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coord_type' = (fromIntegral . fromEnum) coord_type + result <- atk_component_set_position _obj' x y coord_type' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Component::set_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_component_set_size" atk_component_set_size :: + Ptr Component -> -- _obj : TInterface "Atk" "Component" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO CInt + + +componentSetSize :: + (MonadIO m, ComponentK a) => + a -> -- _obj + Int32 -> -- width + Int32 -> -- height + m Bool +componentSetSize _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_component_set_size _obj' width height + let result' = (/= 0) result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Interfaces/Component.hs-boot b/GI/Atk/Interfaces/Component.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Component.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Interfaces.Component where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Component = Component (ForeignPtr Component) +data ComponentBoundsChangedSignalInfo +class ForeignPtrNewtype a => ComponentK a +instance (ForeignPtrNewtype o, IsDescendantOf Component o) => ComponentK o diff --git a/GI/Atk/Interfaces/Document.hs b/GI/Atk/Interfaces/Document.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Document.hs @@ -0,0 +1,520 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Document + ( + +-- * Exported types + Document(..) , + noDocument , + DocumentK , + + + -- * Methods +-- ** documentGetAttributeValue + documentGetAttributeValue , + + +-- ** documentGetAttributes + documentGetAttributes , + + +-- ** documentGetCurrentPageNumber + documentGetCurrentPageNumber , + + +-- ** documentGetDocument + documentGetDocument , + + +-- ** documentGetDocumentType + documentGetDocumentType , + + +-- ** documentGetLocale + documentGetLocale , + + +-- ** documentGetPageCount + documentGetPageCount , + + +-- ** documentSetAttributeValue + documentSetAttributeValue , + + + + + -- * Signals +-- ** LoadComplete + DocumentLoadCompleteCallback , + DocumentLoadCompleteCallbackC , + DocumentLoadCompleteSignalInfo , + afterDocumentLoadComplete , + documentLoadCompleteCallbackWrapper , + documentLoadCompleteClosure , + mkDocumentLoadCompleteCallback , + noDocumentLoadCompleteCallback , + onDocumentLoadComplete , + + +-- ** LoadStopped + DocumentLoadStoppedCallback , + DocumentLoadStoppedCallbackC , + DocumentLoadStoppedSignalInfo , + afterDocumentLoadStopped , + documentLoadStoppedCallbackWrapper , + documentLoadStoppedClosure , + mkDocumentLoadStoppedCallback , + noDocumentLoadStoppedCallback , + onDocumentLoadStopped , + + +-- ** PageChanged + DocumentPageChangedCallback , + DocumentPageChangedCallbackC , + DocumentPageChangedSignalInfo , + afterDocumentPageChanged , + documentPageChangedCallbackWrapper , + documentPageChangedClosure , + mkDocumentPageChangedCallback , + noDocumentPageChangedCallback , + onDocumentPageChanged , + + +-- ** Reload + DocumentReloadCallback , + DocumentReloadCallbackC , + DocumentReloadSignalInfo , + afterDocumentReload , + documentReloadCallbackWrapper , + documentReloadClosure , + mkDocumentReloadCallback , + noDocumentReloadCallback , + onDocumentReload , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface Document + +newtype Document = Document (ForeignPtr Document) +noDocument :: Maybe Document +noDocument = Nothing + +-- signal Document::load-complete +type DocumentLoadCompleteCallback = + IO () + +noDocumentLoadCompleteCallback :: Maybe DocumentLoadCompleteCallback +noDocumentLoadCompleteCallback = Nothing + +type DocumentLoadCompleteCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkDocumentLoadCompleteCallback :: DocumentLoadCompleteCallbackC -> IO (FunPtr DocumentLoadCompleteCallbackC) + +documentLoadCompleteClosure :: DocumentLoadCompleteCallback -> IO Closure +documentLoadCompleteClosure cb = newCClosure =<< mkDocumentLoadCompleteCallback wrapped + where wrapped = documentLoadCompleteCallbackWrapper cb + +documentLoadCompleteCallbackWrapper :: + DocumentLoadCompleteCallback -> + Ptr () -> + Ptr () -> + IO () +documentLoadCompleteCallbackWrapper _cb _ _ = do + _cb + +onDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId +onDocumentLoadComplete obj cb = liftIO $ connectDocumentLoadComplete obj cb SignalConnectBefore +afterDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId +afterDocumentLoadComplete obj cb = connectDocumentLoadComplete obj cb SignalConnectAfter + +connectDocumentLoadComplete :: (GObject a, MonadIO m) => + a -> DocumentLoadCompleteCallback -> SignalConnectMode -> m SignalHandlerId +connectDocumentLoadComplete obj cb after = liftIO $ do + cb' <- mkDocumentLoadCompleteCallback (documentLoadCompleteCallbackWrapper cb) + connectSignalFunPtr obj "load-complete" cb' after + +-- signal Document::load-stopped +type DocumentLoadStoppedCallback = + IO () + +noDocumentLoadStoppedCallback :: Maybe DocumentLoadStoppedCallback +noDocumentLoadStoppedCallback = Nothing + +type DocumentLoadStoppedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkDocumentLoadStoppedCallback :: DocumentLoadStoppedCallbackC -> IO (FunPtr DocumentLoadStoppedCallbackC) + +documentLoadStoppedClosure :: DocumentLoadStoppedCallback -> IO Closure +documentLoadStoppedClosure cb = newCClosure =<< mkDocumentLoadStoppedCallback wrapped + where wrapped = documentLoadStoppedCallbackWrapper cb + +documentLoadStoppedCallbackWrapper :: + DocumentLoadStoppedCallback -> + Ptr () -> + Ptr () -> + IO () +documentLoadStoppedCallbackWrapper _cb _ _ = do + _cb + +onDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId +onDocumentLoadStopped obj cb = liftIO $ connectDocumentLoadStopped obj cb SignalConnectBefore +afterDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId +afterDocumentLoadStopped obj cb = connectDocumentLoadStopped obj cb SignalConnectAfter + +connectDocumentLoadStopped :: (GObject a, MonadIO m) => + a -> DocumentLoadStoppedCallback -> SignalConnectMode -> m SignalHandlerId +connectDocumentLoadStopped obj cb after = liftIO $ do + cb' <- mkDocumentLoadStoppedCallback (documentLoadStoppedCallbackWrapper cb) + connectSignalFunPtr obj "load-stopped" cb' after + +-- signal Document::page-changed +type DocumentPageChangedCallback = + Int32 -> + IO () + +noDocumentPageChangedCallback :: Maybe DocumentPageChangedCallback +noDocumentPageChangedCallback = Nothing + +type DocumentPageChangedCallbackC = + Ptr () -> -- object + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkDocumentPageChangedCallback :: DocumentPageChangedCallbackC -> IO (FunPtr DocumentPageChangedCallbackC) + +documentPageChangedClosure :: DocumentPageChangedCallback -> IO Closure +documentPageChangedClosure cb = newCClosure =<< mkDocumentPageChangedCallback wrapped + where wrapped = documentPageChangedCallbackWrapper cb + +documentPageChangedCallbackWrapper :: + DocumentPageChangedCallback -> + Ptr () -> + Int32 -> + Ptr () -> + IO () +documentPageChangedCallbackWrapper _cb _ page_number _ = do + _cb page_number + +onDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId +onDocumentPageChanged obj cb = liftIO $ connectDocumentPageChanged obj cb SignalConnectBefore +afterDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId +afterDocumentPageChanged obj cb = connectDocumentPageChanged obj cb SignalConnectAfter + +connectDocumentPageChanged :: (GObject a, MonadIO m) => + a -> DocumentPageChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectDocumentPageChanged obj cb after = liftIO $ do + cb' <- mkDocumentPageChangedCallback (documentPageChangedCallbackWrapper cb) + connectSignalFunPtr obj "page-changed" cb' after + +-- signal Document::reload +type DocumentReloadCallback = + IO () + +noDocumentReloadCallback :: Maybe DocumentReloadCallback +noDocumentReloadCallback = Nothing + +type DocumentReloadCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkDocumentReloadCallback :: DocumentReloadCallbackC -> IO (FunPtr DocumentReloadCallbackC) + +documentReloadClosure :: DocumentReloadCallback -> IO Closure +documentReloadClosure cb = newCClosure =<< mkDocumentReloadCallback wrapped + where wrapped = documentReloadCallbackWrapper cb + +documentReloadCallbackWrapper :: + DocumentReloadCallback -> + Ptr () -> + Ptr () -> + IO () +documentReloadCallbackWrapper _cb _ _ = do + _cb + +onDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId +onDocumentReload obj cb = liftIO $ connectDocumentReload obj cb SignalConnectBefore +afterDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId +afterDocumentReload obj cb = connectDocumentReload obj cb SignalConnectAfter + +connectDocumentReload :: (GObject a, MonadIO m) => + a -> DocumentReloadCallback -> SignalConnectMode -> m SignalHandlerId +connectDocumentReload obj cb after = liftIO $ do + cb' <- mkDocumentReloadCallback (documentReloadCallbackWrapper cb) + connectSignalFunPtr obj "reload" cb' after + +type instance AttributeList Document = DocumentAttributeList +type DocumentAttributeList = ('[ ] :: [(Symbol, *)]) + +data DocumentLoadCompleteSignalInfo +instance SignalInfo DocumentLoadCompleteSignalInfo where + type HaskellCallbackType DocumentLoadCompleteSignalInfo = DocumentLoadCompleteCallback + connectSignal _ = connectDocumentLoadComplete + +data DocumentLoadStoppedSignalInfo +instance SignalInfo DocumentLoadStoppedSignalInfo where + type HaskellCallbackType DocumentLoadStoppedSignalInfo = DocumentLoadStoppedCallback + connectSignal _ = connectDocumentLoadStopped + +data DocumentPageChangedSignalInfo +instance SignalInfo DocumentPageChangedSignalInfo where + type HaskellCallbackType DocumentPageChangedSignalInfo = DocumentPageChangedCallback + connectSignal _ = connectDocumentPageChanged + +data DocumentReloadSignalInfo +instance SignalInfo DocumentReloadSignalInfo where + type HaskellCallbackType DocumentReloadSignalInfo = DocumentReloadCallback + connectSignal _ = connectDocumentReload + +type instance SignalList Document = DocumentSignalList +type DocumentSignalList = ('[ '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("reload", DocumentReloadSignalInfo)] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => DocumentK a +instance (ForeignPtrNewtype o, IsDescendantOf Document o) => DocumentK o +type instance ParentTypes Document = DocumentParentTypes +type DocumentParentTypes = '[] + +-- method Document::get_attribute_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_document_get_attribute_value" atk_document_get_attribute_value :: + Ptr Document -> -- _obj : TInterface "Atk" "Document" + CString -> -- attribute_name : TBasicType TUTF8 + IO CString + + +documentGetAttributeValue :: + (MonadIO m, DocumentK a) => + a -> -- _obj + T.Text -> -- attribute_name + m T.Text +documentGetAttributeValue _obj attribute_name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + attribute_name' <- textToCString attribute_name + result <- atk_document_get_attribute_value _obj' attribute_name' + checkUnexpectedReturnNULL "atk_document_get_attribute_value" result + result' <- cstringToText result + touchManagedPtr _obj + freeMem attribute_name' + return result' + +-- method Document::get_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TBasicType TVoid) +-- throws : False +-- Skip return : False + +foreign import ccall "atk_document_get_attributes" atk_document_get_attributes :: + Ptr Document -> -- _obj : TInterface "Atk" "Document" + IO (Ptr (GSList (Ptr ()))) + + +documentGetAttributes :: + (MonadIO m, DocumentK a) => + a -> -- _obj + m [Ptr ()] +documentGetAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_document_get_attributes _obj' + checkUnexpectedReturnNULL "atk_document_get_attributes" result + result' <- unpackGSList result + touchManagedPtr _obj + return result' + +-- method Document::get_current_page_number +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_document_get_current_page_number" atk_document_get_current_page_number :: + Ptr Document -> -- _obj : TInterface "Atk" "Document" + IO Int32 + + +documentGetCurrentPageNumber :: + (MonadIO m, DocumentK a) => + a -> -- _obj + m Int32 +documentGetCurrentPageNumber _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_document_get_current_page_number _obj' + touchManagedPtr _obj + return result + +-- method Document::get_document +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_document_get_document" atk_document_get_document :: + Ptr Document -> -- _obj : TInterface "Atk" "Document" + IO () + +{-# DEPRECATED documentGetDocument ["Since 2.12. @document is already a representation of","the document. Use it directly, or one of its children, as an","instance of the DOM."]#-} +documentGetDocument :: + (MonadIO m, DocumentK a) => + a -> -- _obj + m () +documentGetDocument _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_document_get_document _obj' + touchManagedPtr _obj + return () + +-- method Document::get_document_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_document_get_document_type" atk_document_get_document_type :: + Ptr Document -> -- _obj : TInterface "Atk" "Document" + IO CString + +{-# DEPRECATED documentGetDocumentType ["Since 2.12. Please use atk_document_get_attributes() to","ask for the document type if it applies."]#-} +documentGetDocumentType :: + (MonadIO m, DocumentK a) => + a -> -- _obj + m T.Text +documentGetDocumentType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_document_get_document_type _obj' + checkUnexpectedReturnNULL "atk_document_get_document_type" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Document::get_locale +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_document_get_locale" atk_document_get_locale :: + Ptr Document -> -- _obj : TInterface "Atk" "Document" + IO CString + +{-# DEPRECATED documentGetLocale ["(Since version 2.7.90)","Please use atk_object_get_object_locale() instead."]#-} +documentGetLocale :: + (MonadIO m, DocumentK a) => + a -> -- _obj + m T.Text +documentGetLocale _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_document_get_locale _obj' + checkUnexpectedReturnNULL "atk_document_get_locale" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Document::get_page_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_document_get_page_count" atk_document_get_page_count :: + Ptr Document -> -- _obj : TInterface "Atk" "Document" + IO Int32 + + +documentGetPageCount :: + (MonadIO m, DocumentK a) => + a -> -- _obj + m Int32 +documentGetPageCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_document_get_page_count _obj' + touchManagedPtr _obj + return result + +-- method Document::set_attribute_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_document_set_attribute_value" atk_document_set_attribute_value :: + Ptr Document -> -- _obj : TInterface "Atk" "Document" + CString -> -- attribute_name : TBasicType TUTF8 + CString -> -- attribute_value : TBasicType TUTF8 + IO CInt + + +documentSetAttributeValue :: + (MonadIO m, DocumentK a) => + a -> -- _obj + T.Text -> -- attribute_name + T.Text -> -- attribute_value + m Bool +documentSetAttributeValue _obj attribute_name attribute_value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + attribute_name' <- textToCString attribute_name + attribute_value' <- textToCString attribute_value + result <- atk_document_set_attribute_value _obj' attribute_name' attribute_value' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem attribute_name' + freeMem attribute_value' + return result' + + diff --git a/GI/Atk/Interfaces/Document.hs-boot b/GI/Atk/Interfaces/Document.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Document.hs-boot @@ -0,0 +1,16 @@ +module GI.Atk.Interfaces.Document where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Document = Document (ForeignPtr Document) +data DocumentLoadCompleteSignalInfo +data DocumentLoadStoppedSignalInfo +data DocumentPageChangedSignalInfo +data DocumentReloadSignalInfo +class ForeignPtrNewtype a => DocumentK a +instance (ForeignPtrNewtype o, IsDescendantOf Document o) => DocumentK o diff --git a/GI/Atk/Interfaces/EditableText.hs b/GI/Atk/Interfaces/EditableText.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/EditableText.hs @@ -0,0 +1,280 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.EditableText + ( + +-- * Exported types + EditableText(..) , + noEditableText , + EditableTextK , + + + -- * Methods +-- ** editableTextCopyText + editableTextCopyText , + + +-- ** editableTextCutText + editableTextCutText , + + +-- ** editableTextDeleteText + editableTextDeleteText , + + +-- ** editableTextInsertText + editableTextInsertText , + + +-- ** editableTextPasteText + editableTextPasteText , + + +-- ** editableTextSetRunAttributes + editableTextSetRunAttributes , + + +-- ** editableTextSetTextContents + editableTextSetTextContents , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface EditableText + +newtype EditableText = EditableText (ForeignPtr EditableText) +noEditableText :: Maybe EditableText +noEditableText = Nothing + +type instance AttributeList EditableText = EditableTextAttributeList +type EditableTextAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList EditableText = EditableTextSignalList +type EditableTextSignalList = ('[ ] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => EditableTextK a +instance (ForeignPtrNewtype o, IsDescendantOf EditableText o) => EditableTextK o +type instance ParentTypes EditableText = EditableTextParentTypes +type EditableTextParentTypes = '[] + +-- method EditableText::copy_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_editable_text_copy_text" atk_editable_text_copy_text :: + Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" + Int32 -> -- start_pos : TBasicType TInt32 + Int32 -> -- end_pos : TBasicType TInt32 + IO () + + +editableTextCopyText :: + (MonadIO m, EditableTextK a) => + a -> -- _obj + Int32 -> -- start_pos + Int32 -> -- end_pos + m () +editableTextCopyText _obj start_pos end_pos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_editable_text_copy_text _obj' start_pos end_pos + touchManagedPtr _obj + return () + +-- method EditableText::cut_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_editable_text_cut_text" atk_editable_text_cut_text :: + Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" + Int32 -> -- start_pos : TBasicType TInt32 + Int32 -> -- end_pos : TBasicType TInt32 + IO () + + +editableTextCutText :: + (MonadIO m, EditableTextK a) => + a -> -- _obj + Int32 -> -- start_pos + Int32 -> -- end_pos + m () +editableTextCutText _obj start_pos end_pos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_editable_text_cut_text _obj' start_pos end_pos + touchManagedPtr _obj + return () + +-- method EditableText::delete_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_editable_text_delete_text" atk_editable_text_delete_text :: + Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" + Int32 -> -- start_pos : TBasicType TInt32 + Int32 -> -- end_pos : TBasicType TInt32 + IO () + + +editableTextDeleteText :: + (MonadIO m, EditableTextK a) => + a -> -- _obj + Int32 -> -- start_pos + Int32 -> -- end_pos + m () +editableTextDeleteText _obj start_pos end_pos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_editable_text_delete_text _obj' start_pos end_pos + touchManagedPtr _obj + return () + +-- method EditableText::insert_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_editable_text_insert_text" atk_editable_text_insert_text :: + Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" + CString -> -- string : TBasicType TUTF8 + Int32 -> -- length : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt32 + IO () + + +editableTextInsertText :: + (MonadIO m, EditableTextK a) => + a -> -- _obj + T.Text -> -- string + Int32 -> -- length + Int32 -> -- position + m () +editableTextInsertText _obj string length_ position = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + string' <- textToCString string + atk_editable_text_insert_text _obj' string' length_ position + touchManagedPtr _obj + freeMem string' + return () + +-- method EditableText::paste_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_editable_text_paste_text" atk_editable_text_paste_text :: + Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" + Int32 -> -- position : TBasicType TInt32 + IO () + + +editableTextPasteText :: + (MonadIO m, EditableTextK a) => + a -> -- _obj + Int32 -> -- position + m () +editableTextPasteText _obj position = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_editable_text_paste_text _obj' position + touchManagedPtr _obj + return () + +-- method EditableText::set_run_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_editable_text_set_run_attributes" atk_editable_text_set_run_attributes :: + Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" + Ptr (GSList (Ptr ())) -> -- attrib_set : TGSList (TBasicType TVoid) + Int32 -> -- start_offset : TBasicType TInt32 + Int32 -> -- end_offset : TBasicType TInt32 + IO CInt + + +editableTextSetRunAttributes :: + (MonadIO m, EditableTextK a) => + a -> -- _obj + [Ptr ()] -> -- attrib_set + Int32 -> -- start_offset + Int32 -> -- end_offset + m Bool +editableTextSetRunAttributes _obj attrib_set start_offset end_offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + attrib_set' <- packGSList attrib_set + result <- atk_editable_text_set_run_attributes _obj' attrib_set' start_offset end_offset + let result' = (/= 0) result + touchManagedPtr _obj + g_slist_free attrib_set' + return result' + +-- method EditableText::set_text_contents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_editable_text_set_text_contents" atk_editable_text_set_text_contents :: + Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText" + CString -> -- string : TBasicType TUTF8 + IO () + + +editableTextSetTextContents :: + (MonadIO m, EditableTextK a) => + a -> -- _obj + T.Text -> -- string + m () +editableTextSetTextContents _obj string = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + string' <- textToCString string + atk_editable_text_set_text_contents _obj' string' + touchManagedPtr _obj + freeMem string' + return () + + diff --git a/GI/Atk/Interfaces/EditableText.hs-boot b/GI/Atk/Interfaces/EditableText.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/EditableText.hs-boot @@ -0,0 +1,12 @@ +module GI.Atk.Interfaces.EditableText where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EditableText = EditableText (ForeignPtr EditableText) +class ForeignPtrNewtype a => EditableTextK a +instance (ForeignPtrNewtype o, IsDescendantOf EditableText o) => EditableTextK o diff --git a/GI/Atk/Interfaces/HyperlinkImpl.hs b/GI/Atk/Interfaces/HyperlinkImpl.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/HyperlinkImpl.hs @@ -0,0 +1,79 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.HyperlinkImpl + ( + +-- * Exported types + HyperlinkImpl(..) , + noHyperlinkImpl , + HyperlinkImplK , + + + -- * Methods +-- ** hyperlinkImplGetHyperlink + hyperlinkImplGetHyperlink , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface HyperlinkImpl + +newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl) +noHyperlinkImpl :: Maybe HyperlinkImpl +noHyperlinkImpl = Nothing + +type instance AttributeList HyperlinkImpl = HyperlinkImplAttributeList +type HyperlinkImplAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList HyperlinkImpl = HyperlinkImplSignalList +type HyperlinkImplSignalList = ('[ ] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => HyperlinkImplK a +instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o +type instance ParentTypes HyperlinkImpl = HyperlinkImplParentTypes +type HyperlinkImplParentTypes = '[] + +-- method HyperlinkImpl::get_hyperlink +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Hyperlink" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hyperlink_impl_get_hyperlink" atk_hyperlink_impl_get_hyperlink :: + Ptr HyperlinkImpl -> -- _obj : TInterface "Atk" "HyperlinkImpl" + IO (Ptr Hyperlink) + + +hyperlinkImplGetHyperlink :: + (MonadIO m, HyperlinkImplK a) => + a -> -- _obj + m Hyperlink +hyperlinkImplGetHyperlink _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hyperlink_impl_get_hyperlink _obj' + checkUnexpectedReturnNULL "atk_hyperlink_impl_get_hyperlink" result + result' <- (wrapObject Hyperlink) result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Interfaces/HyperlinkImpl.hs-boot b/GI/Atk/Interfaces/HyperlinkImpl.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/HyperlinkImpl.hs-boot @@ -0,0 +1,12 @@ +module GI.Atk.Interfaces.HyperlinkImpl where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl) +class ForeignPtrNewtype a => HyperlinkImplK a +instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o diff --git a/GI/Atk/Interfaces/Hypertext.hs b/GI/Atk/Interfaces/Hypertext.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Hypertext.hs @@ -0,0 +1,200 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Hypertext + ( + +-- * Exported types + Hypertext(..) , + noHypertext , + HypertextK , + + + -- * Methods +-- ** hypertextGetLink + hypertextGetLink , + + +-- ** hypertextGetLinkIndex + hypertextGetLinkIndex , + + +-- ** hypertextGetNLinks + hypertextGetNLinks , + + + + + -- * Signals +-- ** LinkSelected + HypertextLinkSelectedCallback , + HypertextLinkSelectedCallbackC , + HypertextLinkSelectedSignalInfo , + afterHypertextLinkSelected , + hypertextLinkSelectedCallbackWrapper , + hypertextLinkSelectedClosure , + mkHypertextLinkSelectedCallback , + noHypertextLinkSelectedCallback , + onHypertextLinkSelected , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface Hypertext + +newtype Hypertext = Hypertext (ForeignPtr Hypertext) +noHypertext :: Maybe Hypertext +noHypertext = Nothing + +-- signal Hypertext::link-selected +type HypertextLinkSelectedCallback = + Int32 -> + IO () + +noHypertextLinkSelectedCallback :: Maybe HypertextLinkSelectedCallback +noHypertextLinkSelectedCallback = Nothing + +type HypertextLinkSelectedCallbackC = + Ptr () -> -- object + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkHypertextLinkSelectedCallback :: HypertextLinkSelectedCallbackC -> IO (FunPtr HypertextLinkSelectedCallbackC) + +hypertextLinkSelectedClosure :: HypertextLinkSelectedCallback -> IO Closure +hypertextLinkSelectedClosure cb = newCClosure =<< mkHypertextLinkSelectedCallback wrapped + where wrapped = hypertextLinkSelectedCallbackWrapper cb + +hypertextLinkSelectedCallbackWrapper :: + HypertextLinkSelectedCallback -> + Ptr () -> + Int32 -> + Ptr () -> + IO () +hypertextLinkSelectedCallbackWrapper _cb _ arg1 _ = do + _cb arg1 + +onHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId +onHypertextLinkSelected obj cb = liftIO $ connectHypertextLinkSelected obj cb SignalConnectBefore +afterHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId +afterHypertextLinkSelected obj cb = connectHypertextLinkSelected obj cb SignalConnectAfter + +connectHypertextLinkSelected :: (GObject a, MonadIO m) => + a -> HypertextLinkSelectedCallback -> SignalConnectMode -> m SignalHandlerId +connectHypertextLinkSelected obj cb after = liftIO $ do + cb' <- mkHypertextLinkSelectedCallback (hypertextLinkSelectedCallbackWrapper cb) + connectSignalFunPtr obj "link-selected" cb' after + +type instance AttributeList Hypertext = HypertextAttributeList +type HypertextAttributeList = ('[ ] :: [(Symbol, *)]) + +data HypertextLinkSelectedSignalInfo +instance SignalInfo HypertextLinkSelectedSignalInfo where + type HaskellCallbackType HypertextLinkSelectedSignalInfo = HypertextLinkSelectedCallback + connectSignal _ = connectHypertextLinkSelected + +type instance SignalList Hypertext = HypertextSignalList +type HypertextSignalList = ('[ '("link-selected", HypertextLinkSelectedSignalInfo)] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => HypertextK a +instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o +type instance ParentTypes Hypertext = HypertextParentTypes +type HypertextParentTypes = '[] + +-- method Hypertext::get_link +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Hyperlink" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hypertext_get_link" atk_hypertext_get_link :: + Ptr Hypertext -> -- _obj : TInterface "Atk" "Hypertext" + Int32 -> -- link_index : TBasicType TInt32 + IO (Ptr Hyperlink) + + +hypertextGetLink :: + (MonadIO m, HypertextK a) => + a -> -- _obj + Int32 -> -- link_index + m Hyperlink +hypertextGetLink _obj link_index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hypertext_get_link _obj' link_index + checkUnexpectedReturnNULL "atk_hypertext_get_link" result + result' <- (newObject Hyperlink) result + touchManagedPtr _obj + return result' + +-- method Hypertext::get_link_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hypertext_get_link_index" atk_hypertext_get_link_index :: + Ptr Hypertext -> -- _obj : TInterface "Atk" "Hypertext" + Int32 -> -- char_index : TBasicType TInt32 + IO Int32 + + +hypertextGetLinkIndex :: + (MonadIO m, HypertextK a) => + a -> -- _obj + Int32 -> -- char_index + m Int32 +hypertextGetLinkIndex _obj char_index = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hypertext_get_link_index _obj' char_index + touchManagedPtr _obj + return result + +-- method Hypertext::get_n_links +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hypertext_get_n_links" atk_hypertext_get_n_links :: + Ptr Hypertext -> -- _obj : TInterface "Atk" "Hypertext" + IO Int32 + + +hypertextGetNLinks :: + (MonadIO m, HypertextK a) => + a -> -- _obj + m Int32 +hypertextGetNLinks _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hypertext_get_n_links _obj' + touchManagedPtr _obj + return result + + diff --git a/GI/Atk/Interfaces/Hypertext.hs-boot b/GI/Atk/Interfaces/Hypertext.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Hypertext.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Interfaces.Hypertext where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Hypertext = Hypertext (ForeignPtr Hypertext) +data HypertextLinkSelectedSignalInfo +class ForeignPtrNewtype a => HypertextK a +instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o diff --git a/GI/Atk/Interfaces/Image.hs b/GI/Atk/Interfaces/Image.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Image.hs @@ -0,0 +1,209 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Image + ( + +-- * Exported types + Image(..) , + noImage , + ImageK , + + + -- * Methods +-- ** imageGetImageDescription + imageGetImageDescription , + + +-- ** imageGetImageLocale + imageGetImageLocale , + + +-- ** imageGetImagePosition + imageGetImagePosition , + + +-- ** imageGetImageSize + imageGetImageSize , + + +-- ** imageSetImageDescription + imageSetImageDescription , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface Image + +newtype Image = Image (ForeignPtr Image) +noImage :: Maybe Image +noImage = Nothing + +type instance AttributeList Image = ImageAttributeList +type ImageAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList Image = ImageSignalList +type ImageSignalList = ('[ ] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => ImageK a +instance (ForeignPtrNewtype o, IsDescendantOf Image o) => ImageK o +type instance ParentTypes Image = ImageParentTypes +type ImageParentTypes = '[] + +-- method Image::get_image_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_image_get_image_description" atk_image_get_image_description :: + Ptr Image -> -- _obj : TInterface "Atk" "Image" + IO CString + + +imageGetImageDescription :: + (MonadIO m, ImageK a) => + a -> -- _obj + m T.Text +imageGetImageDescription _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_image_get_image_description _obj' + checkUnexpectedReturnNULL "atk_image_get_image_description" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Image::get_image_locale +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_image_get_image_locale" atk_image_get_image_locale :: + Ptr Image -> -- _obj : TInterface "Atk" "Image" + IO CString + + +imageGetImageLocale :: + (MonadIO m, ImageK a) => + a -> -- _obj + m T.Text +imageGetImageLocale _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_image_get_image_locale _obj' + checkUnexpectedReturnNULL "atk_image_get_image_locale" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Image::get_image_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_image_get_image_position" atk_image_get_image_position :: + Ptr Image -> -- _obj : TInterface "Atk" "Image" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + CUInt -> -- coord_type : TInterface "Atk" "CoordType" + IO () + + +imageGetImagePosition :: + (MonadIO m, ImageK a) => + a -> -- _obj + Int32 -> -- x + Int32 -> -- y + CoordType -> -- coord_type + m () +imageGetImagePosition _obj x y coord_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coord_type' = (fromIntegral . fromEnum) coord_type + atk_image_get_image_position _obj' x y coord_type' + touchManagedPtr _obj + return () + +-- method Image::get_image_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_image_get_image_size" atk_image_get_image_size :: + Ptr Image -> -- _obj : TInterface "Atk" "Image" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO () + + +imageGetImageSize :: + (MonadIO m, ImageK a) => + a -> -- _obj + Int32 -> -- width + Int32 -> -- height + m () +imageGetImageSize _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_image_get_image_size _obj' width height + touchManagedPtr _obj + return () + +-- method Image::set_image_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_image_set_image_description" atk_image_set_image_description :: + Ptr Image -> -- _obj : TInterface "Atk" "Image" + CString -> -- description : TBasicType TUTF8 + IO CInt + + +imageSetImageDescription :: + (MonadIO m, ImageK a) => + a -> -- _obj + T.Text -> -- description + m Bool +imageSetImageDescription _obj description = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + description' <- textToCString description + result <- atk_image_set_image_description _obj' description' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem description' + return result' + + diff --git a/GI/Atk/Interfaces/Image.hs-boot b/GI/Atk/Interfaces/Image.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Image.hs-boot @@ -0,0 +1,12 @@ +module GI.Atk.Interfaces.Image where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Image = Image (ForeignPtr Image) +class ForeignPtrNewtype a => ImageK a +instance (ForeignPtrNewtype o, IsDescendantOf Image o) => ImageK o diff --git a/GI/Atk/Interfaces/ImplementorIface.hs b/GI/Atk/Interfaces/ImplementorIface.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/ImplementorIface.hs @@ -0,0 +1,46 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.ImplementorIface + ( + +-- * Exported types + ImplementorIface(..) , + noImplementorIface , + ImplementorIfaceK , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface ImplementorIface + +newtype ImplementorIface = ImplementorIface (ForeignPtr ImplementorIface) +noImplementorIface :: Maybe ImplementorIface +noImplementorIface = Nothing + +type instance AttributeList ImplementorIface = ImplementorIfaceAttributeList +type ImplementorIfaceAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList ImplementorIface = ImplementorIfaceSignalList +type ImplementorIfaceSignalList = ('[ ] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => ImplementorIfaceK a +instance (ForeignPtrNewtype o, IsDescendantOf ImplementorIface o) => ImplementorIfaceK o +type instance ParentTypes ImplementorIface = ImplementorIfaceParentTypes +type ImplementorIfaceParentTypes = '[] + + diff --git a/GI/Atk/Interfaces/ImplementorIface.hs-boot b/GI/Atk/Interfaces/ImplementorIface.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/ImplementorIface.hs-boot @@ -0,0 +1,12 @@ +module GI.Atk.Interfaces.ImplementorIface where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype ImplementorIface = ImplementorIface (ForeignPtr ImplementorIface) +class ForeignPtrNewtype a => ImplementorIfaceK a +instance (ForeignPtrNewtype o, IsDescendantOf ImplementorIface o) => ImplementorIfaceK o diff --git a/GI/Atk/Interfaces/Selection.hs b/GI/Atk/Interfaces/Selection.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Selection.hs @@ -0,0 +1,318 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Selection + ( + +-- * Exported types + Selection(..) , + noSelection , + SelectionK , + + + -- * Methods +-- ** selectionAddSelection + selectionAddSelection , + + +-- ** selectionClearSelection + selectionClearSelection , + + +-- ** selectionGetSelectionCount + selectionGetSelectionCount , + + +-- ** selectionIsChildSelected + selectionIsChildSelected , + + +-- ** selectionRefSelection + selectionRefSelection , + + +-- ** selectionRemoveSelection + selectionRemoveSelection , + + +-- ** selectionSelectAllSelection + selectionSelectAllSelection , + + + + + -- * Signals +-- ** SelectionChanged + SelectionSelectionChangedCallback , + SelectionSelectionChangedCallbackC , + SelectionSelectionChangedSignalInfo , + afterSelectionSelectionChanged , + mkSelectionSelectionChangedCallback , + noSelectionSelectionChangedCallback , + onSelectionSelectionChanged , + selectionSelectionChangedCallbackWrapper, + selectionSelectionChangedClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface Selection + +newtype Selection = Selection (ForeignPtr Selection) +noSelection :: Maybe Selection +noSelection = Nothing + +-- signal Selection::selection-changed +type SelectionSelectionChangedCallback = + IO () + +noSelectionSelectionChangedCallback :: Maybe SelectionSelectionChangedCallback +noSelectionSelectionChangedCallback = Nothing + +type SelectionSelectionChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSelectionSelectionChangedCallback :: SelectionSelectionChangedCallbackC -> IO (FunPtr SelectionSelectionChangedCallbackC) + +selectionSelectionChangedClosure :: SelectionSelectionChangedCallback -> IO Closure +selectionSelectionChangedClosure cb = newCClosure =<< mkSelectionSelectionChangedCallback wrapped + where wrapped = selectionSelectionChangedCallbackWrapper cb + +selectionSelectionChangedCallbackWrapper :: + SelectionSelectionChangedCallback -> + Ptr () -> + Ptr () -> + IO () +selectionSelectionChangedCallbackWrapper _cb _ _ = do + _cb + +onSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId +onSelectionSelectionChanged obj cb = liftIO $ connectSelectionSelectionChanged obj cb SignalConnectBefore +afterSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId +afterSelectionSelectionChanged obj cb = connectSelectionSelectionChanged obj cb SignalConnectAfter + +connectSelectionSelectionChanged :: (GObject a, MonadIO m) => + a -> SelectionSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectSelectionSelectionChanged obj cb after = liftIO $ do + cb' <- mkSelectionSelectionChangedCallback (selectionSelectionChangedCallbackWrapper cb) + connectSignalFunPtr obj "selection-changed" cb' after + +type instance AttributeList Selection = SelectionAttributeList +type SelectionAttributeList = ('[ ] :: [(Symbol, *)]) + +data SelectionSelectionChangedSignalInfo +instance SignalInfo SelectionSelectionChangedSignalInfo where + type HaskellCallbackType SelectionSelectionChangedSignalInfo = SelectionSelectionChangedCallback + connectSignal _ = connectSelectionSelectionChanged + +type instance SignalList Selection = SelectionSignalList +type SelectionSignalList = ('[ '("selection-changed", SelectionSelectionChangedSignalInfo)] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => SelectionK a +instance (ForeignPtrNewtype o, IsDescendantOf Selection o) => SelectionK o +type instance ParentTypes Selection = SelectionParentTypes +type SelectionParentTypes = '[] + +-- method Selection::add_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_selection_add_selection" atk_selection_add_selection :: + Ptr Selection -> -- _obj : TInterface "Atk" "Selection" + Int32 -> -- i : TBasicType TInt32 + IO CInt + + +selectionAddSelection :: + (MonadIO m, SelectionK a) => + a -> -- _obj + Int32 -> -- i + m Bool +selectionAddSelection _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_selection_add_selection _obj' i + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Selection::clear_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_selection_clear_selection" atk_selection_clear_selection :: + Ptr Selection -> -- _obj : TInterface "Atk" "Selection" + IO CInt + + +selectionClearSelection :: + (MonadIO m, SelectionK a) => + a -> -- _obj + m Bool +selectionClearSelection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_selection_clear_selection _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Selection::get_selection_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_selection_get_selection_count" atk_selection_get_selection_count :: + Ptr Selection -> -- _obj : TInterface "Atk" "Selection" + IO Int32 + + +selectionGetSelectionCount :: + (MonadIO m, SelectionK a) => + a -> -- _obj + m Int32 +selectionGetSelectionCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_selection_get_selection_count _obj' + touchManagedPtr _obj + return result + +-- method Selection::is_child_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_selection_is_child_selected" atk_selection_is_child_selected :: + Ptr Selection -> -- _obj : TInterface "Atk" "Selection" + Int32 -> -- i : TBasicType TInt32 + IO CInt + + +selectionIsChildSelected :: + (MonadIO m, SelectionK a) => + a -> -- _obj + Int32 -> -- i + m Bool +selectionIsChildSelected _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_selection_is_child_selected _obj' i + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Selection::ref_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_selection_ref_selection" atk_selection_ref_selection :: + Ptr Selection -> -- _obj : TInterface "Atk" "Selection" + Int32 -> -- i : TBasicType TInt32 + IO (Ptr Object) + + +selectionRefSelection :: + (MonadIO m, SelectionK a) => + a -> -- _obj + Int32 -> -- i + m Object +selectionRefSelection _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_selection_ref_selection _obj' i + checkUnexpectedReturnNULL "atk_selection_ref_selection" result + result' <- (wrapObject Object) result + touchManagedPtr _obj + return result' + +-- method Selection::remove_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_selection_remove_selection" atk_selection_remove_selection :: + Ptr Selection -> -- _obj : TInterface "Atk" "Selection" + Int32 -> -- i : TBasicType TInt32 + IO CInt + + +selectionRemoveSelection :: + (MonadIO m, SelectionK a) => + a -> -- _obj + Int32 -> -- i + m Bool +selectionRemoveSelection _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_selection_remove_selection _obj' i + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Selection::select_all_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_selection_select_all_selection" atk_selection_select_all_selection :: + Ptr Selection -> -- _obj : TInterface "Atk" "Selection" + IO CInt + + +selectionSelectAllSelection :: + (MonadIO m, SelectionK a) => + a -> -- _obj + m Bool +selectionSelectAllSelection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_selection_select_all_selection _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Interfaces/Selection.hs-boot b/GI/Atk/Interfaces/Selection.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Selection.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Interfaces.Selection where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Selection = Selection (ForeignPtr Selection) +data SelectionSelectionChangedSignalInfo +class ForeignPtrNewtype a => SelectionK a +instance (ForeignPtrNewtype o, IsDescendantOf Selection o) => SelectionK o diff --git a/GI/Atk/Interfaces/StreamableContent.hs b/GI/Atk/Interfaces/StreamableContent.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/StreamableContent.hs @@ -0,0 +1,178 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.StreamableContent + ( + +-- * Exported types + StreamableContent(..) , + noStreamableContent , + StreamableContentK , + + + -- * Methods +-- ** streamableContentGetMimeType + streamableContentGetMimeType , + + +-- ** streamableContentGetNMimeTypes + streamableContentGetNMimeTypes , + + +-- ** streamableContentGetStream + streamableContentGetStream , + + +-- ** streamableContentGetUri + streamableContentGetUri , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GLib as GLib + +-- interface StreamableContent + +newtype StreamableContent = StreamableContent (ForeignPtr StreamableContent) +noStreamableContent :: Maybe StreamableContent +noStreamableContent = Nothing + +type instance AttributeList StreamableContent = StreamableContentAttributeList +type StreamableContentAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList StreamableContent = StreamableContentSignalList +type StreamableContentSignalList = ('[ ] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => StreamableContentK a +instance (ForeignPtrNewtype o, IsDescendantOf StreamableContent o) => StreamableContentK o +type instance ParentTypes StreamableContent = StreamableContentParentTypes +type StreamableContentParentTypes = '[] + +-- method StreamableContent::get_mime_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_streamable_content_get_mime_type" atk_streamable_content_get_mime_type :: + Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent" + Int32 -> -- i : TBasicType TInt32 + IO CString + + +streamableContentGetMimeType :: + (MonadIO m, StreamableContentK a) => + a -> -- _obj + Int32 -> -- i + m T.Text +streamableContentGetMimeType _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_streamable_content_get_mime_type _obj' i + checkUnexpectedReturnNULL "atk_streamable_content_get_mime_type" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method StreamableContent::get_n_mime_types +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_streamable_content_get_n_mime_types" atk_streamable_content_get_n_mime_types :: + Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent" + IO Int32 + + +streamableContentGetNMimeTypes :: + (MonadIO m, StreamableContentK a) => + a -> -- _obj + m Int32 +streamableContentGetNMimeTypes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_streamable_content_get_n_mime_types _obj' + touchManagedPtr _obj + return result + +-- method StreamableContent::get_stream +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOChannel" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_streamable_content_get_stream" atk_streamable_content_get_stream :: + Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent" + CString -> -- mime_type : TBasicType TUTF8 + IO (Ptr GLib.IOChannel) + + +streamableContentGetStream :: + (MonadIO m, StreamableContentK a) => + a -> -- _obj + T.Text -> -- mime_type + m GLib.IOChannel +streamableContentGetStream _obj mime_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + mime_type' <- textToCString mime_type + result <- atk_streamable_content_get_stream _obj' mime_type' + checkUnexpectedReturnNULL "atk_streamable_content_get_stream" result + result' <- (wrapBoxed GLib.IOChannel) result + touchManagedPtr _obj + freeMem mime_type' + return result' + +-- method StreamableContent::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_streamable_content_get_uri" atk_streamable_content_get_uri :: + Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent" + CString -> -- mime_type : TBasicType TUTF8 + IO CString + + +streamableContentGetUri :: + (MonadIO m, StreamableContentK a) => + a -> -- _obj + T.Text -> -- mime_type + m T.Text +streamableContentGetUri _obj mime_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + mime_type' <- textToCString mime_type + result <- atk_streamable_content_get_uri _obj' mime_type' + checkUnexpectedReturnNULL "atk_streamable_content_get_uri" result + result' <- cstringToText result + touchManagedPtr _obj + freeMem mime_type' + return result' + + diff --git a/GI/Atk/Interfaces/StreamableContent.hs-boot b/GI/Atk/Interfaces/StreamableContent.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/StreamableContent.hs-boot @@ -0,0 +1,12 @@ +module GI.Atk.Interfaces.StreamableContent where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype StreamableContent = StreamableContent (ForeignPtr StreamableContent) +class ForeignPtrNewtype a => StreamableContentK a +instance (ForeignPtrNewtype o, IsDescendantOf StreamableContent o) => StreamableContentK o diff --git a/GI/Atk/Interfaces/Table.hs b/GI/Atk/Interfaces/Table.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Table.hs @@ -0,0 +1,1374 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Table + ( + +-- * Exported types + Table(..) , + noTable , + TableK , + + + -- * Methods +-- ** tableAddColumnSelection + tableAddColumnSelection , + + +-- ** tableAddRowSelection + tableAddRowSelection , + + +-- ** tableGetCaption + tableGetCaption , + + +-- ** tableGetColumnAtIndex + tableGetColumnAtIndex , + + +-- ** tableGetColumnDescription + tableGetColumnDescription , + + +-- ** tableGetColumnExtentAt + tableGetColumnExtentAt , + + +-- ** tableGetColumnHeader + tableGetColumnHeader , + + +-- ** tableGetIndexAt + tableGetIndexAt , + + +-- ** tableGetNColumns + tableGetNColumns , + + +-- ** tableGetNRows + tableGetNRows , + + +-- ** tableGetRowAtIndex + tableGetRowAtIndex , + + +-- ** tableGetRowDescription + tableGetRowDescription , + + +-- ** tableGetRowExtentAt + tableGetRowExtentAt , + + +-- ** tableGetRowHeader + tableGetRowHeader , + + +-- ** tableGetSelectedColumns + tableGetSelectedColumns , + + +-- ** tableGetSelectedRows + tableGetSelectedRows , + + +-- ** tableGetSummary + tableGetSummary , + + +-- ** tableIsColumnSelected + tableIsColumnSelected , + + +-- ** tableIsRowSelected + tableIsRowSelected , + + +-- ** tableIsSelected + tableIsSelected , + + +-- ** tableRefAt + tableRefAt , + + +-- ** tableRemoveColumnSelection + tableRemoveColumnSelection , + + +-- ** tableRemoveRowSelection + tableRemoveRowSelection , + + +-- ** tableSetCaption + tableSetCaption , + + +-- ** tableSetColumnDescription + tableSetColumnDescription , + + +-- ** tableSetColumnHeader + tableSetColumnHeader , + + +-- ** tableSetRowDescription + tableSetRowDescription , + + +-- ** tableSetRowHeader + tableSetRowHeader , + + +-- ** tableSetSummary + tableSetSummary , + + + + + -- * Signals +-- ** ColumnDeleted + TableColumnDeletedCallback , + TableColumnDeletedCallbackC , + TableColumnDeletedSignalInfo , + afterTableColumnDeleted , + mkTableColumnDeletedCallback , + noTableColumnDeletedCallback , + onTableColumnDeleted , + tableColumnDeletedCallbackWrapper , + tableColumnDeletedClosure , + + +-- ** ColumnInserted + TableColumnInsertedCallback , + TableColumnInsertedCallbackC , + TableColumnInsertedSignalInfo , + afterTableColumnInserted , + mkTableColumnInsertedCallback , + noTableColumnInsertedCallback , + onTableColumnInserted , + tableColumnInsertedCallbackWrapper , + tableColumnInsertedClosure , + + +-- ** ColumnReordered + TableColumnReorderedCallback , + TableColumnReorderedCallbackC , + TableColumnReorderedSignalInfo , + afterTableColumnReordered , + mkTableColumnReorderedCallback , + noTableColumnReorderedCallback , + onTableColumnReordered , + tableColumnReorderedCallbackWrapper , + tableColumnReorderedClosure , + + +-- ** ModelChanged + TableModelChangedCallback , + TableModelChangedCallbackC , + TableModelChangedSignalInfo , + afterTableModelChanged , + mkTableModelChangedCallback , + noTableModelChangedCallback , + onTableModelChanged , + tableModelChangedCallbackWrapper , + tableModelChangedClosure , + + +-- ** RowDeleted + TableRowDeletedCallback , + TableRowDeletedCallbackC , + TableRowDeletedSignalInfo , + afterTableRowDeleted , + mkTableRowDeletedCallback , + noTableRowDeletedCallback , + onTableRowDeleted , + tableRowDeletedCallbackWrapper , + tableRowDeletedClosure , + + +-- ** RowInserted + TableRowInsertedCallback , + TableRowInsertedCallbackC , + TableRowInsertedSignalInfo , + afterTableRowInserted , + mkTableRowInsertedCallback , + noTableRowInsertedCallback , + onTableRowInserted , + tableRowInsertedCallbackWrapper , + tableRowInsertedClosure , + + +-- ** RowReordered + TableRowReorderedCallback , + TableRowReorderedCallbackC , + TableRowReorderedSignalInfo , + afterTableRowReordered , + mkTableRowReorderedCallback , + noTableRowReorderedCallback , + onTableRowReordered , + tableRowReorderedCallbackWrapper , + tableRowReorderedClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface Table + +newtype Table = Table (ForeignPtr Table) +noTable :: Maybe Table +noTable = Nothing + +-- signal Table::column-deleted +type TableColumnDeletedCallback = + Int32 -> + Int32 -> + IO () + +noTableColumnDeletedCallback :: Maybe TableColumnDeletedCallback +noTableColumnDeletedCallback = Nothing + +type TableColumnDeletedCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTableColumnDeletedCallback :: TableColumnDeletedCallbackC -> IO (FunPtr TableColumnDeletedCallbackC) + +tableColumnDeletedClosure :: TableColumnDeletedCallback -> IO Closure +tableColumnDeletedClosure cb = newCClosure =<< mkTableColumnDeletedCallback wrapped + where wrapped = tableColumnDeletedCallbackWrapper cb + +tableColumnDeletedCallbackWrapper :: + TableColumnDeletedCallback -> + Ptr () -> + Int32 -> + Int32 -> + Ptr () -> + IO () +tableColumnDeletedCallbackWrapper _cb _ arg1 arg2 _ = do + _cb arg1 arg2 + +onTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId +onTableColumnDeleted obj cb = liftIO $ connectTableColumnDeleted obj cb SignalConnectBefore +afterTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId +afterTableColumnDeleted obj cb = connectTableColumnDeleted obj cb SignalConnectAfter + +connectTableColumnDeleted :: (GObject a, MonadIO m) => + a -> TableColumnDeletedCallback -> SignalConnectMode -> m SignalHandlerId +connectTableColumnDeleted obj cb after = liftIO $ do + cb' <- mkTableColumnDeletedCallback (tableColumnDeletedCallbackWrapper cb) + connectSignalFunPtr obj "column-deleted" cb' after + +-- signal Table::column-inserted +type TableColumnInsertedCallback = + Int32 -> + Int32 -> + IO () + +noTableColumnInsertedCallback :: Maybe TableColumnInsertedCallback +noTableColumnInsertedCallback = Nothing + +type TableColumnInsertedCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTableColumnInsertedCallback :: TableColumnInsertedCallbackC -> IO (FunPtr TableColumnInsertedCallbackC) + +tableColumnInsertedClosure :: TableColumnInsertedCallback -> IO Closure +tableColumnInsertedClosure cb = newCClosure =<< mkTableColumnInsertedCallback wrapped + where wrapped = tableColumnInsertedCallbackWrapper cb + +tableColumnInsertedCallbackWrapper :: + TableColumnInsertedCallback -> + Ptr () -> + Int32 -> + Int32 -> + Ptr () -> + IO () +tableColumnInsertedCallbackWrapper _cb _ arg1 arg2 _ = do + _cb arg1 arg2 + +onTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId +onTableColumnInserted obj cb = liftIO $ connectTableColumnInserted obj cb SignalConnectBefore +afterTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId +afterTableColumnInserted obj cb = connectTableColumnInserted obj cb SignalConnectAfter + +connectTableColumnInserted :: (GObject a, MonadIO m) => + a -> TableColumnInsertedCallback -> SignalConnectMode -> m SignalHandlerId +connectTableColumnInserted obj cb after = liftIO $ do + cb' <- mkTableColumnInsertedCallback (tableColumnInsertedCallbackWrapper cb) + connectSignalFunPtr obj "column-inserted" cb' after + +-- signal Table::column-reordered +type TableColumnReorderedCallback = + IO () + +noTableColumnReorderedCallback :: Maybe TableColumnReorderedCallback +noTableColumnReorderedCallback = Nothing + +type TableColumnReorderedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTableColumnReorderedCallback :: TableColumnReorderedCallbackC -> IO (FunPtr TableColumnReorderedCallbackC) + +tableColumnReorderedClosure :: TableColumnReorderedCallback -> IO Closure +tableColumnReorderedClosure cb = newCClosure =<< mkTableColumnReorderedCallback wrapped + where wrapped = tableColumnReorderedCallbackWrapper cb + +tableColumnReorderedCallbackWrapper :: + TableColumnReorderedCallback -> + Ptr () -> + Ptr () -> + IO () +tableColumnReorderedCallbackWrapper _cb _ _ = do + _cb + +onTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId +onTableColumnReordered obj cb = liftIO $ connectTableColumnReordered obj cb SignalConnectBefore +afterTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId +afterTableColumnReordered obj cb = connectTableColumnReordered obj cb SignalConnectAfter + +connectTableColumnReordered :: (GObject a, MonadIO m) => + a -> TableColumnReorderedCallback -> SignalConnectMode -> m SignalHandlerId +connectTableColumnReordered obj cb after = liftIO $ do + cb' <- mkTableColumnReorderedCallback (tableColumnReorderedCallbackWrapper cb) + connectSignalFunPtr obj "column-reordered" cb' after + +-- signal Table::model-changed +type TableModelChangedCallback = + IO () + +noTableModelChangedCallback :: Maybe TableModelChangedCallback +noTableModelChangedCallback = Nothing + +type TableModelChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTableModelChangedCallback :: TableModelChangedCallbackC -> IO (FunPtr TableModelChangedCallbackC) + +tableModelChangedClosure :: TableModelChangedCallback -> IO Closure +tableModelChangedClosure cb = newCClosure =<< mkTableModelChangedCallback wrapped + where wrapped = tableModelChangedCallbackWrapper cb + +tableModelChangedCallbackWrapper :: + TableModelChangedCallback -> + Ptr () -> + Ptr () -> + IO () +tableModelChangedCallbackWrapper _cb _ _ = do + _cb + +onTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId +onTableModelChanged obj cb = liftIO $ connectTableModelChanged obj cb SignalConnectBefore +afterTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId +afterTableModelChanged obj cb = connectTableModelChanged obj cb SignalConnectAfter + +connectTableModelChanged :: (GObject a, MonadIO m) => + a -> TableModelChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectTableModelChanged obj cb after = liftIO $ do + cb' <- mkTableModelChangedCallback (tableModelChangedCallbackWrapper cb) + connectSignalFunPtr obj "model-changed" cb' after + +-- signal Table::row-deleted +type TableRowDeletedCallback = + Int32 -> + Int32 -> + IO () + +noTableRowDeletedCallback :: Maybe TableRowDeletedCallback +noTableRowDeletedCallback = Nothing + +type TableRowDeletedCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTableRowDeletedCallback :: TableRowDeletedCallbackC -> IO (FunPtr TableRowDeletedCallbackC) + +tableRowDeletedClosure :: TableRowDeletedCallback -> IO Closure +tableRowDeletedClosure cb = newCClosure =<< mkTableRowDeletedCallback wrapped + where wrapped = tableRowDeletedCallbackWrapper cb + +tableRowDeletedCallbackWrapper :: + TableRowDeletedCallback -> + Ptr () -> + Int32 -> + Int32 -> + Ptr () -> + IO () +tableRowDeletedCallbackWrapper _cb _ arg1 arg2 _ = do + _cb arg1 arg2 + +onTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId +onTableRowDeleted obj cb = liftIO $ connectTableRowDeleted obj cb SignalConnectBefore +afterTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId +afterTableRowDeleted obj cb = connectTableRowDeleted obj cb SignalConnectAfter + +connectTableRowDeleted :: (GObject a, MonadIO m) => + a -> TableRowDeletedCallback -> SignalConnectMode -> m SignalHandlerId +connectTableRowDeleted obj cb after = liftIO $ do + cb' <- mkTableRowDeletedCallback (tableRowDeletedCallbackWrapper cb) + connectSignalFunPtr obj "row-deleted" cb' after + +-- signal Table::row-inserted +type TableRowInsertedCallback = + Int32 -> + Int32 -> + IO () + +noTableRowInsertedCallback :: Maybe TableRowInsertedCallback +noTableRowInsertedCallback = Nothing + +type TableRowInsertedCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTableRowInsertedCallback :: TableRowInsertedCallbackC -> IO (FunPtr TableRowInsertedCallbackC) + +tableRowInsertedClosure :: TableRowInsertedCallback -> IO Closure +tableRowInsertedClosure cb = newCClosure =<< mkTableRowInsertedCallback wrapped + where wrapped = tableRowInsertedCallbackWrapper cb + +tableRowInsertedCallbackWrapper :: + TableRowInsertedCallback -> + Ptr () -> + Int32 -> + Int32 -> + Ptr () -> + IO () +tableRowInsertedCallbackWrapper _cb _ arg1 arg2 _ = do + _cb arg1 arg2 + +onTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId +onTableRowInserted obj cb = liftIO $ connectTableRowInserted obj cb SignalConnectBefore +afterTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId +afterTableRowInserted obj cb = connectTableRowInserted obj cb SignalConnectAfter + +connectTableRowInserted :: (GObject a, MonadIO m) => + a -> TableRowInsertedCallback -> SignalConnectMode -> m SignalHandlerId +connectTableRowInserted obj cb after = liftIO $ do + cb' <- mkTableRowInsertedCallback (tableRowInsertedCallbackWrapper cb) + connectSignalFunPtr obj "row-inserted" cb' after + +-- signal Table::row-reordered +type TableRowReorderedCallback = + IO () + +noTableRowReorderedCallback :: Maybe TableRowReorderedCallback +noTableRowReorderedCallback = Nothing + +type TableRowReorderedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTableRowReorderedCallback :: TableRowReorderedCallbackC -> IO (FunPtr TableRowReorderedCallbackC) + +tableRowReorderedClosure :: TableRowReorderedCallback -> IO Closure +tableRowReorderedClosure cb = newCClosure =<< mkTableRowReorderedCallback wrapped + where wrapped = tableRowReorderedCallbackWrapper cb + +tableRowReorderedCallbackWrapper :: + TableRowReorderedCallback -> + Ptr () -> + Ptr () -> + IO () +tableRowReorderedCallbackWrapper _cb _ _ = do + _cb + +onTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId +onTableRowReordered obj cb = liftIO $ connectTableRowReordered obj cb SignalConnectBefore +afterTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId +afterTableRowReordered obj cb = connectTableRowReordered obj cb SignalConnectAfter + +connectTableRowReordered :: (GObject a, MonadIO m) => + a -> TableRowReorderedCallback -> SignalConnectMode -> m SignalHandlerId +connectTableRowReordered obj cb after = liftIO $ do + cb' <- mkTableRowReorderedCallback (tableRowReorderedCallbackWrapper cb) + connectSignalFunPtr obj "row-reordered" cb' after + +type instance AttributeList Table = TableAttributeList +type TableAttributeList = ('[ ] :: [(Symbol, *)]) + +data TableColumnDeletedSignalInfo +instance SignalInfo TableColumnDeletedSignalInfo where + type HaskellCallbackType TableColumnDeletedSignalInfo = TableColumnDeletedCallback + connectSignal _ = connectTableColumnDeleted + +data TableColumnInsertedSignalInfo +instance SignalInfo TableColumnInsertedSignalInfo where + type HaskellCallbackType TableColumnInsertedSignalInfo = TableColumnInsertedCallback + connectSignal _ = connectTableColumnInserted + +data TableColumnReorderedSignalInfo +instance SignalInfo TableColumnReorderedSignalInfo where + type HaskellCallbackType TableColumnReorderedSignalInfo = TableColumnReorderedCallback + connectSignal _ = connectTableColumnReordered + +data TableModelChangedSignalInfo +instance SignalInfo TableModelChangedSignalInfo where + type HaskellCallbackType TableModelChangedSignalInfo = TableModelChangedCallback + connectSignal _ = connectTableModelChanged + +data TableRowDeletedSignalInfo +instance SignalInfo TableRowDeletedSignalInfo where + type HaskellCallbackType TableRowDeletedSignalInfo = TableRowDeletedCallback + connectSignal _ = connectTableRowDeleted + +data TableRowInsertedSignalInfo +instance SignalInfo TableRowInsertedSignalInfo where + type HaskellCallbackType TableRowInsertedSignalInfo = TableRowInsertedCallback + connectSignal _ = connectTableRowInserted + +data TableRowReorderedSignalInfo +instance SignalInfo TableRowReorderedSignalInfo where + type HaskellCallbackType TableRowReorderedSignalInfo = TableRowReorderedCallback + connectSignal _ = connectTableRowReordered + +type instance SignalList Table = TableSignalList +type TableSignalList = ('[ '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo)] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => TableK a +instance (ForeignPtrNewtype o, IsDescendantOf Table o) => TableK o +type instance ParentTypes Table = TableParentTypes +type TableParentTypes = '[] + +-- method Table::add_column_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_add_column_selection" atk_table_add_column_selection :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- column : TBasicType TInt32 + IO CInt + + +tableAddColumnSelection :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- column + m Bool +tableAddColumnSelection _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_add_column_selection _obj' column + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Table::add_row_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_add_row_selection" atk_table_add_row_selection :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + IO CInt + + +tableAddRowSelection :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + m Bool +tableAddRowSelection _obj row = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_add_row_selection _obj' row + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Table::get_caption +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_caption" atk_table_get_caption :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + IO (Ptr Object) + + +tableGetCaption :: + (MonadIO m, TableK a) => + a -> -- _obj + m Object +tableGetCaption _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_caption _obj' + checkUnexpectedReturnNULL "atk_table_get_caption" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Table::get_column_at_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_column_at_index" atk_table_get_column_at_index :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- index_ : TBasicType TInt32 + IO Int32 + +{-# DEPRECATED tableGetColumnAtIndex ["Since 2.12."]#-} +tableGetColumnAtIndex :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- index_ + m Int32 +tableGetColumnAtIndex _obj index_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_column_at_index _obj' index_ + touchManagedPtr _obj + return result + +-- method Table::get_column_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_column_description" atk_table_get_column_description :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- column : TBasicType TInt32 + IO CString + + +tableGetColumnDescription :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- column + m T.Text +tableGetColumnDescription _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_column_description _obj' column + checkUnexpectedReturnNULL "atk_table_get_column_description" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Table::get_column_extent_at +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_column_extent_at" atk_table_get_column_extent_at :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt32 + IO Int32 + + +tableGetColumnExtentAt :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + Int32 -> -- column + m Int32 +tableGetColumnExtentAt _obj row column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_column_extent_at _obj' row column + touchManagedPtr _obj + return result + +-- method Table::get_column_header +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_column_header" atk_table_get_column_header :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- column : TBasicType TInt32 + IO (Ptr Object) + + +tableGetColumnHeader :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- column + m Object +tableGetColumnHeader _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_column_header _obj' column + checkUnexpectedReturnNULL "atk_table_get_column_header" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Table::get_index_at +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_index_at" atk_table_get_index_at :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt32 + IO Int32 + +{-# DEPRECATED tableGetIndexAt ["Since 2.12. Use atk_table_ref_at() in order to get the","accessible that represents the cell at (@row, @column)"]#-} +tableGetIndexAt :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + Int32 -> -- column + m Int32 +tableGetIndexAt _obj row column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_index_at _obj' row column + touchManagedPtr _obj + return result + +-- method Table::get_n_columns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_n_columns" atk_table_get_n_columns :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + IO Int32 + + +tableGetNColumns :: + (MonadIO m, TableK a) => + a -> -- _obj + m Int32 +tableGetNColumns _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_n_columns _obj' + touchManagedPtr _obj + return result + +-- method Table::get_n_rows +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_n_rows" atk_table_get_n_rows :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + IO Int32 + + +tableGetNRows :: + (MonadIO m, TableK a) => + a -> -- _obj + m Int32 +tableGetNRows _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_n_rows _obj' + touchManagedPtr _obj + return result + +-- method Table::get_row_at_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_row_at_index" atk_table_get_row_at_index :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- index_ : TBasicType TInt32 + IO Int32 + +{-# DEPRECATED tableGetRowAtIndex ["since 2.12."]#-} +tableGetRowAtIndex :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- index_ + m Int32 +tableGetRowAtIndex _obj index_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_row_at_index _obj' index_ + touchManagedPtr _obj + return result + +-- method Table::get_row_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_row_description" atk_table_get_row_description :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + IO CString + + +tableGetRowDescription :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + m T.Text +tableGetRowDescription _obj row = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_row_description _obj' row + checkUnexpectedReturnNULL "atk_table_get_row_description" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Table::get_row_extent_at +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_row_extent_at" atk_table_get_row_extent_at :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt32 + IO Int32 + + +tableGetRowExtentAt :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + Int32 -> -- column + m Int32 +tableGetRowExtentAt _obj row column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_row_extent_at _obj' row column + touchManagedPtr _obj + return result + +-- method Table::get_row_header +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_row_header" atk_table_get_row_header :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + IO (Ptr Object) + + +tableGetRowHeader :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + m Object +tableGetRowHeader _obj row = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_row_header _obj' row + checkUnexpectedReturnNULL "atk_table_get_row_header" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Table::get_selected_columns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_selected_columns" atk_table_get_selected_columns :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- selected : TBasicType TInt32 + IO Int32 + + +tableGetSelectedColumns :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- selected + m Int32 +tableGetSelectedColumns _obj selected = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_selected_columns _obj' selected + touchManagedPtr _obj + return result + +-- method Table::get_selected_rows +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_selected_rows" atk_table_get_selected_rows :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- selected : TBasicType TInt32 + IO Int32 + + +tableGetSelectedRows :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- selected + m Int32 +tableGetSelectedRows _obj selected = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_selected_rows _obj' selected + touchManagedPtr _obj + return result + +-- method Table::get_summary +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_get_summary" atk_table_get_summary :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + IO (Ptr Object) + + +tableGetSummary :: + (MonadIO m, TableK a) => + a -> -- _obj + m Object +tableGetSummary _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_get_summary _obj' + checkUnexpectedReturnNULL "atk_table_get_summary" result + result' <- (wrapObject Object) result + touchManagedPtr _obj + return result' + +-- method Table::is_column_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_is_column_selected" atk_table_is_column_selected :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- column : TBasicType TInt32 + IO CInt + + +tableIsColumnSelected :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- column + m Bool +tableIsColumnSelected _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_is_column_selected _obj' column + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Table::is_row_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_is_row_selected" atk_table_is_row_selected :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + IO CInt + + +tableIsRowSelected :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + m Bool +tableIsRowSelected _obj row = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_is_row_selected _obj' row + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Table::is_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_is_selected" atk_table_is_selected :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt32 + IO CInt + + +tableIsSelected :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + Int32 -> -- column + m Bool +tableIsSelected _obj row column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_is_selected _obj' row column + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Table::ref_at +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_ref_at" atk_table_ref_at :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt32 + IO (Ptr Object) + + +tableRefAt :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + Int32 -> -- column + m Object +tableRefAt _obj row column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_ref_at _obj' row column + checkUnexpectedReturnNULL "atk_table_ref_at" result + result' <- (wrapObject Object) result + touchManagedPtr _obj + return result' + +-- method Table::remove_column_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_remove_column_selection" atk_table_remove_column_selection :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- column : TBasicType TInt32 + IO CInt + + +tableRemoveColumnSelection :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- column + m Bool +tableRemoveColumnSelection _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_remove_column_selection _obj' column + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Table::remove_row_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_remove_row_selection" atk_table_remove_row_selection :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + IO CInt + + +tableRemoveRowSelection :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + m Bool +tableRemoveRowSelection _obj row = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_remove_row_selection _obj' row + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Table::set_caption +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_set_caption" atk_table_set_caption :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Ptr Object -> -- caption : TInterface "Atk" "Object" + IO () + + +tableSetCaption :: + (MonadIO m, TableK a, ObjectK b) => + a -> -- _obj + b -> -- caption + m () +tableSetCaption _obj caption = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let caption' = unsafeManagedPtrCastPtr caption + atk_table_set_caption _obj' caption' + touchManagedPtr _obj + touchManagedPtr caption + return () + +-- method Table::set_column_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_set_column_description" atk_table_set_column_description :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- column : TBasicType TInt32 + CString -> -- description : TBasicType TUTF8 + IO () + + +tableSetColumnDescription :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- column + T.Text -> -- description + m () +tableSetColumnDescription _obj column description = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + description' <- textToCString description + atk_table_set_column_description _obj' column description' + touchManagedPtr _obj + freeMem description' + return () + +-- method Table::set_column_header +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_set_column_header" atk_table_set_column_header :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- column : TBasicType TInt32 + Ptr Object -> -- header : TInterface "Atk" "Object" + IO () + + +tableSetColumnHeader :: + (MonadIO m, TableK a, ObjectK b) => + a -> -- _obj + Int32 -> -- column + b -> -- header + m () +tableSetColumnHeader _obj column header = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let header' = unsafeManagedPtrCastPtr header + atk_table_set_column_header _obj' column header' + touchManagedPtr _obj + touchManagedPtr header + return () + +-- method Table::set_row_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_set_row_description" atk_table_set_row_description :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + CString -> -- description : TBasicType TUTF8 + IO () + + +tableSetRowDescription :: + (MonadIO m, TableK a) => + a -> -- _obj + Int32 -> -- row + T.Text -> -- description + m () +tableSetRowDescription _obj row description = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + description' <- textToCString description + atk_table_set_row_description _obj' row description' + touchManagedPtr _obj + freeMem description' + return () + +-- method Table::set_row_header +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_set_row_header" atk_table_set_row_header :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Int32 -> -- row : TBasicType TInt32 + Ptr Object -> -- header : TInterface "Atk" "Object" + IO () + + +tableSetRowHeader :: + (MonadIO m, TableK a, ObjectK b) => + a -> -- _obj + Int32 -> -- row + b -> -- header + m () +tableSetRowHeader _obj row header = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let header' = unsafeManagedPtrCastPtr header + atk_table_set_row_header _obj' row header' + touchManagedPtr _obj + touchManagedPtr header + return () + +-- method Table::set_summary +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_set_summary" atk_table_set_summary :: + Ptr Table -> -- _obj : TInterface "Atk" "Table" + Ptr Object -> -- accessible : TInterface "Atk" "Object" + IO () + + +tableSetSummary :: + (MonadIO m, TableK a, ObjectK b) => + a -> -- _obj + b -> -- accessible + m () +tableSetSummary _obj accessible = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let accessible' = unsafeManagedPtrCastPtr accessible + atk_table_set_summary _obj' accessible' + touchManagedPtr _obj + touchManagedPtr accessible + return () + + diff --git a/GI/Atk/Interfaces/Table.hs-boot b/GI/Atk/Interfaces/Table.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Table.hs-boot @@ -0,0 +1,19 @@ +module GI.Atk.Interfaces.Table where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Table = Table (ForeignPtr Table) +data TableColumnDeletedSignalInfo +data TableColumnInsertedSignalInfo +data TableColumnReorderedSignalInfo +data TableModelChangedSignalInfo +data TableRowDeletedSignalInfo +data TableRowInsertedSignalInfo +data TableRowReorderedSignalInfo +class ForeignPtrNewtype a => TableK a +instance (ForeignPtrNewtype o, IsDescendantOf Table o) => TableK o diff --git a/GI/Atk/Interfaces/TableCell.hs b/GI/Atk/Interfaces/TableCell.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/TableCell.hs @@ -0,0 +1,295 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.TableCell + ( + +-- * Exported types + TableCell(..) , + noTableCell , + TableCellK , + toTableCell , + + + -- * Methods +-- ** tableCellGetColumnHeaderCells + tableCellGetColumnHeaderCells , + + +-- ** tableCellGetColumnSpan + tableCellGetColumnSpan , + + +-- ** tableCellGetPosition + tableCellGetPosition , + + +-- ** tableCellGetRowColumnSpan + tableCellGetRowColumnSpan , + + +-- ** tableCellGetRowHeaderCells + tableCellGetRowHeaderCells , + + +-- ** tableCellGetRowSpan + tableCellGetRowSpan , + + +-- ** tableCellGetTable + tableCellGetTable , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +-- interface TableCell + +newtype TableCell = TableCell (ForeignPtr TableCell) +noTableCell :: Maybe TableCell +noTableCell = Nothing + +type instance AttributeList TableCell = TableCellAttributeList +type TableCellAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList TableCell = TableCellSignalList +type TableCellSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +foreign import ccall "atk_table_cell_get_type" + c_atk_table_cell_get_type :: IO GType + +type instance ParentTypes TableCell = TableCellParentTypes +type TableCellParentTypes = '[Object, GObject.Object] + +instance GObject TableCell where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_table_cell_get_type + + +class GObject o => TableCellK o +instance (GObject o, IsDescendantOf TableCell o) => TableCellK o + +toTableCell :: TableCellK o => o -> IO TableCell +toTableCell = unsafeCastTo TableCell + +-- method TableCell::get_column_header_cells +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TPtrArray (TInterface "Atk" "Object") +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_cell_get_column_header_cells" atk_table_cell_get_column_header_cells :: + Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" + IO (Ptr (GPtrArray (Ptr Object))) + + +tableCellGetColumnHeaderCells :: + (MonadIO m, TableCellK a) => + a -> -- _obj + m [Object] +tableCellGetColumnHeaderCells _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_cell_get_column_header_cells _obj' + checkUnexpectedReturnNULL "atk_table_cell_get_column_header_cells" result + result' <- unpackGPtrArray result + result'' <- mapM (wrapObject Object) result' + unrefPtrArray result + touchManagedPtr _obj + return result'' + +-- method TableCell::get_column_span +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_cell_get_column_span" atk_table_cell_get_column_span :: + Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" + IO Int32 + + +tableCellGetColumnSpan :: + (MonadIO m, TableCellK a) => + a -> -- _obj + m Int32 +tableCellGetColumnSpan _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_cell_get_column_span _obj' + touchManagedPtr _obj + return result + +-- method TableCell::get_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_cell_get_position" atk_table_cell_get_position :: + Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" + Ptr Int32 -> -- row : TBasicType TInt32 + Ptr Int32 -> -- column : TBasicType TInt32 + IO CInt + + +tableCellGetPosition :: + (MonadIO m, TableCellK a) => + a -> -- _obj + m (Bool,Int32,Int32) +tableCellGetPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + row <- allocMem :: IO (Ptr Int32) + column <- allocMem :: IO (Ptr Int32) + result <- atk_table_cell_get_position _obj' row column + let result' = (/= 0) result + row' <- peek row + column' <- peek column + touchManagedPtr _obj + freeMem row + freeMem column + return (result', row', column') + +-- method TableCell::get_row_column_span +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_cell_get_row_column_span" atk_table_cell_get_row_column_span :: + Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" + Ptr Int32 -> -- row : TBasicType TInt32 + Ptr Int32 -> -- column : TBasicType TInt32 + Ptr Int32 -> -- row_span : TBasicType TInt32 + Ptr Int32 -> -- column_span : TBasicType TInt32 + IO CInt + + +tableCellGetRowColumnSpan :: + (MonadIO m, TableCellK a) => + a -> -- _obj + m (Bool,Int32,Int32,Int32,Int32) +tableCellGetRowColumnSpan _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + row <- allocMem :: IO (Ptr Int32) + column <- allocMem :: IO (Ptr Int32) + row_span <- allocMem :: IO (Ptr Int32) + column_span <- allocMem :: IO (Ptr Int32) + result <- atk_table_cell_get_row_column_span _obj' row column row_span column_span + let result' = (/= 0) result + row' <- peek row + column' <- peek column + row_span' <- peek row_span + column_span' <- peek column_span + touchManagedPtr _obj + freeMem row + freeMem column + freeMem row_span + freeMem column_span + return (result', row', column', row_span', column_span') + +-- method TableCell::get_row_header_cells +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TPtrArray (TInterface "Atk" "Object") +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_cell_get_row_header_cells" atk_table_cell_get_row_header_cells :: + Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" + IO (Ptr (GPtrArray (Ptr Object))) + + +tableCellGetRowHeaderCells :: + (MonadIO m, TableCellK a) => + a -> -- _obj + m [Object] +tableCellGetRowHeaderCells _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_cell_get_row_header_cells _obj' + checkUnexpectedReturnNULL "atk_table_cell_get_row_header_cells" result + result' <- unpackGPtrArray result + result'' <- mapM (wrapObject Object) result' + unrefPtrArray result + touchManagedPtr _obj + return result'' + +-- method TableCell::get_row_span +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_cell_get_row_span" atk_table_cell_get_row_span :: + Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" + IO Int32 + + +tableCellGetRowSpan :: + (MonadIO m, TableCellK a) => + a -> -- _obj + m Int32 +tableCellGetRowSpan _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_cell_get_row_span _obj' + touchManagedPtr _obj + return result + +-- method TableCell::get_table +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_table_cell_get_table" atk_table_cell_get_table :: + Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell" + IO (Ptr Object) + + +tableCellGetTable :: + (MonadIO m, TableCellK a) => + a -> -- _obj + m Object +tableCellGetTable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_table_cell_get_table _obj' + checkUnexpectedReturnNULL "atk_table_cell_get_table" result + result' <- (wrapObject Object) result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Interfaces/TableCell.hs-boot b/GI/Atk/Interfaces/TableCell.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/TableCell.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Interfaces.TableCell where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype TableCell = TableCell (ForeignPtr TableCell) +instance GObject TableCell where +class GObject o => TableCellK o +instance (GObject o, IsDescendantOf TableCell o) => TableCellK o diff --git a/GI/Atk/Interfaces/Text.hs b/GI/Atk/Interfaces/Text.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Text.hs @@ -0,0 +1,1140 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Text + ( + +-- * Exported types + Text(..) , + noText , + TextK , + + + -- * Methods +-- ** textAddSelection + textAddSelection , + + +-- ** textGetBoundedRanges + textGetBoundedRanges , + + +-- ** textGetCaretOffset + textGetCaretOffset , + + +-- ** textGetCharacterAtOffset + textGetCharacterAtOffset , + + +-- ** textGetCharacterCount + textGetCharacterCount , + + +-- ** textGetCharacterExtents + textGetCharacterExtents , + + +-- ** textGetDefaultAttributes + textGetDefaultAttributes , + + +-- ** textGetNSelections + textGetNSelections , + + +-- ** textGetOffsetAtPoint + textGetOffsetAtPoint , + + +-- ** textGetRangeExtents + textGetRangeExtents , + + +-- ** textGetRunAttributes + textGetRunAttributes , + + +-- ** textGetSelection + textGetSelection , + + +-- ** textGetStringAtOffset + textGetStringAtOffset , + + +-- ** textGetText + textGetText , + + +-- ** textGetTextAfterOffset + textGetTextAfterOffset , + + +-- ** textGetTextAtOffset + textGetTextAtOffset , + + +-- ** textGetTextBeforeOffset + textGetTextBeforeOffset , + + +-- ** textRemoveSelection + textRemoveSelection , + + +-- ** textSetCaretOffset + textSetCaretOffset , + + +-- ** textSetSelection + textSetSelection , + + + + + -- * Signals +-- ** TextAttributesChanged + TextTextAttributesChangedCallback , + TextTextAttributesChangedCallbackC , + TextTextAttributesChangedSignalInfo , + afterTextTextAttributesChanged , + mkTextTextAttributesChangedCallback , + noTextTextAttributesChangedCallback , + onTextTextAttributesChanged , + textTextAttributesChangedCallbackWrapper, + textTextAttributesChangedClosure , + + +-- ** TextCaretMoved + TextTextCaretMovedCallback , + TextTextCaretMovedCallbackC , + TextTextCaretMovedSignalInfo , + afterTextTextCaretMoved , + mkTextTextCaretMovedCallback , + noTextTextCaretMovedCallback , + onTextTextCaretMoved , + textTextCaretMovedCallbackWrapper , + textTextCaretMovedClosure , + + +-- ** TextChanged + TextTextChangedCallback , + TextTextChangedCallbackC , + TextTextChangedSignalInfo , + afterTextTextChanged , + mkTextTextChangedCallback , + noTextTextChangedCallback , + onTextTextChanged , + textTextChangedCallbackWrapper , + textTextChangedClosure , + + +-- ** TextInsert + TextTextInsertCallback , + TextTextInsertCallbackC , + TextTextInsertSignalInfo , + afterTextTextInsert , + mkTextTextInsertCallback , + noTextTextInsertCallback , + onTextTextInsert , + textTextInsertCallbackWrapper , + textTextInsertClosure , + + +-- ** TextRemove + TextTextRemoveCallback , + TextTextRemoveCallbackC , + TextTextRemoveSignalInfo , + afterTextTextRemove , + mkTextTextRemoveCallback , + noTextTextRemoveCallback , + onTextTextRemove , + textTextRemoveCallbackWrapper , + textTextRemoveClosure , + + +-- ** TextSelectionChanged + TextTextSelectionChangedCallback , + TextTextSelectionChangedCallbackC , + TextTextSelectionChangedSignalInfo , + afterTextTextSelectionChanged , + mkTextTextSelectionChangedCallback , + noTextTextSelectionChangedCallback , + onTextTextSelectionChanged , + textTextSelectionChangedCallbackWrapper , + textTextSelectionChangedClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface Text + +newtype Text = Text (ForeignPtr Text) +noText :: Maybe Text +noText = Nothing + +-- signal Text::text-attributes-changed +type TextTextAttributesChangedCallback = + IO () + +noTextTextAttributesChangedCallback :: Maybe TextTextAttributesChangedCallback +noTextTextAttributesChangedCallback = Nothing + +type TextTextAttributesChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextTextAttributesChangedCallback :: TextTextAttributesChangedCallbackC -> IO (FunPtr TextTextAttributesChangedCallbackC) + +textTextAttributesChangedClosure :: TextTextAttributesChangedCallback -> IO Closure +textTextAttributesChangedClosure cb = newCClosure =<< mkTextTextAttributesChangedCallback wrapped + where wrapped = textTextAttributesChangedCallbackWrapper cb + +textTextAttributesChangedCallbackWrapper :: + TextTextAttributesChangedCallback -> + Ptr () -> + Ptr () -> + IO () +textTextAttributesChangedCallbackWrapper _cb _ _ = do + _cb + +onTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId +onTextTextAttributesChanged obj cb = liftIO $ connectTextTextAttributesChanged obj cb SignalConnectBefore +afterTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId +afterTextTextAttributesChanged obj cb = connectTextTextAttributesChanged obj cb SignalConnectAfter + +connectTextTextAttributesChanged :: (GObject a, MonadIO m) => + a -> TextTextAttributesChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectTextTextAttributesChanged obj cb after = liftIO $ do + cb' <- mkTextTextAttributesChangedCallback (textTextAttributesChangedCallbackWrapper cb) + connectSignalFunPtr obj "text-attributes-changed" cb' after + +-- signal Text::text-caret-moved +type TextTextCaretMovedCallback = + Int32 -> + IO () + +noTextTextCaretMovedCallback :: Maybe TextTextCaretMovedCallback +noTextTextCaretMovedCallback = Nothing + +type TextTextCaretMovedCallbackC = + Ptr () -> -- object + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextTextCaretMovedCallback :: TextTextCaretMovedCallbackC -> IO (FunPtr TextTextCaretMovedCallbackC) + +textTextCaretMovedClosure :: TextTextCaretMovedCallback -> IO Closure +textTextCaretMovedClosure cb = newCClosure =<< mkTextTextCaretMovedCallback wrapped + where wrapped = textTextCaretMovedCallbackWrapper cb + +textTextCaretMovedCallbackWrapper :: + TextTextCaretMovedCallback -> + Ptr () -> + Int32 -> + Ptr () -> + IO () +textTextCaretMovedCallbackWrapper _cb _ arg1 _ = do + _cb arg1 + +onTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId +onTextTextCaretMoved obj cb = liftIO $ connectTextTextCaretMoved obj cb SignalConnectBefore +afterTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId +afterTextTextCaretMoved obj cb = connectTextTextCaretMoved obj cb SignalConnectAfter + +connectTextTextCaretMoved :: (GObject a, MonadIO m) => + a -> TextTextCaretMovedCallback -> SignalConnectMode -> m SignalHandlerId +connectTextTextCaretMoved obj cb after = liftIO $ do + cb' <- mkTextTextCaretMovedCallback (textTextCaretMovedCallbackWrapper cb) + connectSignalFunPtr obj "text-caret-moved" cb' after + +-- signal Text::text-changed +type TextTextChangedCallback = + Int32 -> + Int32 -> + IO () + +noTextTextChangedCallback :: Maybe TextTextChangedCallback +noTextTextChangedCallback = Nothing + +type TextTextChangedCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextTextChangedCallback :: TextTextChangedCallbackC -> IO (FunPtr TextTextChangedCallbackC) + +textTextChangedClosure :: TextTextChangedCallback -> IO Closure +textTextChangedClosure cb = newCClosure =<< mkTextTextChangedCallback wrapped + where wrapped = textTextChangedCallbackWrapper cb + +textTextChangedCallbackWrapper :: + TextTextChangedCallback -> + Ptr () -> + Int32 -> + Int32 -> + Ptr () -> + IO () +textTextChangedCallbackWrapper _cb _ arg1 arg2 _ = do + _cb arg1 arg2 + +onTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId +onTextTextChanged obj cb = liftIO $ connectTextTextChanged obj cb SignalConnectBefore +afterTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId +afterTextTextChanged obj cb = connectTextTextChanged obj cb SignalConnectAfter + +connectTextTextChanged :: (GObject a, MonadIO m) => + a -> TextTextChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectTextTextChanged obj cb after = liftIO $ do + cb' <- mkTextTextChangedCallback (textTextChangedCallbackWrapper cb) + connectSignalFunPtr obj "text-changed" cb' after + +-- signal Text::text-insert +type TextTextInsertCallback = + Int32 -> + Int32 -> + T.Text -> + IO () + +noTextTextInsertCallback :: Maybe TextTextInsertCallback +noTextTextInsertCallback = Nothing + +type TextTextInsertCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextTextInsertCallback :: TextTextInsertCallbackC -> IO (FunPtr TextTextInsertCallbackC) + +textTextInsertClosure :: TextTextInsertCallback -> IO Closure +textTextInsertClosure cb = newCClosure =<< mkTextTextInsertCallback wrapped + where wrapped = textTextInsertCallbackWrapper cb + +textTextInsertCallbackWrapper :: + TextTextInsertCallback -> + Ptr () -> + Int32 -> + Int32 -> + CString -> + Ptr () -> + IO () +textTextInsertCallbackWrapper _cb _ arg1 arg2 arg3 _ = do + arg3' <- cstringToText arg3 + _cb arg1 arg2 arg3' + +onTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId +onTextTextInsert obj cb = liftIO $ connectTextTextInsert obj cb SignalConnectBefore +afterTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId +afterTextTextInsert obj cb = connectTextTextInsert obj cb SignalConnectAfter + +connectTextTextInsert :: (GObject a, MonadIO m) => + a -> TextTextInsertCallback -> SignalConnectMode -> m SignalHandlerId +connectTextTextInsert obj cb after = liftIO $ do + cb' <- mkTextTextInsertCallback (textTextInsertCallbackWrapper cb) + connectSignalFunPtr obj "text-insert" cb' after + +-- signal Text::text-remove +type TextTextRemoveCallback = + Int32 -> + Int32 -> + T.Text -> + IO () + +noTextTextRemoveCallback :: Maybe TextTextRemoveCallback +noTextTextRemoveCallback = Nothing + +type TextTextRemoveCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextTextRemoveCallback :: TextTextRemoveCallbackC -> IO (FunPtr TextTextRemoveCallbackC) + +textTextRemoveClosure :: TextTextRemoveCallback -> IO Closure +textTextRemoveClosure cb = newCClosure =<< mkTextTextRemoveCallback wrapped + where wrapped = textTextRemoveCallbackWrapper cb + +textTextRemoveCallbackWrapper :: + TextTextRemoveCallback -> + Ptr () -> + Int32 -> + Int32 -> + CString -> + Ptr () -> + IO () +textTextRemoveCallbackWrapper _cb _ arg1 arg2 arg3 _ = do + arg3' <- cstringToText arg3 + _cb arg1 arg2 arg3' + +onTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId +onTextTextRemove obj cb = liftIO $ connectTextTextRemove obj cb SignalConnectBefore +afterTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId +afterTextTextRemove obj cb = connectTextTextRemove obj cb SignalConnectAfter + +connectTextTextRemove :: (GObject a, MonadIO m) => + a -> TextTextRemoveCallback -> SignalConnectMode -> m SignalHandlerId +connectTextTextRemove obj cb after = liftIO $ do + cb' <- mkTextTextRemoveCallback (textTextRemoveCallbackWrapper cb) + connectSignalFunPtr obj "text-remove" cb' after + +-- signal Text::text-selection-changed +type TextTextSelectionChangedCallback = + IO () + +noTextTextSelectionChangedCallback :: Maybe TextTextSelectionChangedCallback +noTextTextSelectionChangedCallback = Nothing + +type TextTextSelectionChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextTextSelectionChangedCallback :: TextTextSelectionChangedCallbackC -> IO (FunPtr TextTextSelectionChangedCallbackC) + +textTextSelectionChangedClosure :: TextTextSelectionChangedCallback -> IO Closure +textTextSelectionChangedClosure cb = newCClosure =<< mkTextTextSelectionChangedCallback wrapped + where wrapped = textTextSelectionChangedCallbackWrapper cb + +textTextSelectionChangedCallbackWrapper :: + TextTextSelectionChangedCallback -> + Ptr () -> + Ptr () -> + IO () +textTextSelectionChangedCallbackWrapper _cb _ _ = do + _cb + +onTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId +onTextTextSelectionChanged obj cb = liftIO $ connectTextTextSelectionChanged obj cb SignalConnectBefore +afterTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId +afterTextTextSelectionChanged obj cb = connectTextTextSelectionChanged obj cb SignalConnectAfter + +connectTextTextSelectionChanged :: (GObject a, MonadIO m) => + a -> TextTextSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectTextTextSelectionChanged obj cb after = liftIO $ do + cb' <- mkTextTextSelectionChangedCallback (textTextSelectionChangedCallbackWrapper cb) + connectSignalFunPtr obj "text-selection-changed" cb' after + +type instance AttributeList Text = TextAttributeList +type TextAttributeList = ('[ ] :: [(Symbol, *)]) + +data TextTextAttributesChangedSignalInfo +instance SignalInfo TextTextAttributesChangedSignalInfo where + type HaskellCallbackType TextTextAttributesChangedSignalInfo = TextTextAttributesChangedCallback + connectSignal _ = connectTextTextAttributesChanged + +data TextTextCaretMovedSignalInfo +instance SignalInfo TextTextCaretMovedSignalInfo where + type HaskellCallbackType TextTextCaretMovedSignalInfo = TextTextCaretMovedCallback + connectSignal _ = connectTextTextCaretMoved + +data TextTextChangedSignalInfo +instance SignalInfo TextTextChangedSignalInfo where + type HaskellCallbackType TextTextChangedSignalInfo = TextTextChangedCallback + connectSignal _ = connectTextTextChanged + +data TextTextInsertSignalInfo +instance SignalInfo TextTextInsertSignalInfo where + type HaskellCallbackType TextTextInsertSignalInfo = TextTextInsertCallback + connectSignal _ = connectTextTextInsert + +data TextTextRemoveSignalInfo +instance SignalInfo TextTextRemoveSignalInfo where + type HaskellCallbackType TextTextRemoveSignalInfo = TextTextRemoveCallback + connectSignal _ = connectTextTextRemove + +data TextTextSelectionChangedSignalInfo +instance SignalInfo TextTextSelectionChangedSignalInfo where + type HaskellCallbackType TextTextSelectionChangedSignalInfo = TextTextSelectionChangedCallback + connectSignal _ = connectTextTextSelectionChanged + +type instance SignalList Text = TextSignalList +type TextSignalList = ('[ '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo)] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => TextK a +instance (ForeignPtrNewtype o, IsDescendantOf Text o) => TextK o +type instance ParentTypes Text = TextParentTypes +type TextParentTypes = '[] + +-- method Text::add_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_add_selection" atk_text_add_selection :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- start_offset : TBasicType TInt32 + Int32 -> -- end_offset : TBasicType TInt32 + IO CInt + + +textAddSelection :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- start_offset + Int32 -> -- end_offset + m Bool +textAddSelection _obj start_offset end_offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_add_selection _obj' start_offset end_offset + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Text::get_bounded_ranges +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray True (-1) (-1) (TInterface "Atk" "TextRange") +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_bounded_ranges" atk_text_get_bounded_ranges :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Ptr TextRectangle -> -- rect : TInterface "Atk" "TextRectangle" + CUInt -> -- coord_type : TInterface "Atk" "CoordType" + CUInt -> -- x_clip_type : TInterface "Atk" "TextClipType" + CUInt -> -- y_clip_type : TInterface "Atk" "TextClipType" + IO (Ptr (Ptr TextRange)) + + +textGetBoundedRanges :: + (MonadIO m, TextK a) => + a -> -- _obj + TextRectangle -> -- rect + CoordType -> -- coord_type + TextClipType -> -- x_clip_type + TextClipType -> -- y_clip_type + m [TextRange] +textGetBoundedRanges _obj rect coord_type x_clip_type y_clip_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let rect' = unsafeManagedPtrGetPtr rect + let coord_type' = (fromIntegral . fromEnum) coord_type + let x_clip_type' = (fromIntegral . fromEnum) x_clip_type + let y_clip_type' = (fromIntegral . fromEnum) y_clip_type + result <- atk_text_get_bounded_ranges _obj' rect' coord_type' x_clip_type' y_clip_type' + checkUnexpectedReturnNULL "atk_text_get_bounded_ranges" result + result' <- unpackZeroTerminatedPtrArray result + result'' <- mapM (wrapBoxed TextRange) result' + freeMem result + touchManagedPtr _obj + touchManagedPtr rect + return result'' + +-- method Text::get_caret_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_caret_offset" atk_text_get_caret_offset :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + IO Int32 + + +textGetCaretOffset :: + (MonadIO m, TextK a) => + a -> -- _obj + m Int32 +textGetCaretOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_get_caret_offset _obj' + touchManagedPtr _obj + return result + +-- method Text::get_character_at_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUniChar +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_character_at_offset" atk_text_get_character_at_offset :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- offset : TBasicType TInt32 + IO CInt + + +textGetCharacterAtOffset :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- offset + m Char +textGetCharacterAtOffset _obj offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_get_character_at_offset _obj' offset + let result' = (chr . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Text::get_character_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_character_count" atk_text_get_character_count :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + IO Int32 + + +textGetCharacterCount :: + (MonadIO m, TextK a) => + a -> -- _obj + m Int32 +textGetCharacterCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_get_character_count _obj' + touchManagedPtr _obj + return result + +-- method Text::get_character_extents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_character_extents" atk_text_get_character_extents :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- offset : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + CUInt -> -- coords : TInterface "Atk" "CoordType" + IO () + + +textGetCharacterExtents :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- offset + Int32 -> -- x + Int32 -> -- y + Int32 -> -- width + Int32 -> -- height + CoordType -> -- coords + m () +textGetCharacterExtents _obj offset x y width height coords = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coords' = (fromIntegral . fromEnum) coords + atk_text_get_character_extents _obj' offset x y width height coords' + touchManagedPtr _obj + return () + +-- method Text::get_default_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TBasicType TVoid) +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_default_attributes" atk_text_get_default_attributes :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + IO (Ptr (GSList (Ptr ()))) + + +textGetDefaultAttributes :: + (MonadIO m, TextK a) => + a -> -- _obj + m [Ptr ()] +textGetDefaultAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_get_default_attributes _obj' + checkUnexpectedReturnNULL "atk_text_get_default_attributes" result + result' <- unpackGSList result + g_slist_free result + touchManagedPtr _obj + return result' + +-- method Text::get_n_selections +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_n_selections" atk_text_get_n_selections :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + IO Int32 + + +textGetNSelections :: + (MonadIO m, TextK a) => + a -> -- _obj + m Int32 +textGetNSelections _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_get_n_selections _obj' + touchManagedPtr _obj + return result + +-- method Text::get_offset_at_point +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_offset_at_point" atk_text_get_offset_at_point :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + CUInt -> -- coords : TInterface "Atk" "CoordType" + IO Int32 + + +textGetOffsetAtPoint :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- x + Int32 -> -- y + CoordType -> -- coords + m Int32 +textGetOffsetAtPoint _obj x y coords = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coords' = (fromIntegral . fromEnum) coords + result <- atk_text_get_offset_at_point _obj' x y coords' + touchManagedPtr _obj + return result + +-- method Text::get_range_extents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_range_extents" atk_text_get_range_extents :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- start_offset : TBasicType TInt32 + Int32 -> -- end_offset : TBasicType TInt32 + CUInt -> -- coord_type : TInterface "Atk" "CoordType" + Ptr TextRectangle -> -- rect : TInterface "Atk" "TextRectangle" + IO () + + +textGetRangeExtents :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- start_offset + Int32 -> -- end_offset + CoordType -> -- coord_type + TextRectangle -> -- rect + m () +textGetRangeExtents _obj start_offset end_offset coord_type rect = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let coord_type' = (fromIntegral . fromEnum) coord_type + let rect' = unsafeManagedPtrGetPtr rect + atk_text_get_range_extents _obj' start_offset end_offset coord_type' rect' + touchManagedPtr _obj + touchManagedPtr rect + return () + +-- method Text::get_run_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TBasicType TVoid) +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_run_attributes" atk_text_get_run_attributes :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- offset : TBasicType TInt32 + Ptr Int32 -> -- start_offset : TBasicType TInt32 + Ptr Int32 -> -- end_offset : TBasicType TInt32 + IO (Ptr (GSList (Ptr ()))) + + +textGetRunAttributes :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- offset + m ([Ptr ()],Int32,Int32) +textGetRunAttributes _obj offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + start_offset <- allocMem :: IO (Ptr Int32) + end_offset <- allocMem :: IO (Ptr Int32) + result <- atk_text_get_run_attributes _obj' offset start_offset end_offset + checkUnexpectedReturnNULL "atk_text_get_run_attributes" result + result' <- unpackGSList result + g_slist_free result + start_offset' <- peek start_offset + end_offset' <- peek end_offset + touchManagedPtr _obj + freeMem start_offset + freeMem end_offset + return (result', start_offset', end_offset') + +-- method Text::get_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_selection" atk_text_get_selection :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- selection_num : TBasicType TInt32 + Ptr Int32 -> -- start_offset : TBasicType TInt32 + Ptr Int32 -> -- end_offset : TBasicType TInt32 + IO CString + + +textGetSelection :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- selection_num + m (T.Text,Int32,Int32) +textGetSelection _obj selection_num = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + start_offset <- allocMem :: IO (Ptr Int32) + end_offset <- allocMem :: IO (Ptr Int32) + result <- atk_text_get_selection _obj' selection_num start_offset end_offset + checkUnexpectedReturnNULL "atk_text_get_selection" result + result' <- cstringToText result + freeMem result + start_offset' <- peek start_offset + end_offset' <- peek end_offset + touchManagedPtr _obj + freeMem start_offset + freeMem end_offset + return (result', start_offset', end_offset') + +-- method Text::get_string_at_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_string_at_offset" atk_text_get_string_at_offset :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- offset : TBasicType TInt32 + CUInt -> -- granularity : TInterface "Atk" "TextGranularity" + Ptr Int32 -> -- start_offset : TBasicType TInt32 + Ptr Int32 -> -- end_offset : TBasicType TInt32 + IO CString + + +textGetStringAtOffset :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- offset + TextGranularity -> -- granularity + m (T.Text,Int32,Int32) +textGetStringAtOffset _obj offset granularity = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let granularity' = (fromIntegral . fromEnum) granularity + start_offset <- allocMem :: IO (Ptr Int32) + end_offset <- allocMem :: IO (Ptr Int32) + result <- atk_text_get_string_at_offset _obj' offset granularity' start_offset end_offset + checkUnexpectedReturnNULL "atk_text_get_string_at_offset" result + result' <- cstringToText result + freeMem result + start_offset' <- peek start_offset + end_offset' <- peek end_offset + touchManagedPtr _obj + freeMem start_offset + freeMem end_offset + return (result', start_offset', end_offset') + +-- method Text::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_text" atk_text_get_text :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- start_offset : TBasicType TInt32 + Int32 -> -- end_offset : TBasicType TInt32 + IO CString + + +textGetText :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- start_offset + Int32 -> -- end_offset + m T.Text +textGetText _obj start_offset end_offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_get_text _obj' start_offset end_offset + checkUnexpectedReturnNULL "atk_text_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method Text::get_text_after_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_text_after_offset" atk_text_get_text_after_offset :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- offset : TBasicType TInt32 + CUInt -> -- boundary_type : TInterface "Atk" "TextBoundary" + Ptr Int32 -> -- start_offset : TBasicType TInt32 + Ptr Int32 -> -- end_offset : TBasicType TInt32 + IO CString + +{-# DEPRECATED textGetTextAfterOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-} +textGetTextAfterOffset :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- offset + TextBoundary -> -- boundary_type + m (T.Text,Int32,Int32) +textGetTextAfterOffset _obj offset boundary_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let boundary_type' = (fromIntegral . fromEnum) boundary_type + start_offset <- allocMem :: IO (Ptr Int32) + end_offset <- allocMem :: IO (Ptr Int32) + result <- atk_text_get_text_after_offset _obj' offset boundary_type' start_offset end_offset + checkUnexpectedReturnNULL "atk_text_get_text_after_offset" result + result' <- cstringToText result + freeMem result + start_offset' <- peek start_offset + end_offset' <- peek end_offset + touchManagedPtr _obj + freeMem start_offset + freeMem end_offset + return (result', start_offset', end_offset') + +-- method Text::get_text_at_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_text_at_offset" atk_text_get_text_at_offset :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- offset : TBasicType TInt32 + CUInt -> -- boundary_type : TInterface "Atk" "TextBoundary" + Ptr Int32 -> -- start_offset : TBasicType TInt32 + Ptr Int32 -> -- end_offset : TBasicType TInt32 + IO CString + +{-# DEPRECATED textGetTextAtOffset ["This method is deprecated since ATK version","2.9.4. Please use atk_text_get_string_at_offset() instead."]#-} +textGetTextAtOffset :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- offset + TextBoundary -> -- boundary_type + m (T.Text,Int32,Int32) +textGetTextAtOffset _obj offset boundary_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let boundary_type' = (fromIntegral . fromEnum) boundary_type + start_offset <- allocMem :: IO (Ptr Int32) + end_offset <- allocMem :: IO (Ptr Int32) + result <- atk_text_get_text_at_offset _obj' offset boundary_type' start_offset end_offset + checkUnexpectedReturnNULL "atk_text_get_text_at_offset" result + result' <- cstringToText result + freeMem result + start_offset' <- peek start_offset + end_offset' <- peek end_offset + touchManagedPtr _obj + freeMem start_offset + freeMem end_offset + return (result', start_offset', end_offset') + +-- method Text::get_text_before_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_get_text_before_offset" atk_text_get_text_before_offset :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- offset : TBasicType TInt32 + CUInt -> -- boundary_type : TInterface "Atk" "TextBoundary" + Ptr Int32 -> -- start_offset : TBasicType TInt32 + Ptr Int32 -> -- end_offset : TBasicType TInt32 + IO CString + +{-# DEPRECATED textGetTextBeforeOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-} +textGetTextBeforeOffset :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- offset + TextBoundary -> -- boundary_type + m (T.Text,Int32,Int32) +textGetTextBeforeOffset _obj offset boundary_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let boundary_type' = (fromIntegral . fromEnum) boundary_type + start_offset <- allocMem :: IO (Ptr Int32) + end_offset <- allocMem :: IO (Ptr Int32) + result <- atk_text_get_text_before_offset _obj' offset boundary_type' start_offset end_offset + checkUnexpectedReturnNULL "atk_text_get_text_before_offset" result + result' <- cstringToText result + freeMem result + start_offset' <- peek start_offset + end_offset' <- peek end_offset + touchManagedPtr _obj + freeMem start_offset + freeMem end_offset + return (result', start_offset', end_offset') + +-- method Text::remove_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_remove_selection" atk_text_remove_selection :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- selection_num : TBasicType TInt32 + IO CInt + + +textRemoveSelection :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- selection_num + m Bool +textRemoveSelection _obj selection_num = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_remove_selection _obj' selection_num + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Text::set_caret_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_set_caret_offset" atk_text_set_caret_offset :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- offset : TBasicType TInt32 + IO CInt + + +textSetCaretOffset :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- offset + m Bool +textSetCaretOffset _obj offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_set_caret_offset _obj' offset + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Text::set_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_text_set_selection" atk_text_set_selection :: + Ptr Text -> -- _obj : TInterface "Atk" "Text" + Int32 -> -- selection_num : TBasicType TInt32 + Int32 -> -- start_offset : TBasicType TInt32 + Int32 -> -- end_offset : TBasicType TInt32 + IO CInt + + +textSetSelection :: + (MonadIO m, TextK a) => + a -> -- _obj + Int32 -> -- selection_num + Int32 -> -- start_offset + Int32 -> -- end_offset + m Bool +textSetSelection _obj selection_num start_offset end_offset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_text_set_selection _obj' selection_num start_offset end_offset + let result' = (/= 0) result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Interfaces/Text.hs-boot b/GI/Atk/Interfaces/Text.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Text.hs-boot @@ -0,0 +1,18 @@ +module GI.Atk.Interfaces.Text where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Text = Text (ForeignPtr Text) +data TextTextAttributesChangedSignalInfo +data TextTextCaretMovedSignalInfo +data TextTextChangedSignalInfo +data TextTextInsertSignalInfo +data TextTextRemoveSignalInfo +data TextTextSelectionChangedSignalInfo +class ForeignPtrNewtype a => TextK a +instance (ForeignPtrNewtype o, IsDescendantOf Text o) => TextK o diff --git a/GI/Atk/Interfaces/Value.hs b/GI/Atk/Interfaces/Value.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Value.hs @@ -0,0 +1,437 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Value + ( + +-- * Exported types + Value(..) , + noValue , + ValueK , + + + -- * Methods +-- ** valueGetCurrentValue + valueGetCurrentValue , + + +-- ** valueGetIncrement + valueGetIncrement , + + +-- ** valueGetMaximumValue + valueGetMaximumValue , + + +-- ** valueGetMinimumIncrement + valueGetMinimumIncrement , + + +-- ** valueGetMinimumValue + valueGetMinimumValue , + + +-- ** valueGetRange + valueGetRange , + + +-- ** valueGetSubRanges + valueGetSubRanges , + + +-- ** valueGetValueAndText + valueGetValueAndText , + + +-- ** valueSetCurrentValue + valueSetCurrentValue , + + +-- ** valueSetValue + valueSetValue , + + + + + -- * Signals +-- ** ValueChanged + ValueValueChangedCallback , + ValueValueChangedCallbackC , + ValueValueChangedSignalInfo , + afterValueValueChanged , + mkValueValueChangedCallback , + noValueValueChangedCallback , + onValueValueChanged , + valueValueChangedCallbackWrapper , + valueValueChangedClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +-- interface Value + +newtype Value = Value (ForeignPtr Value) +noValue :: Maybe Value +noValue = Nothing + +-- signal Value::value-changed +type ValueValueChangedCallback = + Double -> + T.Text -> + IO () + +noValueValueChangedCallback :: Maybe ValueValueChangedCallback +noValueValueChangedCallback = Nothing + +type ValueValueChangedCallbackC = + Ptr () -> -- object + CDouble -> + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkValueValueChangedCallback :: ValueValueChangedCallbackC -> IO (FunPtr ValueValueChangedCallbackC) + +valueValueChangedClosure :: ValueValueChangedCallback -> IO Closure +valueValueChangedClosure cb = newCClosure =<< mkValueValueChangedCallback wrapped + where wrapped = valueValueChangedCallbackWrapper cb + +valueValueChangedCallbackWrapper :: + ValueValueChangedCallback -> + Ptr () -> + CDouble -> + CString -> + Ptr () -> + IO () +valueValueChangedCallbackWrapper _cb _ value text _ = do + let value' = realToFrac value + text' <- cstringToText text + _cb value' text' + +onValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId +onValueValueChanged obj cb = liftIO $ connectValueValueChanged obj cb SignalConnectBefore +afterValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId +afterValueValueChanged obj cb = connectValueValueChanged obj cb SignalConnectAfter + +connectValueValueChanged :: (GObject a, MonadIO m) => + a -> ValueValueChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectValueValueChanged obj cb after = liftIO $ do + cb' <- mkValueValueChangedCallback (valueValueChangedCallbackWrapper cb) + connectSignalFunPtr obj "value-changed" cb' after + +type instance AttributeList Value = ValueAttributeList +type ValueAttributeList = ('[ ] :: [(Symbol, *)]) + +data ValueValueChangedSignalInfo +instance SignalInfo ValueValueChangedSignalInfo where + type HaskellCallbackType ValueValueChangedSignalInfo = ValueValueChangedCallback + connectSignal _ = connectValueValueChanged + +type instance SignalList Value = ValueSignalList +type ValueSignalList = ('[ '("value-changed", ValueValueChangedSignalInfo)] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => ValueK a +instance (ForeignPtrNewtype o, IsDescendantOf Value o) => ValueK o +type instance ParentTypes Value = ValueParentTypes +type ValueParentTypes = '[] + +-- method Value::get_current_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_get_current_value" atk_value_get_current_value :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO () + +{-# DEPRECATED valueGetCurrentValue ["Since 2.12. Use atk_value_get_value_and_text()","instead."]#-} +valueGetCurrentValue :: + (MonadIO m, ValueK a) => + a -> -- _obj + GValue -> -- value + m () +valueGetCurrentValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrGetPtr value + atk_value_get_current_value _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + +-- method Value::get_increment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_get_increment" atk_value_get_increment :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + IO CDouble + + +valueGetIncrement :: + (MonadIO m, ValueK a) => + a -> -- _obj + m Double +valueGetIncrement _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_value_get_increment _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method Value::get_maximum_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_get_maximum_value" atk_value_get_maximum_value :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO () + +{-# DEPRECATED valueGetMaximumValue ["Since 2.12. Use atk_value_get_range() instead."]#-} +valueGetMaximumValue :: + (MonadIO m, ValueK a) => + a -> -- _obj + GValue -> -- value + m () +valueGetMaximumValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrGetPtr value + atk_value_get_maximum_value _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + +-- method Value::get_minimum_increment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_get_minimum_increment" atk_value_get_minimum_increment :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO () + +{-# DEPRECATED valueGetMinimumIncrement ["Since 2.12. Use atk_value_get_increment() instead."]#-} +valueGetMinimumIncrement :: + (MonadIO m, ValueK a) => + a -> -- _obj + GValue -> -- value + m () +valueGetMinimumIncrement _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrGetPtr value + atk_value_get_minimum_increment _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + +-- method Value::get_minimum_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_get_minimum_value" atk_value_get_minimum_value :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO () + +{-# DEPRECATED valueGetMinimumValue ["Since 2.12. Use atk_value_get_range() instead."]#-} +valueGetMinimumValue :: + (MonadIO m, ValueK a) => + a -> -- _obj + GValue -> -- value + m () +valueGetMinimumValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrGetPtr value + atk_value_get_minimum_value _obj' value' + touchManagedPtr _obj + touchManagedPtr value + return () + +-- method Value::get_range +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Range" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_get_range" atk_value_get_range :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + IO (Ptr Range) + + +valueGetRange :: + (MonadIO m, ValueK a) => + a -> -- _obj + m Range +valueGetRange _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_value_get_range _obj' + checkUnexpectedReturnNULL "atk_value_get_range" result + result' <- (wrapBoxed Range) result + touchManagedPtr _obj + return result' + +-- method Value::get_sub_ranges +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TInterface "Atk" "Range") +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_get_sub_ranges" atk_value_get_sub_ranges :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + IO (Ptr (GSList (Ptr Range))) + + +valueGetSubRanges :: + (MonadIO m, ValueK a) => + a -> -- _obj + m [Range] +valueGetSubRanges _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_value_get_sub_ranges _obj' + checkUnexpectedReturnNULL "atk_value_get_sub_ranges" result + result' <- unpackGSList result + result'' <- mapM (wrapBoxed Range) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +-- method Value::get_value_and_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_get_value_and_text" atk_value_get_value_and_text :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + Ptr CDouble -> -- value : TBasicType TDouble + Ptr CString -> -- text : TBasicType TUTF8 + IO () + + +valueGetValueAndText :: + (MonadIO m, ValueK a) => + a -> -- _obj + m (Double,T.Text) +valueGetValueAndText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + value <- allocMem :: IO (Ptr CDouble) + text <- allocMem :: IO (Ptr CString) + atk_value_get_value_and_text _obj' value text + value' <- peek value + let value'' = realToFrac value' + text' <- peek text + text'' <- cstringToText text' + freeMem text' + touchManagedPtr _obj + freeMem value + freeMem text + return (value'', text'') + +-- method Value::set_current_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_set_current_value" atk_value_set_current_value :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO CInt + +{-# DEPRECATED valueSetCurrentValue ["Since 2.12. Use atk_value_set_value() instead."]#-} +valueSetCurrentValue :: + (MonadIO m, ValueK a) => + a -> -- _obj + GValue -> -- value + m Bool +valueSetCurrentValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = unsafeManagedPtrGetPtr value + result <- atk_value_set_current_value _obj' value' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr value + return result' + +-- method Value::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_value_set_value" atk_value_set_value :: + Ptr Value -> -- _obj : TInterface "Atk" "Value" + CDouble -> -- new_value : TBasicType TDouble + IO () + + +valueSetValue :: + (MonadIO m, ValueK a) => + a -> -- _obj + Double -> -- new_value + m () +valueSetValue _obj new_value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let new_value' = realToFrac new_value + atk_value_set_value _obj' new_value' + touchManagedPtr _obj + return () + + diff --git a/GI/Atk/Interfaces/Value.hs-boot b/GI/Atk/Interfaces/Value.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Value.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Interfaces.Value where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Value = Value (ForeignPtr Value) +data ValueValueChangedSignalInfo +class ForeignPtrNewtype a => ValueK a +instance (ForeignPtrNewtype o, IsDescendantOf Value o) => ValueK o diff --git a/GI/Atk/Interfaces/Window.hs b/GI/Atk/Interfaces/Window.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Window.hs @@ -0,0 +1,558 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Interfaces.Window + ( + +-- * Exported types + Window(..) , + noWindow , + WindowK , + toWindow , + + + -- * Signals +-- ** Activate + WindowActivateCallback , + WindowActivateCallbackC , + WindowActivateSignalInfo , + afterWindowActivate , + mkWindowActivateCallback , + noWindowActivateCallback , + onWindowActivate , + windowActivateCallbackWrapper , + windowActivateClosure , + + +-- ** Create + WindowCreateCallback , + WindowCreateCallbackC , + WindowCreateSignalInfo , + afterWindowCreate , + mkWindowCreateCallback , + noWindowCreateCallback , + onWindowCreate , + windowCreateCallbackWrapper , + windowCreateClosure , + + +-- ** Deactivate + WindowDeactivateCallback , + WindowDeactivateCallbackC , + WindowDeactivateSignalInfo , + afterWindowDeactivate , + mkWindowDeactivateCallback , + noWindowDeactivateCallback , + onWindowDeactivate , + windowDeactivateCallbackWrapper , + windowDeactivateClosure , + + +-- ** Destroy + WindowDestroyCallback , + WindowDestroyCallbackC , + WindowDestroySignalInfo , + afterWindowDestroy , + mkWindowDestroyCallback , + noWindowDestroyCallback , + onWindowDestroy , + windowDestroyCallbackWrapper , + windowDestroyClosure , + + +-- ** Maximize + WindowMaximizeCallback , + WindowMaximizeCallbackC , + WindowMaximizeSignalInfo , + afterWindowMaximize , + mkWindowMaximizeCallback , + noWindowMaximizeCallback , + onWindowMaximize , + windowMaximizeCallbackWrapper , + windowMaximizeClosure , + + +-- ** Minimize + WindowMinimizeCallback , + WindowMinimizeCallbackC , + WindowMinimizeSignalInfo , + afterWindowMinimize , + mkWindowMinimizeCallback , + noWindowMinimizeCallback , + onWindowMinimize , + windowMinimizeCallbackWrapper , + windowMinimizeClosure , + + +-- ** Move + WindowMoveCallback , + WindowMoveCallbackC , + WindowMoveSignalInfo , + afterWindowMove , + mkWindowMoveCallback , + noWindowMoveCallback , + onWindowMove , + windowMoveCallbackWrapper , + windowMoveClosure , + + +-- ** Resize + WindowResizeCallback , + WindowResizeCallbackC , + WindowResizeSignalInfo , + afterWindowResize , + mkWindowResizeCallback , + noWindowResizeCallback , + onWindowResize , + windowResizeCallbackWrapper , + windowResizeClosure , + + +-- ** Restore + WindowRestoreCallback , + WindowRestoreCallbackC , + WindowRestoreSignalInfo , + afterWindowRestore , + mkWindowRestoreCallback , + noWindowRestoreCallback , + onWindowRestore , + windowRestoreCallbackWrapper , + windowRestoreClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +-- interface Window + +newtype Window = Window (ForeignPtr Window) +noWindow :: Maybe Window +noWindow = Nothing + +-- signal Window::activate +type WindowActivateCallback = + IO () + +noWindowActivateCallback :: Maybe WindowActivateCallback +noWindowActivateCallback = Nothing + +type WindowActivateCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowActivateCallback :: WindowActivateCallbackC -> IO (FunPtr WindowActivateCallbackC) + +windowActivateClosure :: WindowActivateCallback -> IO Closure +windowActivateClosure cb = newCClosure =<< mkWindowActivateCallback wrapped + where wrapped = windowActivateCallbackWrapper cb + +windowActivateCallbackWrapper :: + WindowActivateCallback -> + Ptr () -> + Ptr () -> + IO () +windowActivateCallbackWrapper _cb _ _ = do + _cb + +onWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId +onWindowActivate obj cb = liftIO $ connectWindowActivate obj cb SignalConnectBefore +afterWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId +afterWindowActivate obj cb = connectWindowActivate obj cb SignalConnectAfter + +connectWindowActivate :: (GObject a, MonadIO m) => + a -> WindowActivateCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowActivate obj cb after = liftIO $ do + cb' <- mkWindowActivateCallback (windowActivateCallbackWrapper cb) + connectSignalFunPtr obj "activate" cb' after + +-- signal Window::create +type WindowCreateCallback = + IO () + +noWindowCreateCallback :: Maybe WindowCreateCallback +noWindowCreateCallback = Nothing + +type WindowCreateCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowCreateCallback :: WindowCreateCallbackC -> IO (FunPtr WindowCreateCallbackC) + +windowCreateClosure :: WindowCreateCallback -> IO Closure +windowCreateClosure cb = newCClosure =<< mkWindowCreateCallback wrapped + where wrapped = windowCreateCallbackWrapper cb + +windowCreateCallbackWrapper :: + WindowCreateCallback -> + Ptr () -> + Ptr () -> + IO () +windowCreateCallbackWrapper _cb _ _ = do + _cb + +onWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId +onWindowCreate obj cb = liftIO $ connectWindowCreate obj cb SignalConnectBefore +afterWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId +afterWindowCreate obj cb = connectWindowCreate obj cb SignalConnectAfter + +connectWindowCreate :: (GObject a, MonadIO m) => + a -> WindowCreateCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowCreate obj cb after = liftIO $ do + cb' <- mkWindowCreateCallback (windowCreateCallbackWrapper cb) + connectSignalFunPtr obj "create" cb' after + +-- signal Window::deactivate +type WindowDeactivateCallback = + IO () + +noWindowDeactivateCallback :: Maybe WindowDeactivateCallback +noWindowDeactivateCallback = Nothing + +type WindowDeactivateCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowDeactivateCallback :: WindowDeactivateCallbackC -> IO (FunPtr WindowDeactivateCallbackC) + +windowDeactivateClosure :: WindowDeactivateCallback -> IO Closure +windowDeactivateClosure cb = newCClosure =<< mkWindowDeactivateCallback wrapped + where wrapped = windowDeactivateCallbackWrapper cb + +windowDeactivateCallbackWrapper :: + WindowDeactivateCallback -> + Ptr () -> + Ptr () -> + IO () +windowDeactivateCallbackWrapper _cb _ _ = do + _cb + +onWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId +onWindowDeactivate obj cb = liftIO $ connectWindowDeactivate obj cb SignalConnectBefore +afterWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId +afterWindowDeactivate obj cb = connectWindowDeactivate obj cb SignalConnectAfter + +connectWindowDeactivate :: (GObject a, MonadIO m) => + a -> WindowDeactivateCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowDeactivate obj cb after = liftIO $ do + cb' <- mkWindowDeactivateCallback (windowDeactivateCallbackWrapper cb) + connectSignalFunPtr obj "deactivate" cb' after + +-- signal Window::destroy +type WindowDestroyCallback = + IO () + +noWindowDestroyCallback :: Maybe WindowDestroyCallback +noWindowDestroyCallback = Nothing + +type WindowDestroyCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowDestroyCallback :: WindowDestroyCallbackC -> IO (FunPtr WindowDestroyCallbackC) + +windowDestroyClosure :: WindowDestroyCallback -> IO Closure +windowDestroyClosure cb = newCClosure =<< mkWindowDestroyCallback wrapped + where wrapped = windowDestroyCallbackWrapper cb + +windowDestroyCallbackWrapper :: + WindowDestroyCallback -> + Ptr () -> + Ptr () -> + IO () +windowDestroyCallbackWrapper _cb _ _ = do + _cb + +onWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId +onWindowDestroy obj cb = liftIO $ connectWindowDestroy obj cb SignalConnectBefore +afterWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId +afterWindowDestroy obj cb = connectWindowDestroy obj cb SignalConnectAfter + +connectWindowDestroy :: (GObject a, MonadIO m) => + a -> WindowDestroyCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowDestroy obj cb after = liftIO $ do + cb' <- mkWindowDestroyCallback (windowDestroyCallbackWrapper cb) + connectSignalFunPtr obj "destroy" cb' after + +-- signal Window::maximize +type WindowMaximizeCallback = + IO () + +noWindowMaximizeCallback :: Maybe WindowMaximizeCallback +noWindowMaximizeCallback = Nothing + +type WindowMaximizeCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowMaximizeCallback :: WindowMaximizeCallbackC -> IO (FunPtr WindowMaximizeCallbackC) + +windowMaximizeClosure :: WindowMaximizeCallback -> IO Closure +windowMaximizeClosure cb = newCClosure =<< mkWindowMaximizeCallback wrapped + where wrapped = windowMaximizeCallbackWrapper cb + +windowMaximizeCallbackWrapper :: + WindowMaximizeCallback -> + Ptr () -> + Ptr () -> + IO () +windowMaximizeCallbackWrapper _cb _ _ = do + _cb + +onWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId +onWindowMaximize obj cb = liftIO $ connectWindowMaximize obj cb SignalConnectBefore +afterWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId +afterWindowMaximize obj cb = connectWindowMaximize obj cb SignalConnectAfter + +connectWindowMaximize :: (GObject a, MonadIO m) => + a -> WindowMaximizeCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowMaximize obj cb after = liftIO $ do + cb' <- mkWindowMaximizeCallback (windowMaximizeCallbackWrapper cb) + connectSignalFunPtr obj "maximize" cb' after + +-- signal Window::minimize +type WindowMinimizeCallback = + IO () + +noWindowMinimizeCallback :: Maybe WindowMinimizeCallback +noWindowMinimizeCallback = Nothing + +type WindowMinimizeCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowMinimizeCallback :: WindowMinimizeCallbackC -> IO (FunPtr WindowMinimizeCallbackC) + +windowMinimizeClosure :: WindowMinimizeCallback -> IO Closure +windowMinimizeClosure cb = newCClosure =<< mkWindowMinimizeCallback wrapped + where wrapped = windowMinimizeCallbackWrapper cb + +windowMinimizeCallbackWrapper :: + WindowMinimizeCallback -> + Ptr () -> + Ptr () -> + IO () +windowMinimizeCallbackWrapper _cb _ _ = do + _cb + +onWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId +onWindowMinimize obj cb = liftIO $ connectWindowMinimize obj cb SignalConnectBefore +afterWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId +afterWindowMinimize obj cb = connectWindowMinimize obj cb SignalConnectAfter + +connectWindowMinimize :: (GObject a, MonadIO m) => + a -> WindowMinimizeCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowMinimize obj cb after = liftIO $ do + cb' <- mkWindowMinimizeCallback (windowMinimizeCallbackWrapper cb) + connectSignalFunPtr obj "minimize" cb' after + +-- signal Window::move +type WindowMoveCallback = + IO () + +noWindowMoveCallback :: Maybe WindowMoveCallback +noWindowMoveCallback = Nothing + +type WindowMoveCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowMoveCallback :: WindowMoveCallbackC -> IO (FunPtr WindowMoveCallbackC) + +windowMoveClosure :: WindowMoveCallback -> IO Closure +windowMoveClosure cb = newCClosure =<< mkWindowMoveCallback wrapped + where wrapped = windowMoveCallbackWrapper cb + +windowMoveCallbackWrapper :: + WindowMoveCallback -> + Ptr () -> + Ptr () -> + IO () +windowMoveCallbackWrapper _cb _ _ = do + _cb + +onWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId +onWindowMove obj cb = liftIO $ connectWindowMove obj cb SignalConnectBefore +afterWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId +afterWindowMove obj cb = connectWindowMove obj cb SignalConnectAfter + +connectWindowMove :: (GObject a, MonadIO m) => + a -> WindowMoveCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowMove obj cb after = liftIO $ do + cb' <- mkWindowMoveCallback (windowMoveCallbackWrapper cb) + connectSignalFunPtr obj "move" cb' after + +-- signal Window::resize +type WindowResizeCallback = + IO () + +noWindowResizeCallback :: Maybe WindowResizeCallback +noWindowResizeCallback = Nothing + +type WindowResizeCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowResizeCallback :: WindowResizeCallbackC -> IO (FunPtr WindowResizeCallbackC) + +windowResizeClosure :: WindowResizeCallback -> IO Closure +windowResizeClosure cb = newCClosure =<< mkWindowResizeCallback wrapped + where wrapped = windowResizeCallbackWrapper cb + +windowResizeCallbackWrapper :: + WindowResizeCallback -> + Ptr () -> + Ptr () -> + IO () +windowResizeCallbackWrapper _cb _ _ = do + _cb + +onWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId +onWindowResize obj cb = liftIO $ connectWindowResize obj cb SignalConnectBefore +afterWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId +afterWindowResize obj cb = connectWindowResize obj cb SignalConnectAfter + +connectWindowResize :: (GObject a, MonadIO m) => + a -> WindowResizeCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowResize obj cb after = liftIO $ do + cb' <- mkWindowResizeCallback (windowResizeCallbackWrapper cb) + connectSignalFunPtr obj "resize" cb' after + +-- signal Window::restore +type WindowRestoreCallback = + IO () + +noWindowRestoreCallback :: Maybe WindowRestoreCallback +noWindowRestoreCallback = Nothing + +type WindowRestoreCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowRestoreCallback :: WindowRestoreCallbackC -> IO (FunPtr WindowRestoreCallbackC) + +windowRestoreClosure :: WindowRestoreCallback -> IO Closure +windowRestoreClosure cb = newCClosure =<< mkWindowRestoreCallback wrapped + where wrapped = windowRestoreCallbackWrapper cb + +windowRestoreCallbackWrapper :: + WindowRestoreCallback -> + Ptr () -> + Ptr () -> + IO () +windowRestoreCallbackWrapper _cb _ _ = do + _cb + +onWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId +onWindowRestore obj cb = liftIO $ connectWindowRestore obj cb SignalConnectBefore +afterWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId +afterWindowRestore obj cb = connectWindowRestore obj cb SignalConnectAfter + +connectWindowRestore :: (GObject a, MonadIO m) => + a -> WindowRestoreCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowRestore obj cb after = liftIO $ do + cb' <- mkWindowRestoreCallback (windowRestoreCallbackWrapper cb) + connectSignalFunPtr obj "restore" cb' after + +type instance AttributeList Window = WindowAttributeList +type WindowAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) + +data WindowActivateSignalInfo +instance SignalInfo WindowActivateSignalInfo where + type HaskellCallbackType WindowActivateSignalInfo = WindowActivateCallback + connectSignal _ = connectWindowActivate + +data WindowCreateSignalInfo +instance SignalInfo WindowCreateSignalInfo where + type HaskellCallbackType WindowCreateSignalInfo = WindowCreateCallback + connectSignal _ = connectWindowCreate + +data WindowDeactivateSignalInfo +instance SignalInfo WindowDeactivateSignalInfo where + type HaskellCallbackType WindowDeactivateSignalInfo = WindowDeactivateCallback + connectSignal _ = connectWindowDeactivate + +data WindowDestroySignalInfo +instance SignalInfo WindowDestroySignalInfo where + type HaskellCallbackType WindowDestroySignalInfo = WindowDestroyCallback + connectSignal _ = connectWindowDestroy + +data WindowMaximizeSignalInfo +instance SignalInfo WindowMaximizeSignalInfo where + type HaskellCallbackType WindowMaximizeSignalInfo = WindowMaximizeCallback + connectSignal _ = connectWindowMaximize + +data WindowMinimizeSignalInfo +instance SignalInfo WindowMinimizeSignalInfo where + type HaskellCallbackType WindowMinimizeSignalInfo = WindowMinimizeCallback + connectSignal _ = connectWindowMinimize + +data WindowMoveSignalInfo +instance SignalInfo WindowMoveSignalInfo where + type HaskellCallbackType WindowMoveSignalInfo = WindowMoveCallback + connectSignal _ = connectWindowMove + +data WindowResizeSignalInfo +instance SignalInfo WindowResizeSignalInfo where + type HaskellCallbackType WindowResizeSignalInfo = WindowResizeCallback + connectSignal _ = connectWindowResize + +data WindowRestoreSignalInfo +instance SignalInfo WindowRestoreSignalInfo where + type HaskellCallbackType WindowRestoreSignalInfo = WindowRestoreCallback + connectSignal _ = connectWindowRestore + +type instance SignalList Window = WindowSignalList +type WindowSignalList = ('[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +foreign import ccall "atk_window_get_type" + c_atk_window_get_type :: IO GType + +type instance ParentTypes Window = WindowParentTypes +type WindowParentTypes = '[Object, GObject.Object] + +instance GObject Window where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_window_get_type + + +class GObject o => WindowK o +instance (GObject o, IsDescendantOf Window o) => WindowK o + +toWindow :: WindowK o => o -> IO Window +toWindow = unsafeCastTo Window + + diff --git a/GI/Atk/Interfaces/Window.hs-boot b/GI/Atk/Interfaces/Window.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Interfaces/Window.hs-boot @@ -0,0 +1,22 @@ +module GI.Atk.Interfaces.Window where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Window = Window (ForeignPtr Window) +data WindowActivateSignalInfo +data WindowCreateSignalInfo +data WindowDeactivateSignalInfo +data WindowDestroySignalInfo +data WindowMaximizeSignalInfo +data WindowMinimizeSignalInfo +data WindowMoveSignalInfo +data WindowResizeSignalInfo +data WindowRestoreSignalInfo +instance GObject Window where +class GObject o => WindowK o +instance (GObject o, IsDescendantOf Window o) => WindowK o diff --git a/GI/Atk/Objects.hs b/GI/Atk/Objects.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects.hs @@ -0,0 +1,52 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects + ( module GI.Atk.Objects.GObjectAccessible , + module GI.Atk.Objects.Hyperlink , + module GI.Atk.Objects.Misc , + module GI.Atk.Objects.NoOpObject , + module GI.Atk.Objects.NoOpObjectFactory , + module GI.Atk.Objects.Object , + module GI.Atk.Objects.ObjectFactory , + module GI.Atk.Objects.Plug , + module GI.Atk.Objects.Registry , + module GI.Atk.Objects.Relation , + module GI.Atk.Objects.RelationSet , + module GI.Atk.Objects.Socket , + module GI.Atk.Objects.StateSet , + module GI.Atk.Objects.Util , + + + ) where + +import GI.Atk.Objects.GObjectAccessible +import GI.Atk.Objects.Hyperlink +import GI.Atk.Objects.Misc +import GI.Atk.Objects.NoOpObject +import GI.Atk.Objects.NoOpObjectFactory +import GI.Atk.Objects.Object +import GI.Atk.Objects.ObjectFactory +import GI.Atk.Objects.Plug +import GI.Atk.Objects.Registry +import GI.Atk.Objects.Relation +import GI.Atk.Objects.RelationSet +import GI.Atk.Objects.Socket +import GI.Atk.Objects.StateSet +import GI.Atk.Objects.Util + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + + diff --git a/GI/Atk/Objects/GObjectAccessible.hs b/GI/Atk/Objects/GObjectAccessible.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/GObjectAccessible.hs @@ -0,0 +1,121 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.GObjectAccessible + ( + +-- * Exported types + GObjectAccessible(..) , + GObjectAccessibleK , + toGObjectAccessible , + noGObjectAccessible , + + + -- * Methods +-- ** gObjectAccessibleForObject + gObjectAccessibleForObject , + + +-- ** gObjectAccessibleGetObject + gObjectAccessibleGetObject , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype GObjectAccessible = GObjectAccessible (ForeignPtr GObjectAccessible) +foreign import ccall "atk_gobject_accessible_get_type" + c_atk_gobject_accessible_get_type :: IO GType + +type instance ParentTypes GObjectAccessible = GObjectAccessibleParentTypes +type GObjectAccessibleParentTypes = '[Object, GObject.Object] + +instance GObject GObjectAccessible where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_gobject_accessible_get_type + + +class GObject o => GObjectAccessibleK o +instance (GObject o, IsDescendantOf GObjectAccessible o) => GObjectAccessibleK o + +toGObjectAccessible :: GObjectAccessibleK o => o -> IO GObjectAccessible +toGObjectAccessible = unsafeCastTo GObjectAccessible + +noGObjectAccessible :: Maybe GObjectAccessible +noGObjectAccessible = Nothing + +type instance AttributeList GObjectAccessible = GObjectAccessibleAttributeList +type GObjectAccessibleAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList GObjectAccessible = GObjectAccessibleSignalList +type GObjectAccessibleSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method GObjectAccessible::get_object +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_gobject_accessible_get_object" atk_gobject_accessible_get_object :: + Ptr GObjectAccessible -> -- _obj : TInterface "Atk" "GObjectAccessible" + IO (Ptr GObject.Object) + + +gObjectAccessibleGetObject :: + (MonadIO m, GObjectAccessibleK a) => + a -> -- _obj + m GObject.Object +gObjectAccessibleGetObject _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_gobject_accessible_get_object _obj' + checkUnexpectedReturnNULL "atk_gobject_accessible_get_object" result + result' <- (newObject GObject.Object) result + touchManagedPtr _obj + return result' + +-- method GObjectAccessible::for_object +-- method type : MemberFunction +-- Args : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_gobject_accessible_for_object" atk_gobject_accessible_for_object :: + Ptr GObject.Object -> -- obj : TInterface "GObject" "Object" + IO (Ptr Object) + + +gObjectAccessibleForObject :: + (MonadIO m, GObject.ObjectK a) => + a -> -- obj + m Object +gObjectAccessibleForObject obj = liftIO $ do + let obj' = unsafeManagedPtrCastPtr obj + result <- atk_gobject_accessible_for_object obj' + checkUnexpectedReturnNULL "atk_gobject_accessible_for_object" result + result' <- (newObject Object) result + touchManagedPtr obj + return result' + + diff --git a/GI/Atk/Objects/GObjectAccessible.hs-boot b/GI/Atk/Objects/GObjectAccessible.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/GObjectAccessible.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.GObjectAccessible where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype GObjectAccessible = GObjectAccessible (ForeignPtr GObjectAccessible) +instance GObject GObjectAccessible where +class GObject o => GObjectAccessibleK o +instance (GObject o, IsDescendantOf GObjectAccessible o) => GObjectAccessibleK o diff --git a/GI/Atk/Objects/Hyperlink.hs b/GI/Atk/Objects/Hyperlink.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Hyperlink.hs @@ -0,0 +1,450 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.Hyperlink + ( + +-- * Exported types + Hyperlink(..) , + HyperlinkK , + toHyperlink , + noHyperlink , + + + -- * Methods +-- ** hyperlinkGetEndIndex + hyperlinkGetEndIndex , + + +-- ** hyperlinkGetNAnchors + hyperlinkGetNAnchors , + + +-- ** hyperlinkGetObject + hyperlinkGetObject , + + +-- ** hyperlinkGetStartIndex + hyperlinkGetStartIndex , + + +-- ** hyperlinkGetUri + hyperlinkGetUri , + + +-- ** hyperlinkIsInline + hyperlinkIsInline , + + +-- ** hyperlinkIsSelectedLink + hyperlinkIsSelectedLink , + + +-- ** hyperlinkIsValid + hyperlinkIsValid , + + + + + -- * Properties +-- ** EndIndex + HyperlinkEndIndexPropertyInfo , + getHyperlinkEndIndex , + + +-- ** NumberOfAnchors + HyperlinkNumberOfAnchorsPropertyInfo , + getHyperlinkNumberOfAnchors , + + +-- ** SelectedLink + HyperlinkSelectedLinkPropertyInfo , + getHyperlinkSelectedLink , + + +-- ** StartIndex + HyperlinkStartIndexPropertyInfo , + getHyperlinkStartIndex , + + + + + -- * Signals +-- ** LinkActivated + HyperlinkLinkActivatedCallback , + HyperlinkLinkActivatedCallbackC , + HyperlinkLinkActivatedSignalInfo , + afterHyperlinkLinkActivated , + hyperlinkLinkActivatedCallbackWrapper , + hyperlinkLinkActivatedClosure , + mkHyperlinkLinkActivatedCallback , + noHyperlinkLinkActivatedCallback , + onHyperlinkLinkActivated , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype Hyperlink = Hyperlink (ForeignPtr Hyperlink) +foreign import ccall "atk_hyperlink_get_type" + c_atk_hyperlink_get_type :: IO GType + +type instance ParentTypes Hyperlink = HyperlinkParentTypes +type HyperlinkParentTypes = '[GObject.Object, Action] + +instance GObject Hyperlink where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_hyperlink_get_type + + +class GObject o => HyperlinkK o +instance (GObject o, IsDescendantOf Hyperlink o) => HyperlinkK o + +toHyperlink :: HyperlinkK o => o -> IO Hyperlink +toHyperlink = unsafeCastTo Hyperlink + +noHyperlink :: Maybe Hyperlink +noHyperlink = Nothing + +-- signal Hyperlink::link-activated +type HyperlinkLinkActivatedCallback = + IO () + +noHyperlinkLinkActivatedCallback :: Maybe HyperlinkLinkActivatedCallback +noHyperlinkLinkActivatedCallback = Nothing + +type HyperlinkLinkActivatedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkHyperlinkLinkActivatedCallback :: HyperlinkLinkActivatedCallbackC -> IO (FunPtr HyperlinkLinkActivatedCallbackC) + +hyperlinkLinkActivatedClosure :: HyperlinkLinkActivatedCallback -> IO Closure +hyperlinkLinkActivatedClosure cb = newCClosure =<< mkHyperlinkLinkActivatedCallback wrapped + where wrapped = hyperlinkLinkActivatedCallbackWrapper cb + +hyperlinkLinkActivatedCallbackWrapper :: + HyperlinkLinkActivatedCallback -> + Ptr () -> + Ptr () -> + IO () +hyperlinkLinkActivatedCallbackWrapper _cb _ _ = do + _cb + +onHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId +onHyperlinkLinkActivated obj cb = liftIO $ connectHyperlinkLinkActivated obj cb SignalConnectBefore +afterHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId +afterHyperlinkLinkActivated obj cb = connectHyperlinkLinkActivated obj cb SignalConnectAfter + +connectHyperlinkLinkActivated :: (GObject a, MonadIO m) => + a -> HyperlinkLinkActivatedCallback -> SignalConnectMode -> m SignalHandlerId +connectHyperlinkLinkActivated obj cb after = liftIO $ do + cb' <- mkHyperlinkLinkActivatedCallback (hyperlinkLinkActivatedCallbackWrapper cb) + connectSignalFunPtr obj "link-activated" cb' after + +-- VVV Prop "end-index" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getHyperlinkEndIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32 +getHyperlinkEndIndex obj = liftIO $ getObjectPropertyCInt obj "end-index" + +data HyperlinkEndIndexPropertyInfo +instance AttrInfo HyperlinkEndIndexPropertyInfo where + type AttrAllowedOps HyperlinkEndIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint HyperlinkEndIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint HyperlinkEndIndexPropertyInfo = HyperlinkK + type AttrGetType HyperlinkEndIndexPropertyInfo = Int32 + type AttrLabel HyperlinkEndIndexPropertyInfo = "Hyperlink::end-index" + attrGet _ = getHyperlinkEndIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "number-of-anchors" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getHyperlinkNumberOfAnchors :: (MonadIO m, HyperlinkK o) => o -> m Int32 +getHyperlinkNumberOfAnchors obj = liftIO $ getObjectPropertyCInt obj "number-of-anchors" + +data HyperlinkNumberOfAnchorsPropertyInfo +instance AttrInfo HyperlinkNumberOfAnchorsPropertyInfo where + type AttrAllowedOps HyperlinkNumberOfAnchorsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = (~) () + type AttrBaseTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = HyperlinkK + type AttrGetType HyperlinkNumberOfAnchorsPropertyInfo = Int32 + type AttrLabel HyperlinkNumberOfAnchorsPropertyInfo = "Hyperlink::number-of-anchors" + attrGet _ = getHyperlinkNumberOfAnchors + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected-link" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getHyperlinkSelectedLink :: (MonadIO m, HyperlinkK o) => o -> m Bool +getHyperlinkSelectedLink obj = liftIO $ getObjectPropertyBool obj "selected-link" + +data HyperlinkSelectedLinkPropertyInfo +instance AttrInfo HyperlinkSelectedLinkPropertyInfo where + type AttrAllowedOps HyperlinkSelectedLinkPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint HyperlinkSelectedLinkPropertyInfo = (~) () + type AttrBaseTypeConstraint HyperlinkSelectedLinkPropertyInfo = HyperlinkK + type AttrGetType HyperlinkSelectedLinkPropertyInfo = Bool + type AttrLabel HyperlinkSelectedLinkPropertyInfo = "Hyperlink::selected-link" + attrGet _ = getHyperlinkSelectedLink + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "start-index" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getHyperlinkStartIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32 +getHyperlinkStartIndex obj = liftIO $ getObjectPropertyCInt obj "start-index" + +data HyperlinkStartIndexPropertyInfo +instance AttrInfo HyperlinkStartIndexPropertyInfo where + type AttrAllowedOps HyperlinkStartIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint HyperlinkStartIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint HyperlinkStartIndexPropertyInfo = HyperlinkK + type AttrGetType HyperlinkStartIndexPropertyInfo = Int32 + type AttrLabel HyperlinkStartIndexPropertyInfo = "Hyperlink::start-index" + attrGet _ = getHyperlinkStartIndex + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList Hyperlink = HyperlinkAttributeList +type HyperlinkAttributeList = ('[ '("end-index", HyperlinkEndIndexPropertyInfo), '("number-of-anchors", HyperlinkNumberOfAnchorsPropertyInfo), '("selected-link", HyperlinkSelectedLinkPropertyInfo), '("start-index", HyperlinkStartIndexPropertyInfo)] :: [(Symbol, *)]) + +data HyperlinkLinkActivatedSignalInfo +instance SignalInfo HyperlinkLinkActivatedSignalInfo where + type HaskellCallbackType HyperlinkLinkActivatedSignalInfo = HyperlinkLinkActivatedCallback + connectSignal _ = connectHyperlinkLinkActivated + +type instance SignalList Hyperlink = HyperlinkSignalList +type HyperlinkSignalList = ('[ '("link-activated", HyperlinkLinkActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Hyperlink::get_end_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hyperlink_get_end_index" atk_hyperlink_get_end_index :: + Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" + IO Int32 + + +hyperlinkGetEndIndex :: + (MonadIO m, HyperlinkK a) => + a -> -- _obj + m Int32 +hyperlinkGetEndIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hyperlink_get_end_index _obj' + touchManagedPtr _obj + return result + +-- method Hyperlink::get_n_anchors +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hyperlink_get_n_anchors" atk_hyperlink_get_n_anchors :: + Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" + IO Int32 + + +hyperlinkGetNAnchors :: + (MonadIO m, HyperlinkK a) => + a -> -- _obj + m Int32 +hyperlinkGetNAnchors _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hyperlink_get_n_anchors _obj' + touchManagedPtr _obj + return result + +-- method Hyperlink::get_object +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hyperlink_get_object" atk_hyperlink_get_object :: + Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" + Int32 -> -- i : TBasicType TInt32 + IO (Ptr Object) + + +hyperlinkGetObject :: + (MonadIO m, HyperlinkK a) => + a -> -- _obj + Int32 -> -- i + m Object +hyperlinkGetObject _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hyperlink_get_object _obj' i + checkUnexpectedReturnNULL "atk_hyperlink_get_object" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Hyperlink::get_start_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hyperlink_get_start_index" atk_hyperlink_get_start_index :: + Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" + IO Int32 + + +hyperlinkGetStartIndex :: + (MonadIO m, HyperlinkK a) => + a -> -- _obj + m Int32 +hyperlinkGetStartIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hyperlink_get_start_index _obj' + touchManagedPtr _obj + return result + +-- method Hyperlink::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hyperlink_get_uri" atk_hyperlink_get_uri :: + Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" + Int32 -> -- i : TBasicType TInt32 + IO CString + + +hyperlinkGetUri :: + (MonadIO m, HyperlinkK a) => + a -> -- _obj + Int32 -> -- i + m T.Text +hyperlinkGetUri _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hyperlink_get_uri _obj' i + checkUnexpectedReturnNULL "atk_hyperlink_get_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method Hyperlink::is_inline +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hyperlink_is_inline" atk_hyperlink_is_inline :: + Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" + IO CInt + + +hyperlinkIsInline :: + (MonadIO m, HyperlinkK a) => + a -> -- _obj + m Bool +hyperlinkIsInline _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hyperlink_is_inline _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Hyperlink::is_selected_link +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hyperlink_is_selected_link" atk_hyperlink_is_selected_link :: + Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" + IO CInt + +{-# DEPRECATED hyperlinkIsSelectedLink ["(Since version 1.8)","Please use ATK_STATE_FOCUSABLE for all links,","and ATK_STATE_FOCUSED for focused links."]#-} +hyperlinkIsSelectedLink :: + (MonadIO m, HyperlinkK a) => + a -> -- _obj + m Bool +hyperlinkIsSelectedLink _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hyperlink_is_selected_link _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Hyperlink::is_valid +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_hyperlink_is_valid" atk_hyperlink_is_valid :: + Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink" + IO CInt + + +hyperlinkIsValid :: + (MonadIO m, HyperlinkK a) => + a -> -- _obj + m Bool +hyperlinkIsValid _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_hyperlink_is_valid _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Objects/Hyperlink.hs-boot b/GI/Atk/Objects/Hyperlink.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Hyperlink.hs-boot @@ -0,0 +1,18 @@ +module GI.Atk.Objects.Hyperlink where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Hyperlink = Hyperlink (ForeignPtr Hyperlink) +instance GObject Hyperlink where +class GObject o => HyperlinkK o +instance (GObject o, IsDescendantOf Hyperlink o) => HyperlinkK o +data HyperlinkEndIndexPropertyInfo +data HyperlinkNumberOfAnchorsPropertyInfo +data HyperlinkSelectedLinkPropertyInfo +data HyperlinkStartIndexPropertyInfo +data HyperlinkLinkActivatedSignalInfo diff --git a/GI/Atk/Objects/Misc.hs b/GI/Atk/Objects/Misc.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Misc.hs @@ -0,0 +1,143 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.Misc + ( + +-- * Exported types + Misc(..) , + MiscK , + toMisc , + noMisc , + + + -- * Methods +-- ** miscGetInstance + miscGetInstance , + + +-- ** miscThreadsEnter + miscThreadsEnter , + + +-- ** miscThreadsLeave + miscThreadsLeave , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype Misc = Misc (ForeignPtr Misc) +foreign import ccall "atk_misc_get_type" + c_atk_misc_get_type :: IO GType + +type instance ParentTypes Misc = MiscParentTypes +type MiscParentTypes = '[GObject.Object] + +instance GObject Misc where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_misc_get_type + + +class GObject o => MiscK o +instance (GObject o, IsDescendantOf Misc o) => MiscK o + +toMisc :: MiscK o => o -> IO Misc +toMisc = unsafeCastTo Misc + +noMisc :: Maybe Misc +noMisc = Nothing + +type instance AttributeList Misc = MiscAttributeList +type MiscAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList Misc = MiscSignalList +type MiscSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Misc::threads_enter +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_misc_threads_enter" atk_misc_threads_enter :: + Ptr Misc -> -- _obj : TInterface "Atk" "Misc" + IO () + +{-# DEPRECATED miscThreadsEnter ["Since 2.12."]#-} +miscThreadsEnter :: + (MonadIO m, MiscK a) => + a -> -- _obj + m () +miscThreadsEnter _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_misc_threads_enter _obj' + touchManagedPtr _obj + return () + +-- method Misc::threads_leave +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_misc_threads_leave" atk_misc_threads_leave :: + Ptr Misc -> -- _obj : TInterface "Atk" "Misc" + IO () + +{-# DEPRECATED miscThreadsLeave ["Since 2.12."]#-} +miscThreadsLeave :: + (MonadIO m, MiscK a) => + a -> -- _obj + m () +miscThreadsLeave _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_misc_threads_leave _obj' + touchManagedPtr _obj + return () + +-- method Misc::get_instance +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Atk" "Misc" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_misc_get_instance" atk_misc_get_instance :: + IO (Ptr Misc) + +{-# DEPRECATED miscGetInstance ["Since 2.12."]#-} +miscGetInstance :: + (MonadIO m) => + m Misc +miscGetInstance = liftIO $ do + result <- atk_misc_get_instance + checkUnexpectedReturnNULL "atk_misc_get_instance" result + result' <- (newObject Misc) result + return result' + + diff --git a/GI/Atk/Objects/Misc.hs-boot b/GI/Atk/Objects/Misc.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Misc.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.Misc where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Misc = Misc (ForeignPtr Misc) +instance GObject Misc where +class GObject o => MiscK o +instance (GObject o, IsDescendantOf Misc o) => MiscK o diff --git a/GI/Atk/Objects/NoOpObject.hs b/GI/Atk/Objects/NoOpObject.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/NoOpObject.hs @@ -0,0 +1,91 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.NoOpObject + ( + +-- * Exported types + NoOpObject(..) , + NoOpObjectK , + toNoOpObject , + noNoOpObject , + + + -- * Methods +-- ** noOpObjectNew + noOpObjectNew , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype NoOpObject = NoOpObject (ForeignPtr NoOpObject) +foreign import ccall "atk_no_op_object_get_type" + c_atk_no_op_object_get_type :: IO GType + +type instance ParentTypes NoOpObject = NoOpObjectParentTypes +type NoOpObjectParentTypes = '[Object, GObject.Object, Action, Component, Document, EditableText, Hypertext, Image, Selection, Table, TableCell, Text, Value, Window] + +instance GObject NoOpObject where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_no_op_object_get_type + + +class GObject o => NoOpObjectK o +instance (GObject o, IsDescendantOf NoOpObject o) => NoOpObjectK o + +toNoOpObject :: NoOpObjectK o => o -> IO NoOpObject +toNoOpObject = unsafeCastTo NoOpObject + +noNoOpObject :: Maybe NoOpObject +noNoOpObject = Nothing + +type instance AttributeList NoOpObject = NoOpObjectAttributeList +type NoOpObjectAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList NoOpObject = NoOpObjectSignalList +type NoOpObjectSignalList = ('[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("link-selected", HypertextLinkSelectedSignalInfo), '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("reload", DocumentReloadSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo), '("selection-changed", SelectionSelectionChangedSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo), '("value-changed", ValueValueChangedSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method NoOpObject::new +-- method type : Constructor +-- Args : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "NoOpObject" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_no_op_object_new" atk_no_op_object_new :: + Ptr GObject.Object -> -- obj : TInterface "GObject" "Object" + IO (Ptr NoOpObject) + + +noOpObjectNew :: + (MonadIO m, GObject.ObjectK a) => + a -> -- obj + m NoOpObject +noOpObjectNew obj = liftIO $ do + let obj' = unsafeManagedPtrCastPtr obj + result <- atk_no_op_object_new obj' + checkUnexpectedReturnNULL "atk_no_op_object_new" result + result' <- (wrapObject NoOpObject) result + touchManagedPtr obj + return result' + + diff --git a/GI/Atk/Objects/NoOpObject.hs-boot b/GI/Atk/Objects/NoOpObject.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/NoOpObject.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.NoOpObject where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype NoOpObject = NoOpObject (ForeignPtr NoOpObject) +instance GObject NoOpObject where +class GObject o => NoOpObjectK o +instance (GObject o, IsDescendantOf NoOpObject o) => NoOpObjectK o diff --git a/GI/Atk/Objects/NoOpObjectFactory.hs b/GI/Atk/Objects/NoOpObjectFactory.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/NoOpObjectFactory.hs @@ -0,0 +1,87 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.NoOpObjectFactory + ( + +-- * Exported types + NoOpObjectFactory(..) , + NoOpObjectFactoryK , + toNoOpObjectFactory , + noNoOpObjectFactory , + + + -- * Methods +-- ** noOpObjectFactoryNew + noOpObjectFactoryNew , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype NoOpObjectFactory = NoOpObjectFactory (ForeignPtr NoOpObjectFactory) +foreign import ccall "atk_no_op_object_factory_get_type" + c_atk_no_op_object_factory_get_type :: IO GType + +type instance ParentTypes NoOpObjectFactory = NoOpObjectFactoryParentTypes +type NoOpObjectFactoryParentTypes = '[ObjectFactory, GObject.Object] + +instance GObject NoOpObjectFactory where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_no_op_object_factory_get_type + + +class GObject o => NoOpObjectFactoryK o +instance (GObject o, IsDescendantOf NoOpObjectFactory o) => NoOpObjectFactoryK o + +toNoOpObjectFactory :: NoOpObjectFactoryK o => o -> IO NoOpObjectFactory +toNoOpObjectFactory = unsafeCastTo NoOpObjectFactory + +noNoOpObjectFactory :: Maybe NoOpObjectFactory +noNoOpObjectFactory = Nothing + +type instance AttributeList NoOpObjectFactory = NoOpObjectFactoryAttributeList +type NoOpObjectFactoryAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList NoOpObjectFactory = NoOpObjectFactorySignalList +type NoOpObjectFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method NoOpObjectFactory::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Atk" "NoOpObjectFactory" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_no_op_object_factory_new" atk_no_op_object_factory_new :: + IO (Ptr NoOpObjectFactory) + + +noOpObjectFactoryNew :: + (MonadIO m) => + m NoOpObjectFactory +noOpObjectFactoryNew = liftIO $ do + result <- atk_no_op_object_factory_new + checkUnexpectedReturnNULL "atk_no_op_object_factory_new" result + result' <- (wrapObject NoOpObjectFactory) result + return result' + + diff --git a/GI/Atk/Objects/NoOpObjectFactory.hs-boot b/GI/Atk/Objects/NoOpObjectFactory.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/NoOpObjectFactory.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.NoOpObjectFactory where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype NoOpObjectFactory = NoOpObjectFactory (ForeignPtr NoOpObjectFactory) +instance GObject NoOpObjectFactory where +class GObject o => NoOpObjectFactoryK o +instance (GObject o, IsDescendantOf NoOpObjectFactory o) => NoOpObjectFactoryK o diff --git a/GI/Atk/Objects/Object.hs b/GI/Atk/Objects/Object.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Object.hs @@ -0,0 +1,1569 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.Object + ( + +-- * Exported types + Object(..) , + ObjectK , + toObject , + noObject , + + + -- * Methods +-- ** objectAddRelationship + objectAddRelationship , + + +-- ** objectGetAttributes + objectGetAttributes , + + +-- ** objectGetDescription + objectGetDescription , + + +-- ** objectGetIndexInParent + objectGetIndexInParent , + + +-- ** objectGetLayer + objectGetLayer , + + +-- ** objectGetMdiZorder + objectGetMdiZorder , + + +-- ** objectGetNAccessibleChildren + objectGetNAccessibleChildren , + + +-- ** objectGetName + objectGetName , + + +-- ** objectGetObjectLocale + objectGetObjectLocale , + + +-- ** objectGetParent + objectGetParent , + + +-- ** objectGetRole + objectGetRole , + + +-- ** objectInitialize + objectInitialize , + + +-- ** objectNotifyStateChange + objectNotifyStateChange , + + +-- ** objectPeekParent + objectPeekParent , + + +-- ** objectRefAccessibleChild + objectRefAccessibleChild , + + +-- ** objectRefRelationSet + objectRefRelationSet , + + +-- ** objectRefStateSet + objectRefStateSet , + + +-- ** objectRemovePropertyChangeHandler + objectRemovePropertyChangeHandler , + + +-- ** objectRemoveRelationship + objectRemoveRelationship , + + +-- ** objectSetDescription + objectSetDescription , + + +-- ** objectSetName + objectSetName , + + +-- ** objectSetParent + objectSetParent , + + +-- ** objectSetRole + objectSetRole , + + + + + -- * Properties +-- ** AccessibleComponentLayer + ObjectAccessibleComponentLayerPropertyInfo, + getObjectAccessibleComponentLayer , + + +-- ** AccessibleComponentMdiZorder + ObjectAccessibleComponentMdiZorderPropertyInfo, + getObjectAccessibleComponentMdiZorder , + + +-- ** AccessibleDescription + ObjectAccessibleDescriptionPropertyInfo , + constructObjectAccessibleDescription , + getObjectAccessibleDescription , + setObjectAccessibleDescription , + + +-- ** AccessibleHypertextNlinks + ObjectAccessibleHypertextNlinksPropertyInfo, + getObjectAccessibleHypertextNlinks , + + +-- ** AccessibleName + ObjectAccessibleNamePropertyInfo , + constructObjectAccessibleName , + getObjectAccessibleName , + setObjectAccessibleName , + + +-- ** AccessibleParent + ObjectAccessibleParentPropertyInfo , + constructObjectAccessibleParent , + getObjectAccessibleParent , + setObjectAccessibleParent , + + +-- ** AccessibleRole + ObjectAccessibleRolePropertyInfo , + constructObjectAccessibleRole , + getObjectAccessibleRole , + setObjectAccessibleRole , + + +-- ** AccessibleTableCaption + ObjectAccessibleTableCaptionPropertyInfo, + constructObjectAccessibleTableCaption , + getObjectAccessibleTableCaption , + setObjectAccessibleTableCaption , + + +-- ** AccessibleTableCaptionObject + ObjectAccessibleTableCaptionObjectPropertyInfo, + constructObjectAccessibleTableCaptionObject, + getObjectAccessibleTableCaptionObject , + setObjectAccessibleTableCaptionObject , + + +-- ** AccessibleTableColumnDescription + ObjectAccessibleTableColumnDescriptionPropertyInfo, + constructObjectAccessibleTableColumnDescription, + getObjectAccessibleTableColumnDescription, + setObjectAccessibleTableColumnDescription, + + +-- ** AccessibleTableColumnHeader + ObjectAccessibleTableColumnHeaderPropertyInfo, + constructObjectAccessibleTableColumnHeader, + getObjectAccessibleTableColumnHeader , + setObjectAccessibleTableColumnHeader , + + +-- ** AccessibleTableRowDescription + ObjectAccessibleTableRowDescriptionPropertyInfo, + constructObjectAccessibleTableRowDescription, + getObjectAccessibleTableRowDescription , + setObjectAccessibleTableRowDescription , + + +-- ** AccessibleTableRowHeader + ObjectAccessibleTableRowHeaderPropertyInfo, + constructObjectAccessibleTableRowHeader , + getObjectAccessibleTableRowHeader , + setObjectAccessibleTableRowHeader , + + +-- ** AccessibleTableSummary + ObjectAccessibleTableSummaryPropertyInfo, + constructObjectAccessibleTableSummary , + getObjectAccessibleTableSummary , + setObjectAccessibleTableSummary , + + +-- ** AccessibleValue + ObjectAccessibleValuePropertyInfo , + constructObjectAccessibleValue , + getObjectAccessibleValue , + setObjectAccessibleValue , + + + + + -- * Signals +-- ** ActiveDescendantChanged + ObjectActiveDescendantChangedCallback , + ObjectActiveDescendantChangedCallbackC , + ObjectActiveDescendantChangedSignalInfo , + afterObjectActiveDescendantChanged , + mkObjectActiveDescendantChangedCallback , + noObjectActiveDescendantChangedCallback , + objectActiveDescendantChangedCallbackWrapper, + objectActiveDescendantChangedClosure , + onObjectActiveDescendantChanged , + + +-- ** ChildrenChanged + ObjectChildrenChangedCallback , + ObjectChildrenChangedCallbackC , + ObjectChildrenChangedSignalInfo , + afterObjectChildrenChanged , + mkObjectChildrenChangedCallback , + noObjectChildrenChangedCallback , + objectChildrenChangedCallbackWrapper , + objectChildrenChangedClosure , + onObjectChildrenChanged , + + +-- ** FocusEvent + ObjectFocusEventCallback , + ObjectFocusEventCallbackC , + ObjectFocusEventSignalInfo , + afterObjectFocusEvent , + mkObjectFocusEventCallback , + noObjectFocusEventCallback , + objectFocusEventCallbackWrapper , + objectFocusEventClosure , + onObjectFocusEvent , + + +-- ** PropertyChange + ObjectPropertyChangeCallback , + ObjectPropertyChangeCallbackC , + ObjectPropertyChangeSignalInfo , + afterObjectPropertyChange , + mkObjectPropertyChangeCallback , + noObjectPropertyChangeCallback , + objectPropertyChangeCallbackWrapper , + objectPropertyChangeClosure , + onObjectPropertyChange , + + +-- ** StateChange + ObjectStateChangeCallback , + ObjectStateChangeCallbackC , + ObjectStateChangeSignalInfo , + afterObjectStateChange , + mkObjectStateChangeCallback , + noObjectStateChangeCallback , + objectStateChangeCallbackWrapper , + objectStateChangeClosure , + onObjectStateChange , + + +-- ** VisibleDataChanged + ObjectVisibleDataChangedCallback , + ObjectVisibleDataChangedCallbackC , + ObjectVisibleDataChangedSignalInfo , + afterObjectVisibleDataChanged , + mkObjectVisibleDataChangedCallback , + noObjectVisibleDataChangedCallback , + objectVisibleDataChangedCallbackWrapper , + objectVisibleDataChangedClosure , + onObjectVisibleDataChanged , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype Object = Object (ForeignPtr Object) +foreign import ccall "atk_object_get_type" + c_atk_object_get_type :: IO GType + +type instance ParentTypes Object = ObjectParentTypes +type ObjectParentTypes = '[GObject.Object] + +instance GObject Object where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_object_get_type + + +class GObject o => ObjectK o +instance (GObject o, IsDescendantOf Object o) => ObjectK o + +toObject :: ObjectK o => o -> IO Object +toObject = unsafeCastTo Object + +noObject :: Maybe Object +noObject = Nothing + +-- signal Object::active-descendant-changed +type ObjectActiveDescendantChangedCallback = + Ptr () -> + IO () + +noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback +noObjectActiveDescendantChangedCallback = Nothing + +type ObjectActiveDescendantChangedCallbackC = + Ptr () -> -- object + Ptr () -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkObjectActiveDescendantChangedCallback :: ObjectActiveDescendantChangedCallbackC -> IO (FunPtr ObjectActiveDescendantChangedCallbackC) + +objectActiveDescendantChangedClosure :: ObjectActiveDescendantChangedCallback -> IO Closure +objectActiveDescendantChangedClosure cb = newCClosure =<< mkObjectActiveDescendantChangedCallback wrapped + where wrapped = objectActiveDescendantChangedCallbackWrapper cb + +objectActiveDescendantChangedCallbackWrapper :: + ObjectActiveDescendantChangedCallback -> + Ptr () -> + Ptr () -> + Ptr () -> + IO () +objectActiveDescendantChangedCallbackWrapper _cb _ arg1 _ = do + _cb arg1 + +onObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId +onObjectActiveDescendantChanged obj cb = liftIO $ connectObjectActiveDescendantChanged obj cb SignalConnectBefore +afterObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId +afterObjectActiveDescendantChanged obj cb = connectObjectActiveDescendantChanged obj cb SignalConnectAfter + +connectObjectActiveDescendantChanged :: (GObject a, MonadIO m) => + a -> ObjectActiveDescendantChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectObjectActiveDescendantChanged obj cb after = liftIO $ do + cb' <- mkObjectActiveDescendantChangedCallback (objectActiveDescendantChangedCallbackWrapper cb) + connectSignalFunPtr obj "active-descendant-changed" cb' after + +-- signal Object::children-changed +type ObjectChildrenChangedCallback = + Word32 -> + Ptr () -> + IO () + +noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback +noObjectChildrenChangedCallback = Nothing + +type ObjectChildrenChangedCallbackC = + Ptr () -> -- object + Word32 -> + Ptr () -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkObjectChildrenChangedCallback :: ObjectChildrenChangedCallbackC -> IO (FunPtr ObjectChildrenChangedCallbackC) + +objectChildrenChangedClosure :: ObjectChildrenChangedCallback -> IO Closure +objectChildrenChangedClosure cb = newCClosure =<< mkObjectChildrenChangedCallback wrapped + where wrapped = objectChildrenChangedCallbackWrapper cb + +objectChildrenChangedCallbackWrapper :: + ObjectChildrenChangedCallback -> + Ptr () -> + Word32 -> + Ptr () -> + Ptr () -> + IO () +objectChildrenChangedCallbackWrapper _cb _ arg1 arg2 _ = do + _cb arg1 arg2 + +onObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId +onObjectChildrenChanged obj cb = liftIO $ connectObjectChildrenChanged obj cb SignalConnectBefore +afterObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId +afterObjectChildrenChanged obj cb = connectObjectChildrenChanged obj cb SignalConnectAfter + +connectObjectChildrenChanged :: (GObject a, MonadIO m) => + a -> ObjectChildrenChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectObjectChildrenChanged obj cb after = liftIO $ do + cb' <- mkObjectChildrenChangedCallback (objectChildrenChangedCallbackWrapper cb) + connectSignalFunPtr obj "children-changed" cb' after + +-- signal Object::focus-event +type ObjectFocusEventCallback = + Bool -> + IO () + +noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback +noObjectFocusEventCallback = Nothing + +type ObjectFocusEventCallbackC = + Ptr () -> -- object + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkObjectFocusEventCallback :: ObjectFocusEventCallbackC -> IO (FunPtr ObjectFocusEventCallbackC) + +objectFocusEventClosure :: ObjectFocusEventCallback -> IO Closure +objectFocusEventClosure cb = newCClosure =<< mkObjectFocusEventCallback wrapped + where wrapped = objectFocusEventCallbackWrapper cb + +objectFocusEventCallbackWrapper :: + ObjectFocusEventCallback -> + Ptr () -> + CInt -> + Ptr () -> + IO () +objectFocusEventCallbackWrapper _cb _ arg1 _ = do + let arg1' = (/= 0) arg1 + _cb arg1' + +onObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId +onObjectFocusEvent obj cb = liftIO $ connectObjectFocusEvent obj cb SignalConnectBefore +afterObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId +afterObjectFocusEvent obj cb = connectObjectFocusEvent obj cb SignalConnectAfter + +connectObjectFocusEvent :: (GObject a, MonadIO m) => + a -> ObjectFocusEventCallback -> SignalConnectMode -> m SignalHandlerId +connectObjectFocusEvent obj cb after = liftIO $ do + cb' <- mkObjectFocusEventCallback (objectFocusEventCallbackWrapper cb) + connectSignalFunPtr obj "focus-event" cb' after + +-- signal Object::property-change +type ObjectPropertyChangeCallback = + Ptr () -> + IO () + +noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback +noObjectPropertyChangeCallback = Nothing + +type ObjectPropertyChangeCallbackC = + Ptr () -> -- object + Ptr () -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkObjectPropertyChangeCallback :: ObjectPropertyChangeCallbackC -> IO (FunPtr ObjectPropertyChangeCallbackC) + +objectPropertyChangeClosure :: ObjectPropertyChangeCallback -> IO Closure +objectPropertyChangeClosure cb = newCClosure =<< mkObjectPropertyChangeCallback wrapped + where wrapped = objectPropertyChangeCallbackWrapper cb + +objectPropertyChangeCallbackWrapper :: + ObjectPropertyChangeCallback -> + Ptr () -> + Ptr () -> + Ptr () -> + IO () +objectPropertyChangeCallbackWrapper _cb _ arg1 _ = do + _cb arg1 + +onObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId +onObjectPropertyChange obj cb = liftIO $ connectObjectPropertyChange obj cb SignalConnectBefore +afterObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId +afterObjectPropertyChange obj cb = connectObjectPropertyChange obj cb SignalConnectAfter + +connectObjectPropertyChange :: (GObject a, MonadIO m) => + a -> ObjectPropertyChangeCallback -> SignalConnectMode -> m SignalHandlerId +connectObjectPropertyChange obj cb after = liftIO $ do + cb' <- mkObjectPropertyChangeCallback (objectPropertyChangeCallbackWrapper cb) + connectSignalFunPtr obj "property-change" cb' after + +-- signal Object::state-change +type ObjectStateChangeCallback = + T.Text -> + Bool -> + IO () + +noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback +noObjectStateChangeCallback = Nothing + +type ObjectStateChangeCallbackC = + Ptr () -> -- object + CString -> + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkObjectStateChangeCallback :: ObjectStateChangeCallbackC -> IO (FunPtr ObjectStateChangeCallbackC) + +objectStateChangeClosure :: ObjectStateChangeCallback -> IO Closure +objectStateChangeClosure cb = newCClosure =<< mkObjectStateChangeCallback wrapped + where wrapped = objectStateChangeCallbackWrapper cb + +objectStateChangeCallbackWrapper :: + ObjectStateChangeCallback -> + Ptr () -> + CString -> + CInt -> + Ptr () -> + IO () +objectStateChangeCallbackWrapper _cb _ arg1 arg2 _ = do + arg1' <- cstringToText arg1 + let arg2' = (/= 0) arg2 + _cb arg1' arg2' + +onObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId +onObjectStateChange obj cb = liftIO $ connectObjectStateChange obj cb SignalConnectBefore +afterObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId +afterObjectStateChange obj cb = connectObjectStateChange obj cb SignalConnectAfter + +connectObjectStateChange :: (GObject a, MonadIO m) => + a -> ObjectStateChangeCallback -> SignalConnectMode -> m SignalHandlerId +connectObjectStateChange obj cb after = liftIO $ do + cb' <- mkObjectStateChangeCallback (objectStateChangeCallbackWrapper cb) + connectSignalFunPtr obj "state-change" cb' after + +-- signal Object::visible-data-changed +type ObjectVisibleDataChangedCallback = + IO () + +noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback +noObjectVisibleDataChangedCallback = Nothing + +type ObjectVisibleDataChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkObjectVisibleDataChangedCallback :: ObjectVisibleDataChangedCallbackC -> IO (FunPtr ObjectVisibleDataChangedCallbackC) + +objectVisibleDataChangedClosure :: ObjectVisibleDataChangedCallback -> IO Closure +objectVisibleDataChangedClosure cb = newCClosure =<< mkObjectVisibleDataChangedCallback wrapped + where wrapped = objectVisibleDataChangedCallbackWrapper cb + +objectVisibleDataChangedCallbackWrapper :: + ObjectVisibleDataChangedCallback -> + Ptr () -> + Ptr () -> + IO () +objectVisibleDataChangedCallbackWrapper _cb _ _ = do + _cb + +onObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId +onObjectVisibleDataChanged obj cb = liftIO $ connectObjectVisibleDataChanged obj cb SignalConnectBefore +afterObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId +afterObjectVisibleDataChanged obj cb = connectObjectVisibleDataChanged obj cb SignalConnectAfter + +connectObjectVisibleDataChanged :: (GObject a, MonadIO m) => + a -> ObjectVisibleDataChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectObjectVisibleDataChanged obj cb after = liftIO $ do + cb' <- mkObjectVisibleDataChangedCallback (objectVisibleDataChangedCallbackWrapper cb) + connectSignalFunPtr obj "visible-data-changed" cb' after + +-- VVV Prop "accessible-component-layer" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getObjectAccessibleComponentLayer :: (MonadIO m, ObjectK o) => o -> m Int32 +getObjectAccessibleComponentLayer obj = liftIO $ getObjectPropertyCInt obj "accessible-component-layer" + +data ObjectAccessibleComponentLayerPropertyInfo +instance AttrInfo ObjectAccessibleComponentLayerPropertyInfo where + type AttrAllowedOps ObjectAccessibleComponentLayerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) () + type AttrBaseTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleComponentLayerPropertyInfo = Int32 + type AttrLabel ObjectAccessibleComponentLayerPropertyInfo = "Object::accessible-component-layer" + attrGet _ = getObjectAccessibleComponentLayer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "accessible-component-mdi-zorder" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getObjectAccessibleComponentMdiZorder :: (MonadIO m, ObjectK o) => o -> m Int32 +getObjectAccessibleComponentMdiZorder obj = liftIO $ getObjectPropertyCInt obj "accessible-component-mdi-zorder" + +data ObjectAccessibleComponentMdiZorderPropertyInfo +instance AttrInfo ObjectAccessibleComponentMdiZorderPropertyInfo where + type AttrAllowedOps ObjectAccessibleComponentMdiZorderPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) () + type AttrBaseTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleComponentMdiZorderPropertyInfo = Int32 + type AttrLabel ObjectAccessibleComponentMdiZorderPropertyInfo = "Object::accessible-component-mdi-zorder" + attrGet _ = getObjectAccessibleComponentMdiZorder + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "accessible-description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleDescription obj = liftIO $ getObjectPropertyString obj "accessible-description" + +setObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleDescription obj val = liftIO $ setObjectPropertyString obj "accessible-description" val + +constructObjectAccessibleDescription :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleDescription val = constructObjectPropertyString "accessible-description" val + +data ObjectAccessibleDescriptionPropertyInfo +instance AttrInfo ObjectAccessibleDescriptionPropertyInfo where + type AttrAllowedOps ObjectAccessibleDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleDescriptionPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleDescriptionPropertyInfo = T.Text + type AttrLabel ObjectAccessibleDescriptionPropertyInfo = "Object::accessible-description" + attrGet _ = getObjectAccessibleDescription + attrSet _ = setObjectAccessibleDescription + attrConstruct _ = constructObjectAccessibleDescription + +-- VVV Prop "accessible-hypertext-nlinks" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getObjectAccessibleHypertextNlinks :: (MonadIO m, ObjectK o) => o -> m Int32 +getObjectAccessibleHypertextNlinks obj = liftIO $ getObjectPropertyCInt obj "accessible-hypertext-nlinks" + +data ObjectAccessibleHypertextNlinksPropertyInfo +instance AttrInfo ObjectAccessibleHypertextNlinksPropertyInfo where + type AttrAllowedOps ObjectAccessibleHypertextNlinksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) () + type AttrBaseTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleHypertextNlinksPropertyInfo = Int32 + type AttrLabel ObjectAccessibleHypertextNlinksPropertyInfo = "Object::accessible-hypertext-nlinks" + attrGet _ = getObjectAccessibleHypertextNlinks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "accessible-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleName obj = liftIO $ getObjectPropertyString obj "accessible-name" + +setObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleName obj val = liftIO $ setObjectPropertyString obj "accessible-name" val + +constructObjectAccessibleName :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleName val = constructObjectPropertyString "accessible-name" val + +data ObjectAccessibleNamePropertyInfo +instance AttrInfo ObjectAccessibleNamePropertyInfo where + type AttrAllowedOps ObjectAccessibleNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleNamePropertyInfo = ObjectK + type AttrGetType ObjectAccessibleNamePropertyInfo = T.Text + type AttrLabel ObjectAccessibleNamePropertyInfo = "Object::accessible-name" + attrGet _ = getObjectAccessibleName + attrSet _ = setObjectAccessibleName + attrConstruct _ = constructObjectAccessibleName + +-- VVV Prop "accessible-parent" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleParent :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleParent obj = liftIO $ getObjectPropertyObject obj "accessible-parent" Object + +setObjectAccessibleParent :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleParent obj val = liftIO $ setObjectPropertyObject obj "accessible-parent" val + +constructObjectAccessibleParent :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleParent val = constructObjectPropertyObject "accessible-parent" val + +data ObjectAccessibleParentPropertyInfo +instance AttrInfo ObjectAccessibleParentPropertyInfo where + type AttrAllowedOps ObjectAccessibleParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleParentPropertyInfo = Object + type AttrLabel ObjectAccessibleParentPropertyInfo = "Object::accessible-parent" + attrGet _ = getObjectAccessibleParent + attrSet _ = setObjectAccessibleParent + attrConstruct _ = constructObjectAccessibleParent + +-- VVV Prop "accessible-role" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> m Int32 +getObjectAccessibleRole obj = liftIO $ getObjectPropertyCInt obj "accessible-role" + +setObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> Int32 -> m () +setObjectAccessibleRole obj val = liftIO $ setObjectPropertyCInt obj "accessible-role" val + +constructObjectAccessibleRole :: Int32 -> IO ([Char], GValue) +constructObjectAccessibleRole val = constructObjectPropertyCInt "accessible-role" val + +data ObjectAccessibleRolePropertyInfo +instance AttrInfo ObjectAccessibleRolePropertyInfo where + type AttrAllowedOps ObjectAccessibleRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ObjectAccessibleRolePropertyInfo = ObjectK + type AttrGetType ObjectAccessibleRolePropertyInfo = Int32 + type AttrLabel ObjectAccessibleRolePropertyInfo = "Object::accessible-role" + attrGet _ = getObjectAccessibleRole + attrSet _ = setObjectAccessibleRole + attrConstruct _ = constructObjectAccessibleRole + +-- VVV Prop "accessible-table-caption" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleTableCaption obj = liftIO $ getObjectPropertyString obj "accessible-table-caption" + +setObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleTableCaption obj val = liftIO $ setObjectPropertyString obj "accessible-table-caption" val + +constructObjectAccessibleTableCaption :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleTableCaption val = constructObjectPropertyString "accessible-table-caption" val + +data ObjectAccessibleTableCaptionPropertyInfo +instance AttrInfo ObjectAccessibleTableCaptionPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableCaptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableCaptionPropertyInfo = T.Text + type AttrLabel ObjectAccessibleTableCaptionPropertyInfo = "Object::accessible-table-caption" + attrGet _ = getObjectAccessibleTableCaption + attrSet _ = setObjectAccessibleTableCaption + attrConstruct _ = constructObjectAccessibleTableCaption + +-- VVV Prop "accessible-table-caption-object" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleTableCaptionObject obj = liftIO $ getObjectPropertyObject obj "accessible-table-caption-object" Object + +setObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleTableCaptionObject obj val = liftIO $ setObjectPropertyObject obj "accessible-table-caption-object" val + +constructObjectAccessibleTableCaptionObject :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleTableCaptionObject val = constructObjectPropertyObject "accessible-table-caption-object" val + +data ObjectAccessibleTableCaptionObjectPropertyInfo +instance AttrInfo ObjectAccessibleTableCaptionObjectPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableCaptionObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableCaptionObjectPropertyInfo = Object + type AttrLabel ObjectAccessibleTableCaptionObjectPropertyInfo = "Object::accessible-table-caption-object" + attrGet _ = getObjectAccessibleTableCaptionObject + attrSet _ = setObjectAccessibleTableCaptionObject + attrConstruct _ = constructObjectAccessibleTableCaptionObject + +-- VVV Prop "accessible-table-column-description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleTableColumnDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-column-description" + +setObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleTableColumnDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-column-description" val + +constructObjectAccessibleTableColumnDescription :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleTableColumnDescription val = constructObjectPropertyString "accessible-table-column-description" val + +data ObjectAccessibleTableColumnDescriptionPropertyInfo +instance AttrInfo ObjectAccessibleTableColumnDescriptionPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableColumnDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableColumnDescriptionPropertyInfo = T.Text + type AttrLabel ObjectAccessibleTableColumnDescriptionPropertyInfo = "Object::accessible-table-column-description" + attrGet _ = getObjectAccessibleTableColumnDescription + attrSet _ = setObjectAccessibleTableColumnDescription + attrConstruct _ = constructObjectAccessibleTableColumnDescription + +-- VVV Prop "accessible-table-column-header" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleTableColumnHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-column-header" Object + +setObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleTableColumnHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-column-header" val + +constructObjectAccessibleTableColumnHeader :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleTableColumnHeader val = constructObjectPropertyObject "accessible-table-column-header" val + +data ObjectAccessibleTableColumnHeaderPropertyInfo +instance AttrInfo ObjectAccessibleTableColumnHeaderPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableColumnHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableColumnHeaderPropertyInfo = Object + type AttrLabel ObjectAccessibleTableColumnHeaderPropertyInfo = "Object::accessible-table-column-header" + attrGet _ = getObjectAccessibleTableColumnHeader + attrSet _ = setObjectAccessibleTableColumnHeader + attrConstruct _ = constructObjectAccessibleTableColumnHeader + +-- VVV Prop "accessible-table-row-description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> m T.Text +getObjectAccessibleTableRowDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-row-description" + +setObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m () +setObjectAccessibleTableRowDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-row-description" val + +constructObjectAccessibleTableRowDescription :: T.Text -> IO ([Char], GValue) +constructObjectAccessibleTableRowDescription val = constructObjectPropertyString "accessible-table-row-description" val + +data ObjectAccessibleTableRowDescriptionPropertyInfo +instance AttrInfo ObjectAccessibleTableRowDescriptionPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableRowDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableRowDescriptionPropertyInfo = T.Text + type AttrLabel ObjectAccessibleTableRowDescriptionPropertyInfo = "Object::accessible-table-row-description" + attrGet _ = getObjectAccessibleTableRowDescription + attrSet _ = setObjectAccessibleTableRowDescription + attrConstruct _ = constructObjectAccessibleTableRowDescription + +-- VVV Prop "accessible-table-row-header" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleTableRowHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-row-header" Object + +setObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleTableRowHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-row-header" val + +constructObjectAccessibleTableRowHeader :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleTableRowHeader val = constructObjectPropertyObject "accessible-table-row-header" val + +data ObjectAccessibleTableRowHeaderPropertyInfo +instance AttrInfo ObjectAccessibleTableRowHeaderPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableRowHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableRowHeaderPropertyInfo = Object + type AttrLabel ObjectAccessibleTableRowHeaderPropertyInfo = "Object::accessible-table-row-header" + attrGet _ = getObjectAccessibleTableRowHeader + attrSet _ = setObjectAccessibleTableRowHeader + attrConstruct _ = constructObjectAccessibleTableRowHeader + +-- VVV Prop "accessible-table-summary" + -- Type: TInterface "Atk" "Object" + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleTableSummary :: (MonadIO m, ObjectK o) => o -> m Object +getObjectAccessibleTableSummary obj = liftIO $ getObjectPropertyObject obj "accessible-table-summary" Object + +setObjectAccessibleTableSummary :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () +setObjectAccessibleTableSummary obj val = liftIO $ setObjectPropertyObject obj "accessible-table-summary" val + +constructObjectAccessibleTableSummary :: (ObjectK a) => a -> IO ([Char], GValue) +constructObjectAccessibleTableSummary val = constructObjectPropertyObject "accessible-table-summary" val + +data ObjectAccessibleTableSummaryPropertyInfo +instance AttrInfo ObjectAccessibleTableSummaryPropertyInfo where + type AttrAllowedOps ObjectAccessibleTableSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK + type AttrBaseTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK + type AttrGetType ObjectAccessibleTableSummaryPropertyInfo = Object + type AttrLabel ObjectAccessibleTableSummaryPropertyInfo = "Object::accessible-table-summary" + attrGet _ = getObjectAccessibleTableSummary + attrSet _ = setObjectAccessibleTableSummary + attrConstruct _ = constructObjectAccessibleTableSummary + +-- VVV Prop "accessible-value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> m Double +getObjectAccessibleValue obj = liftIO $ getObjectPropertyDouble obj "accessible-value" + +setObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> Double -> m () +setObjectAccessibleValue obj val = liftIO $ setObjectPropertyDouble obj "accessible-value" val + +constructObjectAccessibleValue :: Double -> IO ([Char], GValue) +constructObjectAccessibleValue val = constructObjectPropertyDouble "accessible-value" val + +data ObjectAccessibleValuePropertyInfo +instance AttrInfo ObjectAccessibleValuePropertyInfo where + type AttrAllowedOps ObjectAccessibleValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double + type AttrBaseTypeConstraint ObjectAccessibleValuePropertyInfo = ObjectK + type AttrGetType ObjectAccessibleValuePropertyInfo = Double + type AttrLabel ObjectAccessibleValuePropertyInfo = "Object::accessible-value" + attrGet _ = getObjectAccessibleValue + attrSet _ = setObjectAccessibleValue + attrConstruct _ = constructObjectAccessibleValue + +type instance AttributeList Object = ObjectAttributeList +type ObjectAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) + +data ObjectActiveDescendantChangedSignalInfo +instance SignalInfo ObjectActiveDescendantChangedSignalInfo where + type HaskellCallbackType ObjectActiveDescendantChangedSignalInfo = ObjectActiveDescendantChangedCallback + connectSignal _ = connectObjectActiveDescendantChanged + +data ObjectChildrenChangedSignalInfo +instance SignalInfo ObjectChildrenChangedSignalInfo where + type HaskellCallbackType ObjectChildrenChangedSignalInfo = ObjectChildrenChangedCallback + connectSignal _ = connectObjectChildrenChanged + +data ObjectFocusEventSignalInfo +instance SignalInfo ObjectFocusEventSignalInfo where + type HaskellCallbackType ObjectFocusEventSignalInfo = ObjectFocusEventCallback + connectSignal _ = connectObjectFocusEvent + +data ObjectPropertyChangeSignalInfo +instance SignalInfo ObjectPropertyChangeSignalInfo where + type HaskellCallbackType ObjectPropertyChangeSignalInfo = ObjectPropertyChangeCallback + connectSignal _ = connectObjectPropertyChange + +data ObjectStateChangeSignalInfo +instance SignalInfo ObjectStateChangeSignalInfo where + type HaskellCallbackType ObjectStateChangeSignalInfo = ObjectStateChangeCallback + connectSignal _ = connectObjectStateChange + +data ObjectVisibleDataChangedSignalInfo +instance SignalInfo ObjectVisibleDataChangedSignalInfo where + type HaskellCallbackType ObjectVisibleDataChangedSignalInfo = ObjectVisibleDataChangedCallback + connectSignal _ = connectObjectVisibleDataChanged + +type instance SignalList Object = ObjectSignalList +type ObjectSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Object::add_relationship +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_add_relationship" atk_object_add_relationship :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + CUInt -> -- relationship : TInterface "Atk" "RelationType" + Ptr Object -> -- target : TInterface "Atk" "Object" + IO CInt + + +objectAddRelationship :: + (MonadIO m, ObjectK a, ObjectK b) => + a -> -- _obj + RelationType -> -- relationship + b -> -- target + m Bool +objectAddRelationship _obj relationship target = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let relationship' = (fromIntegral . fromEnum) relationship + let target' = unsafeManagedPtrCastPtr target + result <- atk_object_add_relationship _obj' relationship' target' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr target + return result' + +-- method Object::get_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TBasicType TVoid) +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_attributes" atk_object_get_attributes :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO (Ptr (GSList (Ptr ()))) + + +objectGetAttributes :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m [Ptr ()] +objectGetAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_attributes _obj' + checkUnexpectedReturnNULL "atk_object_get_attributes" result + result' <- unpackGSList result + g_slist_free result + touchManagedPtr _obj + return result' + +-- method Object::get_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_description" atk_object_get_description :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO CString + + +objectGetDescription :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m T.Text +objectGetDescription _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_description _obj' + checkUnexpectedReturnNULL "atk_object_get_description" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Object::get_index_in_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_index_in_parent" atk_object_get_index_in_parent :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO Int32 + + +objectGetIndexInParent :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Int32 +objectGetIndexInParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_index_in_parent _obj' + touchManagedPtr _obj + return result + +-- method Object::get_layer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Layer" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_layer" atk_object_get_layer :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO CUInt + +{-# DEPRECATED objectGetLayer ["Use atk_component_get_layer instead."]#-} +objectGetLayer :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Layer +objectGetLayer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_layer _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Object::get_mdi_zorder +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_mdi_zorder" atk_object_get_mdi_zorder :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO Int32 + +{-# DEPRECATED objectGetMdiZorder ["Use atk_component_get_mdi_zorder instead."]#-} +objectGetMdiZorder :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Int32 +objectGetMdiZorder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_mdi_zorder _obj' + touchManagedPtr _obj + return result + +-- method Object::get_n_accessible_children +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_n_accessible_children" atk_object_get_n_accessible_children :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO Int32 + + +objectGetNAccessibleChildren :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Int32 +objectGetNAccessibleChildren _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_n_accessible_children _obj' + touchManagedPtr _obj + return result + +-- method Object::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_name" atk_object_get_name :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO CString + + +objectGetName :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m T.Text +objectGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_name _obj' + checkUnexpectedReturnNULL "atk_object_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Object::get_object_locale +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_object_locale" atk_object_get_object_locale :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO CString + + +objectGetObjectLocale :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m T.Text +objectGetObjectLocale _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_object_locale _obj' + checkUnexpectedReturnNULL "atk_object_get_object_locale" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Object::get_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_parent" atk_object_get_parent :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO (Ptr Object) + + +objectGetParent :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Object +objectGetParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_parent _obj' + checkUnexpectedReturnNULL "atk_object_get_parent" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Object::get_role +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Role" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_get_role" atk_object_get_role :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO CUInt + + +objectGetRole :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Role +objectGetRole _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_get_role _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Object::initialize +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_initialize" atk_object_initialize :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + Ptr () -> -- data : TBasicType TVoid + IO () + + +objectInitialize :: + (MonadIO m, ObjectK a) => + a -> -- _obj + Ptr () -> -- data + m () +objectInitialize _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_object_initialize _obj' data_ + touchManagedPtr _obj + return () + +-- method Object::notify_state_change +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_notify_state_change" atk_object_notify_state_change :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + Word64 -> -- state : TBasicType TUInt64 + CInt -> -- value : TBasicType TBoolean + IO () + + +objectNotifyStateChange :: + (MonadIO m, ObjectK a) => + a -> -- _obj + Word64 -> -- state + Bool -> -- value + m () +objectNotifyStateChange _obj state value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + atk_object_notify_state_change _obj' state value' + touchManagedPtr _obj + return () + +-- method Object::peek_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_peek_parent" atk_object_peek_parent :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO (Ptr Object) + + +objectPeekParent :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Object +objectPeekParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_peek_parent _obj' + checkUnexpectedReturnNULL "atk_object_peek_parent" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Object::ref_accessible_child +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_ref_accessible_child" atk_object_ref_accessible_child :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + Int32 -> -- i : TBasicType TInt32 + IO (Ptr Object) + + +objectRefAccessibleChild :: + (MonadIO m, ObjectK a) => + a -> -- _obj + Int32 -> -- i + m Object +objectRefAccessibleChild _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_ref_accessible_child _obj' i + checkUnexpectedReturnNULL "atk_object_ref_accessible_child" result + result' <- (wrapObject Object) result + touchManagedPtr _obj + return result' + +-- method Object::ref_relation_set +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "RelationSet" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_ref_relation_set" atk_object_ref_relation_set :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO (Ptr RelationSet) + + +objectRefRelationSet :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m RelationSet +objectRefRelationSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_ref_relation_set _obj' + checkUnexpectedReturnNULL "atk_object_ref_relation_set" result + result' <- (wrapObject RelationSet) result + touchManagedPtr _obj + return result' + +-- method Object::ref_state_set +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "StateSet" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_ref_state_set" atk_object_ref_state_set :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + IO (Ptr StateSet) + + +objectRefStateSet :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m StateSet +objectRefStateSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_ref_state_set _obj' + checkUnexpectedReturnNULL "atk_object_ref_state_set" result + result' <- (wrapObject StateSet) result + touchManagedPtr _obj + return result' + +-- method Object::remove_property_change_handler +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_remove_property_change_handler" atk_object_remove_property_change_handler :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + Word32 -> -- handler_id : TBasicType TUInt32 + IO () + +{-# DEPRECATED objectRemovePropertyChangeHandler ["Since 2.12.","","Removes a property change handler."]#-} +objectRemovePropertyChangeHandler :: + (MonadIO m, ObjectK a) => + a -> -- _obj + Word32 -> -- handler_id + m () +objectRemovePropertyChangeHandler _obj handler_id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_object_remove_property_change_handler _obj' handler_id + touchManagedPtr _obj + return () + +-- method Object::remove_relationship +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_remove_relationship" atk_object_remove_relationship :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + CUInt -> -- relationship : TInterface "Atk" "RelationType" + Ptr Object -> -- target : TInterface "Atk" "Object" + IO CInt + + +objectRemoveRelationship :: + (MonadIO m, ObjectK a, ObjectK b) => + a -> -- _obj + RelationType -> -- relationship + b -> -- target + m Bool +objectRemoveRelationship _obj relationship target = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let relationship' = (fromIntegral . fromEnum) relationship + let target' = unsafeManagedPtrCastPtr target + result <- atk_object_remove_relationship _obj' relationship' target' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr target + return result' + +-- method Object::set_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_set_description" atk_object_set_description :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + CString -> -- description : TBasicType TUTF8 + IO () + + +objectSetDescription :: + (MonadIO m, ObjectK a) => + a -> -- _obj + T.Text -> -- description + m () +objectSetDescription _obj description = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + description' <- textToCString description + atk_object_set_description _obj' description' + touchManagedPtr _obj + freeMem description' + return () + +-- method Object::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_set_name" atk_object_set_name :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + CString -> -- name : TBasicType TUTF8 + IO () + + +objectSetName :: + (MonadIO m, ObjectK a) => + a -> -- _obj + T.Text -> -- name + m () +objectSetName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + atk_object_set_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +-- method Object::set_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_set_parent" atk_object_set_parent :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + Ptr Object -> -- parent : TInterface "Atk" "Object" + IO () + + +objectSetParent :: + (MonadIO m, ObjectK a, ObjectK b) => + a -> -- _obj + b -> -- parent + m () +objectSetParent _obj parent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let parent' = unsafeManagedPtrCastPtr parent + atk_object_set_parent _obj' parent' + touchManagedPtr _obj + touchManagedPtr parent + return () + +-- method Object::set_role +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_set_role" atk_object_set_role :: + Ptr Object -> -- _obj : TInterface "Atk" "Object" + CUInt -> -- role : TInterface "Atk" "Role" + IO () + + +objectSetRole :: + (MonadIO m, ObjectK a) => + a -> -- _obj + Role -> -- role + m () +objectSetRole _obj role = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let role' = (fromIntegral . fromEnum) role + atk_object_set_role _obj' role' + touchManagedPtr _obj + return () + + diff --git a/GI/Atk/Objects/Object.hs-boot b/GI/Atk/Objects/Object.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Object.hs-boot @@ -0,0 +1,34 @@ +module GI.Atk.Objects.Object where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Object = Object (ForeignPtr Object) +instance GObject Object where +class GObject o => ObjectK o +instance (GObject o, IsDescendantOf Object o) => ObjectK o +data ObjectAccessibleComponentLayerPropertyInfo +data ObjectAccessibleComponentMdiZorderPropertyInfo +data ObjectAccessibleDescriptionPropertyInfo +data ObjectAccessibleHypertextNlinksPropertyInfo +data ObjectAccessibleNamePropertyInfo +data ObjectAccessibleParentPropertyInfo +data ObjectAccessibleRolePropertyInfo +data ObjectAccessibleTableCaptionPropertyInfo +data ObjectAccessibleTableCaptionObjectPropertyInfo +data ObjectAccessibleTableColumnDescriptionPropertyInfo +data ObjectAccessibleTableColumnHeaderPropertyInfo +data ObjectAccessibleTableRowDescriptionPropertyInfo +data ObjectAccessibleTableRowHeaderPropertyInfo +data ObjectAccessibleTableSummaryPropertyInfo +data ObjectAccessibleValuePropertyInfo +data ObjectActiveDescendantChangedSignalInfo +data ObjectChildrenChangedSignalInfo +data ObjectFocusEventSignalInfo +data ObjectPropertyChangeSignalInfo +data ObjectStateChangeSignalInfo +data ObjectVisibleDataChangedSignalInfo diff --git a/GI/Atk/Objects/ObjectFactory.hs b/GI/Atk/Objects/ObjectFactory.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/ObjectFactory.hs @@ -0,0 +1,152 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.ObjectFactory + ( + +-- * Exported types + ObjectFactory(..) , + ObjectFactoryK , + toObjectFactory , + noObjectFactory , + + + -- * Methods +-- ** objectFactoryCreateAccessible + objectFactoryCreateAccessible , + + +-- ** objectFactoryGetAccessibleType + objectFactoryGetAccessibleType , + + +-- ** objectFactoryInvalidate + objectFactoryInvalidate , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype ObjectFactory = ObjectFactory (ForeignPtr ObjectFactory) +foreign import ccall "atk_object_factory_get_type" + c_atk_object_factory_get_type :: IO GType + +type instance ParentTypes ObjectFactory = ObjectFactoryParentTypes +type ObjectFactoryParentTypes = '[GObject.Object] + +instance GObject ObjectFactory where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_object_factory_get_type + + +class GObject o => ObjectFactoryK o +instance (GObject o, IsDescendantOf ObjectFactory o) => ObjectFactoryK o + +toObjectFactory :: ObjectFactoryK o => o -> IO ObjectFactory +toObjectFactory = unsafeCastTo ObjectFactory + +noObjectFactory :: Maybe ObjectFactory +noObjectFactory = Nothing + +type instance AttributeList ObjectFactory = ObjectFactoryAttributeList +type ObjectFactoryAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList ObjectFactory = ObjectFactorySignalList +type ObjectFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method ObjectFactory::create_accessible +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_factory_create_accessible" atk_object_factory_create_accessible :: + Ptr ObjectFactory -> -- _obj : TInterface "Atk" "ObjectFactory" + Ptr GObject.Object -> -- obj : TInterface "GObject" "Object" + IO (Ptr Object) + + +objectFactoryCreateAccessible :: + (MonadIO m, ObjectFactoryK a, GObject.ObjectK b) => + a -> -- _obj + b -> -- obj + m Object +objectFactoryCreateAccessible _obj obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let obj' = unsafeManagedPtrCastPtr obj + result <- atk_object_factory_create_accessible _obj' obj' + checkUnexpectedReturnNULL "atk_object_factory_create_accessible" result + result' <- (wrapObject Object) result + touchManagedPtr _obj + touchManagedPtr obj + return result' + +-- method ObjectFactory::get_accessible_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TGType +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_factory_get_accessible_type" atk_object_factory_get_accessible_type :: + Ptr ObjectFactory -> -- _obj : TInterface "Atk" "ObjectFactory" + IO CGType + + +objectFactoryGetAccessibleType :: + (MonadIO m, ObjectFactoryK a) => + a -> -- _obj + m GType +objectFactoryGetAccessibleType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_object_factory_get_accessible_type _obj' + let result' = GType result + touchManagedPtr _obj + return result' + +-- method ObjectFactory::invalidate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_object_factory_invalidate" atk_object_factory_invalidate :: + Ptr ObjectFactory -> -- _obj : TInterface "Atk" "ObjectFactory" + IO () + + +objectFactoryInvalidate :: + (MonadIO m, ObjectFactoryK a) => + a -> -- _obj + m () +objectFactoryInvalidate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_object_factory_invalidate _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/Atk/Objects/ObjectFactory.hs-boot b/GI/Atk/Objects/ObjectFactory.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/ObjectFactory.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.ObjectFactory where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype ObjectFactory = ObjectFactory (ForeignPtr ObjectFactory) +instance GObject ObjectFactory where +class GObject o => ObjectFactoryK o +instance (GObject o, IsDescendantOf ObjectFactory o) => ObjectFactoryK o diff --git a/GI/Atk/Objects/Plug.hs b/GI/Atk/Objects/Plug.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Plug.hs @@ -0,0 +1,118 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.Plug + ( + +-- * Exported types + Plug(..) , + PlugK , + toPlug , + noPlug , + + + -- * Methods +-- ** plugGetId + plugGetId , + + +-- ** plugNew + plugNew , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype Plug = Plug (ForeignPtr Plug) +foreign import ccall "atk_plug_get_type" + c_atk_plug_get_type :: IO GType + +type instance ParentTypes Plug = PlugParentTypes +type PlugParentTypes = '[Object, GObject.Object, Component] + +instance GObject Plug where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_plug_get_type + + +class GObject o => PlugK o +instance (GObject o, IsDescendantOf Plug o) => PlugK o + +toPlug :: PlugK o => o -> IO Plug +toPlug = unsafeCastTo Plug + +noPlug :: Maybe Plug +noPlug = Nothing + +type instance AttributeList Plug = PlugAttributeList +type PlugAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList Plug = PlugSignalList +type PlugSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Plug::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Atk" "Plug" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_plug_new" atk_plug_new :: + IO (Ptr Plug) + + +plugNew :: + (MonadIO m) => + m Plug +plugNew = liftIO $ do + result <- atk_plug_new + checkUnexpectedReturnNULL "atk_plug_new" result + result' <- (wrapObject Plug) result + return result' + +-- method Plug::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_plug_get_id" atk_plug_get_id :: + Ptr Plug -> -- _obj : TInterface "Atk" "Plug" + IO CString + + +plugGetId :: + (MonadIO m, PlugK a) => + a -> -- _obj + m T.Text +plugGetId _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_plug_get_id _obj' + checkUnexpectedReturnNULL "atk_plug_get_id" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Objects/Plug.hs-boot b/GI/Atk/Objects/Plug.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Plug.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.Plug where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Plug = Plug (ForeignPtr Plug) +instance GObject Plug where +class GObject o => PlugK o +instance (GObject o, IsDescendantOf Plug o) => PlugK o diff --git a/GI/Atk/Objects/Registry.hs b/GI/Atk/Objects/Registry.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Registry.hs @@ -0,0 +1,160 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.Registry + ( + +-- * Exported types + Registry(..) , + RegistryK , + toRegistry , + noRegistry , + + + -- * Methods +-- ** registryGetFactory + registryGetFactory , + + +-- ** registryGetFactoryType + registryGetFactoryType , + + +-- ** registrySetFactoryType + registrySetFactoryType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype Registry = Registry (ForeignPtr Registry) +foreign import ccall "atk_registry_get_type" + c_atk_registry_get_type :: IO GType + +type instance ParentTypes Registry = RegistryParentTypes +type RegistryParentTypes = '[GObject.Object] + +instance GObject Registry where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_registry_get_type + + +class GObject o => RegistryK o +instance (GObject o, IsDescendantOf Registry o) => RegistryK o + +toRegistry :: RegistryK o => o -> IO Registry +toRegistry = unsafeCastTo Registry + +noRegistry :: Maybe Registry +noRegistry = Nothing + +type instance AttributeList Registry = RegistryAttributeList +type RegistryAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList Registry = RegistrySignalList +type RegistrySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Registry::get_factory +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "ObjectFactory" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_registry_get_factory" atk_registry_get_factory :: + Ptr Registry -> -- _obj : TInterface "Atk" "Registry" + CGType -> -- type : TBasicType TGType + IO (Ptr ObjectFactory) + + +registryGetFactory :: + (MonadIO m, RegistryK a) => + a -> -- _obj + GType -> -- type + m ObjectFactory +registryGetFactory _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = gtypeToCGType type_ + result <- atk_registry_get_factory _obj' type_' + checkUnexpectedReturnNULL "atk_registry_get_factory" result + result' <- (newObject ObjectFactory) result + touchManagedPtr _obj + return result' + +-- method Registry::get_factory_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TGType +-- throws : False +-- Skip return : False + +foreign import ccall "atk_registry_get_factory_type" atk_registry_get_factory_type :: + Ptr Registry -> -- _obj : TInterface "Atk" "Registry" + CGType -> -- type : TBasicType TGType + IO CGType + + +registryGetFactoryType :: + (MonadIO m, RegistryK a) => + a -> -- _obj + GType -> -- type + m GType +registryGetFactoryType _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = gtypeToCGType type_ + result <- atk_registry_get_factory_type _obj' type_' + let result' = GType result + touchManagedPtr _obj + return result' + +-- method Registry::set_factory_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factory_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factory_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_registry_set_factory_type" atk_registry_set_factory_type :: + Ptr Registry -> -- _obj : TInterface "Atk" "Registry" + CGType -> -- type : TBasicType TGType + CGType -> -- factory_type : TBasicType TGType + IO () + + +registrySetFactoryType :: + (MonadIO m, RegistryK a) => + a -> -- _obj + GType -> -- type + GType -> -- factory_type + m () +registrySetFactoryType _obj type_ factory_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = gtypeToCGType type_ + let factory_type' = gtypeToCGType factory_type + atk_registry_set_factory_type _obj' type_' factory_type' + touchManagedPtr _obj + return () + + diff --git a/GI/Atk/Objects/Registry.hs-boot b/GI/Atk/Objects/Registry.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Registry.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.Registry where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Registry = Registry (ForeignPtr Registry) +instance GObject Registry where +class GObject o => RegistryK o +instance (GObject o, IsDescendantOf Registry o) => RegistryK o diff --git a/GI/Atk/Objects/Relation.hs b/GI/Atk/Objects/Relation.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Relation.hs @@ -0,0 +1,288 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.Relation + ( + +-- * Exported types + Relation(..) , + RelationK , + toRelation , + noRelation , + + + -- * Methods +-- ** relationAddTarget + relationAddTarget , + + +-- ** relationGetRelationType + relationGetRelationType , + + +-- ** relationGetTarget + relationGetTarget , + + +-- ** relationNew + relationNew , + + +-- ** relationRemoveTarget + relationRemoveTarget , + + + + + -- * Properties +-- ** RelationType + RelationRelationTypePropertyInfo , + constructRelationRelationType , + getRelationRelationType , + setRelationRelationType , + + +-- ** Target + RelationTargetPropertyInfo , + constructRelationTarget , + getRelationTarget , + setRelationTarget , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype Relation = Relation (ForeignPtr Relation) +foreign import ccall "atk_relation_get_type" + c_atk_relation_get_type :: IO GType + +type instance ParentTypes Relation = RelationParentTypes +type RelationParentTypes = '[GObject.Object] + +instance GObject Relation where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_relation_get_type + + +class GObject o => RelationK o +instance (GObject o, IsDescendantOf Relation o) => RelationK o + +toRelation :: RelationK o => o -> IO Relation +toRelation = unsafeCastTo Relation + +noRelation :: Maybe Relation +noRelation = Nothing + +-- VVV Prop "relation-type" + -- Type: TInterface "Atk" "RelationType" + -- Flags: [PropertyReadable,PropertyWritable] + +getRelationRelationType :: (MonadIO m, RelationK o) => o -> m RelationType +getRelationRelationType obj = liftIO $ getObjectPropertyEnum obj "relation-type" + +setRelationRelationType :: (MonadIO m, RelationK o) => o -> RelationType -> m () +setRelationRelationType obj val = liftIO $ setObjectPropertyEnum obj "relation-type" val + +constructRelationRelationType :: RelationType -> IO ([Char], GValue) +constructRelationRelationType val = constructObjectPropertyEnum "relation-type" val + +data RelationRelationTypePropertyInfo +instance AttrInfo RelationRelationTypePropertyInfo where + type AttrAllowedOps RelationRelationTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RelationRelationTypePropertyInfo = (~) RelationType + type AttrBaseTypeConstraint RelationRelationTypePropertyInfo = RelationK + type AttrGetType RelationRelationTypePropertyInfo = RelationType + type AttrLabel RelationRelationTypePropertyInfo = "Relation::relation-type" + attrGet _ = getRelationRelationType + attrSet _ = setRelationRelationType + attrConstruct _ = constructRelationRelationType + +-- VVV Prop "target" + -- Type: TInterface "GObject" "ValueArray" + -- Flags: [PropertyReadable,PropertyWritable] + +getRelationTarget :: (MonadIO m, RelationK o) => o -> m GObject.ValueArray +getRelationTarget obj = liftIO $ getObjectPropertyBoxed obj "target" GObject.ValueArray + +setRelationTarget :: (MonadIO m, RelationK o) => o -> GObject.ValueArray -> m () +setRelationTarget obj val = liftIO $ setObjectPropertyBoxed obj "target" val + +constructRelationTarget :: GObject.ValueArray -> IO ([Char], GValue) +constructRelationTarget val = constructObjectPropertyBoxed "target" val + +data RelationTargetPropertyInfo +instance AttrInfo RelationTargetPropertyInfo where + type AttrAllowedOps RelationTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RelationTargetPropertyInfo = (~) GObject.ValueArray + type AttrBaseTypeConstraint RelationTargetPropertyInfo = RelationK + type AttrGetType RelationTargetPropertyInfo = GObject.ValueArray + type AttrLabel RelationTargetPropertyInfo = "Relation::target" + attrGet _ = getRelationTarget + attrSet _ = setRelationTarget + attrConstruct _ = constructRelationTarget + +type instance AttributeList Relation = RelationAttributeList +type RelationAttributeList = ('[ '("relation-type", RelationRelationTypePropertyInfo), '("target", RelationTargetPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList Relation = RelationSignalList +type RelationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Relation::new +-- method type : Constructor +-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Atk" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Atk" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Relation" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_new" atk_relation_new :: + Ptr (Ptr Object) -> -- targets : TCArray False (-1) 1 (TInterface "Atk" "Object") + Int32 -> -- n_targets : TBasicType TInt32 + CUInt -> -- relationship : TInterface "Atk" "RelationType" + IO (Ptr Relation) + + +relationNew :: + (MonadIO m) => + [Object] -> -- targets + RelationType -> -- relationship + m Relation +relationNew targets relationship = liftIO $ do + let n_targets = fromIntegral $ length targets + let targets' = map unsafeManagedPtrCastPtr targets + targets'' <- packPtrArray targets' + let relationship' = (fromIntegral . fromEnum) relationship + result <- atk_relation_new targets'' n_targets relationship' + checkUnexpectedReturnNULL "atk_relation_new" result + result' <- (wrapObject Relation) result + mapM_ touchManagedPtr targets + freeMem targets'' + return result' + +-- method Relation::add_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_add_target" atk_relation_add_target :: + Ptr Relation -> -- _obj : TInterface "Atk" "Relation" + Ptr Object -> -- target : TInterface "Atk" "Object" + IO () + + +relationAddTarget :: + (MonadIO m, RelationK a, ObjectK b) => + a -> -- _obj + b -> -- target + m () +relationAddTarget _obj target = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let target' = unsafeManagedPtrCastPtr target + atk_relation_add_target _obj' target' + touchManagedPtr _obj + touchManagedPtr target + return () + +-- method Relation::get_relation_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "RelationType" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_get_relation_type" atk_relation_get_relation_type :: + Ptr Relation -> -- _obj : TInterface "Atk" "Relation" + IO CUInt + + +relationGetRelationType :: + (MonadIO m, RelationK a) => + a -> -- _obj + m RelationType +relationGetRelationType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_relation_get_relation_type _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Relation::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TPtrArray (TInterface "Atk" "Object") +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_get_target" atk_relation_get_target :: + Ptr Relation -> -- _obj : TInterface "Atk" "Relation" + IO (Ptr (GPtrArray (Ptr Object))) + + +relationGetTarget :: + (MonadIO m, RelationK a) => + a -> -- _obj + m [Object] +relationGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_relation_get_target _obj' + checkUnexpectedReturnNULL "atk_relation_get_target" result + result' <- unpackGPtrArray result + result'' <- mapM (newObject Object) result' + touchManagedPtr _obj + return result'' + +-- method Relation::remove_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_remove_target" atk_relation_remove_target :: + Ptr Relation -> -- _obj : TInterface "Atk" "Relation" + Ptr Object -> -- target : TInterface "Atk" "Object" + IO CInt + + +relationRemoveTarget :: + (MonadIO m, RelationK a, ObjectK b) => + a -> -- _obj + b -> -- target + m Bool +relationRemoveTarget _obj target = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let target' = unsafeManagedPtrCastPtr target + result <- atk_relation_remove_target _obj' target' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr target + return result' + + diff --git a/GI/Atk/Objects/Relation.hs-boot b/GI/Atk/Objects/Relation.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Relation.hs-boot @@ -0,0 +1,15 @@ +module GI.Atk.Objects.Relation where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Relation = Relation (ForeignPtr Relation) +instance GObject Relation where +class GObject o => RelationK o +instance (GObject o, IsDescendantOf Relation o) => RelationK o +data RelationRelationTypePropertyInfo +data RelationTargetPropertyInfo diff --git a/GI/Atk/Objects/RelationSet.hs b/GI/Atk/Objects/RelationSet.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/RelationSet.hs @@ -0,0 +1,347 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.RelationSet + ( + +-- * Exported types + RelationSet(..) , + RelationSetK , + toRelationSet , + noRelationSet , + + + -- * Methods +-- ** relationSetAdd + relationSetAdd , + + +-- ** relationSetAddRelationByType + relationSetAddRelationByType , + + +-- ** relationSetContains + relationSetContains , + + +-- ** relationSetContainsTarget + relationSetContainsTarget , + + +-- ** relationSetGetNRelations + relationSetGetNRelations , + + +-- ** relationSetGetRelation + relationSetGetRelation , + + +-- ** relationSetGetRelationByType + relationSetGetRelationByType , + + +-- ** relationSetNew + relationSetNew , + + +-- ** relationSetRemove + relationSetRemove , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype RelationSet = RelationSet (ForeignPtr RelationSet) +foreign import ccall "atk_relation_set_get_type" + c_atk_relation_set_get_type :: IO GType + +type instance ParentTypes RelationSet = RelationSetParentTypes +type RelationSetParentTypes = '[GObject.Object] + +instance GObject RelationSet where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_relation_set_get_type + + +class GObject o => RelationSetK o +instance (GObject o, IsDescendantOf RelationSet o) => RelationSetK o + +toRelationSet :: RelationSetK o => o -> IO RelationSet +toRelationSet = unsafeCastTo RelationSet + +noRelationSet :: Maybe RelationSet +noRelationSet = Nothing + +type instance AttributeList RelationSet = RelationSetAttributeList +type RelationSetAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList RelationSet = RelationSetSignalList +type RelationSetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method RelationSet::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Atk" "RelationSet" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_set_new" atk_relation_set_new :: + IO (Ptr RelationSet) + + +relationSetNew :: + (MonadIO m) => + m RelationSet +relationSetNew = liftIO $ do + result <- atk_relation_set_new + checkUnexpectedReturnNULL "atk_relation_set_new" result + result' <- (wrapObject RelationSet) result + return result' + +-- method RelationSet::add +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_set_add" atk_relation_set_add :: + Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" + Ptr Relation -> -- relation : TInterface "Atk" "Relation" + IO () + + +relationSetAdd :: + (MonadIO m, RelationSetK a, RelationK b) => + a -> -- _obj + b -> -- relation + m () +relationSetAdd _obj relation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let relation' = unsafeManagedPtrCastPtr relation + atk_relation_set_add _obj' relation' + touchManagedPtr _obj + touchManagedPtr relation + return () + +-- method RelationSet::add_relation_by_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_set_add_relation_by_type" atk_relation_set_add_relation_by_type :: + Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" + CUInt -> -- relationship : TInterface "Atk" "RelationType" + Ptr Object -> -- target : TInterface "Atk" "Object" + IO () + + +relationSetAddRelationByType :: + (MonadIO m, RelationSetK a, ObjectK b) => + a -> -- _obj + RelationType -> -- relationship + b -> -- target + m () +relationSetAddRelationByType _obj relationship target = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let relationship' = (fromIntegral . fromEnum) relationship + let target' = unsafeManagedPtrCastPtr target + atk_relation_set_add_relation_by_type _obj' relationship' target' + touchManagedPtr _obj + touchManagedPtr target + return () + +-- method RelationSet::contains +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_set_contains" atk_relation_set_contains :: + Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" + CUInt -> -- relationship : TInterface "Atk" "RelationType" + IO CInt + + +relationSetContains :: + (MonadIO m, RelationSetK a) => + a -> -- _obj + RelationType -> -- relationship + m Bool +relationSetContains _obj relationship = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let relationship' = (fromIntegral . fromEnum) relationship + result <- atk_relation_set_contains _obj' relationship' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method RelationSet::contains_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_set_contains_target" atk_relation_set_contains_target :: + Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" + CUInt -> -- relationship : TInterface "Atk" "RelationType" + Ptr Object -> -- target : TInterface "Atk" "Object" + IO CInt + + +relationSetContainsTarget :: + (MonadIO m, RelationSetK a, ObjectK b) => + a -> -- _obj + RelationType -> -- relationship + b -> -- target + m Bool +relationSetContainsTarget _obj relationship target = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let relationship' = (fromIntegral . fromEnum) relationship + let target' = unsafeManagedPtrCastPtr target + result <- atk_relation_set_contains_target _obj' relationship' target' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr target + return result' + +-- method RelationSet::get_n_relations +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_set_get_n_relations" atk_relation_set_get_n_relations :: + Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" + IO Int32 + + +relationSetGetNRelations :: + (MonadIO m, RelationSetK a) => + a -> -- _obj + m Int32 +relationSetGetNRelations _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_relation_set_get_n_relations _obj' + touchManagedPtr _obj + return result + +-- method RelationSet::get_relation +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Relation" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_set_get_relation" atk_relation_set_get_relation :: + Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" + Int32 -> -- i : TBasicType TInt32 + IO (Ptr Relation) + + +relationSetGetRelation :: + (MonadIO m, RelationSetK a) => + a -> -- _obj + Int32 -> -- i + m Relation +relationSetGetRelation _obj i = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_relation_set_get_relation _obj' i + checkUnexpectedReturnNULL "atk_relation_set_get_relation" result + result' <- (newObject Relation) result + touchManagedPtr _obj + return result' + +-- method RelationSet::get_relation_by_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Relation" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_set_get_relation_by_type" atk_relation_set_get_relation_by_type :: + Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" + CUInt -> -- relationship : TInterface "Atk" "RelationType" + IO (Ptr Relation) + + +relationSetGetRelationByType :: + (MonadIO m, RelationSetK a) => + a -> -- _obj + RelationType -> -- relationship + m Relation +relationSetGetRelationByType _obj relationship = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let relationship' = (fromIntegral . fromEnum) relationship + result <- atk_relation_set_get_relation_by_type _obj' relationship' + checkUnexpectedReturnNULL "atk_relation_set_get_relation_by_type" result + result' <- (newObject Relation) result + touchManagedPtr _obj + return result' + +-- method RelationSet::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_relation_set_remove" atk_relation_set_remove :: + Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet" + Ptr Relation -> -- relation : TInterface "Atk" "Relation" + IO () + + +relationSetRemove :: + (MonadIO m, RelationSetK a, RelationK b) => + a -> -- _obj + b -> -- relation + m () +relationSetRemove _obj relation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let relation' = unsafeManagedPtrCastPtr relation + atk_relation_set_remove _obj' relation' + touchManagedPtr _obj + touchManagedPtr relation + return () + + diff --git a/GI/Atk/Objects/RelationSet.hs-boot b/GI/Atk/Objects/RelationSet.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/RelationSet.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.RelationSet where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype RelationSet = RelationSet (ForeignPtr RelationSet) +instance GObject RelationSet where +class GObject o => RelationSetK o +instance (GObject o, IsDescendantOf RelationSet o) => RelationSetK o diff --git a/GI/Atk/Objects/Socket.hs b/GI/Atk/Objects/Socket.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Socket.hs @@ -0,0 +1,148 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.Socket + ( + +-- * Exported types + Socket(..) , + SocketK , + toSocket , + noSocket , + + + -- * Methods +-- ** socketEmbed + socketEmbed , + + +-- ** socketIsOccupied + socketIsOccupied , + + +-- ** socketNew + socketNew , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype Socket = Socket (ForeignPtr Socket) +foreign import ccall "atk_socket_get_type" + c_atk_socket_get_type :: IO GType + +type instance ParentTypes Socket = SocketParentTypes +type SocketParentTypes = '[Object, GObject.Object, Component] + +instance GObject Socket where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_socket_get_type + + +class GObject o => SocketK o +instance (GObject o, IsDescendantOf Socket o) => SocketK o + +toSocket :: SocketK o => o -> IO Socket +toSocket = unsafeCastTo Socket + +noSocket :: Maybe Socket +noSocket = Nothing + +type instance AttributeList Socket = SocketAttributeList +type SocketAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList Socket = SocketSignalList +type SocketSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Socket::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Atk" "Socket" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_socket_new" atk_socket_new :: + IO (Ptr Socket) + + +socketNew :: + (MonadIO m) => + m Socket +socketNew = liftIO $ do + result <- atk_socket_new + checkUnexpectedReturnNULL "atk_socket_new" result + result' <- (wrapObject Socket) result + return result' + +-- method Socket::embed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plug_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plug_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_socket_embed" atk_socket_embed :: + Ptr Socket -> -- _obj : TInterface "Atk" "Socket" + CString -> -- plug_id : TBasicType TUTF8 + IO () + + +socketEmbed :: + (MonadIO m, SocketK a) => + a -> -- _obj + T.Text -> -- plug_id + m () +socketEmbed _obj plug_id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + plug_id' <- textToCString plug_id + atk_socket_embed _obj' plug_id' + touchManagedPtr _obj + freeMem plug_id' + return () + +-- method Socket::is_occupied +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_socket_is_occupied" atk_socket_is_occupied :: + Ptr Socket -> -- _obj : TInterface "Atk" "Socket" + IO CInt + + +socketIsOccupied :: + (MonadIO m, SocketK a) => + a -> -- _obj + m Bool +socketIsOccupied _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_socket_is_occupied _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Objects/Socket.hs-boot b/GI/Atk/Objects/Socket.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Socket.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.Socket where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Socket = Socket (ForeignPtr Socket) +instance GObject Socket where +class GObject o => SocketK o +instance (GObject o, IsDescendantOf Socket o) => SocketK o diff --git a/GI/Atk/Objects/StateSet.hs b/GI/Atk/Objects/StateSet.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/StateSet.hs @@ -0,0 +1,413 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.StateSet + ( + +-- * Exported types + StateSet(..) , + StateSetK , + toStateSet , + noStateSet , + + + -- * Methods +-- ** stateSetAddState + stateSetAddState , + + +-- ** stateSetAddStates + stateSetAddStates , + + +-- ** stateSetAndSets + stateSetAndSets , + + +-- ** stateSetClearStates + stateSetClearStates , + + +-- ** stateSetContainsState + stateSetContainsState , + + +-- ** stateSetContainsStates + stateSetContainsStates , + + +-- ** stateSetIsEmpty + stateSetIsEmpty , + + +-- ** stateSetNew + stateSetNew , + + +-- ** stateSetOrSets + stateSetOrSets , + + +-- ** stateSetRemoveState + stateSetRemoveState , + + +-- ** stateSetXorSets + stateSetXorSets , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype StateSet = StateSet (ForeignPtr StateSet) +foreign import ccall "atk_state_set_get_type" + c_atk_state_set_get_type :: IO GType + +type instance ParentTypes StateSet = StateSetParentTypes +type StateSetParentTypes = '[GObject.Object] + +instance GObject StateSet where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_state_set_get_type + + +class GObject o => StateSetK o +instance (GObject o, IsDescendantOf StateSet o) => StateSetK o + +toStateSet :: StateSetK o => o -> IO StateSet +toStateSet = unsafeCastTo StateSet + +noStateSet :: Maybe StateSet +noStateSet = Nothing + +type instance AttributeList StateSet = StateSetAttributeList +type StateSetAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList StateSet = StateSetSignalList +type StateSetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method StateSet::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Atk" "StateSet" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_new" atk_state_set_new :: + IO (Ptr StateSet) + + +stateSetNew :: + (MonadIO m) => + m StateSet +stateSetNew = liftIO $ do + result <- atk_state_set_new + checkUnexpectedReturnNULL "atk_state_set_new" result + result' <- (wrapObject StateSet) result + return result' + +-- method StateSet::add_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_add_state" atk_state_set_add_state :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + CUInt -> -- type : TInterface "Atk" "StateType" + IO CInt + + +stateSetAddState :: + (MonadIO m, StateSetK a) => + a -> -- _obj + StateType -> -- type + m Bool +stateSetAddState _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = (fromIntegral . fromEnum) type_ + result <- atk_state_set_add_state _obj' type_' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method StateSet::add_states +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_add_states" atk_state_set_add_states :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + Ptr CUInt -> -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType") + Int32 -> -- n_types : TBasicType TInt32 + IO () + + +stateSetAddStates :: + (MonadIO m, StateSetK a) => + a -> -- _obj + [StateType] -> -- types + m () +stateSetAddStates _obj types = liftIO $ do + let n_types = fromIntegral $ length types + let _obj' = unsafeManagedPtrCastPtr _obj + let types' = map (fromIntegral . fromEnum) types + types'' <- packStorableArray types' + atk_state_set_add_states _obj' types'' n_types + touchManagedPtr _obj + freeMem types'' + return () + +-- method StateSet::and_sets +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "StateSet" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_and_sets" atk_state_set_and_sets :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + Ptr StateSet -> -- compare_set : TInterface "Atk" "StateSet" + IO (Ptr StateSet) + + +stateSetAndSets :: + (MonadIO m, StateSetK a, StateSetK b) => + a -> -- _obj + b -> -- compare_set + m StateSet +stateSetAndSets _obj compare_set = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let compare_set' = unsafeManagedPtrCastPtr compare_set + result <- atk_state_set_and_sets _obj' compare_set' + checkUnexpectedReturnNULL "atk_state_set_and_sets" result + result' <- (wrapObject StateSet) result + touchManagedPtr _obj + touchManagedPtr compare_set + return result' + +-- method StateSet::clear_states +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_clear_states" atk_state_set_clear_states :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + IO () + + +stateSetClearStates :: + (MonadIO m, StateSetK a) => + a -> -- _obj + m () +stateSetClearStates _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + atk_state_set_clear_states _obj' + touchManagedPtr _obj + return () + +-- method StateSet::contains_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_contains_state" atk_state_set_contains_state :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + CUInt -> -- type : TInterface "Atk" "StateType" + IO CInt + + +stateSetContainsState :: + (MonadIO m, StateSetK a) => + a -> -- _obj + StateType -> -- type + m Bool +stateSetContainsState _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = (fromIntegral . fromEnum) type_ + result <- atk_state_set_contains_state _obj' type_' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method StateSet::contains_states +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "n_types", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_contains_states" atk_state_set_contains_states :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + Ptr CUInt -> -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType") + Int32 -> -- n_types : TBasicType TInt32 + IO CInt + + +stateSetContainsStates :: + (MonadIO m, StateSetK a) => + a -> -- _obj + [StateType] -> -- types + m Bool +stateSetContainsStates _obj types = liftIO $ do + let n_types = fromIntegral $ length types + let _obj' = unsafeManagedPtrCastPtr _obj + let types' = map (fromIntegral . fromEnum) types + types'' <- packStorableArray types' + result <- atk_state_set_contains_states _obj' types'' n_types + let result' = (/= 0) result + touchManagedPtr _obj + freeMem types'' + return result' + +-- method StateSet::is_empty +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_is_empty" atk_state_set_is_empty :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + IO CInt + + +stateSetIsEmpty :: + (MonadIO m, StateSetK a) => + a -> -- _obj + m Bool +stateSetIsEmpty _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- atk_state_set_is_empty _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method StateSet::or_sets +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "StateSet" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_or_sets" atk_state_set_or_sets :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + Ptr StateSet -> -- compare_set : TInterface "Atk" "StateSet" + IO (Ptr StateSet) + + +stateSetOrSets :: + (MonadIO m, StateSetK a, StateSetK b) => + a -> -- _obj + b -> -- compare_set + m StateSet +stateSetOrSets _obj compare_set = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let compare_set' = unsafeManagedPtrCastPtr compare_set + result <- atk_state_set_or_sets _obj' compare_set' + checkUnexpectedReturnNULL "atk_state_set_or_sets" result + result' <- (wrapObject StateSet) result + touchManagedPtr _obj + touchManagedPtr compare_set + return result' + +-- method StateSet::remove_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_remove_state" atk_state_set_remove_state :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + CUInt -> -- type : TInterface "Atk" "StateType" + IO CInt + + +stateSetRemoveState :: + (MonadIO m, StateSetK a) => + a -> -- _obj + StateType -> -- type + m Bool +stateSetRemoveState _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = (fromIntegral . fromEnum) type_ + result <- atk_state_set_remove_state _obj' type_' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method StateSet::xor_sets +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "StateSet" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_state_set_xor_sets" atk_state_set_xor_sets :: + Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet" + Ptr StateSet -> -- compare_set : TInterface "Atk" "StateSet" + IO (Ptr StateSet) + + +stateSetXorSets :: + (MonadIO m, StateSetK a, StateSetK b) => + a -> -- _obj + b -> -- compare_set + m StateSet +stateSetXorSets _obj compare_set = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let compare_set' = unsafeManagedPtrCastPtr compare_set + result <- atk_state_set_xor_sets _obj' compare_set' + checkUnexpectedReturnNULL "atk_state_set_xor_sets" result + result' <- (wrapObject StateSet) result + touchManagedPtr _obj + touchManagedPtr compare_set + return result' + + diff --git a/GI/Atk/Objects/StateSet.hs-boot b/GI/Atk/Objects/StateSet.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/StateSet.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.StateSet where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype StateSet = StateSet (ForeignPtr StateSet) +instance GObject StateSet where +class GObject o => StateSetK o +instance (GObject o, IsDescendantOf StateSet o) => StateSetK o diff --git a/GI/Atk/Objects/Util.hs b/GI/Atk/Objects/Util.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Util.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Objects.Util + ( + +-- * Exported types + Util(..) , + UtilK , + toUtil , + noUtil , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks +import qualified GI.GObject as GObject + +newtype Util = Util (ForeignPtr Util) +foreign import ccall "atk_util_get_type" + c_atk_util_get_type :: IO GType + +type instance ParentTypes Util = UtilParentTypes +type UtilParentTypes = '[GObject.Object] + +instance GObject Util where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_atk_util_get_type + + +class GObject o => UtilK o +instance (GObject o, IsDescendantOf Util o) => UtilK o + +toUtil :: UtilK o => o -> IO Util +toUtil = unsafeCastTo Util + +noUtil :: Maybe Util +noUtil = Nothing + +type instance AttributeList Util = UtilAttributeList +type UtilAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList Util = UtilSignalList +type UtilSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/Atk/Objects/Util.hs-boot b/GI/Atk/Objects/Util.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Objects/Util.hs-boot @@ -0,0 +1,13 @@ +module GI.Atk.Objects.Util where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Util = Util (ForeignPtr Util) +instance GObject Util where +class GObject o => UtilK o +instance (GObject o, IsDescendantOf Util o) => UtilK o diff --git a/GI/Atk/Structs.hs b/GI/Atk/Structs.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs.hs @@ -0,0 +1,40 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Structs + ( module GI.Atk.Structs.Attribute , + module GI.Atk.Structs.Implementor , + module GI.Atk.Structs.KeyEventStruct , + module GI.Atk.Structs.PropertyValues , + module GI.Atk.Structs.Range , + module GI.Atk.Structs.Rectangle , + module GI.Atk.Structs.TextRange , + module GI.Atk.Structs.TextRectangle , + + + ) where + +import GI.Atk.Structs.Attribute +import GI.Atk.Structs.Implementor +import GI.Atk.Structs.KeyEventStruct +import GI.Atk.Structs.PropertyValues +import GI.Atk.Structs.Range +import GI.Atk.Structs.Rectangle +import GI.Atk.Structs.TextRange +import GI.Atk.Structs.TextRectangle + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + + diff --git a/GI/Atk/Structs/Attribute.hs b/GI/Atk/Structs/Attribute.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/Attribute.hs @@ -0,0 +1,67 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +AtkAttribute is a string name/value pair representing a generic +attribute. This can be used to expose additional information from +an accessible object as a whole (see atk_object_get_attributes()) +or an document (see atk_document_get_attributes()). In the case of +text attributes (see atk_text_get_default_attributes()), +#AtkTextAttribute enum defines all the possible text attribute +names. You can use atk_text_attribute_get_name() to get the string +name from the enum value. See also atk_text_attribute_for_name() +and atk_text_attribute_get_value() for more information. + +A string name/value pair representing a generic attribute. +-} + +module GI.Atk.Structs.Attribute + ( + +-- * Exported types + Attribute(..) , + noAttribute , + + + -- * Properties +-- ** Name + attributeReadName , + + +-- ** Value + attributeReadValue , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +newtype Attribute = Attribute (ForeignPtr Attribute) +noAttribute :: Maybe Attribute +noAttribute = Nothing + +attributeReadName :: Attribute -> IO T.Text +attributeReadName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +attributeReadValue :: Attribute -> IO T.Text +attributeReadValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + + diff --git a/GI/Atk/Structs/Attribute.hs-boot b/GI/Atk/Structs/Attribute.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/Attribute.hs-boot @@ -0,0 +1,10 @@ +module GI.Atk.Structs.Attribute where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Attribute = Attribute (ForeignPtr Attribute) diff --git a/GI/Atk/Structs/Implementor.hs b/GI/Atk/Structs/Implementor.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/Implementor.hs @@ -0,0 +1,65 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Atk.Structs.Implementor + ( + +-- * Exported types + Implementor(..) , + noImplementor , + + + -- * Methods +-- ** implementorRefAccessible + implementorRefAccessible , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +newtype Implementor = Implementor (ForeignPtr Implementor) +noImplementor :: Maybe Implementor +noImplementor = Nothing + +-- method Implementor::ref_accessible +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Implementor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Implementor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_implementor_ref_accessible" atk_implementor_ref_accessible :: + Ptr Implementor -> -- _obj : TInterface "Atk" "Implementor" + IO (Ptr Object) + + +implementorRefAccessible :: + (MonadIO m) => + Implementor -> -- _obj + m Object +implementorRefAccessible _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- atk_implementor_ref_accessible _obj' + checkUnexpectedReturnNULL "atk_implementor_ref_accessible" result + result' <- (wrapObject Object) result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Structs/Implementor.hs-boot b/GI/Atk/Structs/Implementor.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/Implementor.hs-boot @@ -0,0 +1,10 @@ +module GI.Atk.Structs.Implementor where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Implementor = Implementor (ForeignPtr Implementor) diff --git a/GI/Atk/Structs/KeyEventStruct.hs b/GI/Atk/Structs/KeyEventStruct.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/KeyEventStruct.hs @@ -0,0 +1,101 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Encapsulates information about a key event. +-} + +module GI.Atk.Structs.KeyEventStruct + ( + +-- * Exported types + KeyEventStruct(..) , + noKeyEventStruct , + + + -- * Properties +-- ** Keycode + keyEventStructReadKeycode , + + +-- ** Keyval + keyEventStructReadKeyval , + + +-- ** Length + keyEventStructReadLength , + + +-- ** State + keyEventStructReadState , + + +-- ** String + keyEventStructReadString , + + +-- ** Timestamp + keyEventStructReadTimestamp , + + +-- ** Type + keyEventStructReadType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct) +noKeyEventStruct :: Maybe KeyEventStruct +noKeyEventStruct = Nothing + +keyEventStructReadType :: KeyEventStruct -> IO Int32 +keyEventStructReadType s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int32 + return val + +keyEventStructReadState :: KeyEventStruct -> IO Word32 +keyEventStructReadState s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO Word32 + return val + +keyEventStructReadKeyval :: KeyEventStruct -> IO Word32 +keyEventStructReadKeyval s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word32 + return val + +keyEventStructReadLength :: KeyEventStruct -> IO Int32 +keyEventStructReadLength s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Int32 + return val + +keyEventStructReadString :: KeyEventStruct -> IO T.Text +keyEventStructReadString s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CString + val' <- cstringToText val + return val' + +keyEventStructReadKeycode :: KeyEventStruct -> IO Word16 +keyEventStructReadKeycode s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO Word16 + return val + +keyEventStructReadTimestamp :: KeyEventStruct -> IO Word32 +keyEventStructReadTimestamp s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 28) :: IO Word32 + return val + + diff --git a/GI/Atk/Structs/KeyEventStruct.hs-boot b/GI/Atk/Structs/KeyEventStruct.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/KeyEventStruct.hs-boot @@ -0,0 +1,10 @@ +module GI.Atk.Structs.KeyEventStruct where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct) diff --git a/GI/Atk/Structs/PropertyValues.hs b/GI/Atk/Structs/PropertyValues.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/PropertyValues.hs @@ -0,0 +1,69 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Note: @old_value field of #AtkPropertyValues will not contain a +valid value. This is a field defined with the purpose of contain +the previous value of the property, but is not used anymore. +-} + +module GI.Atk.Structs.PropertyValues + ( + +-- * Exported types + PropertyValues(..) , + noPropertyValues , + + + -- * Properties +-- ** NewValue + propertyValuesReadNewValue , + + +-- ** OldValue + propertyValuesReadOldValue , + + +-- ** PropertyName + propertyValuesReadPropertyName , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues) +noPropertyValues :: Maybe PropertyValues +noPropertyValues = Nothing + +propertyValuesReadPropertyName :: PropertyValues -> IO T.Text +propertyValuesReadPropertyName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +propertyValuesReadOldValue :: PropertyValues -> IO GValue +propertyValuesReadOldValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) + val' <- (newBoxed GValue) val + return val' + +propertyValuesReadNewValue :: PropertyValues -> IO GValue +propertyValuesReadNewValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO (Ptr GValue) + val' <- (newBoxed GValue) val + return val' + + diff --git a/GI/Atk/Structs/PropertyValues.hs-boot b/GI/Atk/Structs/PropertyValues.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/PropertyValues.hs-boot @@ -0,0 +1,10 @@ +module GI.Atk.Structs.PropertyValues where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues) diff --git a/GI/Atk/Structs/Range.hs b/GI/Atk/Structs/Range.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/Range.hs @@ -0,0 +1,229 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +#AtkRange are used on #AtkValue, in order to represent the full +range of a given component (for example an slider or a range +control), or to define each individual subrange this full range is +splitted if available. See #AtkValue documentation for further +details. +-} + +module GI.Atk.Structs.Range + ( + +-- * Exported types + Range(..) , + noRange , + + + -- * Methods +-- ** rangeCopy + rangeCopy , + + +-- ** rangeFree + rangeFree , + + +-- ** rangeGetDescription + rangeGetDescription , + + +-- ** rangeGetLowerLimit + rangeGetLowerLimit , + + +-- ** rangeGetUpperLimit + rangeGetUpperLimit , + + +-- ** rangeNew + rangeNew , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +newtype Range = Range (ForeignPtr Range) +foreign import ccall "atk_range_get_type" c_atk_range_get_type :: + IO GType + +instance BoxedObject Range where + boxedType _ = c_atk_range_get_type + +noRange :: Maybe Range +noRange = Nothing + +-- method Range::new +-- method type : Constructor +-- Args : [Arg {argName = "lower_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "lower_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Range" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_range_new" atk_range_new :: + CDouble -> -- lower_limit : TBasicType TDouble + CDouble -> -- upper_limit : TBasicType TDouble + CString -> -- description : TBasicType TUTF8 + IO (Ptr Range) + + +rangeNew :: + (MonadIO m) => + Double -> -- lower_limit + Double -> -- upper_limit + T.Text -> -- description + m Range +rangeNew lower_limit upper_limit description = liftIO $ do + let lower_limit' = realToFrac lower_limit + let upper_limit' = realToFrac upper_limit + description' <- textToCString description + result <- atk_range_new lower_limit' upper_limit' description' + checkUnexpectedReturnNULL "atk_range_new" result + result' <- (wrapBoxed Range) result + freeMem description' + return result' + +-- method Range::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Atk" "Range" +-- throws : False +-- Skip return : False + +foreign import ccall "atk_range_copy" atk_range_copy :: + Ptr Range -> -- _obj : TInterface "Atk" "Range" + IO (Ptr Range) + + +rangeCopy :: + (MonadIO m) => + Range -> -- _obj + m Range +rangeCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- atk_range_copy _obj' + checkUnexpectedReturnNULL "atk_range_copy" result + result' <- (wrapBoxed Range) result + touchManagedPtr _obj + return result' + +-- method Range::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "atk_range_free" atk_range_free :: + Ptr Range -> -- _obj : TInterface "Atk" "Range" + IO () + + +rangeFree :: + (MonadIO m) => + Range -> -- _obj + m () +rangeFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + atk_range_free _obj' + touchManagedPtr _obj + return () + +-- method Range::get_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "atk_range_get_description" atk_range_get_description :: + Ptr Range -> -- _obj : TInterface "Atk" "Range" + IO CString + + +rangeGetDescription :: + (MonadIO m) => + Range -> -- _obj + m T.Text +rangeGetDescription _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- atk_range_get_description _obj' + checkUnexpectedReturnNULL "atk_range_get_description" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Range::get_lower_limit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "atk_range_get_lower_limit" atk_range_get_lower_limit :: + Ptr Range -> -- _obj : TInterface "Atk" "Range" + IO CDouble + + +rangeGetLowerLimit :: + (MonadIO m) => + Range -> -- _obj + m Double +rangeGetLowerLimit _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- atk_range_get_lower_limit _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method Range::get_upper_limit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "atk_range_get_upper_limit" atk_range_get_upper_limit :: + Ptr Range -> -- _obj : TInterface "Atk" "Range" + IO CDouble + + +rangeGetUpperLimit :: + (MonadIO m) => + Range -> -- _obj + m Double +rangeGetUpperLimit _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- atk_range_get_upper_limit _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + + diff --git a/GI/Atk/Structs/Range.hs-boot b/GI/Atk/Structs/Range.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/Range.hs-boot @@ -0,0 +1,11 @@ +module GI.Atk.Structs.Range where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Range = Range (ForeignPtr Range) +instance BoxedObject Range where diff --git a/GI/Atk/Structs/Rectangle.hs b/GI/Atk/Structs/Rectangle.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/Rectangle.hs @@ -0,0 +1,80 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A data structure for holding a rectangle. Those coordinates are +relative to the component top-level parent. +-} + +module GI.Atk.Structs.Rectangle + ( + +-- * Exported types + Rectangle(..) , + noRectangle , + + + -- * Properties +-- ** Height + rectangleReadHeight , + + +-- ** Width + rectangleReadWidth , + + +-- ** X + rectangleReadX , + + +-- ** Y + rectangleReadY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +newtype Rectangle = Rectangle (ForeignPtr Rectangle) +foreign import ccall "atk_rectangle_get_type" c_atk_rectangle_get_type :: + IO GType + +instance BoxedObject Rectangle where + boxedType _ = c_atk_rectangle_get_type + +noRectangle :: Maybe Rectangle +noRectangle = Nothing + +rectangleReadX :: Rectangle -> IO Int32 +rectangleReadX s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int32 + return val + +rectangleReadY :: Rectangle -> IO Int32 +rectangleReadY s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO Int32 + return val + +rectangleReadWidth :: Rectangle -> IO Int32 +rectangleReadWidth s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Int32 + return val + +rectangleReadHeight :: Rectangle -> IO Int32 +rectangleReadHeight s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Int32 + return val + + diff --git a/GI/Atk/Structs/Rectangle.hs-boot b/GI/Atk/Structs/Rectangle.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/Rectangle.hs-boot @@ -0,0 +1,11 @@ +module GI.Atk.Structs.Rectangle where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Rectangle = Rectangle (ForeignPtr Rectangle) +instance BoxedObject Rectangle where diff --git a/GI/Atk/Structs/TextRange.hs b/GI/Atk/Structs/TextRange.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/TextRange.hs @@ -0,0 +1,81 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure used to describe a text range. +-} + +module GI.Atk.Structs.TextRange + ( + +-- * Exported types + TextRange(..) , + noTextRange , + + + -- * Properties +-- ** Bounds + textRangeReadBounds , + + +-- ** Content + textRangeReadContent , + + +-- ** EndOffset + textRangeReadEndOffset , + + +-- ** StartOffset + textRangeReadStartOffset , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +newtype TextRange = TextRange (ForeignPtr TextRange) +foreign import ccall "atk_text_range_get_type" c_atk_text_range_get_type :: + IO GType + +instance BoxedObject TextRange where + boxedType _ = c_atk_text_range_get_type + +noTextRange :: Maybe TextRange +noTextRange = Nothing + +textRangeReadBounds :: TextRange -> IO TextRectangle +textRangeReadBounds s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr TextRectangle) + val' <- (newPtr 16 TextRectangle) val + return val' + +textRangeReadStartOffset :: TextRange -> IO Int32 +textRangeReadStartOffset s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Int32 + return val + +textRangeReadEndOffset :: TextRange -> IO Int32 +textRangeReadEndOffset s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 20) :: IO Int32 + return val + +textRangeReadContent :: TextRange -> IO T.Text +textRangeReadContent s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO CString + val' <- cstringToText val + return val' + + diff --git a/GI/Atk/Structs/TextRange.hs-boot b/GI/Atk/Structs/TextRange.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/TextRange.hs-boot @@ -0,0 +1,11 @@ +module GI.Atk.Structs.TextRange where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype TextRange = TextRange (ForeignPtr TextRange) +instance BoxedObject TextRange where diff --git a/GI/Atk/Structs/TextRectangle.hs b/GI/Atk/Structs/TextRectangle.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/TextRectangle.hs @@ -0,0 +1,73 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure used to store a rectangle used by AtkText. +-} + +module GI.Atk.Structs.TextRectangle + ( + +-- * Exported types + TextRectangle(..) , + noTextRectangle , + + + -- * Properties +-- ** Height + textRectangleReadHeight , + + +-- ** Width + textRectangleReadWidth , + + +-- ** X + textRectangleReadX , + + +-- ** Y + textRectangleReadY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Atk.Types +import GI.Atk.Callbacks + +newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle) +noTextRectangle :: Maybe TextRectangle +noTextRectangle = Nothing + +textRectangleReadX :: TextRectangle -> IO Int32 +textRectangleReadX s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int32 + return val + +textRectangleReadY :: TextRectangle -> IO Int32 +textRectangleReadY s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO Int32 + return val + +textRectangleReadWidth :: TextRectangle -> IO Int32 +textRectangleReadWidth s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Int32 + return val + +textRectangleReadHeight :: TextRectangle -> IO Int32 +textRectangleReadHeight s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Int32 + return val + + diff --git a/GI/Atk/Structs/TextRectangle.hs-boot b/GI/Atk/Structs/TextRectangle.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Atk/Structs/TextRectangle.hs-boot @@ -0,0 +1,10 @@ +module GI.Atk.Structs.TextRectangle where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle) diff --git a/GI/Atk/Types.hs b/GI/Atk/Types.hs new file mode 100644 --- /dev/null +++ b/GI/Atk/Types.hs @@ -0,0 +1,86 @@ +module GI.Atk.Types + ( module GI.Atk.Interfaces.Action , + module GI.Atk.Interfaces.Component , + module GI.Atk.Interfaces.Document , + module GI.Atk.Interfaces.EditableText , + module GI.Atk.Interfaces.HyperlinkImpl , + module GI.Atk.Interfaces.Hypertext , + module GI.Atk.Interfaces.Image , + module GI.Atk.Interfaces.ImplementorIface, + module GI.Atk.Interfaces.Selection , + module GI.Atk.Interfaces.StreamableContent, + module GI.Atk.Interfaces.Table , + module GI.Atk.Interfaces.TableCell , + module GI.Atk.Interfaces.Text , + module GI.Atk.Interfaces.Value , + module GI.Atk.Interfaces.Window , + module GI.Atk.Objects.GObjectAccessible , + module GI.Atk.Objects.Hyperlink , + module GI.Atk.Objects.Misc , + module GI.Atk.Objects.NoOpObject , + module GI.Atk.Objects.NoOpObjectFactory , + module GI.Atk.Objects.Object , + module GI.Atk.Objects.ObjectFactory , + module GI.Atk.Objects.Plug , + module GI.Atk.Objects.Registry , + module GI.Atk.Objects.Relation , + module GI.Atk.Objects.RelationSet , + module GI.Atk.Objects.Socket , + module GI.Atk.Objects.StateSet , + module GI.Atk.Objects.Util , + module GI.Atk.Structs.Attribute , + module GI.Atk.Structs.Implementor , + module GI.Atk.Structs.KeyEventStruct , + module GI.Atk.Structs.PropertyValues , + module GI.Atk.Structs.Range , + module GI.Atk.Structs.Rectangle , + module GI.Atk.Structs.TextRange , + module GI.Atk.Structs.TextRectangle , + module GI.Atk.Enums , + module GI.Atk.Flags , + + + ) where + + +import {-# SOURCE #-} GI.Atk.Interfaces.Action +import {-# SOURCE #-} GI.Atk.Interfaces.Component +import {-# SOURCE #-} GI.Atk.Interfaces.Document +import {-# SOURCE #-} GI.Atk.Interfaces.EditableText +import {-# SOURCE #-} GI.Atk.Interfaces.HyperlinkImpl +import {-# SOURCE #-} GI.Atk.Interfaces.Hypertext +import {-# SOURCE #-} GI.Atk.Interfaces.Image +import {-# SOURCE #-} GI.Atk.Interfaces.ImplementorIface +import {-# SOURCE #-} GI.Atk.Interfaces.Selection +import {-# SOURCE #-} GI.Atk.Interfaces.StreamableContent +import {-# SOURCE #-} GI.Atk.Interfaces.Table +import {-# SOURCE #-} GI.Atk.Interfaces.TableCell +import {-# SOURCE #-} GI.Atk.Interfaces.Text +import {-# SOURCE #-} GI.Atk.Interfaces.Value +import {-# SOURCE #-} GI.Atk.Interfaces.Window +import {-# SOURCE #-} GI.Atk.Objects.GObjectAccessible +import {-# SOURCE #-} GI.Atk.Objects.Hyperlink +import {-# SOURCE #-} GI.Atk.Objects.Misc +import {-# SOURCE #-} GI.Atk.Objects.NoOpObject +import {-# SOURCE #-} GI.Atk.Objects.NoOpObjectFactory +import {-# SOURCE #-} GI.Atk.Objects.Object +import {-# SOURCE #-} GI.Atk.Objects.ObjectFactory +import {-# SOURCE #-} GI.Atk.Objects.Plug +import {-# SOURCE #-} GI.Atk.Objects.Registry +import {-# SOURCE #-} GI.Atk.Objects.Relation +import {-# SOURCE #-} GI.Atk.Objects.RelationSet +import {-# SOURCE #-} GI.Atk.Objects.Socket +import {-# SOURCE #-} GI.Atk.Objects.StateSet +import {-# SOURCE #-} GI.Atk.Objects.Util +import {-# SOURCE #-} GI.Atk.Structs.Attribute +import {-# SOURCE #-} GI.Atk.Structs.Implementor +import {-# SOURCE #-} GI.Atk.Structs.KeyEventStruct +import {-# SOURCE #-} GI.Atk.Structs.PropertyValues +import {-# SOURCE #-} GI.Atk.Structs.Range +import {-# SOURCE #-} GI.Atk.Structs.Rectangle +import {-# SOURCE #-} GI.Atk.Structs.TextRange +import {-# SOURCE #-} GI.Atk.Structs.TextRectangle + +import GI.Atk.Enums +import GI.Atk.Flags + diff --git a/GI/AtkAttributes.hs b/GI/AtkAttributes.hs deleted file mode 100644 --- a/GI/AtkAttributes.hs +++ /dev/null @@ -1,570 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-} - --- Generated code. - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, - TypeFamilies, MultiParamTypeClasses, KindSignatures, - FlexibleInstances, UndecidableInstances, DataKinds, - OverloadedStrings, NegativeLiterals, FlexibleContexts #-} - -module GI.AtkAttributes where - -import Prelude () -import Data.GI.Base.ShortPrelude -import Data.Char -import Data.Int -import Data.Word -import qualified Data.ByteString.Char8 as B -import Data.ByteString.Char8 (ByteString) -import qualified Data.Map as Map -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr -import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) -import Foreign.Storable (peek, poke, sizeOf) -import Control.Applicative ((<$>)) -import Control.Exception (onException) -import Control.Monad.IO.Class -import qualified Data.Text as T - -import Data.GI.Base.Attributes hiding (get, set) -import Data.GI.Base.BasicTypes -import Data.GI.Base.BasicConversions -import Data.GI.Base.Closure -import Data.GI.Base.GError -import Data.GI.Base.GHashTable -import Data.GI.Base.GParamSpec -import Data.GI.Base.GVariant -import Data.GI.Base.GValue -import Data.GI.Base.ManagedPtr -import Data.GI.Base.Overloading -import Data.GI.Base.Properties hiding (new) -import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) -import Data.GI.Base.Utils - -import qualified GI.GObject as GObject -import qualified GI.GObjectAttributes as GObjectA -import GI.Atk - -type instance AttributeList Action = '[ ] - -type instance AttributeList Component = '[ ] - -type instance AttributeList Document = '[ ] - -type instance AttributeList EditableText = '[ ] - -type instance AttributeList GObjectAccessible = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] - --- VVV Prop "end-index" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getHyperlinkEndIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32 -getHyperlinkEndIndex obj = liftIO $ getObjectPropertyCInt obj "end-index" - -data HyperlinkEndIndexPropertyInfo -instance AttrInfo HyperlinkEndIndexPropertyInfo where - type AttrAllowedOps HyperlinkEndIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint HyperlinkEndIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint HyperlinkEndIndexPropertyInfo = HyperlinkK - type AttrGetType HyperlinkEndIndexPropertyInfo = Int32 - type AttrLabel HyperlinkEndIndexPropertyInfo = "Hyperlink::end-index" - attrGet _ = getHyperlinkEndIndex - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "number-of-anchors" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getHyperlinkNumberOfAnchors :: (MonadIO m, HyperlinkK o) => o -> m Int32 -getHyperlinkNumberOfAnchors obj = liftIO $ getObjectPropertyCInt obj "number-of-anchors" - -data HyperlinkNumberOfAnchorsPropertyInfo -instance AttrInfo HyperlinkNumberOfAnchorsPropertyInfo where - type AttrAllowedOps HyperlinkNumberOfAnchorsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = (~) () - type AttrBaseTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = HyperlinkK - type AttrGetType HyperlinkNumberOfAnchorsPropertyInfo = Int32 - type AttrLabel HyperlinkNumberOfAnchorsPropertyInfo = "Hyperlink::number-of-anchors" - attrGet _ = getHyperlinkNumberOfAnchors - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "selected-link" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getHyperlinkSelectedLink :: (MonadIO m, HyperlinkK o) => o -> m Bool -getHyperlinkSelectedLink obj = liftIO $ getObjectPropertyBool obj "selected-link" - -data HyperlinkSelectedLinkPropertyInfo -instance AttrInfo HyperlinkSelectedLinkPropertyInfo where - type AttrAllowedOps HyperlinkSelectedLinkPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint HyperlinkSelectedLinkPropertyInfo = (~) () - type AttrBaseTypeConstraint HyperlinkSelectedLinkPropertyInfo = HyperlinkK - type AttrGetType HyperlinkSelectedLinkPropertyInfo = Bool - type AttrLabel HyperlinkSelectedLinkPropertyInfo = "Hyperlink::selected-link" - attrGet _ = getHyperlinkSelectedLink - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "start-index" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getHyperlinkStartIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32 -getHyperlinkStartIndex obj = liftIO $ getObjectPropertyCInt obj "start-index" - -data HyperlinkStartIndexPropertyInfo -instance AttrInfo HyperlinkStartIndexPropertyInfo where - type AttrAllowedOps HyperlinkStartIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint HyperlinkStartIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint HyperlinkStartIndexPropertyInfo = HyperlinkK - type AttrGetType HyperlinkStartIndexPropertyInfo = Int32 - type AttrLabel HyperlinkStartIndexPropertyInfo = "Hyperlink::start-index" - attrGet _ = getHyperlinkStartIndex - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList Hyperlink = '[ '("end-index", HyperlinkEndIndexPropertyInfo), '("number-of-anchors", HyperlinkNumberOfAnchorsPropertyInfo), '("selected-link", HyperlinkSelectedLinkPropertyInfo), '("start-index", HyperlinkStartIndexPropertyInfo)] - -type instance AttributeList HyperlinkImpl = '[ ] - -type instance AttributeList Hypertext = '[ ] - -type instance AttributeList Image = '[ ] - -type instance AttributeList ImplementorIface = '[ ] - -type instance AttributeList Misc = '[ ] - -type instance AttributeList NoOpObject = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] - -type instance AttributeList NoOpObjectFactory = '[ ] - --- VVV Prop "accessible-component-layer" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getObjectAccessibleComponentLayer :: (MonadIO m, ObjectK o) => o -> m Int32 -getObjectAccessibleComponentLayer obj = liftIO $ getObjectPropertyCInt obj "accessible-component-layer" - -data ObjectAccessibleComponentLayerPropertyInfo -instance AttrInfo ObjectAccessibleComponentLayerPropertyInfo where - type AttrAllowedOps ObjectAccessibleComponentLayerPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) () - type AttrBaseTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleComponentLayerPropertyInfo = Int32 - type AttrLabel ObjectAccessibleComponentLayerPropertyInfo = "Object::accessible-component-layer" - attrGet _ = getObjectAccessibleComponentLayer - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "accessible-component-mdi-zorder" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getObjectAccessibleComponentMdiZorder :: (MonadIO m, ObjectK o) => o -> m Int32 -getObjectAccessibleComponentMdiZorder obj = liftIO $ getObjectPropertyCInt obj "accessible-component-mdi-zorder" - -data ObjectAccessibleComponentMdiZorderPropertyInfo -instance AttrInfo ObjectAccessibleComponentMdiZorderPropertyInfo where - type AttrAllowedOps ObjectAccessibleComponentMdiZorderPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) () - type AttrBaseTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleComponentMdiZorderPropertyInfo = Int32 - type AttrLabel ObjectAccessibleComponentMdiZorderPropertyInfo = "Object::accessible-component-mdi-zorder" - attrGet _ = getObjectAccessibleComponentMdiZorder - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "accessible-description" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> m T.Text -getObjectAccessibleDescription obj = liftIO $ getObjectPropertyString obj "accessible-description" - -setObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m () -setObjectAccessibleDescription obj val = liftIO $ setObjectPropertyString obj "accessible-description" val - -constructObjectAccessibleDescription :: T.Text -> IO ([Char], GValue) -constructObjectAccessibleDescription val = constructObjectPropertyString "accessible-description" val - -data ObjectAccessibleDescriptionPropertyInfo -instance AttrInfo ObjectAccessibleDescriptionPropertyInfo where - type AttrAllowedOps ObjectAccessibleDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ObjectAccessibleDescriptionPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleDescriptionPropertyInfo = T.Text - type AttrLabel ObjectAccessibleDescriptionPropertyInfo = "Object::accessible-description" - attrGet _ = getObjectAccessibleDescription - attrSet _ = setObjectAccessibleDescription - attrConstruct _ = constructObjectAccessibleDescription - --- VVV Prop "accessible-hypertext-nlinks" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getObjectAccessibleHypertextNlinks :: (MonadIO m, ObjectK o) => o -> m Int32 -getObjectAccessibleHypertextNlinks obj = liftIO $ getObjectPropertyCInt obj "accessible-hypertext-nlinks" - -data ObjectAccessibleHypertextNlinksPropertyInfo -instance AttrInfo ObjectAccessibleHypertextNlinksPropertyInfo where - type AttrAllowedOps ObjectAccessibleHypertextNlinksPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) () - type AttrBaseTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleHypertextNlinksPropertyInfo = Int32 - type AttrLabel ObjectAccessibleHypertextNlinksPropertyInfo = "Object::accessible-hypertext-nlinks" - attrGet _ = getObjectAccessibleHypertextNlinks - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "accessible-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> m T.Text -getObjectAccessibleName obj = liftIO $ getObjectPropertyString obj "accessible-name" - -setObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> T.Text -> m () -setObjectAccessibleName obj val = liftIO $ setObjectPropertyString obj "accessible-name" val - -constructObjectAccessibleName :: T.Text -> IO ([Char], GValue) -constructObjectAccessibleName val = constructObjectPropertyString "accessible-name" val - -data ObjectAccessibleNamePropertyInfo -instance AttrInfo ObjectAccessibleNamePropertyInfo where - type AttrAllowedOps ObjectAccessibleNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ObjectAccessibleNamePropertyInfo = ObjectK - type AttrGetType ObjectAccessibleNamePropertyInfo = T.Text - type AttrLabel ObjectAccessibleNamePropertyInfo = "Object::accessible-name" - attrGet _ = getObjectAccessibleName - attrSet _ = setObjectAccessibleName - attrConstruct _ = constructObjectAccessibleName - --- VVV Prop "accessible-parent" - -- Type: TInterface "Atk" "Object" - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleParent :: (MonadIO m, ObjectK o) => o -> m Object -getObjectAccessibleParent obj = liftIO $ getObjectPropertyObject obj "accessible-parent" Object - -setObjectAccessibleParent :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () -setObjectAccessibleParent obj val = liftIO $ setObjectPropertyObject obj "accessible-parent" val - -constructObjectAccessibleParent :: (ObjectK a) => a -> IO ([Char], GValue) -constructObjectAccessibleParent val = constructObjectPropertyObject "accessible-parent" val - -data ObjectAccessibleParentPropertyInfo -instance AttrInfo ObjectAccessibleParentPropertyInfo where - type AttrAllowedOps ObjectAccessibleParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK - type AttrBaseTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleParentPropertyInfo = Object - type AttrLabel ObjectAccessibleParentPropertyInfo = "Object::accessible-parent" - attrGet _ = getObjectAccessibleParent - attrSet _ = setObjectAccessibleParent - attrConstruct _ = constructObjectAccessibleParent - --- VVV Prop "accessible-role" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> m Int32 -getObjectAccessibleRole obj = liftIO $ getObjectPropertyCInt obj "accessible-role" - -setObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> Int32 -> m () -setObjectAccessibleRole obj val = liftIO $ setObjectPropertyCInt obj "accessible-role" val - -constructObjectAccessibleRole :: Int32 -> IO ([Char], GValue) -constructObjectAccessibleRole val = constructObjectPropertyCInt "accessible-role" val - -data ObjectAccessibleRolePropertyInfo -instance AttrInfo ObjectAccessibleRolePropertyInfo where - type AttrAllowedOps ObjectAccessibleRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ObjectAccessibleRolePropertyInfo = ObjectK - type AttrGetType ObjectAccessibleRolePropertyInfo = Int32 - type AttrLabel ObjectAccessibleRolePropertyInfo = "Object::accessible-role" - attrGet _ = getObjectAccessibleRole - attrSet _ = setObjectAccessibleRole - attrConstruct _ = constructObjectAccessibleRole - --- VVV Prop "accessible-table-caption" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> m T.Text -getObjectAccessibleTableCaption obj = liftIO $ getObjectPropertyString obj "accessible-table-caption" - -setObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> T.Text -> m () -setObjectAccessibleTableCaption obj val = liftIO $ setObjectPropertyString obj "accessible-table-caption" val - -constructObjectAccessibleTableCaption :: T.Text -> IO ([Char], GValue) -constructObjectAccessibleTableCaption val = constructObjectPropertyString "accessible-table-caption" val - -data ObjectAccessibleTableCaptionPropertyInfo -instance AttrInfo ObjectAccessibleTableCaptionPropertyInfo where - type AttrAllowedOps ObjectAccessibleTableCaptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleTableCaptionPropertyInfo = T.Text - type AttrLabel ObjectAccessibleTableCaptionPropertyInfo = "Object::accessible-table-caption" - attrGet _ = getObjectAccessibleTableCaption - attrSet _ = setObjectAccessibleTableCaption - attrConstruct _ = constructObjectAccessibleTableCaption - --- VVV Prop "accessible-table-caption-object" - -- Type: TInterface "Atk" "Object" - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o) => o -> m Object -getObjectAccessibleTableCaptionObject obj = liftIO $ getObjectPropertyObject obj "accessible-table-caption-object" Object - -setObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () -setObjectAccessibleTableCaptionObject obj val = liftIO $ setObjectPropertyObject obj "accessible-table-caption-object" val - -constructObjectAccessibleTableCaptionObject :: (ObjectK a) => a -> IO ([Char], GValue) -constructObjectAccessibleTableCaptionObject val = constructObjectPropertyObject "accessible-table-caption-object" val - -data ObjectAccessibleTableCaptionObjectPropertyInfo -instance AttrInfo ObjectAccessibleTableCaptionObjectPropertyInfo where - type AttrAllowedOps ObjectAccessibleTableCaptionObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK - type AttrBaseTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleTableCaptionObjectPropertyInfo = Object - type AttrLabel ObjectAccessibleTableCaptionObjectPropertyInfo = "Object::accessible-table-caption-object" - attrGet _ = getObjectAccessibleTableCaptionObject - attrSet _ = setObjectAccessibleTableCaptionObject - attrConstruct _ = constructObjectAccessibleTableCaptionObject - --- VVV Prop "accessible-table-column-description" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> m T.Text -getObjectAccessibleTableColumnDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-column-description" - -setObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m () -setObjectAccessibleTableColumnDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-column-description" val - -constructObjectAccessibleTableColumnDescription :: T.Text -> IO ([Char], GValue) -constructObjectAccessibleTableColumnDescription val = constructObjectPropertyString "accessible-table-column-description" val - -data ObjectAccessibleTableColumnDescriptionPropertyInfo -instance AttrInfo ObjectAccessibleTableColumnDescriptionPropertyInfo where - type AttrAllowedOps ObjectAccessibleTableColumnDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleTableColumnDescriptionPropertyInfo = T.Text - type AttrLabel ObjectAccessibleTableColumnDescriptionPropertyInfo = "Object::accessible-table-column-description" - attrGet _ = getObjectAccessibleTableColumnDescription - attrSet _ = setObjectAccessibleTableColumnDescription - attrConstruct _ = constructObjectAccessibleTableColumnDescription - --- VVV Prop "accessible-table-column-header" - -- Type: TInterface "Atk" "Object" - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o) => o -> m Object -getObjectAccessibleTableColumnHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-column-header" Object - -setObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () -setObjectAccessibleTableColumnHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-column-header" val - -constructObjectAccessibleTableColumnHeader :: (ObjectK a) => a -> IO ([Char], GValue) -constructObjectAccessibleTableColumnHeader val = constructObjectPropertyObject "accessible-table-column-header" val - -data ObjectAccessibleTableColumnHeaderPropertyInfo -instance AttrInfo ObjectAccessibleTableColumnHeaderPropertyInfo where - type AttrAllowedOps ObjectAccessibleTableColumnHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK - type AttrBaseTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleTableColumnHeaderPropertyInfo = Object - type AttrLabel ObjectAccessibleTableColumnHeaderPropertyInfo = "Object::accessible-table-column-header" - attrGet _ = getObjectAccessibleTableColumnHeader - attrSet _ = setObjectAccessibleTableColumnHeader - attrConstruct _ = constructObjectAccessibleTableColumnHeader - --- VVV Prop "accessible-table-row-description" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> m T.Text -getObjectAccessibleTableRowDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-row-description" - -setObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m () -setObjectAccessibleTableRowDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-row-description" val - -constructObjectAccessibleTableRowDescription :: T.Text -> IO ([Char], GValue) -constructObjectAccessibleTableRowDescription val = constructObjectPropertyString "accessible-table-row-description" val - -data ObjectAccessibleTableRowDescriptionPropertyInfo -instance AttrInfo ObjectAccessibleTableRowDescriptionPropertyInfo where - type AttrAllowedOps ObjectAccessibleTableRowDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleTableRowDescriptionPropertyInfo = T.Text - type AttrLabel ObjectAccessibleTableRowDescriptionPropertyInfo = "Object::accessible-table-row-description" - attrGet _ = getObjectAccessibleTableRowDescription - attrSet _ = setObjectAccessibleTableRowDescription - attrConstruct _ = constructObjectAccessibleTableRowDescription - --- VVV Prop "accessible-table-row-header" - -- Type: TInterface "Atk" "Object" - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o) => o -> m Object -getObjectAccessibleTableRowHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-row-header" Object - -setObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () -setObjectAccessibleTableRowHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-row-header" val - -constructObjectAccessibleTableRowHeader :: (ObjectK a) => a -> IO ([Char], GValue) -constructObjectAccessibleTableRowHeader val = constructObjectPropertyObject "accessible-table-row-header" val - -data ObjectAccessibleTableRowHeaderPropertyInfo -instance AttrInfo ObjectAccessibleTableRowHeaderPropertyInfo where - type AttrAllowedOps ObjectAccessibleTableRowHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK - type AttrBaseTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleTableRowHeaderPropertyInfo = Object - type AttrLabel ObjectAccessibleTableRowHeaderPropertyInfo = "Object::accessible-table-row-header" - attrGet _ = getObjectAccessibleTableRowHeader - attrSet _ = setObjectAccessibleTableRowHeader - attrConstruct _ = constructObjectAccessibleTableRowHeader - --- VVV Prop "accessible-table-summary" - -- Type: TInterface "Atk" "Object" - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleTableSummary :: (MonadIO m, ObjectK o) => o -> m Object -getObjectAccessibleTableSummary obj = liftIO $ getObjectPropertyObject obj "accessible-table-summary" Object - -setObjectAccessibleTableSummary :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m () -setObjectAccessibleTableSummary obj val = liftIO $ setObjectPropertyObject obj "accessible-table-summary" val - -constructObjectAccessibleTableSummary :: (ObjectK a) => a -> IO ([Char], GValue) -constructObjectAccessibleTableSummary val = constructObjectPropertyObject "accessible-table-summary" val - -data ObjectAccessibleTableSummaryPropertyInfo -instance AttrInfo ObjectAccessibleTableSummaryPropertyInfo where - type AttrAllowedOps ObjectAccessibleTableSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK - type AttrBaseTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK - type AttrGetType ObjectAccessibleTableSummaryPropertyInfo = Object - type AttrLabel ObjectAccessibleTableSummaryPropertyInfo = "Object::accessible-table-summary" - attrGet _ = getObjectAccessibleTableSummary - attrSet _ = setObjectAccessibleTableSummary - attrConstruct _ = constructObjectAccessibleTableSummary - --- VVV Prop "accessible-value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> m Double -getObjectAccessibleValue obj = liftIO $ getObjectPropertyDouble obj "accessible-value" - -setObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> Double -> m () -setObjectAccessibleValue obj val = liftIO $ setObjectPropertyDouble obj "accessible-value" val - -constructObjectAccessibleValue :: Double -> IO ([Char], GValue) -constructObjectAccessibleValue val = constructObjectPropertyDouble "accessible-value" val - -data ObjectAccessibleValuePropertyInfo -instance AttrInfo ObjectAccessibleValuePropertyInfo where - type AttrAllowedOps ObjectAccessibleValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double - type AttrBaseTypeConstraint ObjectAccessibleValuePropertyInfo = ObjectK - type AttrGetType ObjectAccessibleValuePropertyInfo = Double - type AttrLabel ObjectAccessibleValuePropertyInfo = "Object::accessible-value" - attrGet _ = getObjectAccessibleValue - attrSet _ = setObjectAccessibleValue - attrConstruct _ = constructObjectAccessibleValue - -type instance AttributeList Object = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] - -type instance AttributeList ObjectFactory = '[ ] - -type instance AttributeList Plug = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] - -type instance AttributeList Registry = '[ ] - --- VVV Prop "relation-type" - -- Type: TInterface "Atk" "RelationType" - -- Flags: [PropertyReadable,PropertyWritable] - -getRelationRelationType :: (MonadIO m, RelationK o) => o -> m RelationType -getRelationRelationType obj = liftIO $ getObjectPropertyEnum obj "relation-type" - -setRelationRelationType :: (MonadIO m, RelationK o) => o -> RelationType -> m () -setRelationRelationType obj val = liftIO $ setObjectPropertyEnum obj "relation-type" val - -constructRelationRelationType :: RelationType -> IO ([Char], GValue) -constructRelationRelationType val = constructObjectPropertyEnum "relation-type" val - -data RelationRelationTypePropertyInfo -instance AttrInfo RelationRelationTypePropertyInfo where - type AttrAllowedOps RelationRelationTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RelationRelationTypePropertyInfo = (~) RelationType - type AttrBaseTypeConstraint RelationRelationTypePropertyInfo = RelationK - type AttrGetType RelationRelationTypePropertyInfo = RelationType - type AttrLabel RelationRelationTypePropertyInfo = "Relation::relation-type" - attrGet _ = getRelationRelationType - attrSet _ = setRelationRelationType - attrConstruct _ = constructRelationRelationType - --- VVV Prop "target" - -- Type: TInterface "GObject" "ValueArray" - -- Flags: [PropertyReadable,PropertyWritable] - -getRelationTarget :: (MonadIO m, RelationK o) => o -> m GObject.ValueArray -getRelationTarget obj = liftIO $ getObjectPropertyBoxed obj "target" GObject.ValueArray - -setRelationTarget :: (MonadIO m, RelationK o) => o -> GObject.ValueArray -> m () -setRelationTarget obj val = liftIO $ setObjectPropertyBoxed obj "target" val - -constructRelationTarget :: GObject.ValueArray -> IO ([Char], GValue) -constructRelationTarget val = constructObjectPropertyBoxed "target" val - -data RelationTargetPropertyInfo -instance AttrInfo RelationTargetPropertyInfo where - type AttrAllowedOps RelationTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RelationTargetPropertyInfo = (~) GObject.ValueArray - type AttrBaseTypeConstraint RelationTargetPropertyInfo = RelationK - type AttrGetType RelationTargetPropertyInfo = GObject.ValueArray - type AttrLabel RelationTargetPropertyInfo = "Relation::target" - attrGet _ = getRelationTarget - attrSet _ = setRelationTarget - attrConstruct _ = constructRelationTarget - -type instance AttributeList Relation = '[ '("relation-type", RelationRelationTypePropertyInfo), '("target", RelationTargetPropertyInfo)] - -type instance AttributeList RelationSet = '[ ] - -type instance AttributeList Selection = '[ ] - -type instance AttributeList Socket = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] - -type instance AttributeList StateSet = '[ ] - -type instance AttributeList StreamableContent = '[ ] - -type instance AttributeList Table = '[ ] - -type instance AttributeList TableCell = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] - -type instance AttributeList Text = '[ ] - -type instance AttributeList Util = '[ ] - -type instance AttributeList Value = '[ ] - -type instance AttributeList Window = '[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] - diff --git a/GI/AtkSignals.hs b/GI/AtkSignals.hs deleted file mode 100644 --- a/GI/AtkSignals.hs +++ /dev/null @@ -1,260 +0,0 @@ --- Generated code. - -{-# OPTIONS_GHC -fno-warn-orphans #-} - -{-# LANGUAGE DataKinds, FlexibleInstances, - TypeFamilies, MultiParamTypeClasses, - TypeOperators #-} - -module GI.AtkSignals where - -import Data.GI.Base.Properties (GObjectNotifySignalInfo) -import Data.GI.Base.Signals -import Data.GI.Base.Overloading - -import qualified GI.GObjectSignals as GObject -import GI.Atk - -type instance SignalList Action = '[ ] - -data ComponentBoundsChangedSignalInfo -instance SignalInfo ComponentBoundsChangedSignalInfo where - type HaskellCallbackType ComponentBoundsChangedSignalInfo = ComponentBoundsChangedCallback - connectSignal _ = connectComponentBoundsChanged - -type instance SignalList Component = '[ '("bounds-changed", ComponentBoundsChangedSignalInfo)] - -data DocumentLoadCompleteSignalInfo -instance SignalInfo DocumentLoadCompleteSignalInfo where - type HaskellCallbackType DocumentLoadCompleteSignalInfo = DocumentLoadCompleteCallback - connectSignal _ = connectDocumentLoadComplete - -data DocumentLoadStoppedSignalInfo -instance SignalInfo DocumentLoadStoppedSignalInfo where - type HaskellCallbackType DocumentLoadStoppedSignalInfo = DocumentLoadStoppedCallback - connectSignal _ = connectDocumentLoadStopped - -data DocumentPageChangedSignalInfo -instance SignalInfo DocumentPageChangedSignalInfo where - type HaskellCallbackType DocumentPageChangedSignalInfo = DocumentPageChangedCallback - connectSignal _ = connectDocumentPageChanged - -data DocumentReloadSignalInfo -instance SignalInfo DocumentReloadSignalInfo where - type HaskellCallbackType DocumentReloadSignalInfo = DocumentReloadCallback - connectSignal _ = connectDocumentReload - -type instance SignalList Document = '[ '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("reload", DocumentReloadSignalInfo)] - -type instance SignalList EditableText = '[ ] - -type instance SignalList GObjectAccessible = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data HyperlinkLinkActivatedSignalInfo -instance SignalInfo HyperlinkLinkActivatedSignalInfo where - type HaskellCallbackType HyperlinkLinkActivatedSignalInfo = HyperlinkLinkActivatedCallback - connectSignal _ = connectHyperlinkLinkActivated - -type instance SignalList Hyperlink = '[ '("link-activated", HyperlinkLinkActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList HyperlinkImpl = '[ ] - -data HypertextLinkSelectedSignalInfo -instance SignalInfo HypertextLinkSelectedSignalInfo where - type HaskellCallbackType HypertextLinkSelectedSignalInfo = HypertextLinkSelectedCallback - connectSignal _ = connectHypertextLinkSelected - -type instance SignalList Hypertext = '[ '("link-selected", HypertextLinkSelectedSignalInfo)] - -type instance SignalList Image = '[ ] - -type instance SignalList ImplementorIface = '[ ] - -type instance SignalList Misc = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList NoOpObject = '[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("link-selected", HypertextLinkSelectedSignalInfo), '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("reload", DocumentReloadSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo), '("selection-changed", SelectionSelectionChangedSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo), '("value-changed", ValueValueChangedSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList NoOpObjectFactory = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data ObjectActiveDescendantChangedSignalInfo -instance SignalInfo ObjectActiveDescendantChangedSignalInfo where - type HaskellCallbackType ObjectActiveDescendantChangedSignalInfo = ObjectActiveDescendantChangedCallback - connectSignal _ = connectObjectActiveDescendantChanged - -data ObjectChildrenChangedSignalInfo -instance SignalInfo ObjectChildrenChangedSignalInfo where - type HaskellCallbackType ObjectChildrenChangedSignalInfo = ObjectChildrenChangedCallback - connectSignal _ = connectObjectChildrenChanged - -data ObjectFocusEventSignalInfo -instance SignalInfo ObjectFocusEventSignalInfo where - type HaskellCallbackType ObjectFocusEventSignalInfo = ObjectFocusEventCallback - connectSignal _ = connectObjectFocusEvent - -data ObjectPropertyChangeSignalInfo -instance SignalInfo ObjectPropertyChangeSignalInfo where - type HaskellCallbackType ObjectPropertyChangeSignalInfo = ObjectPropertyChangeCallback - connectSignal _ = connectObjectPropertyChange - -data ObjectStateChangeSignalInfo -instance SignalInfo ObjectStateChangeSignalInfo where - type HaskellCallbackType ObjectStateChangeSignalInfo = ObjectStateChangeCallback - connectSignal _ = connectObjectStateChange - -data ObjectVisibleDataChangedSignalInfo -instance SignalInfo ObjectVisibleDataChangedSignalInfo where - type HaskellCallbackType ObjectVisibleDataChangedSignalInfo = ObjectVisibleDataChangedCallback - connectSignal _ = connectObjectVisibleDataChanged - -type instance SignalList Object = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList ObjectFactory = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList Plug = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList Registry = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList Relation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList RelationSet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data SelectionSelectionChangedSignalInfo -instance SignalInfo SelectionSelectionChangedSignalInfo where - type HaskellCallbackType SelectionSelectionChangedSignalInfo = SelectionSelectionChangedCallback - connectSignal _ = connectSelectionSelectionChanged - -type instance SignalList Selection = '[ '("selection-changed", SelectionSelectionChangedSignalInfo)] - -type instance SignalList Socket = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", ComponentBoundsChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList StateSet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList StreamableContent = '[ ] - -data TableColumnDeletedSignalInfo -instance SignalInfo TableColumnDeletedSignalInfo where - type HaskellCallbackType TableColumnDeletedSignalInfo = TableColumnDeletedCallback - connectSignal _ = connectTableColumnDeleted - -data TableColumnInsertedSignalInfo -instance SignalInfo TableColumnInsertedSignalInfo where - type HaskellCallbackType TableColumnInsertedSignalInfo = TableColumnInsertedCallback - connectSignal _ = connectTableColumnInserted - -data TableColumnReorderedSignalInfo -instance SignalInfo TableColumnReorderedSignalInfo where - type HaskellCallbackType TableColumnReorderedSignalInfo = TableColumnReorderedCallback - connectSignal _ = connectTableColumnReordered - -data TableModelChangedSignalInfo -instance SignalInfo TableModelChangedSignalInfo where - type HaskellCallbackType TableModelChangedSignalInfo = TableModelChangedCallback - connectSignal _ = connectTableModelChanged - -data TableRowDeletedSignalInfo -instance SignalInfo TableRowDeletedSignalInfo where - type HaskellCallbackType TableRowDeletedSignalInfo = TableRowDeletedCallback - connectSignal _ = connectTableRowDeleted - -data TableRowInsertedSignalInfo -instance SignalInfo TableRowInsertedSignalInfo where - type HaskellCallbackType TableRowInsertedSignalInfo = TableRowInsertedCallback - connectSignal _ = connectTableRowInserted - -data TableRowReorderedSignalInfo -instance SignalInfo TableRowReorderedSignalInfo where - type HaskellCallbackType TableRowReorderedSignalInfo = TableRowReorderedCallback - connectSignal _ = connectTableRowReordered - -type instance SignalList Table = '[ '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo)] - -type instance SignalList TableCell = '[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data TextTextAttributesChangedSignalInfo -instance SignalInfo TextTextAttributesChangedSignalInfo where - type HaskellCallbackType TextTextAttributesChangedSignalInfo = TextTextAttributesChangedCallback - connectSignal _ = connectTextTextAttributesChanged - -data TextTextCaretMovedSignalInfo -instance SignalInfo TextTextCaretMovedSignalInfo where - type HaskellCallbackType TextTextCaretMovedSignalInfo = TextTextCaretMovedCallback - connectSignal _ = connectTextTextCaretMoved - -data TextTextChangedSignalInfo -instance SignalInfo TextTextChangedSignalInfo where - type HaskellCallbackType TextTextChangedSignalInfo = TextTextChangedCallback - connectSignal _ = connectTextTextChanged - -data TextTextInsertSignalInfo -instance SignalInfo TextTextInsertSignalInfo where - type HaskellCallbackType TextTextInsertSignalInfo = TextTextInsertCallback - connectSignal _ = connectTextTextInsert - -data TextTextRemoveSignalInfo -instance SignalInfo TextTextRemoveSignalInfo where - type HaskellCallbackType TextTextRemoveSignalInfo = TextTextRemoveCallback - connectSignal _ = connectTextTextRemove - -data TextTextSelectionChangedSignalInfo -instance SignalInfo TextTextSelectionChangedSignalInfo where - type HaskellCallbackType TextTextSelectionChangedSignalInfo = TextTextSelectionChangedCallback - connectSignal _ = connectTextTextSelectionChanged - -type instance SignalList Text = '[ '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo)] - -type instance SignalList Util = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data ValueValueChangedSignalInfo -instance SignalInfo ValueValueChangedSignalInfo where - type HaskellCallbackType ValueValueChangedSignalInfo = ValueValueChangedCallback - connectSignal _ = connectValueValueChanged - -type instance SignalList Value = '[ '("value-changed", ValueValueChangedSignalInfo)] - -data WindowActivateSignalInfo -instance SignalInfo WindowActivateSignalInfo where - type HaskellCallbackType WindowActivateSignalInfo = WindowActivateCallback - connectSignal _ = connectWindowActivate - -data WindowCreateSignalInfo -instance SignalInfo WindowCreateSignalInfo where - type HaskellCallbackType WindowCreateSignalInfo = WindowCreateCallback - connectSignal _ = connectWindowCreate - -data WindowDeactivateSignalInfo -instance SignalInfo WindowDeactivateSignalInfo where - type HaskellCallbackType WindowDeactivateSignalInfo = WindowDeactivateCallback - connectSignal _ = connectWindowDeactivate - -data WindowDestroySignalInfo -instance SignalInfo WindowDestroySignalInfo where - type HaskellCallbackType WindowDestroySignalInfo = WindowDestroyCallback - connectSignal _ = connectWindowDestroy - -data WindowMaximizeSignalInfo -instance SignalInfo WindowMaximizeSignalInfo where - type HaskellCallbackType WindowMaximizeSignalInfo = WindowMaximizeCallback - connectSignal _ = connectWindowMaximize - -data WindowMinimizeSignalInfo -instance SignalInfo WindowMinimizeSignalInfo where - type HaskellCallbackType WindowMinimizeSignalInfo = WindowMinimizeCallback - connectSignal _ = connectWindowMinimize - -data WindowMoveSignalInfo -instance SignalInfo WindowMoveSignalInfo where - type HaskellCallbackType WindowMoveSignalInfo = WindowMoveCallback - connectSignal _ = connectWindowMove - -data WindowResizeSignalInfo -instance SignalInfo WindowResizeSignalInfo where - type HaskellCallbackType WindowResizeSignalInfo = WindowResizeCallback - connectSignal _ = connectWindowResize - -data WindowRestoreSignalInfo -instance SignalInfo WindowRestoreSignalInfo where - type HaskellCallbackType WindowRestoreSignalInfo = WindowRestoreCallback - connectSignal _ = connectWindowRestore - -type instance SignalList Window = '[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - diff --git a/gi-atk.cabal b/gi-atk.cabal --- a/gi-atk.cabal +++ b/gi-atk.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-atk -version: 0.2.18.10 +version: 0.2.18.12 synopsis: Atk bindings description: Bindings for Atk, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,12 +14,61 @@ library default-language: Haskell2010 - exposed-modules: GI.Atk, GI.AtkAttributes, GI.AtkSignals + default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns + ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations + exposed-modules: GI.Atk.Types + GI.Atk + GI.Atk.Callbacks + GI.Atk.Constants + GI.Atk.Enums + GI.Atk.Flags + GI.Atk.Functions + GI.Atk.Interfaces + GI.Atk.Interfaces.Action + GI.Atk.Interfaces.Component + GI.Atk.Interfaces.Document + GI.Atk.Interfaces.EditableText + GI.Atk.Interfaces.HyperlinkImpl + GI.Atk.Interfaces.Hypertext + GI.Atk.Interfaces.Image + GI.Atk.Interfaces.ImplementorIface + GI.Atk.Interfaces.Selection + GI.Atk.Interfaces.StreamableContent + GI.Atk.Interfaces.Table + GI.Atk.Interfaces.TableCell + GI.Atk.Interfaces.Text + GI.Atk.Interfaces.Value + GI.Atk.Interfaces.Window + GI.Atk.Objects + GI.Atk.Objects.GObjectAccessible + GI.Atk.Objects.Hyperlink + GI.Atk.Objects.Misc + GI.Atk.Objects.NoOpObject + GI.Atk.Objects.NoOpObjectFactory + GI.Atk.Objects.Object + GI.Atk.Objects.ObjectFactory + GI.Atk.Objects.Plug + GI.Atk.Objects.Registry + GI.Atk.Objects.Relation + GI.Atk.Objects.RelationSet + GI.Atk.Objects.Socket + GI.Atk.Objects.StateSet + GI.Atk.Objects.Util + GI.Atk.Structs + GI.Atk.Structs.Attribute + GI.Atk.Structs.Implementor + GI.Atk.Structs.KeyEventStruct + GI.Atk.Structs.PropertyValues + GI.Atk.Structs.Range + GI.Atk.Structs.Rectangle + GI.Atk.Structs.TextRange + GI.Atk.Structs.TextRectangle pkgconfig-depends: atk >= 2.18 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.10 && < 1, - gi-glib >= 0.2.46.10 && < 0.3, - gi-gobject >= 0.2.46.10 && < 0.3, + haskell-gi-base >= 0.12 && < 1, + gi-glib >= 0.2.46.12 && < 0.2.47, + gi-gobject >= 0.2.46.12 && < 0.2.47, bytestring >= 0.10, containers >= 0.5, text >= 1.0,