{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.TextIter
(
TextIter(..) ,
newZeroTextIter ,
#if defined(ENABLE_OVERLOADING)
ResolveTextIterMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TextIterAssignMethodInfo ,
#endif
textIterAssign ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardCharMethodInfo ,
#endif
textIterBackwardChar ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardCharsMethodInfo ,
#endif
textIterBackwardChars ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardCursorPositionMethodInfo,
#endif
textIterBackwardCursorPosition ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardCursorPositionsMethodInfo,
#endif
textIterBackwardCursorPositions ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardFindCharMethodInfo ,
#endif
textIterBackwardFindChar ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardLineMethodInfo ,
#endif
textIterBackwardLine ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardLinesMethodInfo ,
#endif
textIterBackwardLines ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardSearchMethodInfo ,
#endif
textIterBackwardSearch ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardSentenceStartMethodInfo ,
#endif
textIterBackwardSentenceStart ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardSentenceStartsMethodInfo,
#endif
textIterBackwardSentenceStarts ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardToTagToggleMethodInfo ,
#endif
textIterBackwardToTagToggle ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardVisibleCursorPositionMethodInfo,
#endif
textIterBackwardVisibleCursorPosition ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardVisibleCursorPositionsMethodInfo,
#endif
textIterBackwardVisibleCursorPositions ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardVisibleLineMethodInfo ,
#endif
textIterBackwardVisibleLine ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardVisibleLinesMethodInfo ,
#endif
textIterBackwardVisibleLines ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardVisibleWordStartMethodInfo,
#endif
textIterBackwardVisibleWordStart ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardVisibleWordStartsMethodInfo,
#endif
textIterBackwardVisibleWordStarts ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardWordStartMethodInfo ,
#endif
textIterBackwardWordStart ,
#if defined(ENABLE_OVERLOADING)
TextIterBackwardWordStartsMethodInfo ,
#endif
textIterBackwardWordStarts ,
#if defined(ENABLE_OVERLOADING)
TextIterBeginsTagMethodInfo ,
#endif
textIterBeginsTag ,
#if defined(ENABLE_OVERLOADING)
TextIterCanInsertMethodInfo ,
#endif
textIterCanInsert ,
#if defined(ENABLE_OVERLOADING)
TextIterCompareMethodInfo ,
#endif
textIterCompare ,
#if defined(ENABLE_OVERLOADING)
TextIterCopyMethodInfo ,
#endif
textIterCopy ,
#if defined(ENABLE_OVERLOADING)
TextIterEditableMethodInfo ,
#endif
textIterEditable ,
#if defined(ENABLE_OVERLOADING)
TextIterEndsLineMethodInfo ,
#endif
textIterEndsLine ,
#if defined(ENABLE_OVERLOADING)
TextIterEndsSentenceMethodInfo ,
#endif
textIterEndsSentence ,
#if defined(ENABLE_OVERLOADING)
TextIterEndsTagMethodInfo ,
#endif
textIterEndsTag ,
#if defined(ENABLE_OVERLOADING)
TextIterEndsWordMethodInfo ,
#endif
textIterEndsWord ,
#if defined(ENABLE_OVERLOADING)
TextIterEqualMethodInfo ,
#endif
textIterEqual ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardCharMethodInfo ,
#endif
textIterForwardChar ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardCharsMethodInfo ,
#endif
textIterForwardChars ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardCursorPositionMethodInfo ,
#endif
textIterForwardCursorPosition ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardCursorPositionsMethodInfo,
#endif
textIterForwardCursorPositions ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardFindCharMethodInfo ,
#endif
textIterForwardFindChar ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardLineMethodInfo ,
#endif
textIterForwardLine ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardLinesMethodInfo ,
#endif
textIterForwardLines ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardSearchMethodInfo ,
#endif
textIterForwardSearch ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardSentenceEndMethodInfo ,
#endif
textIterForwardSentenceEnd ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardSentenceEndsMethodInfo ,
#endif
textIterForwardSentenceEnds ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardToEndMethodInfo ,
#endif
textIterForwardToEnd ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardToLineEndMethodInfo ,
#endif
textIterForwardToLineEnd ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardToTagToggleMethodInfo ,
#endif
textIterForwardToTagToggle ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardVisibleCursorPositionMethodInfo,
#endif
textIterForwardVisibleCursorPosition ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardVisibleCursorPositionsMethodInfo,
#endif
textIterForwardVisibleCursorPositions ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardVisibleLineMethodInfo ,
#endif
textIterForwardVisibleLine ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardVisibleLinesMethodInfo ,
#endif
textIterForwardVisibleLines ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardVisibleWordEndMethodInfo ,
#endif
textIterForwardVisibleWordEnd ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardVisibleWordEndsMethodInfo,
#endif
textIterForwardVisibleWordEnds ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardWordEndMethodInfo ,
#endif
textIterForwardWordEnd ,
#if defined(ENABLE_OVERLOADING)
TextIterForwardWordEndsMethodInfo ,
#endif
textIterForwardWordEnds ,
#if defined(ENABLE_OVERLOADING)
TextIterFreeMethodInfo ,
#endif
textIterFree ,
#if defined(ENABLE_OVERLOADING)
TextIterGetAttributesMethodInfo ,
#endif
textIterGetAttributes ,
#if defined(ENABLE_OVERLOADING)
TextIterGetBufferMethodInfo ,
#endif
textIterGetBuffer ,
#if defined(ENABLE_OVERLOADING)
TextIterGetBytesInLineMethodInfo ,
#endif
textIterGetBytesInLine ,
#if defined(ENABLE_OVERLOADING)
TextIterGetCharMethodInfo ,
#endif
textIterGetChar ,
#if defined(ENABLE_OVERLOADING)
TextIterGetCharsInLineMethodInfo ,
#endif
textIterGetCharsInLine ,
#if defined(ENABLE_OVERLOADING)
TextIterGetChildAnchorMethodInfo ,
#endif
textIterGetChildAnchor ,
#if defined(ENABLE_OVERLOADING)
TextIterGetLanguageMethodInfo ,
#endif
textIterGetLanguage ,
#if defined(ENABLE_OVERLOADING)
TextIterGetLineMethodInfo ,
#endif
textIterGetLine ,
#if defined(ENABLE_OVERLOADING)
TextIterGetLineIndexMethodInfo ,
#endif
textIterGetLineIndex ,
#if defined(ENABLE_OVERLOADING)
TextIterGetLineOffsetMethodInfo ,
#endif
textIterGetLineOffset ,
#if defined(ENABLE_OVERLOADING)
TextIterGetMarksMethodInfo ,
#endif
textIterGetMarks ,
#if defined(ENABLE_OVERLOADING)
TextIterGetOffsetMethodInfo ,
#endif
textIterGetOffset ,
#if defined(ENABLE_OVERLOADING)
TextIterGetPixbufMethodInfo ,
#endif
textIterGetPixbuf ,
#if defined(ENABLE_OVERLOADING)
TextIterGetSliceMethodInfo ,
#endif
textIterGetSlice ,
#if defined(ENABLE_OVERLOADING)
TextIterGetTagsMethodInfo ,
#endif
textIterGetTags ,
#if defined(ENABLE_OVERLOADING)
TextIterGetTextMethodInfo ,
#endif
textIterGetText ,
#if defined(ENABLE_OVERLOADING)
TextIterGetToggledTagsMethodInfo ,
#endif
textIterGetToggledTags ,
#if defined(ENABLE_OVERLOADING)
TextIterGetVisibleLineIndexMethodInfo ,
#endif
textIterGetVisibleLineIndex ,
#if defined(ENABLE_OVERLOADING)
TextIterGetVisibleLineOffsetMethodInfo ,
#endif
textIterGetVisibleLineOffset ,
#if defined(ENABLE_OVERLOADING)
TextIterGetVisibleSliceMethodInfo ,
#endif
textIterGetVisibleSlice ,
#if defined(ENABLE_OVERLOADING)
TextIterGetVisibleTextMethodInfo ,
#endif
textIterGetVisibleText ,
#if defined(ENABLE_OVERLOADING)
TextIterHasTagMethodInfo ,
#endif
textIterHasTag ,
#if defined(ENABLE_OVERLOADING)
TextIterInRangeMethodInfo ,
#endif
textIterInRange ,
#if defined(ENABLE_OVERLOADING)
TextIterInsideSentenceMethodInfo ,
#endif
textIterInsideSentence ,
#if defined(ENABLE_OVERLOADING)
TextIterInsideWordMethodInfo ,
#endif
textIterInsideWord ,
#if defined(ENABLE_OVERLOADING)
TextIterIsCursorPositionMethodInfo ,
#endif
textIterIsCursorPosition ,
#if defined(ENABLE_OVERLOADING)
TextIterIsEndMethodInfo ,
#endif
textIterIsEnd ,
#if defined(ENABLE_OVERLOADING)
TextIterIsStartMethodInfo ,
#endif
textIterIsStart ,
#if defined(ENABLE_OVERLOADING)
TextIterOrderMethodInfo ,
#endif
textIterOrder ,
#if defined(ENABLE_OVERLOADING)
TextIterSetLineMethodInfo ,
#endif
textIterSetLine ,
#if defined(ENABLE_OVERLOADING)
TextIterSetLineIndexMethodInfo ,
#endif
textIterSetLineIndex ,
#if defined(ENABLE_OVERLOADING)
TextIterSetLineOffsetMethodInfo ,
#endif
textIterSetLineOffset ,
#if defined(ENABLE_OVERLOADING)
TextIterSetOffsetMethodInfo ,
#endif
textIterSetOffset ,
#if defined(ENABLE_OVERLOADING)
TextIterSetVisibleLineIndexMethodInfo ,
#endif
textIterSetVisibleLineIndex ,
#if defined(ENABLE_OVERLOADING)
TextIterSetVisibleLineOffsetMethodInfo ,
#endif
textIterSetVisibleLineOffset ,
#if defined(ENABLE_OVERLOADING)
TextIterStartsLineMethodInfo ,
#endif
textIterStartsLine ,
#if defined(ENABLE_OVERLOADING)
TextIterStartsSentenceMethodInfo ,
#endif
textIterStartsSentence ,
#if defined(ENABLE_OVERLOADING)
TextIterStartsTagMethodInfo ,
#endif
textIterStartsTag ,
#if defined(ENABLE_OVERLOADING)
TextIterStartsWordMethodInfo ,
#endif
textIterStartsWord ,
#if defined(ENABLE_OVERLOADING)
TextIterTogglesTagMethodInfo ,
#endif
textIterTogglesTag ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextBuffer as Gtk.TextBuffer
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextChildAnchor as Gtk.TextChildAnchor
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextMark as Gtk.TextMark
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTag as Gtk.TextTag
import {-# SOURCE #-} qualified GI.Gtk.Structs.TextAttributes as Gtk.TextAttributes
import qualified GI.Pango.Structs.Language as Pango.Language
newtype TextIter = TextIter (SP.ManagedPtr TextIter)
deriving (TextIter -> TextIter -> Bool
(TextIter -> TextIter -> Bool)
-> (TextIter -> TextIter -> Bool) -> Eq TextIter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextIter -> TextIter -> Bool
$c/= :: TextIter -> TextIter -> Bool
== :: TextIter -> TextIter -> Bool
$c== :: TextIter -> TextIter -> Bool
Eq)
instance SP.ManagedPtrNewtype TextIter where
toManagedPtr :: TextIter -> ManagedPtr TextIter
toManagedPtr (TextIter ManagedPtr TextIter
p) = ManagedPtr TextIter
p
foreign import ccall "gtk_text_iter_get_type" c_gtk_text_iter_get_type ::
IO GType
type instance O.ParentTypes TextIter = '[]
instance O.HasParentTypes TextIter
instance B.Types.TypedObject TextIter where
glibType :: IO GType
glibType = IO GType
c_gtk_text_iter_get_type
instance B.Types.GBoxed TextIter
instance B.GValue.IsGValue (Maybe TextIter) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_text_iter_get_type
gvalueSet_ :: Ptr GValue -> Maybe TextIter -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TextIter
P.Nothing = Ptr GValue -> Ptr TextIter -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr TextIter
forall a. Ptr a
FP.nullPtr :: FP.Ptr TextIter)
gvalueSet_ Ptr GValue
gv (P.Just TextIter
obj) = TextIter -> (Ptr TextIter -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TextIter
obj (Ptr GValue -> Ptr TextIter -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TextIter)
gvalueGet_ Ptr GValue
gv = do
Ptr TextIter
ptr <- Ptr GValue -> IO (Ptr TextIter)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr TextIter)
if Ptr TextIter
ptr Ptr TextIter -> Ptr TextIter -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TextIter
forall a. Ptr a
FP.nullPtr
then TextIter -> Maybe TextIter
forall a. a -> Maybe a
P.Just (TextIter -> Maybe TextIter) -> IO TextIter -> IO (Maybe TextIter)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr TextIter -> TextIter
TextIter Ptr TextIter
ptr
else Maybe TextIter -> IO (Maybe TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TextIter
forall a. Maybe a
P.Nothing
newZeroTextIter :: MonadIO m => m TextIter
newZeroTextIter :: forall (m :: * -> *). MonadIO m => m TextIter
newZeroTextIter = IO TextIter -> m TextIter
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextIter -> m TextIter) -> IO TextIter -> m TextIter
forall a b. (a -> b) -> a -> b
$ Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
callocBoxedBytes Int
80 IO (Ptr TextIter) -> (Ptr TextIter -> IO TextIter) -> IO TextIter
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
TextIter
instance tag ~ 'AttrSet => Constructible TextIter tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr TextIter -> TextIter)
-> [AttrOp TextIter tag] -> m TextIter
new ManagedPtr TextIter -> TextIter
_ [AttrOp TextIter tag]
attrs = do
TextIter
o <- m TextIter
forall (m :: * -> *). MonadIO m => m TextIter
newZeroTextIter
TextIter -> [AttrOp TextIter 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set TextIter
o [AttrOp TextIter tag]
[AttrOp TextIter 'AttrSet]
attrs
TextIter -> m TextIter
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
o
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TextIter
type instance O.AttributeList TextIter = TextIterAttributeList
type TextIterAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_text_iter_assign" gtk_text_iter_assign ::
Ptr TextIter ->
Ptr TextIter ->
IO ()
textIterAssign ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> TextIter
-> m ()
textIterAssign :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextIter -> m ()
textIterAssign TextIter
iter TextIter
other = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter
other' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
other
Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_iter_assign Ptr TextIter
iter' Ptr TextIter
other'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
other
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterAssignMethodInfo
instance (signature ~ (TextIter -> m ()), MonadIO m) => O.OverloadedMethod TextIterAssignMethodInfo TextIter signature where
overloadedMethod = textIterAssign
instance O.OverloadedMethodInfo TextIterAssignMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterAssign",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterAssign"
}
#endif
foreign import ccall "gtk_text_iter_backward_char" gtk_text_iter_backward_char ::
Ptr TextIter ->
IO CInt
textIterBackwardChar ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterBackwardChar :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterBackwardChar TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_backward_char Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardCharMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardCharMethodInfo TextIter signature where
overloadedMethod = textIterBackwardChar
instance O.OverloadedMethodInfo TextIterBackwardCharMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardChar",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardChar"
}
#endif
foreign import ccall "gtk_text_iter_backward_chars" gtk_text_iter_backward_chars ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterBackwardChars ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterBackwardChars :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterBackwardChars TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_backward_chars Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardCharsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardCharsMethodInfo TextIter signature where
overloadedMethod = textIterBackwardChars
instance O.OverloadedMethodInfo TextIterBackwardCharsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardChars",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardChars"
}
#endif
foreign import ccall "gtk_text_iter_backward_cursor_position" gtk_text_iter_backward_cursor_position ::
Ptr TextIter ->
IO CInt
textIterBackwardCursorPosition ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterBackwardCursorPosition :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterBackwardCursorPosition TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_backward_cursor_position Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardCursorPositionMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardCursorPositionMethodInfo TextIter signature where
overloadedMethod = textIterBackwardCursorPosition
instance O.OverloadedMethodInfo TextIterBackwardCursorPositionMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardCursorPosition",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardCursorPosition"
}
#endif
foreign import ccall "gtk_text_iter_backward_cursor_positions" gtk_text_iter_backward_cursor_positions ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterBackwardCursorPositions ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterBackwardCursorPositions :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterBackwardCursorPositions TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_backward_cursor_positions Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardCursorPositionsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardCursorPositionsMethodInfo TextIter signature where
overloadedMethod = textIterBackwardCursorPositions
instance O.OverloadedMethodInfo TextIterBackwardCursorPositionsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardCursorPositions",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardCursorPositions"
}
#endif
foreign import ccall "gtk_text_iter_backward_find_char" gtk_text_iter_backward_find_char ::
Ptr TextIter ->
FunPtr Gtk.Callbacks.C_TextCharPredicate ->
Ptr () ->
Ptr TextIter ->
IO CInt
textIterBackwardFindChar ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Gtk.Callbacks.TextCharPredicate
-> Maybe (TextIter)
-> m Bool
textIterBackwardFindChar :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextCharPredicate -> Maybe TextIter -> m Bool
textIterBackwardFindChar TextIter
iter TextCharPredicate
pred Maybe TextIter
limit = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
FunPtr C_TextCharPredicate
pred' <- C_TextCharPredicate -> IO (FunPtr C_TextCharPredicate)
Gtk.Callbacks.mk_TextCharPredicate (Maybe (Ptr (FunPtr C_TextCharPredicate))
-> TextCharPredicate_WithClosures -> C_TextCharPredicate
Gtk.Callbacks.wrap_TextCharPredicate Maybe (Ptr (FunPtr C_TextCharPredicate))
forall a. Maybe a
Nothing (TextCharPredicate -> TextCharPredicate_WithClosures
Gtk.Callbacks.drop_closures_TextCharPredicate TextCharPredicate
pred))
Ptr TextIter
maybeLimit <- case Maybe TextIter
limit of
Maybe TextIter
Nothing -> Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
forall a. Ptr a
nullPtr
Just TextIter
jLimit -> do
Ptr TextIter
jLimit' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
jLimit
Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
jLimit'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
CInt
result <- Ptr TextIter
-> FunPtr C_TextCharPredicate -> Ptr () -> Ptr TextIter -> IO CInt
gtk_text_iter_backward_find_char Ptr TextIter
iter' FunPtr C_TextCharPredicate
pred' Ptr ()
forall a. Ptr a
userData Ptr TextIter
maybeLimit
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_TextCharPredicate -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TextCharPredicate
pred'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe TextIter -> (TextIter -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TextIter
limit TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardFindCharMethodInfo
instance (signature ~ (Gtk.Callbacks.TextCharPredicate -> Maybe (TextIter) -> m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardFindCharMethodInfo TextIter signature where
overloadedMethod = textIterBackwardFindChar
instance O.OverloadedMethodInfo TextIterBackwardFindCharMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardFindChar",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardFindChar"
}
#endif
foreign import ccall "gtk_text_iter_backward_line" gtk_text_iter_backward_line ::
Ptr TextIter ->
IO CInt
textIterBackwardLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterBackwardLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterBackwardLine TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_backward_line Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardLineMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardLineMethodInfo TextIter signature where
overloadedMethod = textIterBackwardLine
instance O.OverloadedMethodInfo TextIterBackwardLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardLine"
}
#endif
foreign import ccall "gtk_text_iter_backward_lines" gtk_text_iter_backward_lines ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterBackwardLines ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterBackwardLines :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterBackwardLines TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_backward_lines Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardLinesMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardLinesMethodInfo TextIter signature where
overloadedMethod = textIterBackwardLines
instance O.OverloadedMethodInfo TextIterBackwardLinesMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardLines",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardLines"
}
#endif
foreign import ccall "gtk_text_iter_backward_search" gtk_text_iter_backward_search ::
Ptr TextIter ->
CString ->
CUInt ->
Ptr TextIter ->
Ptr TextIter ->
Ptr TextIter ->
IO CInt
textIterBackwardSearch ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> T.Text
-> [Gtk.Flags.TextSearchFlags]
-> Maybe (TextIter)
-> m ((Bool, TextIter, TextIter))
textIterBackwardSearch :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter
-> Text
-> [TextSearchFlags]
-> Maybe TextIter
-> m (Bool, TextIter, TextIter)
textIterBackwardSearch TextIter
iter Text
str [TextSearchFlags]
flags Maybe TextIter
limit = IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter))
-> IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CString
str' <- Text -> IO CString
textToCString Text
str
let flags' :: CUInt
flags' = [TextSearchFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TextSearchFlags]
flags
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr TextIter)
Ptr TextIter
maybeLimit <- case Maybe TextIter
limit of
Maybe TextIter
Nothing -> Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
forall a. Ptr a
nullPtr
Just TextIter
jLimit -> do
Ptr TextIter
jLimit' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
jLimit
Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
jLimit'
CInt
result <- Ptr TextIter
-> CString
-> CUInt
-> Ptr TextIter
-> Ptr TextIter
-> Ptr TextIter
-> IO CInt
gtk_text_iter_backward_search Ptr TextIter
iter' CString
str' CUInt
flags' Ptr TextIter
matchStart Ptr TextIter
matchEnd Ptr TextIter
maybeLimit
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
TextIter) Ptr TextIter
matchEnd
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe TextIter -> (TextIter -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TextIter
limit TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
str'
(Bool, TextIter, TextIter) -> IO (Bool, TextIter, TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TextIter
matchStart', TextIter
matchEnd')
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardSearchMethodInfo
instance (signature ~ (T.Text -> [Gtk.Flags.TextSearchFlags] -> Maybe (TextIter) -> m ((Bool, TextIter, TextIter))), MonadIO m) => O.OverloadedMethod TextIterBackwardSearchMethodInfo TextIter signature where
overloadedMethod = textIterBackwardSearch
instance O.OverloadedMethodInfo TextIterBackwardSearchMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardSearch",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardSearch"
}
#endif
foreign import ccall "gtk_text_iter_backward_sentence_start" gtk_text_iter_backward_sentence_start ::
Ptr TextIter ->
IO CInt
textIterBackwardSentenceStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterBackwardSentenceStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterBackwardSentenceStart TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_backward_sentence_start Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardSentenceStartMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardSentenceStartMethodInfo TextIter signature where
overloadedMethod = textIterBackwardSentenceStart
instance O.OverloadedMethodInfo TextIterBackwardSentenceStartMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardSentenceStart",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardSentenceStart"
}
#endif
foreign import ccall "gtk_text_iter_backward_sentence_starts" gtk_text_iter_backward_sentence_starts ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterBackwardSentenceStarts ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterBackwardSentenceStarts :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterBackwardSentenceStarts TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_backward_sentence_starts Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardSentenceStartsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardSentenceStartsMethodInfo TextIter signature where
overloadedMethod = textIterBackwardSentenceStarts
instance O.OverloadedMethodInfo TextIterBackwardSentenceStartsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardSentenceStarts",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardSentenceStarts"
}
#endif
foreign import ccall "gtk_text_iter_backward_to_tag_toggle" gtk_text_iter_backward_to_tag_toggle ::
Ptr TextIter ->
Ptr Gtk.TextTag.TextTag ->
IO CInt
textIterBackwardToTagToggle ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTag.IsTextTag a) =>
TextIter
-> Maybe (a)
-> m Bool
textIterBackwardToTagToggle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextTag a) =>
TextIter -> Maybe a -> m Bool
textIterBackwardToTagToggle TextIter
iter Maybe a
tag = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextTag
maybeTag <- case Maybe a
tag of
Maybe a
Nothing -> Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
forall a. Ptr a
nullPtr
Just a
jTag -> do
Ptr TextTag
jTag' <- a -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jTag
Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
jTag'
CInt
result <- Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_backward_to_tag_toggle Ptr TextIter
iter' Ptr TextTag
maybeTag
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
tag a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardToTagToggleMethodInfo
instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, Gtk.TextTag.IsTextTag a) => O.OverloadedMethod TextIterBackwardToTagToggleMethodInfo TextIter signature where
overloadedMethod = textIterBackwardToTagToggle
instance O.OverloadedMethodInfo TextIterBackwardToTagToggleMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardToTagToggle",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardToTagToggle"
}
#endif
foreign import ccall "gtk_text_iter_backward_visible_cursor_position" gtk_text_iter_backward_visible_cursor_position ::
Ptr TextIter ->
IO CInt
textIterBackwardVisibleCursorPosition ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterBackwardVisibleCursorPosition :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterBackwardVisibleCursorPosition TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_backward_visible_cursor_position Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardVisibleCursorPositionMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardVisibleCursorPositionMethodInfo TextIter signature where
overloadedMethod = textIterBackwardVisibleCursorPosition
instance O.OverloadedMethodInfo TextIterBackwardVisibleCursorPositionMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardVisibleCursorPosition",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardVisibleCursorPosition"
}
#endif
foreign import ccall "gtk_text_iter_backward_visible_cursor_positions" gtk_text_iter_backward_visible_cursor_positions ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterBackwardVisibleCursorPositions ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterBackwardVisibleCursorPositions :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterBackwardVisibleCursorPositions TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_backward_visible_cursor_positions Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardVisibleCursorPositionsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardVisibleCursorPositionsMethodInfo TextIter signature where
overloadedMethod = textIterBackwardVisibleCursorPositions
instance O.OverloadedMethodInfo TextIterBackwardVisibleCursorPositionsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardVisibleCursorPositions",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardVisibleCursorPositions"
}
#endif
foreign import ccall "gtk_text_iter_backward_visible_line" gtk_text_iter_backward_visible_line ::
Ptr TextIter ->
IO CInt
textIterBackwardVisibleLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterBackwardVisibleLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterBackwardVisibleLine TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_backward_visible_line Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardVisibleLineMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardVisibleLineMethodInfo TextIter signature where
overloadedMethod = textIterBackwardVisibleLine
instance O.OverloadedMethodInfo TextIterBackwardVisibleLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardVisibleLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardVisibleLine"
}
#endif
foreign import ccall "gtk_text_iter_backward_visible_lines" gtk_text_iter_backward_visible_lines ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterBackwardVisibleLines ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterBackwardVisibleLines :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterBackwardVisibleLines TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_backward_visible_lines Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardVisibleLinesMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardVisibleLinesMethodInfo TextIter signature where
overloadedMethod = textIterBackwardVisibleLines
instance O.OverloadedMethodInfo TextIterBackwardVisibleLinesMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardVisibleLines",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardVisibleLines"
}
#endif
foreign import ccall "gtk_text_iter_backward_visible_word_start" gtk_text_iter_backward_visible_word_start ::
Ptr TextIter ->
IO CInt
textIterBackwardVisibleWordStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterBackwardVisibleWordStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterBackwardVisibleWordStart TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_backward_visible_word_start Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardVisibleWordStartMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardVisibleWordStartMethodInfo TextIter signature where
overloadedMethod = textIterBackwardVisibleWordStart
instance O.OverloadedMethodInfo TextIterBackwardVisibleWordStartMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardVisibleWordStart",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardVisibleWordStart"
}
#endif
foreign import ccall "gtk_text_iter_backward_visible_word_starts" gtk_text_iter_backward_visible_word_starts ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterBackwardVisibleWordStarts ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterBackwardVisibleWordStarts :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterBackwardVisibleWordStarts TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_backward_visible_word_starts Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardVisibleWordStartsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardVisibleWordStartsMethodInfo TextIter signature where
overloadedMethod = textIterBackwardVisibleWordStarts
instance O.OverloadedMethodInfo TextIterBackwardVisibleWordStartsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardVisibleWordStarts",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardVisibleWordStarts"
}
#endif
foreign import ccall "gtk_text_iter_backward_word_start" gtk_text_iter_backward_word_start ::
Ptr TextIter ->
IO CInt
textIterBackwardWordStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterBackwardWordStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterBackwardWordStart TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_backward_word_start Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardWordStartMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardWordStartMethodInfo TextIter signature where
overloadedMethod = textIterBackwardWordStart
instance O.OverloadedMethodInfo TextIterBackwardWordStartMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardWordStart",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardWordStart"
}
#endif
foreign import ccall "gtk_text_iter_backward_word_starts" gtk_text_iter_backward_word_starts ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterBackwardWordStarts ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterBackwardWordStarts :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterBackwardWordStarts TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_backward_word_starts Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBackwardWordStartsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterBackwardWordStartsMethodInfo TextIter signature where
overloadedMethod = textIterBackwardWordStarts
instance O.OverloadedMethodInfo TextIterBackwardWordStartsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBackwardWordStarts",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBackwardWordStarts"
}
#endif
foreign import ccall "gtk_text_iter_begins_tag" gtk_text_iter_begins_tag ::
Ptr TextIter ->
Ptr Gtk.TextTag.TextTag ->
IO CInt
{-# DEPRECATED textIterBeginsTag ["(Since version 3.20)","Use 'GI.Gtk.Structs.TextIter.textIterStartsTag' instead."] #-}
textIterBeginsTag ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTag.IsTextTag a) =>
TextIter
-> Maybe (a)
-> m Bool
textIterBeginsTag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextTag a) =>
TextIter -> Maybe a -> m Bool
textIterBeginsTag TextIter
iter Maybe a
tag = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextTag
maybeTag <- case Maybe a
tag of
Maybe a
Nothing -> Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
forall a. Ptr a
nullPtr
Just a
jTag -> do
Ptr TextTag
jTag' <- a -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jTag
Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
jTag'
CInt
result <- Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_begins_tag Ptr TextIter
iter' Ptr TextTag
maybeTag
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
tag a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterBeginsTagMethodInfo
instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, Gtk.TextTag.IsTextTag a) => O.OverloadedMethod TextIterBeginsTagMethodInfo TextIter signature where
overloadedMethod = textIterBeginsTag
instance O.OverloadedMethodInfo TextIterBeginsTagMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterBeginsTag",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterBeginsTag"
}
#endif
foreign import ccall "gtk_text_iter_can_insert" gtk_text_iter_can_insert ::
Ptr TextIter ->
CInt ->
IO CInt
textIterCanInsert ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Bool
-> m Bool
textIterCanInsert :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Bool -> m Bool
textIterCanInsert TextIter
iter Bool
defaultEditability = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
let defaultEditability' :: CInt
defaultEditability' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
defaultEditability
CInt
result <- Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_can_insert Ptr TextIter
iter' CInt
defaultEditability'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterCanInsertMethodInfo
instance (signature ~ (Bool -> m Bool), MonadIO m) => O.OverloadedMethod TextIterCanInsertMethodInfo TextIter signature where
overloadedMethod = textIterCanInsert
instance O.OverloadedMethodInfo TextIterCanInsertMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterCanInsert",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterCanInsert"
}
#endif
foreign import ccall "gtk_text_iter_compare" gtk_text_iter_compare ::
Ptr TextIter ->
Ptr TextIter ->
IO Int32
textIterCompare ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> TextIter
-> m Int32
textIterCompare :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextIter -> m Int32
textIterCompare TextIter
lhs TextIter
rhs = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
lhs' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
lhs
Ptr TextIter
rhs' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
rhs
Int32
result <- Ptr TextIter -> Ptr TextIter -> IO Int32
gtk_text_iter_compare Ptr TextIter
lhs' Ptr TextIter
rhs'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
lhs
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
rhs
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextIterCompareMethodInfo
instance (signature ~ (TextIter -> m Int32), MonadIO m) => O.OverloadedMethod TextIterCompareMethodInfo TextIter signature where
overloadedMethod = textIterCompare
instance O.OverloadedMethodInfo TextIterCompareMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterCompare",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterCompare"
}
#endif
foreign import ccall "gtk_text_iter_copy" gtk_text_iter_copy ::
Ptr TextIter ->
IO (Ptr TextIter)
textIterCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m TextIter
textIterCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m TextIter
textIterCopy TextIter
iter = IO TextIter -> m TextIter
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextIter -> m TextIter) -> IO TextIter -> m TextIter
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter
result <- Ptr TextIter -> IO (Ptr TextIter)
gtk_text_iter_copy Ptr TextIter
iter'
Text -> Ptr TextIter -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textIterCopy" Ptr TextIter
result
TextIter
result' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
TextIter) Ptr TextIter
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
TextIter -> IO TextIter
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
result'
#if defined(ENABLE_OVERLOADING)
data TextIterCopyMethodInfo
instance (signature ~ (m TextIter), MonadIO m) => O.OverloadedMethod TextIterCopyMethodInfo TextIter signature where
overloadedMethod = textIterCopy
instance O.OverloadedMethodInfo TextIterCopyMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterCopy",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterCopy"
}
#endif
foreign import ccall "gtk_text_iter_editable" gtk_text_iter_editable ::
Ptr TextIter ->
CInt ->
IO CInt
textIterEditable ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Bool
-> m Bool
textIterEditable :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Bool -> m Bool
textIterEditable TextIter
iter Bool
defaultSetting = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
let defaultSetting' :: CInt
defaultSetting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
defaultSetting
CInt
result <- Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_editable Ptr TextIter
iter' CInt
defaultSetting'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterEditableMethodInfo
instance (signature ~ (Bool -> m Bool), MonadIO m) => O.OverloadedMethod TextIterEditableMethodInfo TextIter signature where
overloadedMethod = textIterEditable
instance O.OverloadedMethodInfo TextIterEditableMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterEditable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterEditable"
}
#endif
foreign import ccall "gtk_text_iter_ends_line" gtk_text_iter_ends_line ::
Ptr TextIter ->
IO CInt
textIterEndsLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterEndsLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterEndsLine TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_ends_line Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterEndsLineMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterEndsLineMethodInfo TextIter signature where
overloadedMethod = textIterEndsLine
instance O.OverloadedMethodInfo TextIterEndsLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterEndsLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterEndsLine"
}
#endif
foreign import ccall "gtk_text_iter_ends_sentence" gtk_text_iter_ends_sentence ::
Ptr TextIter ->
IO CInt
textIterEndsSentence ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterEndsSentence :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterEndsSentence TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_ends_sentence Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterEndsSentenceMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterEndsSentenceMethodInfo TextIter signature where
overloadedMethod = textIterEndsSentence
instance O.OverloadedMethodInfo TextIterEndsSentenceMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterEndsSentence",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterEndsSentence"
}
#endif
foreign import ccall "gtk_text_iter_ends_tag" gtk_text_iter_ends_tag ::
Ptr TextIter ->
Ptr Gtk.TextTag.TextTag ->
IO CInt
textIterEndsTag ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTag.IsTextTag a) =>
TextIter
-> Maybe (a)
-> m Bool
textIterEndsTag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextTag a) =>
TextIter -> Maybe a -> m Bool
textIterEndsTag TextIter
iter Maybe a
tag = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextTag
maybeTag <- case Maybe a
tag of
Maybe a
Nothing -> Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
forall a. Ptr a
nullPtr
Just a
jTag -> do
Ptr TextTag
jTag' <- a -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jTag
Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
jTag'
CInt
result <- Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_ends_tag Ptr TextIter
iter' Ptr TextTag
maybeTag
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
tag a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterEndsTagMethodInfo
instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, Gtk.TextTag.IsTextTag a) => O.OverloadedMethod TextIterEndsTagMethodInfo TextIter signature where
overloadedMethod = textIterEndsTag
instance O.OverloadedMethodInfo TextIterEndsTagMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterEndsTag",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterEndsTag"
}
#endif
foreign import ccall "gtk_text_iter_ends_word" gtk_text_iter_ends_word ::
Ptr TextIter ->
IO CInt
textIterEndsWord ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterEndsWord :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterEndsWord TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_ends_word Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterEndsWordMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterEndsWordMethodInfo TextIter signature where
overloadedMethod = textIterEndsWord
instance O.OverloadedMethodInfo TextIterEndsWordMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterEndsWord",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterEndsWord"
}
#endif
foreign import ccall "gtk_text_iter_equal" gtk_text_iter_equal ::
Ptr TextIter ->
Ptr TextIter ->
IO CInt
textIterEqual ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> TextIter
-> m Bool
textIterEqual :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextIter -> m Bool
textIterEqual TextIter
lhs TextIter
rhs = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
lhs' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
lhs
Ptr TextIter
rhs' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
rhs
CInt
result <- Ptr TextIter -> Ptr TextIter -> IO CInt
gtk_text_iter_equal Ptr TextIter
lhs' Ptr TextIter
rhs'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
lhs
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
rhs
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterEqualMethodInfo
instance (signature ~ (TextIter -> m Bool), MonadIO m) => O.OverloadedMethod TextIterEqualMethodInfo TextIter signature where
overloadedMethod = textIterEqual
instance O.OverloadedMethodInfo TextIterEqualMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterEqual",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterEqual"
}
#endif
foreign import ccall "gtk_text_iter_forward_char" gtk_text_iter_forward_char ::
Ptr TextIter ->
IO CInt
textIterForwardChar ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterForwardChar :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterForwardChar TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_forward_char Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardCharMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardCharMethodInfo TextIter signature where
overloadedMethod = textIterForwardChar
instance O.OverloadedMethodInfo TextIterForwardCharMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardChar",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardChar"
}
#endif
foreign import ccall "gtk_text_iter_forward_chars" gtk_text_iter_forward_chars ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterForwardChars ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterForwardChars :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterForwardChars TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_forward_chars Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardCharsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardCharsMethodInfo TextIter signature where
overloadedMethod = textIterForwardChars
instance O.OverloadedMethodInfo TextIterForwardCharsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardChars",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardChars"
}
#endif
foreign import ccall "gtk_text_iter_forward_cursor_position" gtk_text_iter_forward_cursor_position ::
Ptr TextIter ->
IO CInt
textIterForwardCursorPosition ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterForwardCursorPosition :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterForwardCursorPosition TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_forward_cursor_position Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardCursorPositionMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardCursorPositionMethodInfo TextIter signature where
overloadedMethod = textIterForwardCursorPosition
instance O.OverloadedMethodInfo TextIterForwardCursorPositionMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardCursorPosition",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardCursorPosition"
}
#endif
foreign import ccall "gtk_text_iter_forward_cursor_positions" gtk_text_iter_forward_cursor_positions ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterForwardCursorPositions ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterForwardCursorPositions :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterForwardCursorPositions TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_forward_cursor_positions Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardCursorPositionsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardCursorPositionsMethodInfo TextIter signature where
overloadedMethod = textIterForwardCursorPositions
instance O.OverloadedMethodInfo TextIterForwardCursorPositionsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardCursorPositions",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardCursorPositions"
}
#endif
foreign import ccall "gtk_text_iter_forward_find_char" gtk_text_iter_forward_find_char ::
Ptr TextIter ->
FunPtr Gtk.Callbacks.C_TextCharPredicate ->
Ptr () ->
Ptr TextIter ->
IO CInt
textIterForwardFindChar ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Gtk.Callbacks.TextCharPredicate
-> Maybe (TextIter)
-> m Bool
textIterForwardFindChar :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextCharPredicate -> Maybe TextIter -> m Bool
textIterForwardFindChar TextIter
iter TextCharPredicate
pred Maybe TextIter
limit = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
FunPtr C_TextCharPredicate
pred' <- C_TextCharPredicate -> IO (FunPtr C_TextCharPredicate)
Gtk.Callbacks.mk_TextCharPredicate (Maybe (Ptr (FunPtr C_TextCharPredicate))
-> TextCharPredicate_WithClosures -> C_TextCharPredicate
Gtk.Callbacks.wrap_TextCharPredicate Maybe (Ptr (FunPtr C_TextCharPredicate))
forall a. Maybe a
Nothing (TextCharPredicate -> TextCharPredicate_WithClosures
Gtk.Callbacks.drop_closures_TextCharPredicate TextCharPredicate
pred))
Ptr TextIter
maybeLimit <- case Maybe TextIter
limit of
Maybe TextIter
Nothing -> Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
forall a. Ptr a
nullPtr
Just TextIter
jLimit -> do
Ptr TextIter
jLimit' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
jLimit
Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
jLimit'
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
CInt
result <- Ptr TextIter
-> FunPtr C_TextCharPredicate -> Ptr () -> Ptr TextIter -> IO CInt
gtk_text_iter_forward_find_char Ptr TextIter
iter' FunPtr C_TextCharPredicate
pred' Ptr ()
forall a. Ptr a
userData Ptr TextIter
maybeLimit
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_TextCharPredicate -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TextCharPredicate
pred'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe TextIter -> (TextIter -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TextIter
limit TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardFindCharMethodInfo
instance (signature ~ (Gtk.Callbacks.TextCharPredicate -> Maybe (TextIter) -> m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardFindCharMethodInfo TextIter signature where
overloadedMethod = textIterForwardFindChar
instance O.OverloadedMethodInfo TextIterForwardFindCharMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardFindChar",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardFindChar"
}
#endif
foreign import ccall "gtk_text_iter_forward_line" gtk_text_iter_forward_line ::
Ptr TextIter ->
IO CInt
textIterForwardLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterForwardLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterForwardLine TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_forward_line Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardLineMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardLineMethodInfo TextIter signature where
overloadedMethod = textIterForwardLine
instance O.OverloadedMethodInfo TextIterForwardLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardLine"
}
#endif
foreign import ccall "gtk_text_iter_forward_lines" gtk_text_iter_forward_lines ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterForwardLines ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterForwardLines :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterForwardLines TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_forward_lines Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardLinesMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardLinesMethodInfo TextIter signature where
overloadedMethod = textIterForwardLines
instance O.OverloadedMethodInfo TextIterForwardLinesMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardLines",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardLines"
}
#endif
foreign import ccall "gtk_text_iter_forward_search" gtk_text_iter_forward_search ::
Ptr TextIter ->
CString ->
CUInt ->
Ptr TextIter ->
Ptr TextIter ->
Ptr TextIter ->
IO CInt
textIterForwardSearch ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> T.Text
-> [Gtk.Flags.TextSearchFlags]
-> Maybe (TextIter)
-> m ((Bool, TextIter, TextIter))
textIterForwardSearch :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter
-> Text
-> [TextSearchFlags]
-> Maybe TextIter
-> m (Bool, TextIter, TextIter)
textIterForwardSearch TextIter
iter Text
str [TextSearchFlags]
flags Maybe TextIter
limit = IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter))
-> IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CString
str' <- Text -> IO CString
textToCString Text
str
let flags' :: CUInt
flags' = [TextSearchFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TextSearchFlags]
flags
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr TextIter)
Ptr TextIter
maybeLimit <- case Maybe TextIter
limit of
Maybe TextIter
Nothing -> Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
forall a. Ptr a
nullPtr
Just TextIter
jLimit -> do
Ptr TextIter
jLimit' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
jLimit
Ptr TextIter -> IO (Ptr TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextIter
jLimit'
CInt
result <- Ptr TextIter
-> CString
-> CUInt
-> Ptr TextIter
-> Ptr TextIter
-> Ptr TextIter
-> IO CInt
gtk_text_iter_forward_search Ptr TextIter
iter' CString
str' CUInt
flags' Ptr TextIter
matchStart Ptr TextIter
matchEnd Ptr TextIter
maybeLimit
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
TextIter) Ptr TextIter
matchEnd
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe TextIter -> (TextIter -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TextIter
limit TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
str'
(Bool, TextIter, TextIter) -> IO (Bool, TextIter, TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TextIter
matchStart', TextIter
matchEnd')
#if defined(ENABLE_OVERLOADING)
data TextIterForwardSearchMethodInfo
instance (signature ~ (T.Text -> [Gtk.Flags.TextSearchFlags] -> Maybe (TextIter) -> m ((Bool, TextIter, TextIter))), MonadIO m) => O.OverloadedMethod TextIterForwardSearchMethodInfo TextIter signature where
overloadedMethod = textIterForwardSearch
instance O.OverloadedMethodInfo TextIterForwardSearchMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardSearch",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardSearch"
}
#endif
foreign import ccall "gtk_text_iter_forward_sentence_end" gtk_text_iter_forward_sentence_end ::
Ptr TextIter ->
IO CInt
textIterForwardSentenceEnd ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterForwardSentenceEnd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterForwardSentenceEnd TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_forward_sentence_end Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardSentenceEndMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardSentenceEndMethodInfo TextIter signature where
overloadedMethod = textIterForwardSentenceEnd
instance O.OverloadedMethodInfo TextIterForwardSentenceEndMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardSentenceEnd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardSentenceEnd"
}
#endif
foreign import ccall "gtk_text_iter_forward_sentence_ends" gtk_text_iter_forward_sentence_ends ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterForwardSentenceEnds ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterForwardSentenceEnds :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterForwardSentenceEnds TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_forward_sentence_ends Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardSentenceEndsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardSentenceEndsMethodInfo TextIter signature where
overloadedMethod = textIterForwardSentenceEnds
instance O.OverloadedMethodInfo TextIterForwardSentenceEndsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardSentenceEnds",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardSentenceEnds"
}
#endif
foreign import ccall "gtk_text_iter_forward_to_end" gtk_text_iter_forward_to_end ::
Ptr TextIter ->
IO ()
textIterForwardToEnd ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m ()
textIterForwardToEnd :: forall (m :: * -> *). (HasCallStack, MonadIO m) => TextIter -> m ()
textIterForwardToEnd TextIter
iter = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter -> IO ()
gtk_text_iter_forward_to_end Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterForwardToEndMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod TextIterForwardToEndMethodInfo TextIter signature where
overloadedMethod = textIterForwardToEnd
instance O.OverloadedMethodInfo TextIterForwardToEndMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardToEnd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardToEnd"
}
#endif
foreign import ccall "gtk_text_iter_forward_to_line_end" gtk_text_iter_forward_to_line_end ::
Ptr TextIter ->
IO CInt
textIterForwardToLineEnd ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterForwardToLineEnd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterForwardToLineEnd TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_forward_to_line_end Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardToLineEndMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardToLineEndMethodInfo TextIter signature where
overloadedMethod = textIterForwardToLineEnd
instance O.OverloadedMethodInfo TextIterForwardToLineEndMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardToLineEnd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardToLineEnd"
}
#endif
foreign import ccall "gtk_text_iter_forward_to_tag_toggle" gtk_text_iter_forward_to_tag_toggle ::
Ptr TextIter ->
Ptr Gtk.TextTag.TextTag ->
IO CInt
textIterForwardToTagToggle ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTag.IsTextTag a) =>
TextIter
-> Maybe (a)
-> m Bool
textIterForwardToTagToggle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextTag a) =>
TextIter -> Maybe a -> m Bool
textIterForwardToTagToggle TextIter
iter Maybe a
tag = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextTag
maybeTag <- case Maybe a
tag of
Maybe a
Nothing -> Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
forall a. Ptr a
nullPtr
Just a
jTag -> do
Ptr TextTag
jTag' <- a -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jTag
Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
jTag'
CInt
result <- Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_forward_to_tag_toggle Ptr TextIter
iter' Ptr TextTag
maybeTag
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
tag a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardToTagToggleMethodInfo
instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, Gtk.TextTag.IsTextTag a) => O.OverloadedMethod TextIterForwardToTagToggleMethodInfo TextIter signature where
overloadedMethod = textIterForwardToTagToggle
instance O.OverloadedMethodInfo TextIterForwardToTagToggleMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardToTagToggle",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardToTagToggle"
}
#endif
foreign import ccall "gtk_text_iter_forward_visible_cursor_position" gtk_text_iter_forward_visible_cursor_position ::
Ptr TextIter ->
IO CInt
textIterForwardVisibleCursorPosition ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterForwardVisibleCursorPosition :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterForwardVisibleCursorPosition TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_forward_visible_cursor_position Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardVisibleCursorPositionMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardVisibleCursorPositionMethodInfo TextIter signature where
overloadedMethod = textIterForwardVisibleCursorPosition
instance O.OverloadedMethodInfo TextIterForwardVisibleCursorPositionMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardVisibleCursorPosition",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardVisibleCursorPosition"
}
#endif
foreign import ccall "gtk_text_iter_forward_visible_cursor_positions" gtk_text_iter_forward_visible_cursor_positions ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterForwardVisibleCursorPositions ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterForwardVisibleCursorPositions :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterForwardVisibleCursorPositions TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_forward_visible_cursor_positions Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardVisibleCursorPositionsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardVisibleCursorPositionsMethodInfo TextIter signature where
overloadedMethod = textIterForwardVisibleCursorPositions
instance O.OverloadedMethodInfo TextIterForwardVisibleCursorPositionsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardVisibleCursorPositions",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardVisibleCursorPositions"
}
#endif
foreign import ccall "gtk_text_iter_forward_visible_line" gtk_text_iter_forward_visible_line ::
Ptr TextIter ->
IO CInt
textIterForwardVisibleLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterForwardVisibleLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterForwardVisibleLine TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_forward_visible_line Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardVisibleLineMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardVisibleLineMethodInfo TextIter signature where
overloadedMethod = textIterForwardVisibleLine
instance O.OverloadedMethodInfo TextIterForwardVisibleLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardVisibleLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardVisibleLine"
}
#endif
foreign import ccall "gtk_text_iter_forward_visible_lines" gtk_text_iter_forward_visible_lines ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterForwardVisibleLines ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterForwardVisibleLines :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterForwardVisibleLines TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_forward_visible_lines Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardVisibleLinesMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardVisibleLinesMethodInfo TextIter signature where
overloadedMethod = textIterForwardVisibleLines
instance O.OverloadedMethodInfo TextIterForwardVisibleLinesMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardVisibleLines",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardVisibleLines"
}
#endif
foreign import ccall "gtk_text_iter_forward_visible_word_end" gtk_text_iter_forward_visible_word_end ::
Ptr TextIter ->
IO CInt
textIterForwardVisibleWordEnd ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterForwardVisibleWordEnd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterForwardVisibleWordEnd TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_forward_visible_word_end Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardVisibleWordEndMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardVisibleWordEndMethodInfo TextIter signature where
overloadedMethod = textIterForwardVisibleWordEnd
instance O.OverloadedMethodInfo TextIterForwardVisibleWordEndMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardVisibleWordEnd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardVisibleWordEnd"
}
#endif
foreign import ccall "gtk_text_iter_forward_visible_word_ends" gtk_text_iter_forward_visible_word_ends ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterForwardVisibleWordEnds ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterForwardVisibleWordEnds :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterForwardVisibleWordEnds TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_forward_visible_word_ends Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardVisibleWordEndsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardVisibleWordEndsMethodInfo TextIter signature where
overloadedMethod = textIterForwardVisibleWordEnds
instance O.OverloadedMethodInfo TextIterForwardVisibleWordEndsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardVisibleWordEnds",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardVisibleWordEnds"
}
#endif
foreign import ccall "gtk_text_iter_forward_word_end" gtk_text_iter_forward_word_end ::
Ptr TextIter ->
IO CInt
textIterForwardWordEnd ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterForwardWordEnd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterForwardWordEnd TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_forward_word_end Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardWordEndMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardWordEndMethodInfo TextIter signature where
overloadedMethod = textIterForwardWordEnd
instance O.OverloadedMethodInfo TextIterForwardWordEndMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardWordEnd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardWordEnd"
}
#endif
foreign import ccall "gtk_text_iter_forward_word_ends" gtk_text_iter_forward_word_ends ::
Ptr TextIter ->
Int32 ->
IO CInt
textIterForwardWordEnds ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m Bool
textIterForwardWordEnds :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m Bool
textIterForwardWordEnds TextIter
iter Int32
count = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> Int32 -> IO CInt
gtk_text_iter_forward_word_ends Ptr TextIter
iter' Int32
count
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterForwardWordEndsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m) => O.OverloadedMethod TextIterForwardWordEndsMethodInfo TextIter signature where
overloadedMethod = textIterForwardWordEnds
instance O.OverloadedMethodInfo TextIterForwardWordEndsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterForwardWordEnds",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterForwardWordEnds"
}
#endif
foreign import ccall "gtk_text_iter_free" gtk_text_iter_free ::
Ptr TextIter ->
IO ()
textIterFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m ()
textIterFree :: forall (m :: * -> *). (HasCallStack, MonadIO m) => TextIter -> m ()
textIterFree TextIter
iter = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter -> IO ()
gtk_text_iter_free Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod TextIterFreeMethodInfo TextIter signature where
overloadedMethod = textIterFree
instance O.OverloadedMethodInfo TextIterFreeMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterFree",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterFree"
}
#endif
foreign import ccall "gtk_text_iter_get_attributes" gtk_text_iter_get_attributes ::
Ptr TextIter ->
Ptr Gtk.TextAttributes.TextAttributes ->
IO CInt
textIterGetAttributes ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m ((Bool, Gtk.TextAttributes.TextAttributes))
textIterGetAttributes :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m (Bool, TextAttributes)
textIterGetAttributes TextIter
iter = IO (Bool, TextAttributes) -> m (Bool, TextAttributes)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TextAttributes) -> m (Bool, TextAttributes))
-> IO (Bool, TextAttributes) -> m (Bool, TextAttributes)
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextAttributes
values <- Int -> IO (Ptr TextAttributes)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
168 :: IO (Ptr Gtk.TextAttributes.TextAttributes)
CInt
result <- Ptr TextIter -> Ptr TextAttributes -> IO CInt
gtk_text_iter_get_attributes Ptr TextIter
iter' Ptr TextAttributes
values
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextAttributes
values' <- ((ManagedPtr TextAttributes -> TextAttributes)
-> Ptr TextAttributes -> IO TextAttributes
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextAttributes -> TextAttributes
Gtk.TextAttributes.TextAttributes) Ptr TextAttributes
values
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
(Bool, TextAttributes) -> IO (Bool, TextAttributes)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TextAttributes
values')
#if defined(ENABLE_OVERLOADING)
data TextIterGetAttributesMethodInfo
instance (signature ~ (m ((Bool, Gtk.TextAttributes.TextAttributes))), MonadIO m) => O.OverloadedMethod TextIterGetAttributesMethodInfo TextIter signature where
overloadedMethod = textIterGetAttributes
instance O.OverloadedMethodInfo TextIterGetAttributesMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetAttributes",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetAttributes"
}
#endif
foreign import ccall "gtk_text_iter_get_buffer" gtk_text_iter_get_buffer ::
Ptr TextIter ->
IO (Ptr Gtk.TextBuffer.TextBuffer)
textIterGetBuffer ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Gtk.TextBuffer.TextBuffer
textIterGetBuffer :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m TextBuffer
textIterGetBuffer TextIter
iter = IO TextBuffer -> m TextBuffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextBuffer -> m TextBuffer) -> IO TextBuffer -> m TextBuffer
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextBuffer
result <- Ptr TextIter -> IO (Ptr TextBuffer)
gtk_text_iter_get_buffer Ptr TextIter
iter'
Text -> Ptr TextBuffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textIterGetBuffer" Ptr TextBuffer
result
TextBuffer
result' <- ((ManagedPtr TextBuffer -> TextBuffer)
-> Ptr TextBuffer -> IO TextBuffer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextBuffer -> TextBuffer
Gtk.TextBuffer.TextBuffer) Ptr TextBuffer
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
TextBuffer -> IO TextBuffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextBuffer
result'
#if defined(ENABLE_OVERLOADING)
data TextIterGetBufferMethodInfo
instance (signature ~ (m Gtk.TextBuffer.TextBuffer), MonadIO m) => O.OverloadedMethod TextIterGetBufferMethodInfo TextIter signature where
overloadedMethod = textIterGetBuffer
instance O.OverloadedMethodInfo TextIterGetBufferMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetBuffer",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetBuffer"
}
#endif
foreign import ccall "gtk_text_iter_get_bytes_in_line" gtk_text_iter_get_bytes_in_line ::
Ptr TextIter ->
IO Int32
textIterGetBytesInLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Int32
textIterGetBytesInLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Int32
textIterGetBytesInLine TextIter
iter = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Int32
result <- Ptr TextIter -> IO Int32
gtk_text_iter_get_bytes_in_line Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextIterGetBytesInLineMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TextIterGetBytesInLineMethodInfo TextIter signature where
overloadedMethod = textIterGetBytesInLine
instance O.OverloadedMethodInfo TextIterGetBytesInLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetBytesInLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetBytesInLine"
}
#endif
foreign import ccall "gtk_text_iter_get_char" gtk_text_iter_get_char ::
Ptr TextIter ->
IO CInt
textIterGetChar ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Char
textIterGetChar :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Char
textIterGetChar TextIter
iter = IO Char -> m Char
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Char -> m Char) -> IO Char -> m Char
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_get_char Ptr TextIter
iter'
let result' :: Char
result' = (Int -> Char
chr (Int -> Char) -> (CInt -> Int) -> CInt -> Char
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Char -> IO Char
forall (m :: * -> *) a. Monad m => a -> m a
return Char
result'
#if defined(ENABLE_OVERLOADING)
data TextIterGetCharMethodInfo
instance (signature ~ (m Char), MonadIO m) => O.OverloadedMethod TextIterGetCharMethodInfo TextIter signature where
overloadedMethod = textIterGetChar
instance O.OverloadedMethodInfo TextIterGetCharMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetChar",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetChar"
}
#endif
foreign import ccall "gtk_text_iter_get_chars_in_line" gtk_text_iter_get_chars_in_line ::
Ptr TextIter ->
IO Int32
textIterGetCharsInLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Int32
textIterGetCharsInLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Int32
textIterGetCharsInLine TextIter
iter = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Int32
result <- Ptr TextIter -> IO Int32
gtk_text_iter_get_chars_in_line Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextIterGetCharsInLineMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TextIterGetCharsInLineMethodInfo TextIter signature where
overloadedMethod = textIterGetCharsInLine
instance O.OverloadedMethodInfo TextIterGetCharsInLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetCharsInLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetCharsInLine"
}
#endif
foreign import ccall "gtk_text_iter_get_child_anchor" gtk_text_iter_get_child_anchor ::
Ptr TextIter ->
IO (Ptr Gtk.TextChildAnchor.TextChildAnchor)
textIterGetChildAnchor ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Gtk.TextChildAnchor.TextChildAnchor
textIterGetChildAnchor :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m TextChildAnchor
textIterGetChildAnchor TextIter
iter = IO TextChildAnchor -> m TextChildAnchor
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextChildAnchor -> m TextChildAnchor)
-> IO TextChildAnchor -> m TextChildAnchor
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextChildAnchor
result <- Ptr TextIter -> IO (Ptr TextChildAnchor)
gtk_text_iter_get_child_anchor Ptr TextIter
iter'
Text -> Ptr TextChildAnchor -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textIterGetChildAnchor" Ptr TextChildAnchor
result
TextChildAnchor
result' <- ((ManagedPtr TextChildAnchor -> TextChildAnchor)
-> Ptr TextChildAnchor -> IO TextChildAnchor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextChildAnchor -> TextChildAnchor
Gtk.TextChildAnchor.TextChildAnchor) Ptr TextChildAnchor
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
TextChildAnchor -> IO TextChildAnchor
forall (m :: * -> *) a. Monad m => a -> m a
return TextChildAnchor
result'
#if defined(ENABLE_OVERLOADING)
data TextIterGetChildAnchorMethodInfo
instance (signature ~ (m Gtk.TextChildAnchor.TextChildAnchor), MonadIO m) => O.OverloadedMethod TextIterGetChildAnchorMethodInfo TextIter signature where
overloadedMethod = textIterGetChildAnchor
instance O.OverloadedMethodInfo TextIterGetChildAnchorMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetChildAnchor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetChildAnchor"
}
#endif
foreign import ccall "gtk_text_iter_get_language" gtk_text_iter_get_language ::
Ptr TextIter ->
IO (Ptr Pango.Language.Language)
textIterGetLanguage ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Pango.Language.Language
textIterGetLanguage :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Language
textIterGetLanguage TextIter
iter = IO Language -> m Language
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Language -> m Language) -> IO Language -> m Language
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Language
result <- Ptr TextIter -> IO (Ptr Language)
gtk_text_iter_get_language Ptr TextIter
iter'
Text -> Ptr Language -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textIterGetLanguage" Ptr Language
result
Language
result' <- ((ManagedPtr Language -> Language) -> Ptr Language -> IO Language
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Language -> Language
Pango.Language.Language) Ptr Language
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Language -> IO Language
forall (m :: * -> *) a. Monad m => a -> m a
return Language
result'
#if defined(ENABLE_OVERLOADING)
data TextIterGetLanguageMethodInfo
instance (signature ~ (m Pango.Language.Language), MonadIO m) => O.OverloadedMethod TextIterGetLanguageMethodInfo TextIter signature where
overloadedMethod = textIterGetLanguage
instance O.OverloadedMethodInfo TextIterGetLanguageMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetLanguage",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetLanguage"
}
#endif
foreign import ccall "gtk_text_iter_get_line" gtk_text_iter_get_line ::
Ptr TextIter ->
IO Int32
textIterGetLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Int32
textIterGetLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Int32
textIterGetLine TextIter
iter = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Int32
result <- Ptr TextIter -> IO Int32
gtk_text_iter_get_line Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextIterGetLineMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TextIterGetLineMethodInfo TextIter signature where
overloadedMethod = textIterGetLine
instance O.OverloadedMethodInfo TextIterGetLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetLine"
}
#endif
foreign import ccall "gtk_text_iter_get_line_index" gtk_text_iter_get_line_index ::
Ptr TextIter ->
IO Int32
textIterGetLineIndex ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Int32
textIterGetLineIndex :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Int32
textIterGetLineIndex TextIter
iter = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Int32
result <- Ptr TextIter -> IO Int32
gtk_text_iter_get_line_index Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextIterGetLineIndexMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TextIterGetLineIndexMethodInfo TextIter signature where
overloadedMethod = textIterGetLineIndex
instance O.OverloadedMethodInfo TextIterGetLineIndexMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetLineIndex",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetLineIndex"
}
#endif
foreign import ccall "gtk_text_iter_get_line_offset" gtk_text_iter_get_line_offset ::
Ptr TextIter ->
IO Int32
textIterGetLineOffset ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Int32
textIterGetLineOffset :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Int32
textIterGetLineOffset TextIter
iter = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Int32
result <- Ptr TextIter -> IO Int32
gtk_text_iter_get_line_offset Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextIterGetLineOffsetMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TextIterGetLineOffsetMethodInfo TextIter signature where
overloadedMethod = textIterGetLineOffset
instance O.OverloadedMethodInfo TextIterGetLineOffsetMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetLineOffset",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetLineOffset"
}
#endif
foreign import ccall "gtk_text_iter_get_marks" gtk_text_iter_get_marks ::
Ptr TextIter ->
IO (Ptr (GSList (Ptr Gtk.TextMark.TextMark)))
textIterGetMarks ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m [Gtk.TextMark.TextMark]
textIterGetMarks :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m [TextMark]
textIterGetMarks TextIter
iter = IO [TextMark] -> m [TextMark]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TextMark] -> m [TextMark]) -> IO [TextMark] -> m [TextMark]
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr (GSList (Ptr TextMark))
result <- Ptr TextIter -> IO (Ptr (GSList (Ptr TextMark)))
gtk_text_iter_get_marks Ptr TextIter
iter'
[Ptr TextMark]
result' <- Ptr (GSList (Ptr TextMark)) -> IO [Ptr TextMark]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr TextMark))
result
[TextMark]
result'' <- (Ptr TextMark -> IO TextMark) -> [Ptr TextMark] -> IO [TextMark]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr TextMark -> TextMark) -> Ptr TextMark -> IO TextMark
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextMark -> TextMark
Gtk.TextMark.TextMark) [Ptr TextMark]
result'
Ptr (GSList (Ptr TextMark)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr TextMark))
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
[TextMark] -> IO [TextMark]
forall (m :: * -> *) a. Monad m => a -> m a
return [TextMark]
result''
#if defined(ENABLE_OVERLOADING)
data TextIterGetMarksMethodInfo
instance (signature ~ (m [Gtk.TextMark.TextMark]), MonadIO m) => O.OverloadedMethod TextIterGetMarksMethodInfo TextIter signature where
overloadedMethod = textIterGetMarks
instance O.OverloadedMethodInfo TextIterGetMarksMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetMarks",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetMarks"
}
#endif
foreign import ccall "gtk_text_iter_get_offset" gtk_text_iter_get_offset ::
Ptr TextIter ->
IO Int32
textIterGetOffset ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Int32
textIterGetOffset :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Int32
textIterGetOffset TextIter
iter = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Int32
result <- Ptr TextIter -> IO Int32
gtk_text_iter_get_offset Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextIterGetOffsetMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TextIterGetOffsetMethodInfo TextIter signature where
overloadedMethod = textIterGetOffset
instance O.OverloadedMethodInfo TextIterGetOffsetMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetOffset",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetOffset"
}
#endif
foreign import ccall "gtk_text_iter_get_pixbuf" gtk_text_iter_get_pixbuf ::
Ptr TextIter ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
textIterGetPixbuf ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m GdkPixbuf.Pixbuf.Pixbuf
textIterGetPixbuf :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Pixbuf
textIterGetPixbuf TextIter
iter = IO Pixbuf -> m Pixbuf
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Pixbuf -> m Pixbuf) -> IO Pixbuf -> m Pixbuf
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Pixbuf
result <- Ptr TextIter -> IO (Ptr Pixbuf)
gtk_text_iter_get_pixbuf Ptr TextIter
iter'
Text -> Ptr Pixbuf -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textIterGetPixbuf" Ptr Pixbuf
result
Pixbuf
result' <- ((ManagedPtr Pixbuf -> Pixbuf) -> Ptr Pixbuf -> IO Pixbuf
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Pixbuf -> IO Pixbuf
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result'
#if defined(ENABLE_OVERLOADING)
data TextIterGetPixbufMethodInfo
instance (signature ~ (m GdkPixbuf.Pixbuf.Pixbuf), MonadIO m) => O.OverloadedMethod TextIterGetPixbufMethodInfo TextIter signature where
overloadedMethod = textIterGetPixbuf
instance O.OverloadedMethodInfo TextIterGetPixbufMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetPixbuf",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetPixbuf"
}
#endif
foreign import ccall "gtk_text_iter_get_slice" gtk_text_iter_get_slice ::
Ptr TextIter ->
Ptr TextIter ->
IO CString
textIterGetSlice ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> TextIter
-> m T.Text
textIterGetSlice :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextIter -> m Text
textIterGetSlice TextIter
start TextIter
end = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
start' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
CString
result <- Ptr TextIter -> Ptr TextIter -> IO CString
gtk_text_iter_get_slice Ptr TextIter
start' Ptr TextIter
end'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textIterGetSlice" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextIterGetSliceMethodInfo
instance (signature ~ (TextIter -> m T.Text), MonadIO m) => O.OverloadedMethod TextIterGetSliceMethodInfo TextIter signature where
overloadedMethod = textIterGetSlice
instance O.OverloadedMethodInfo TextIterGetSliceMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetSlice",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetSlice"
}
#endif
foreign import ccall "gtk_text_iter_get_tags" gtk_text_iter_get_tags ::
Ptr TextIter ->
IO (Ptr (GSList (Ptr Gtk.TextTag.TextTag)))
textIterGetTags ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m [Gtk.TextTag.TextTag]
textIterGetTags :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m [TextTag]
textIterGetTags TextIter
iter = IO [TextTag] -> m [TextTag]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TextTag] -> m [TextTag]) -> IO [TextTag] -> m [TextTag]
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr (GSList (Ptr TextTag))
result <- Ptr TextIter -> IO (Ptr (GSList (Ptr TextTag)))
gtk_text_iter_get_tags Ptr TextIter
iter'
[Ptr TextTag]
result' <- Ptr (GSList (Ptr TextTag)) -> IO [Ptr TextTag]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr TextTag))
result
[TextTag]
result'' <- (Ptr TextTag -> IO TextTag) -> [Ptr TextTag] -> IO [TextTag]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr TextTag -> TextTag) -> Ptr TextTag -> IO TextTag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextTag -> TextTag
Gtk.TextTag.TextTag) [Ptr TextTag]
result'
Ptr (GSList (Ptr TextTag)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr TextTag))
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
[TextTag] -> IO [TextTag]
forall (m :: * -> *) a. Monad m => a -> m a
return [TextTag]
result''
#if defined(ENABLE_OVERLOADING)
data TextIterGetTagsMethodInfo
instance (signature ~ (m [Gtk.TextTag.TextTag]), MonadIO m) => O.OverloadedMethod TextIterGetTagsMethodInfo TextIter signature where
overloadedMethod = textIterGetTags
instance O.OverloadedMethodInfo TextIterGetTagsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetTags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetTags"
}
#endif
foreign import ccall "gtk_text_iter_get_text" gtk_text_iter_get_text ::
Ptr TextIter ->
Ptr TextIter ->
IO CString
textIterGetText ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> TextIter
-> m T.Text
textIterGetText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextIter -> m Text
textIterGetText TextIter
start TextIter
end = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
start' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
CString
result <- Ptr TextIter -> Ptr TextIter -> IO CString
gtk_text_iter_get_text Ptr TextIter
start' Ptr TextIter
end'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textIterGetText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextIterGetTextMethodInfo
instance (signature ~ (TextIter -> m T.Text), MonadIO m) => O.OverloadedMethod TextIterGetTextMethodInfo TextIter signature where
overloadedMethod = textIterGetText
instance O.OverloadedMethodInfo TextIterGetTextMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetText"
}
#endif
foreign import ccall "gtk_text_iter_get_toggled_tags" gtk_text_iter_get_toggled_tags ::
Ptr TextIter ->
CInt ->
IO (Ptr (GSList (Ptr Gtk.TextTag.TextTag)))
textIterGetToggledTags ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Bool
-> m [Gtk.TextTag.TextTag]
textIterGetToggledTags :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Bool -> m [TextTag]
textIterGetToggledTags TextIter
iter Bool
toggledOn = IO [TextTag] -> m [TextTag]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TextTag] -> m [TextTag]) -> IO [TextTag] -> m [TextTag]
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
let toggledOn' :: CInt
toggledOn' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
toggledOn
Ptr (GSList (Ptr TextTag))
result <- Ptr TextIter -> CInt -> IO (Ptr (GSList (Ptr TextTag)))
gtk_text_iter_get_toggled_tags Ptr TextIter
iter' CInt
toggledOn'
[Ptr TextTag]
result' <- Ptr (GSList (Ptr TextTag)) -> IO [Ptr TextTag]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr TextTag))
result
[TextTag]
result'' <- (Ptr TextTag -> IO TextTag) -> [Ptr TextTag] -> IO [TextTag]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr TextTag -> TextTag) -> Ptr TextTag -> IO TextTag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextTag -> TextTag
Gtk.TextTag.TextTag) [Ptr TextTag]
result'
Ptr (GSList (Ptr TextTag)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr TextTag))
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
[TextTag] -> IO [TextTag]
forall (m :: * -> *) a. Monad m => a -> m a
return [TextTag]
result''
#if defined(ENABLE_OVERLOADING)
data TextIterGetToggledTagsMethodInfo
instance (signature ~ (Bool -> m [Gtk.TextTag.TextTag]), MonadIO m) => O.OverloadedMethod TextIterGetToggledTagsMethodInfo TextIter signature where
overloadedMethod = textIterGetToggledTags
instance O.OverloadedMethodInfo TextIterGetToggledTagsMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetToggledTags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetToggledTags"
}
#endif
foreign import ccall "gtk_text_iter_get_visible_line_index" gtk_text_iter_get_visible_line_index ::
Ptr TextIter ->
IO Int32
textIterGetVisibleLineIndex ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Int32
textIterGetVisibleLineIndex :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Int32
textIterGetVisibleLineIndex TextIter
iter = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Int32
result <- Ptr TextIter -> IO Int32
gtk_text_iter_get_visible_line_index Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextIterGetVisibleLineIndexMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TextIterGetVisibleLineIndexMethodInfo TextIter signature where
overloadedMethod = textIterGetVisibleLineIndex
instance O.OverloadedMethodInfo TextIterGetVisibleLineIndexMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetVisibleLineIndex",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetVisibleLineIndex"
}
#endif
foreign import ccall "gtk_text_iter_get_visible_line_offset" gtk_text_iter_get_visible_line_offset ::
Ptr TextIter ->
IO Int32
textIterGetVisibleLineOffset ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Int32
textIterGetVisibleLineOffset :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Int32
textIterGetVisibleLineOffset TextIter
iter = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Int32
result <- Ptr TextIter -> IO Int32
gtk_text_iter_get_visible_line_offset Ptr TextIter
iter'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextIterGetVisibleLineOffsetMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod TextIterGetVisibleLineOffsetMethodInfo TextIter signature where
overloadedMethod = textIterGetVisibleLineOffset
instance O.OverloadedMethodInfo TextIterGetVisibleLineOffsetMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetVisibleLineOffset",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetVisibleLineOffset"
}
#endif
foreign import ccall "gtk_text_iter_get_visible_slice" gtk_text_iter_get_visible_slice ::
Ptr TextIter ->
Ptr TextIter ->
IO CString
textIterGetVisibleSlice ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> TextIter
-> m T.Text
textIterGetVisibleSlice :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextIter -> m Text
textIterGetVisibleSlice TextIter
start TextIter
end = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
start' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
CString
result <- Ptr TextIter -> Ptr TextIter -> IO CString
gtk_text_iter_get_visible_slice Ptr TextIter
start' Ptr TextIter
end'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textIterGetVisibleSlice" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextIterGetVisibleSliceMethodInfo
instance (signature ~ (TextIter -> m T.Text), MonadIO m) => O.OverloadedMethod TextIterGetVisibleSliceMethodInfo TextIter signature where
overloadedMethod = textIterGetVisibleSlice
instance O.OverloadedMethodInfo TextIterGetVisibleSliceMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetVisibleSlice",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetVisibleSlice"
}
#endif
foreign import ccall "gtk_text_iter_get_visible_text" gtk_text_iter_get_visible_text ::
Ptr TextIter ->
Ptr TextIter ->
IO CString
textIterGetVisibleText ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> TextIter
-> m T.Text
textIterGetVisibleText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextIter -> m Text
textIterGetVisibleText TextIter
start TextIter
end = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
start' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
CString
result <- Ptr TextIter -> Ptr TextIter -> IO CString
gtk_text_iter_get_visible_text Ptr TextIter
start' Ptr TextIter
end'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textIterGetVisibleText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextIterGetVisibleTextMethodInfo
instance (signature ~ (TextIter -> m T.Text), MonadIO m) => O.OverloadedMethod TextIterGetVisibleTextMethodInfo TextIter signature where
overloadedMethod = textIterGetVisibleText
instance O.OverloadedMethodInfo TextIterGetVisibleTextMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterGetVisibleText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterGetVisibleText"
}
#endif
foreign import ccall "gtk_text_iter_has_tag" gtk_text_iter_has_tag ::
Ptr TextIter ->
Ptr Gtk.TextTag.TextTag ->
IO CInt
textIterHasTag ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTag.IsTextTag a) =>
TextIter
-> a
-> m Bool
textIterHasTag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextTag a) =>
TextIter -> a -> m Bool
textIterHasTag TextIter
iter a
tag = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextTag
tag' <- a -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
tag
CInt
result <- Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_has_tag Ptr TextIter
iter' Ptr TextTag
tag'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
tag
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterHasTagMethodInfo
instance (signature ~ (a -> m Bool), MonadIO m, Gtk.TextTag.IsTextTag a) => O.OverloadedMethod TextIterHasTagMethodInfo TextIter signature where
overloadedMethod = textIterHasTag
instance O.OverloadedMethodInfo TextIterHasTagMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterHasTag",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterHasTag"
}
#endif
foreign import ccall "gtk_text_iter_in_range" gtk_text_iter_in_range ::
Ptr TextIter ->
Ptr TextIter ->
Ptr TextIter ->
IO CInt
textIterInRange ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> TextIter
-> TextIter
-> m Bool
textIterInRange :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextIter -> TextIter -> m Bool
textIterInRange TextIter
iter TextIter
start TextIter
end = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter
start' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
CInt
result <- Ptr TextIter -> Ptr TextIter -> Ptr TextIter -> IO CInt
gtk_text_iter_in_range Ptr TextIter
iter' Ptr TextIter
start' Ptr TextIter
end'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterInRangeMethodInfo
instance (signature ~ (TextIter -> TextIter -> m Bool), MonadIO m) => O.OverloadedMethod TextIterInRangeMethodInfo TextIter signature where
overloadedMethod = textIterInRange
instance O.OverloadedMethodInfo TextIterInRangeMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterInRange",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterInRange"
}
#endif
foreign import ccall "gtk_text_iter_inside_sentence" gtk_text_iter_inside_sentence ::
Ptr TextIter ->
IO CInt
textIterInsideSentence ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterInsideSentence :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterInsideSentence TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_inside_sentence Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterInsideSentenceMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterInsideSentenceMethodInfo TextIter signature where
overloadedMethod = textIterInsideSentence
instance O.OverloadedMethodInfo TextIterInsideSentenceMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterInsideSentence",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterInsideSentence"
}
#endif
foreign import ccall "gtk_text_iter_inside_word" gtk_text_iter_inside_word ::
Ptr TextIter ->
IO CInt
textIterInsideWord ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterInsideWord :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterInsideWord TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_inside_word Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterInsideWordMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterInsideWordMethodInfo TextIter signature where
overloadedMethod = textIterInsideWord
instance O.OverloadedMethodInfo TextIterInsideWordMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterInsideWord",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterInsideWord"
}
#endif
foreign import ccall "gtk_text_iter_is_cursor_position" gtk_text_iter_is_cursor_position ::
Ptr TextIter ->
IO CInt
textIterIsCursorPosition ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterIsCursorPosition :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterIsCursorPosition TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_is_cursor_position Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterIsCursorPositionMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterIsCursorPositionMethodInfo TextIter signature where
overloadedMethod = textIterIsCursorPosition
instance O.OverloadedMethodInfo TextIterIsCursorPositionMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterIsCursorPosition",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterIsCursorPosition"
}
#endif
foreign import ccall "gtk_text_iter_is_end" gtk_text_iter_is_end ::
Ptr TextIter ->
IO CInt
textIterIsEnd ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterIsEnd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterIsEnd TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_is_end Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterIsEndMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterIsEndMethodInfo TextIter signature where
overloadedMethod = textIterIsEnd
instance O.OverloadedMethodInfo TextIterIsEndMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterIsEnd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterIsEnd"
}
#endif
foreign import ccall "gtk_text_iter_is_start" gtk_text_iter_is_start ::
Ptr TextIter ->
IO CInt
textIterIsStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterIsStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterIsStart TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_is_start Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterIsStartMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterIsStartMethodInfo TextIter signature where
overloadedMethod = textIterIsStart
instance O.OverloadedMethodInfo TextIterIsStartMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterIsStart",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterIsStart"
}
#endif
foreign import ccall "gtk_text_iter_order" gtk_text_iter_order ::
Ptr TextIter ->
Ptr TextIter ->
IO ()
textIterOrder ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> TextIter
-> m ()
textIterOrder :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> TextIter -> m ()
textIterOrder TextIter
first TextIter
second = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
first' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
first
Ptr TextIter
second' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
second
Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_iter_order Ptr TextIter
first' Ptr TextIter
second'
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
first
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
second
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterOrderMethodInfo
instance (signature ~ (TextIter -> m ()), MonadIO m) => O.OverloadedMethod TextIterOrderMethodInfo TextIter signature where
overloadedMethod = textIterOrder
instance O.OverloadedMethodInfo TextIterOrderMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterOrder",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterOrder"
}
#endif
foreign import ccall "gtk_text_iter_set_line" gtk_text_iter_set_line ::
Ptr TextIter ->
Int32 ->
IO ()
textIterSetLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m ()
textIterSetLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m ()
textIterSetLine TextIter
iter Int32
lineNumber = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter -> Int32 -> IO ()
gtk_text_iter_set_line Ptr TextIter
iter' Int32
lineNumber
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterSetLineMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m) => O.OverloadedMethod TextIterSetLineMethodInfo TextIter signature where
overloadedMethod = textIterSetLine
instance O.OverloadedMethodInfo TextIterSetLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterSetLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterSetLine"
}
#endif
foreign import ccall "gtk_text_iter_set_line_index" gtk_text_iter_set_line_index ::
Ptr TextIter ->
Int32 ->
IO ()
textIterSetLineIndex ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m ()
textIterSetLineIndex :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m ()
textIterSetLineIndex TextIter
iter Int32
byteOnLine = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter -> Int32 -> IO ()
gtk_text_iter_set_line_index Ptr TextIter
iter' Int32
byteOnLine
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterSetLineIndexMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m) => O.OverloadedMethod TextIterSetLineIndexMethodInfo TextIter signature where
overloadedMethod = textIterSetLineIndex
instance O.OverloadedMethodInfo TextIterSetLineIndexMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterSetLineIndex",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterSetLineIndex"
}
#endif
foreign import ccall "gtk_text_iter_set_line_offset" gtk_text_iter_set_line_offset ::
Ptr TextIter ->
Int32 ->
IO ()
textIterSetLineOffset ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m ()
textIterSetLineOffset :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m ()
textIterSetLineOffset TextIter
iter Int32
charOnLine = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter -> Int32 -> IO ()
gtk_text_iter_set_line_offset Ptr TextIter
iter' Int32
charOnLine
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterSetLineOffsetMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m) => O.OverloadedMethod TextIterSetLineOffsetMethodInfo TextIter signature where
overloadedMethod = textIterSetLineOffset
instance O.OverloadedMethodInfo TextIterSetLineOffsetMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterSetLineOffset",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterSetLineOffset"
}
#endif
foreign import ccall "gtk_text_iter_set_offset" gtk_text_iter_set_offset ::
Ptr TextIter ->
Int32 ->
IO ()
textIterSetOffset ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m ()
textIterSetOffset :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m ()
textIterSetOffset TextIter
iter Int32
charOffset = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter -> Int32 -> IO ()
gtk_text_iter_set_offset Ptr TextIter
iter' Int32
charOffset
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterSetOffsetMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m) => O.OverloadedMethod TextIterSetOffsetMethodInfo TextIter signature where
overloadedMethod = textIterSetOffset
instance O.OverloadedMethodInfo TextIterSetOffsetMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterSetOffset",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterSetOffset"
}
#endif
foreign import ccall "gtk_text_iter_set_visible_line_index" gtk_text_iter_set_visible_line_index ::
Ptr TextIter ->
Int32 ->
IO ()
textIterSetVisibleLineIndex ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m ()
textIterSetVisibleLineIndex :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m ()
textIterSetVisibleLineIndex TextIter
iter Int32
byteOnLine = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter -> Int32 -> IO ()
gtk_text_iter_set_visible_line_index Ptr TextIter
iter' Int32
byteOnLine
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterSetVisibleLineIndexMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m) => O.OverloadedMethod TextIterSetVisibleLineIndexMethodInfo TextIter signature where
overloadedMethod = textIterSetVisibleLineIndex
instance O.OverloadedMethodInfo TextIterSetVisibleLineIndexMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterSetVisibleLineIndex",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterSetVisibleLineIndex"
}
#endif
foreign import ccall "gtk_text_iter_set_visible_line_offset" gtk_text_iter_set_visible_line_offset ::
Ptr TextIter ->
Int32 ->
IO ()
textIterSetVisibleLineOffset ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> Int32
-> m ()
textIterSetVisibleLineOffset :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> Int32 -> m ()
textIterSetVisibleLineOffset TextIter
iter Int32
charOnLine = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter -> Int32 -> IO ()
gtk_text_iter_set_visible_line_offset Ptr TextIter
iter' Int32
charOnLine
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextIterSetVisibleLineOffsetMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m) => O.OverloadedMethod TextIterSetVisibleLineOffsetMethodInfo TextIter signature where
overloadedMethod = textIterSetVisibleLineOffset
instance O.OverloadedMethodInfo TextIterSetVisibleLineOffsetMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterSetVisibleLineOffset",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterSetVisibleLineOffset"
}
#endif
foreign import ccall "gtk_text_iter_starts_line" gtk_text_iter_starts_line ::
Ptr TextIter ->
IO CInt
textIterStartsLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterStartsLine :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterStartsLine TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_starts_line Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterStartsLineMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterStartsLineMethodInfo TextIter signature where
overloadedMethod = textIterStartsLine
instance O.OverloadedMethodInfo TextIterStartsLineMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterStartsLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterStartsLine"
}
#endif
foreign import ccall "gtk_text_iter_starts_sentence" gtk_text_iter_starts_sentence ::
Ptr TextIter ->
IO CInt
textIterStartsSentence ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterStartsSentence :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterStartsSentence TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_starts_sentence Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterStartsSentenceMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterStartsSentenceMethodInfo TextIter signature where
overloadedMethod = textIterStartsSentence
instance O.OverloadedMethodInfo TextIterStartsSentenceMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterStartsSentence",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterStartsSentence"
}
#endif
foreign import ccall "gtk_text_iter_starts_tag" gtk_text_iter_starts_tag ::
Ptr TextIter ->
Ptr Gtk.TextTag.TextTag ->
IO CInt
textIterStartsTag ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTag.IsTextTag a) =>
TextIter
-> Maybe (a)
-> m Bool
textIterStartsTag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextTag a) =>
TextIter -> Maybe a -> m Bool
textIterStartsTag TextIter
iter Maybe a
tag = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextTag
maybeTag <- case Maybe a
tag of
Maybe a
Nothing -> Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
forall a. Ptr a
nullPtr
Just a
jTag -> do
Ptr TextTag
jTag' <- a -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jTag
Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
jTag'
CInt
result <- Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_starts_tag Ptr TextIter
iter' Ptr TextTag
maybeTag
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
tag a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterStartsTagMethodInfo
instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, Gtk.TextTag.IsTextTag a) => O.OverloadedMethod TextIterStartsTagMethodInfo TextIter signature where
overloadedMethod = textIterStartsTag
instance O.OverloadedMethodInfo TextIterStartsTagMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterStartsTag",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterStartsTag"
}
#endif
foreign import ccall "gtk_text_iter_starts_word" gtk_text_iter_starts_word ::
Ptr TextIter ->
IO CInt
textIterStartsWord ::
(B.CallStack.HasCallStack, MonadIO m) =>
TextIter
-> m Bool
textIterStartsWord :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextIter -> m Bool
textIterStartsWord TextIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
CInt
result <- Ptr TextIter -> IO CInt
gtk_text_iter_starts_word Ptr TextIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterStartsWordMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod TextIterStartsWordMethodInfo TextIter signature where
overloadedMethod = textIterStartsWord
instance O.OverloadedMethodInfo TextIterStartsWordMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterStartsWord",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterStartsWord"
}
#endif
foreign import ccall "gtk_text_iter_toggles_tag" gtk_text_iter_toggles_tag ::
Ptr TextIter ->
Ptr Gtk.TextTag.TextTag ->
IO CInt
textIterTogglesTag ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTag.IsTextTag a) =>
TextIter
-> Maybe (a)
-> m Bool
textIterTogglesTag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextTag a) =>
TextIter -> Maybe a -> m Bool
textIterTogglesTag TextIter
iter Maybe a
tag = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextTag
maybeTag <- case Maybe a
tag of
Maybe a
Nothing -> Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
forall a. Ptr a
nullPtr
Just a
jTag -> do
Ptr TextTag
jTag' <- a -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jTag
Ptr TextTag -> IO (Ptr TextTag)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
jTag'
CInt
result <- Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_toggles_tag Ptr TextIter
iter' Ptr TextTag
maybeTag
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
tag a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextIterTogglesTagMethodInfo
instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, Gtk.TextTag.IsTextTag a) => O.OverloadedMethod TextIterTogglesTagMethodInfo TextIter signature where
overloadedMethod = textIterTogglesTag
instance O.OverloadedMethodInfo TextIterTogglesTagMethodInfo TextIter where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.TextIter.textIterTogglesTag",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-TextIter.html#v:textIterTogglesTag"
}
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveTextIterMethod (t :: Symbol) (o :: *) :: * where
ResolveTextIterMethod "assign" o = TextIterAssignMethodInfo
ResolveTextIterMethod "backwardChar" o = TextIterBackwardCharMethodInfo
ResolveTextIterMethod "backwardChars" o = TextIterBackwardCharsMethodInfo
ResolveTextIterMethod "backwardCursorPosition" o = TextIterBackwardCursorPositionMethodInfo
ResolveTextIterMethod "backwardCursorPositions" o = TextIterBackwardCursorPositionsMethodInfo
ResolveTextIterMethod "backwardFindChar" o = TextIterBackwardFindCharMethodInfo
ResolveTextIterMethod "backwardLine" o = TextIterBackwardLineMethodInfo
ResolveTextIterMethod "backwardLines" o = TextIterBackwardLinesMethodInfo
ResolveTextIterMethod "backwardSearch" o = TextIterBackwardSearchMethodInfo
ResolveTextIterMethod "backwardSentenceStart" o = TextIterBackwardSentenceStartMethodInfo
ResolveTextIterMethod "backwardSentenceStarts" o = TextIterBackwardSentenceStartsMethodInfo
ResolveTextIterMethod "backwardToTagToggle" o = TextIterBackwardToTagToggleMethodInfo
ResolveTextIterMethod "backwardVisibleCursorPosition" o = TextIterBackwardVisibleCursorPositionMethodInfo
ResolveTextIterMethod "backwardVisibleCursorPositions" o = TextIterBackwardVisibleCursorPositionsMethodInfo
ResolveTextIterMethod "backwardVisibleLine" o = TextIterBackwardVisibleLineMethodInfo
ResolveTextIterMethod "backwardVisibleLines" o = TextIterBackwardVisibleLinesMethodInfo
ResolveTextIterMethod "backwardVisibleWordStart" o = TextIterBackwardVisibleWordStartMethodInfo
ResolveTextIterMethod "backwardVisibleWordStarts" o = TextIterBackwardVisibleWordStartsMethodInfo
ResolveTextIterMethod "backwardWordStart" o = TextIterBackwardWordStartMethodInfo
ResolveTextIterMethod "backwardWordStarts" o = TextIterBackwardWordStartsMethodInfo
ResolveTextIterMethod "beginsTag" o = TextIterBeginsTagMethodInfo
ResolveTextIterMethod "canInsert" o = TextIterCanInsertMethodInfo
ResolveTextIterMethod "compare" o = TextIterCompareMethodInfo
ResolveTextIterMethod "copy" o = TextIterCopyMethodInfo
ResolveTextIterMethod "editable" o = TextIterEditableMethodInfo
ResolveTextIterMethod "endsLine" o = TextIterEndsLineMethodInfo
ResolveTextIterMethod "endsSentence" o = TextIterEndsSentenceMethodInfo
ResolveTextIterMethod "endsTag" o = TextIterEndsTagMethodInfo
ResolveTextIterMethod "endsWord" o = TextIterEndsWordMethodInfo
ResolveTextIterMethod "equal" o = TextIterEqualMethodInfo
ResolveTextIterMethod "forwardChar" o = TextIterForwardCharMethodInfo
ResolveTextIterMethod "forwardChars" o = TextIterForwardCharsMethodInfo
ResolveTextIterMethod "forwardCursorPosition" o = TextIterForwardCursorPositionMethodInfo
ResolveTextIterMethod "forwardCursorPositions" o = TextIterForwardCursorPositionsMethodInfo
ResolveTextIterMethod "forwardFindChar" o = TextIterForwardFindCharMethodInfo
ResolveTextIterMethod "forwardLine" o = TextIterForwardLineMethodInfo
ResolveTextIterMethod "forwardLines" o = TextIterForwardLinesMethodInfo
ResolveTextIterMethod "forwardSearch" o = TextIterForwardSearchMethodInfo
ResolveTextIterMethod "forwardSentenceEnd" o = TextIterForwardSentenceEndMethodInfo
ResolveTextIterMethod "forwardSentenceEnds" o = TextIterForwardSentenceEndsMethodInfo
ResolveTextIterMethod "forwardToEnd" o = TextIterForwardToEndMethodInfo
ResolveTextIterMethod "forwardToLineEnd" o = TextIterForwardToLineEndMethodInfo
ResolveTextIterMethod "forwardToTagToggle" o = TextIterForwardToTagToggleMethodInfo
ResolveTextIterMethod "forwardVisibleCursorPosition" o = TextIterForwardVisibleCursorPositionMethodInfo
ResolveTextIterMethod "forwardVisibleCursorPositions" o = TextIterForwardVisibleCursorPositionsMethodInfo
ResolveTextIterMethod "forwardVisibleLine" o = TextIterForwardVisibleLineMethodInfo
ResolveTextIterMethod "forwardVisibleLines" o = TextIterForwardVisibleLinesMethodInfo
ResolveTextIterMethod "forwardVisibleWordEnd" o = TextIterForwardVisibleWordEndMethodInfo
ResolveTextIterMethod "forwardVisibleWordEnds" o = TextIterForwardVisibleWordEndsMethodInfo
ResolveTextIterMethod "forwardWordEnd" o = TextIterForwardWordEndMethodInfo
ResolveTextIterMethod "forwardWordEnds" o = TextIterForwardWordEndsMethodInfo
ResolveTextIterMethod "free" o = TextIterFreeMethodInfo
ResolveTextIterMethod "hasTag" o = TextIterHasTagMethodInfo
ResolveTextIterMethod "inRange" o = TextIterInRangeMethodInfo
ResolveTextIterMethod "insideSentence" o = TextIterInsideSentenceMethodInfo
ResolveTextIterMethod "insideWord" o = TextIterInsideWordMethodInfo
ResolveTextIterMethod "isCursorPosition" o = TextIterIsCursorPositionMethodInfo
ResolveTextIterMethod "isEnd" o = TextIterIsEndMethodInfo
ResolveTextIterMethod "isStart" o = TextIterIsStartMethodInfo
ResolveTextIterMethod "order" o = TextIterOrderMethodInfo
ResolveTextIterMethod "startsLine" o = TextIterStartsLineMethodInfo
ResolveTextIterMethod "startsSentence" o = TextIterStartsSentenceMethodInfo
ResolveTextIterMethod "startsTag" o = TextIterStartsTagMethodInfo
ResolveTextIterMethod "startsWord" o = TextIterStartsWordMethodInfo
ResolveTextIterMethod "togglesTag" o = TextIterTogglesTagMethodInfo
ResolveTextIterMethod "getAttributes" o = TextIterGetAttributesMethodInfo
ResolveTextIterMethod "getBuffer" o = TextIterGetBufferMethodInfo
ResolveTextIterMethod "getBytesInLine" o = TextIterGetBytesInLineMethodInfo
ResolveTextIterMethod "getChar" o = TextIterGetCharMethodInfo
ResolveTextIterMethod "getCharsInLine" o = TextIterGetCharsInLineMethodInfo
ResolveTextIterMethod "getChildAnchor" o = TextIterGetChildAnchorMethodInfo
ResolveTextIterMethod "getLanguage" o = TextIterGetLanguageMethodInfo
ResolveTextIterMethod "getLine" o = TextIterGetLineMethodInfo
ResolveTextIterMethod "getLineIndex" o = TextIterGetLineIndexMethodInfo
ResolveTextIterMethod "getLineOffset" o = TextIterGetLineOffsetMethodInfo
ResolveTextIterMethod "getMarks" o = TextIterGetMarksMethodInfo
ResolveTextIterMethod "getOffset" o = TextIterGetOffsetMethodInfo
ResolveTextIterMethod "getPixbuf" o = TextIterGetPixbufMethodInfo
ResolveTextIterMethod "getSlice" o = TextIterGetSliceMethodInfo
ResolveTextIterMethod "getTags" o = TextIterGetTagsMethodInfo
ResolveTextIterMethod "getText" o = TextIterGetTextMethodInfo
ResolveTextIterMethod "getToggledTags" o = TextIterGetToggledTagsMethodInfo
ResolveTextIterMethod "getVisibleLineIndex" o = TextIterGetVisibleLineIndexMethodInfo
ResolveTextIterMethod "getVisibleLineOffset" o = TextIterGetVisibleLineOffsetMethodInfo
ResolveTextIterMethod "getVisibleSlice" o = TextIterGetVisibleSliceMethodInfo
ResolveTextIterMethod "getVisibleText" o = TextIterGetVisibleTextMethodInfo
ResolveTextIterMethod "setLine" o = TextIterSetLineMethodInfo
ResolveTextIterMethod "setLineIndex" o = TextIterSetLineIndexMethodInfo
ResolveTextIterMethod "setLineOffset" o = TextIterSetLineOffsetMethodInfo
ResolveTextIterMethod "setOffset" o = TextIterSetOffsetMethodInfo
ResolveTextIterMethod "setVisibleLineIndex" o = TextIterSetVisibleLineIndexMethodInfo
ResolveTextIterMethod "setVisibleLineOffset" o = TextIterSetVisibleLineOffsetMethodInfo
ResolveTextIterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTextIterMethod t TextIter, O.OverloadedMethod info TextIter p) => OL.IsLabel t (TextIter -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveTextIterMethod t TextIter, O.OverloadedMethod info TextIter p, R.HasField t TextIter p) => R.HasField t TextIter p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTextIterMethod t TextIter, O.OverloadedMethodInfo info TextIter) => OL.IsLabel t (O.MethodProxy info TextIter) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif