gi-atk-0.2.18.12: GI/Atk/Interfaces/Text.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Atk.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'