{-# LINE 2 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
module Graphics.UI.Gtk.Multiline.TextIter (
TextIter,
TextSearchFlags(..),
textIterCopy,
textIterGetBuffer,
textIterGetOffset,
textIterGetLine,
textIterGetLineOffset,
textIterGetVisibleLineOffset,
textIterGetChar,
textIterGetSlice,
textIterGetText,
textIterGetVisibleSlice,
textIterGetVisibleText,
textIterGetPixbuf,
textIterGetChildAnchor,
textIterGetMarks,
textIterGetToggledTags,
textIterBeginsTag,
textIterEndsTag,
textIterTogglesTag,
textIterHasTag,
textIterGetTags,
textIterEditable,
textIterCanInsert,
textIterStartsWord,
textIterEndsWord,
textIterInsideWord,
textIterStartsLine,
textIterEndsLine,
textIterStartsSentence,
textIterEndsSentence,
textIterInsideSentence,
textIterIsCursorPosition,
textIterGetCharsInLine,
textIterGetAttributes,
textIterGetLanguage,
textIterIsEnd,
textIterIsStart,
textIterForwardChar,
textIterBackwardChar,
textIterForwardChars,
textIterBackwardChars,
textIterForwardLine,
textIterBackwardLine,
textIterForwardLines,
textIterBackwardLines,
textIterForwardWordEnds,
textIterBackwardWordStarts,
textIterForwardWordEnd,
textIterBackwardWordStart,
textIterForwardCursorPosition,
textIterBackwardCursorPosition,
textIterForwardCursorPositions,
textIterBackwardCursorPositions,
textIterForwardSentenceEnds,
textIterBackwardSentenceStarts,
textIterForwardSentenceEnd,
textIterBackwardSentenceStart,
textIterSetOffset,
textIterSetLine,
textIterSetLineOffset,
textIterSetVisibleLineOffset,
textIterForwardToEnd,
textIterForwardToLineEnd,
textIterForwardToTagToggle,
textIterBackwardToTagToggle,
textIterForwardFindChar,
textIterBackwardFindChar,
textIterForwardSearch,
textIterBackwardSearch,
textIterEqual,
textIterCompare,
textIterInRange,
textIterOrder,
textIterForwardVisibleLine,
textIterBackwardVisibleLine,
textIterForwardVisibleLines,
textIterBackwardVisibleLines,
textIterForwardVisibleWordEnds,
textIterBackwardVisibleWordStarts,
textIterForwardVisibleWordEnd,
textIterBackwardVisibleWordStart,
textIterForwardVisibleCursorPosition,
textIterBackwardVisibleCursorPosition,
textIterForwardVisibleCursorPositions,
textIterBackwardVisibleCursorPositions,
textIterVisibleLineOffset,
textIterOffset,
textIterLineOffset,
textIterLine,
) where
import Control.Monad (liftM)
import Data.Maybe (fromMaybe)
import Data.Char (chr)
import System.Glib.FFI
import System.Glib.Flags (fromFlags)
import System.Glib.UTFString
import System.Glib.Attributes
import System.Glib.GList
import Graphics.UI.Gtk.Types
{-# LINE 151 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
import Graphics.UI.Gtk.General.Enums (TextSearchFlags(..))
import Graphics.UI.Gtk.Multiline.Types
{-# LINE 153 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
import Graphics.UI.Gtk.Multiline.TextTag
{-# LINE 154 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
import Graphics.Rendering.Pango.BasicTypes
{-# LINE 155 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
{-# LINE 157 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
textIterGetBuffer :: TextIter -> IO TextBuffer
textIterGetBuffer :: TextIter -> IO TextBuffer
textIterGetBuffer TextIter
ti = (ForeignPtr TextBuffer -> TextBuffer, FinalizerPtr TextBuffer)
-> IO (Ptr TextBuffer) -> IO TextBuffer
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr TextBuffer -> TextBuffer, FinalizerPtr TextBuffer)
forall {a}. (ForeignPtr TextBuffer -> TextBuffer, FinalizerPtr a)
mkTextBuffer (IO (Ptr TextBuffer) -> IO TextBuffer)
-> IO (Ptr TextBuffer) -> IO TextBuffer
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr TextBuffer)) -> IO (Ptr TextBuffer)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr TextBuffer)) -> IO (Ptr TextBuffer))
-> (Ptr TextIter -> IO (Ptr TextBuffer)) -> IO (Ptr TextBuffer)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO (Ptr TextBuffer)
gtk_text_iter_get_buffer Ptr TextIter
argPtr1) TextIter
ti
textIterGetOffset :: TextIter -> IO Int
textIterGetOffset :: TextIter -> IO Int
textIterGetOffset TextIter
ti = (CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_get_offset Ptr TextIter
argPtr1) TextIter
ti
textIterGetLine :: TextIter -> IO Int
textIterGetLine :: TextIter -> IO Int
textIterGetLine TextIter
ti = (CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_get_line Ptr TextIter
argPtr1) TextIter
ti
textIterGetLineOffset :: TextIter -> IO Int
textIterGetLineOffset :: TextIter -> IO Int
textIterGetLineOffset TextIter
ti = (CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_get_line_offset Ptr TextIter
argPtr1) TextIter
ti
textIterGetVisibleLineOffset :: TextIter -> IO Int
textIterGetVisibleLineOffset :: TextIter -> IO Int
textIterGetVisibleLineOffset TextIter
ti = (CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_get_visible_line_offset Ptr TextIter
argPtr1) TextIter
ti
textIterGetChar :: TextIter -> IO (Maybe Char)
textIterGetChar :: TextIter -> IO (Maybe Char)
textIterGetChar TextIter
ti = do
Int
res <- (CUInt -> Int) -> IO CUInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CUInt -> IO Int) -> IO CUInt -> IO Int
forall a b. (a -> b) -> a -> b
$ (\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CUInt) -> IO CUInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CUInt) -> IO CUInt)
-> (Ptr TextIter -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CUInt
gtk_text_iter_get_char Ptr TextIter
argPtr1) TextIter
ti
Maybe Char -> IO (Maybe Char)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Char -> IO (Maybe Char)) -> Maybe Char -> IO (Maybe Char)
forall a b. (a -> b) -> a -> b
$ if Int
resInt -> Int -> Bool
forall a. Eq a => a -> a -> Bool
==Int
0 then Maybe Char
forall a. Maybe a
Nothing else Char -> Maybe Char
forall a. a -> Maybe a
Just (Int -> Char
chr Int
res)
textIterGetSlice :: GlibString string => TextIter -> TextIter -> IO string
textIterGetSlice :: forall string.
GlibString string =>
TextIter -> TextIter -> IO string
textIterGetSlice TextIter
end TextIter
start = do
Ptr CChar
cStr <- (\(TextIter ForeignPtr TextIter
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg2 ((Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr2 ->Ptr TextIter -> Ptr TextIter -> IO (Ptr CChar)
gtk_text_iter_get_slice Ptr TextIter
argPtr1 Ptr TextIter
argPtr2) TextIter
start TextIter
end
string
str <- Ptr CChar -> IO string
forall s. GlibString s => Ptr CChar -> IO s
peekUTFString Ptr CChar
cStr
Ptr () -> IO ()
g_free (Ptr CChar -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr CChar
cStr)
string -> IO string
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return string
str
textIterGetText :: GlibString string => TextIter -> TextIter -> IO string
textIterGetText :: forall string.
GlibString string =>
TextIter -> TextIter -> IO string
textIterGetText TextIter
start TextIter
end = do
Ptr CChar
cStr <- (\(TextIter ForeignPtr TextIter
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg2 ((Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr2 ->Ptr TextIter -> Ptr TextIter -> IO (Ptr CChar)
gtk_text_iter_get_text Ptr TextIter
argPtr1 Ptr TextIter
argPtr2) TextIter
start TextIter
end
string
str <- Ptr CChar -> IO string
forall s. GlibString s => Ptr CChar -> IO s
peekUTFString Ptr CChar
cStr
Ptr () -> IO ()
g_free (Ptr CChar -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr CChar
cStr)
string -> IO string
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return string
str
textIterGetVisibleSlice :: GlibString string => TextIter -> TextIter -> IO string
textIterGetVisibleSlice :: forall string.
GlibString string =>
TextIter -> TextIter -> IO string
textIterGetVisibleSlice TextIter
start TextIter
end = do
Ptr CChar
cStr <- (\(TextIter ForeignPtr TextIter
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg2 ((Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr2 ->Ptr TextIter -> Ptr TextIter -> IO (Ptr CChar)
gtk_text_iter_get_visible_slice Ptr TextIter
argPtr1 Ptr TextIter
argPtr2) TextIter
start TextIter
end
string
str <- Ptr CChar -> IO string
forall s. GlibString s => Ptr CChar -> IO s
peekUTFString Ptr CChar
cStr
Ptr () -> IO ()
g_free (Ptr CChar -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr CChar
cStr)
string -> IO string
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return string
str
textIterGetVisibleText :: GlibString string => TextIter -> TextIter -> IO string
textIterGetVisibleText :: forall string.
GlibString string =>
TextIter -> TextIter -> IO string
textIterGetVisibleText TextIter
start TextIter
end = do
Ptr CChar
cStr <- (\(TextIter ForeignPtr TextIter
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg2 ((Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr TextIter -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr2 ->Ptr TextIter -> Ptr TextIter -> IO (Ptr CChar)
gtk_text_iter_get_visible_text Ptr TextIter
argPtr1 Ptr TextIter
argPtr2) TextIter
start TextIter
end
string
str <- Ptr CChar -> IO string
forall s. GlibString s => Ptr CChar -> IO s
peekUTFString Ptr CChar
cStr
Ptr () -> IO ()
g_free (Ptr CChar -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr CChar
cStr)
string -> IO string
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return string
str
textIterGetPixbuf :: TextIter -> IO (Maybe Pixbuf)
textIterGetPixbuf :: TextIter -> IO (Maybe Pixbuf)
textIterGetPixbuf TextIter
it = do
Ptr Pixbuf
pbPtr <- (\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf))
-> (Ptr TextIter -> IO (Ptr Pixbuf)) -> IO (Ptr Pixbuf)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO (Ptr Pixbuf)
gtk_text_iter_get_pixbuf Ptr TextIter
argPtr1) TextIter
it
if Ptr Pixbuf
pbPtrPtr Pixbuf -> Ptr Pixbuf -> Bool
forall a. Eq a => a -> a -> Bool
==Ptr Pixbuf
forall a. Ptr a
nullPtr then Maybe Pixbuf -> IO (Maybe Pixbuf)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pixbuf
forall a. Maybe a
Nothing else (Pixbuf -> Maybe Pixbuf) -> IO Pixbuf -> IO (Maybe Pixbuf)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Pixbuf -> Maybe Pixbuf
forall a. a -> Maybe a
Just (IO Pixbuf -> IO (Maybe Pixbuf)) -> IO Pixbuf -> IO (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$
(ForeignPtr Pixbuf -> Pixbuf, FinalizerPtr Pixbuf)
-> IO (Ptr Pixbuf) -> IO Pixbuf
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Pixbuf -> Pixbuf, FinalizerPtr Pixbuf)
forall {a}. (ForeignPtr Pixbuf -> Pixbuf, FinalizerPtr a)
mkPixbuf (Ptr Pixbuf -> IO (Ptr Pixbuf)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
pbPtr)
textIterGetChildAnchor :: TextIter -> IO (Maybe TextChildAnchor)
textIterGetChildAnchor :: TextIter -> IO (Maybe TextChildAnchor)
textIterGetChildAnchor TextIter
it = do
Ptr TextChildAnchor
tcaPtr <- (\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr TextChildAnchor))
-> IO (Ptr TextChildAnchor)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr TextChildAnchor))
-> IO (Ptr TextChildAnchor))
-> (Ptr TextIter -> IO (Ptr TextChildAnchor))
-> IO (Ptr TextChildAnchor)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO (Ptr TextChildAnchor)
gtk_text_iter_get_child_anchor Ptr TextIter
argPtr1) TextIter
it
if Ptr TextChildAnchor
tcaPtr Ptr TextChildAnchor -> Ptr TextChildAnchor -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr TextChildAnchor
forall a. Ptr a
nullPtr then Maybe TextChildAnchor -> IO (Maybe TextChildAnchor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TextChildAnchor
forall a. Maybe a
Nothing else (TextChildAnchor -> Maybe TextChildAnchor)
-> IO TextChildAnchor -> IO (Maybe TextChildAnchor)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM TextChildAnchor -> Maybe TextChildAnchor
forall a. a -> Maybe a
Just (IO TextChildAnchor -> IO (Maybe TextChildAnchor))
-> IO TextChildAnchor -> IO (Maybe TextChildAnchor)
forall a b. (a -> b) -> a -> b
$
(ForeignPtr TextChildAnchor -> TextChildAnchor,
FinalizerPtr TextChildAnchor)
-> IO (Ptr TextChildAnchor) -> IO TextChildAnchor
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr TextChildAnchor -> TextChildAnchor,
FinalizerPtr TextChildAnchor)
forall {a}.
(ForeignPtr TextChildAnchor -> TextChildAnchor, FinalizerPtr a)
mkTextChildAnchor (Ptr TextChildAnchor -> IO (Ptr TextChildAnchor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextChildAnchor
tcaPtr)
textIterGetMarks :: TextIter
-> IO [TextMark]
textIterGetMarks :: TextIter -> IO [TextMark]
textIterGetMarks TextIter
self =
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO (Ptr ())) -> IO (Ptr ())
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr TextIter -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO (Ptr ())
gtk_text_iter_get_marks Ptr TextIter
argPtr1)
{-# LINE 286 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
IO (Ptr ()) -> (Ptr () -> IO [Ptr TextMark]) -> IO [Ptr TextMark]
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr () -> IO [Ptr TextMark]
forall a. Ptr () -> IO [Ptr a]
fromGSList
IO [Ptr TextMark]
-> ([Ptr TextMark] -> IO [TextMark]) -> IO [TextMark]
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (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)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM (\Ptr TextMark
tm -> (ForeignPtr TextMark -> TextMark, FinalizerPtr TextMark)
-> IO (Ptr TextMark) -> IO TextMark
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr TextMark -> TextMark, FinalizerPtr TextMark)
forall {a}. (ForeignPtr TextMark -> TextMark, FinalizerPtr a)
mkTextMark (Ptr TextMark -> IO (Ptr TextMark)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextMark
tm))
textIterGetToggledTags :: TextIter
-> Bool
-> IO [TextTag]
textIterGetToggledTags :: TextIter -> Bool -> IO [TextTag]
textIterGetToggledTags TextIter
self Bool
toggledOn =
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO (Ptr ())) -> IO (Ptr ())
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr TextIter -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO (Ptr ())
gtk_text_iter_get_toggled_tags Ptr TextIter
argPtr1 CInt
arg2)
{-# LINE 301 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
toggledOn)
IO (Ptr ()) -> (Ptr () -> IO [Ptr TextTag]) -> IO [Ptr TextTag]
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr () -> IO [Ptr TextTag]
forall a. Ptr () -> IO [Ptr a]
fromGSList
IO [Ptr TextTag] -> ([Ptr TextTag] -> IO [TextTag]) -> IO [TextTag]
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (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)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM (\Ptr TextTag
tt -> (ForeignPtr TextTag -> TextTag, FinalizerPtr TextTag)
-> IO (Ptr TextTag) -> IO TextTag
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr TextTag -> TextTag, FinalizerPtr TextTag)
forall {a}. (ForeignPtr TextTag -> TextTag, FinalizerPtr a)
mkTextTag (Ptr TextTag -> IO (Ptr TextTag)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
tt))
textIterBeginsTag :: TextIter -> Maybe TextTag -> IO Bool
textIterBeginsTag :: TextIter -> Maybe TextTag -> IO Bool
textIterBeginsTag TextIter
ti (Just TextTag
tt) = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_begins_tag Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti TextTag
tt
textIterBeginsTag TextIter
ti Maybe TextTag
Nothing = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_begins_tag Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti (ForeignPtr TextTag -> TextTag
TextTag ForeignPtr TextTag
forall a. ForeignPtr a
nullForeignPtr)
textIterEndsTag :: TextIter -> Maybe TextTag -> IO Bool
textIterEndsTag :: TextIter -> Maybe TextTag -> IO Bool
textIterEndsTag TextIter
ti (Just TextTag
tt) = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_ends_tag Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti TextTag
tt
textIterEndsTag TextIter
ti Maybe TextTag
Nothing = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_ends_tag Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti (ForeignPtr TextTag -> TextTag
TextTag ForeignPtr TextTag
forall a. ForeignPtr a
nullForeignPtr)
textIterTogglesTag :: TextIter -> Maybe TextTag -> IO Bool
textIterTogglesTag :: TextIter -> Maybe TextTag -> IO Bool
textIterTogglesTag TextIter
ti (Just TextTag
tt) = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_toggles_tag Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti TextTag
tt
textIterTogglesTag TextIter
ti Maybe TextTag
Nothing = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_toggles_tag Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti (ForeignPtr TextTag -> TextTag
TextTag ForeignPtr TextTag
forall a. ForeignPtr a
nullForeignPtr)
textIterHasTag :: TextIter -> Maybe TextTag -> IO Bool
textIterHasTag :: TextIter -> Maybe TextTag -> IO Bool
textIterHasTag TextIter
ti (Just TextTag
tt) = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_has_tag Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti TextTag
tt
textIterHasTag TextIter
ti Maybe TextTag
Nothing = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_has_tag Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti (ForeignPtr TextTag -> TextTag
TextTag ForeignPtr TextTag
forall a. ForeignPtr a
nullForeignPtr)
textIterGetTags :: TextIter
-> IO [TextTag]
textIterGetTags :: TextIter -> IO [TextTag]
textIterGetTags TextIter
self =
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO (Ptr ())) -> IO (Ptr ())
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr TextIter -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO (Ptr ())
gtk_text_iter_get_tags Ptr TextIter
argPtr1)
{-# LINE 359 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
IO (Ptr ()) -> (Ptr () -> IO [Ptr TextTag]) -> IO [Ptr TextTag]
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr () -> IO [Ptr TextTag]
forall a. Ptr () -> IO [Ptr a]
fromGSList
IO [Ptr TextTag] -> ([Ptr TextTag] -> IO [TextTag]) -> IO [TextTag]
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (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)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM (\Ptr TextTag
tt -> (ForeignPtr TextTag -> TextTag, FinalizerPtr TextTag)
-> IO (Ptr TextTag) -> IO TextTag
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr TextTag -> TextTag, FinalizerPtr TextTag)
forall {a}. (ForeignPtr TextTag -> TextTag, FinalizerPtr a)
mkTextTag (Ptr TextTag -> IO (Ptr TextTag)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TextTag
tt))
textIterEditable :: TextIter -> Bool -> IO Bool
textIterEditable :: TextIter -> Bool -> IO Bool
textIterEditable TextIter
ti Bool
def = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_editable Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
def)
textIterCanInsert :: TextIter -> Bool -> IO Bool
textIterCanInsert :: TextIter -> Bool -> IO Bool
textIterCanInsert TextIter
ti Bool
def = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_can_insert Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
def)
textIterStartsWord :: TextIter -> IO Bool
textIterStartsWord :: TextIter -> IO Bool
textIterStartsWord TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ (\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_starts_word Ptr TextIter
argPtr1) TextIter
ti
textIterEndsWord :: TextIter -> IO Bool
textIterEndsWord :: TextIter -> IO Bool
textIterEndsWord TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ (\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_ends_word Ptr TextIter
argPtr1) TextIter
ti
textIterInsideWord :: TextIter -> IO Bool
textIterInsideWord :: TextIter -> IO Bool
textIterInsideWord TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ (\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_inside_word Ptr TextIter
argPtr1) TextIter
ti
textIterStartsLine :: TextIter -> IO Bool
textIterStartsLine :: TextIter -> IO Bool
textIterStartsLine TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ (\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_starts_line Ptr TextIter
argPtr1) TextIter
ti
textIterEndsLine :: TextIter -> IO Bool
textIterEndsLine :: TextIter -> IO Bool
textIterEndsLine TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ (\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_ends_line Ptr TextIter
argPtr1) TextIter
ti
textIterStartsSentence :: TextIter -> IO Bool
textIterStartsSentence :: TextIter -> IO Bool
textIterStartsSentence TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_starts_sentence Ptr TextIter
argPtr1) TextIter
ti
textIterEndsSentence :: TextIter -> IO Bool
textIterEndsSentence :: TextIter -> IO Bool
textIterEndsSentence TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_ends_sentence Ptr TextIter
argPtr1) TextIter
ti
textIterInsideSentence :: TextIter -> IO Bool
textIterInsideSentence :: TextIter -> IO Bool
textIterInsideSentence TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_inside_sentence Ptr TextIter
argPtr1) TextIter
ti
textIterIsCursorPosition :: TextIter -> IO Bool
textIterIsCursorPosition :: TextIter -> IO Bool
textIterIsCursorPosition TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_is_cursor_position Ptr TextIter
argPtr1) TextIter
ti
textIterGetCharsInLine :: TextIter -> IO Int
textIterGetCharsInLine :: TextIter -> IO Int
textIterGetCharsInLine TextIter
ti = (CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_get_chars_in_line Ptr TextIter
argPtr1) TextIter
ti
textIterGetAttributes :: TextIter -> TextAttributes -> IO Bool
textIterGetAttributes :: TextIter -> TextAttributes -> IO Bool
textIterGetAttributes TextIter
ti TextAttributes
ta = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextAttributes ForeignPtr TextAttributes
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextAttributes
-> (Ptr TextAttributes -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextAttributes
arg2 ((Ptr TextAttributes -> IO CInt) -> IO CInt)
-> (Ptr TextAttributes -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextAttributes
argPtr2 ->Ptr TextIter -> Ptr TextAttributes -> IO CInt
gtk_text_iter_get_attributes Ptr TextIter
argPtr1 Ptr TextAttributes
argPtr2) TextIter
ti TextAttributes
ta
textIterGetLanguage :: TextIter -> IO Language
textIterGetLanguage :: TextIter -> IO Language
textIterGetLanguage TextIter
ti = (Ptr Language -> Language) -> IO (Ptr Language) -> IO Language
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Ptr Language -> Language
Language (IO (Ptr Language) -> IO Language)
-> IO (Ptr Language) -> IO Language
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter
-> (Ptr TextIter -> IO (Ptr Language)) -> IO (Ptr Language)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO (Ptr Language)) -> IO (Ptr Language))
-> (Ptr TextIter -> IO (Ptr Language)) -> IO (Ptr Language)
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO (Ptr Language)
gtk_text_iter_get_language Ptr TextIter
argPtr1) TextIter
ti
textIterIsEnd :: TextIter -> IO Bool
textIterIsEnd :: TextIter -> IO Bool
textIterIsEnd TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_is_end Ptr TextIter
argPtr1) TextIter
ti
textIterIsStart :: TextIter -> IO Bool
textIterIsStart :: TextIter -> IO Bool
textIterIsStart TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_is_start Ptr TextIter
argPtr1) TextIter
ti
textIterForwardChar :: TextIter -> IO Bool
textIterForwardChar :: TextIter -> IO Bool
textIterForwardChar TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_forward_char Ptr TextIter
argPtr1) TextIter
ti
textIterBackwardChar :: TextIter -> IO Bool
textIterBackwardChar :: TextIter -> IO Bool
textIterBackwardChar TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_backward_char Ptr TextIter
argPtr1) TextIter
ti
textIterForwardChars :: TextIter -> Int -> IO Bool
textIterForwardChars :: TextIter -> Int -> IO Bool
textIterForwardChars TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_forward_chars Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterBackwardChars :: TextIter -> Int -> IO Bool
textIterBackwardChars :: TextIter -> Int -> IO Bool
textIterBackwardChars TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_backward_chars Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterForwardLine :: TextIter -> IO Bool
textIterForwardLine :: TextIter -> IO Bool
textIterForwardLine TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_forward_line Ptr TextIter
argPtr1) TextIter
ti
textIterBackwardLine :: TextIter -> IO Bool
textIterBackwardLine :: TextIter -> IO Bool
textIterBackwardLine TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_backward_line Ptr TextIter
argPtr1) TextIter
ti
textIterForwardLines :: TextIter -> Int -> IO Bool
textIterForwardLines :: TextIter -> Int -> IO Bool
textIterForwardLines TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_forward_lines Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterBackwardLines :: TextIter -> Int -> IO Bool
textIterBackwardLines :: TextIter -> Int -> IO Bool
textIterBackwardLines TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_backward_lines Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterForwardWordEnds :: TextIter -> Int -> IO Bool
textIterForwardWordEnds :: TextIter -> Int -> IO Bool
textIterForwardWordEnds TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_forward_word_ends Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterBackwardWordStarts :: TextIter -> Int -> IO Bool
textIterBackwardWordStarts :: TextIter -> Int -> IO Bool
textIterBackwardWordStarts TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_backward_word_starts Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterForwardWordEnd :: TextIter -> IO Bool
textIterForwardWordEnd :: TextIter -> IO Bool
textIterForwardWordEnd TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_forward_word_end Ptr TextIter
argPtr1) TextIter
ti
textIterBackwardWordStart :: TextIter -> IO Bool
textIterBackwardWordStart :: TextIter -> IO Bool
textIterBackwardWordStart TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_backward_word_start Ptr TextIter
argPtr1) TextIter
ti
textIterForwardCursorPosition :: TextIter -> IO Bool
textIterForwardCursorPosition :: TextIter -> IO Bool
textIterForwardCursorPosition TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_forward_cursor_position Ptr TextIter
argPtr1) TextIter
ti
textIterBackwardCursorPosition :: TextIter -> IO Bool
textIterBackwardCursorPosition :: TextIter -> IO Bool
textIterBackwardCursorPosition TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_backward_cursor_position Ptr TextIter
argPtr1) TextIter
ti
textIterForwardCursorPositions :: TextIter -> Int -> IO Bool
textIterForwardCursorPositions :: TextIter -> Int -> IO Bool
textIterForwardCursorPositions TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_forward_cursor_positions Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterBackwardCursorPositions :: TextIter -> Int -> IO Bool
textIterBackwardCursorPositions :: TextIter -> Int -> IO Bool
textIterBackwardCursorPositions TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_backward_cursor_positions Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterForwardSentenceEnds :: TextIter -> Int -> IO Bool
textIterForwardSentenceEnds :: TextIter -> Int -> IO Bool
textIterForwardSentenceEnds TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_forward_sentence_ends Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterBackwardSentenceStarts :: TextIter -> Int -> IO Bool
textIterBackwardSentenceStarts :: TextIter -> Int -> IO Bool
textIterBackwardSentenceStarts TextIter
ti Int
n = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_backward_sentence_starts Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterForwardSentenceEnd :: TextIter -> IO Bool
textIterForwardSentenceEnd :: TextIter -> IO Bool
textIterForwardSentenceEnd TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_forward_sentence_end Ptr TextIter
argPtr1) TextIter
ti
textIterBackwardSentenceStart :: TextIter -> IO Bool
textIterBackwardSentenceStart :: TextIter -> IO Bool
textIterBackwardSentenceStart TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_backward_sentence_start Ptr TextIter
argPtr1) TextIter
ti
textIterSetOffset :: TextIter -> Int -> IO ()
textIterSetOffset :: TextIter -> Int -> IO ()
textIterSetOffset TextIter
ti Int
n =
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO ()) -> IO ())
-> (Ptr TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO ()
gtk_text_iter_set_offset Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterSetLine :: TextIter -> Int -> IO ()
textIterSetLine :: TextIter -> Int -> IO ()
textIterSetLine TextIter
ti Int
n =
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO ()) -> IO ())
-> (Ptr TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO ()
gtk_text_iter_set_line Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterSetLineOffset :: TextIter -> Int -> IO ()
textIterSetLineOffset :: TextIter -> Int -> IO ()
textIterSetLineOffset TextIter
ti Int
n =
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO ()) -> IO ())
-> (Ptr TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO ()
gtk_text_iter_set_line_offset Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterSetVisibleLineOffset :: TextIter -> Int -> IO ()
textIterSetVisibleLineOffset :: TextIter -> Int -> IO ()
textIterSetVisibleLineOffset TextIter
ti Int
n =
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO ()) -> IO ())
-> (Ptr TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO ()
gtk_text_iter_set_visible_line_offset Ptr TextIter
argPtr1 CInt
arg2) TextIter
ti (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
textIterForwardToEnd :: TextIter -> IO ()
textIterForwardToEnd :: TextIter -> IO ()
textIterForwardToEnd TextIter
ti = (\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO ()) -> IO ())
-> (Ptr TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO ()
gtk_text_iter_forward_to_end Ptr TextIter
argPtr1) TextIter
ti
textIterForwardToLineEnd :: TextIter -> IO Bool
textIterForwardToLineEnd :: TextIter -> IO Bool
textIterForwardToLineEnd TextIter
ti = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_forward_to_line_end Ptr TextIter
argPtr1) TextIter
ti
textIterForwardToTagToggle :: TextIter -> Maybe TextTag -> IO Bool
textIterForwardToTagToggle :: TextIter -> Maybe TextTag -> IO Bool
textIterForwardToTagToggle TextIter
ti Maybe TextTag
tt = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_forward_to_tag_toggle Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti
(TextTag -> Maybe TextTag -> TextTag
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr TextTag -> TextTag
TextTag ForeignPtr TextTag
forall a. ForeignPtr a
nullForeignPtr) Maybe TextTag
tt)
textIterBackwardToTagToggle :: TextIter -> Maybe TextTag -> IO Bool
textIterBackwardToTagToggle :: TextIter -> Maybe TextTag -> IO Bool
textIterBackwardToTagToggle TextIter
ti Maybe TextTag
tt = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextTag ForeignPtr TextTag
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextTag -> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextTag
arg2 ((Ptr TextTag -> IO CInt) -> IO CInt)
-> (Ptr TextTag -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextTag
argPtr2 ->Ptr TextIter -> Ptr TextTag -> IO CInt
gtk_text_iter_backward_to_tag_toggle Ptr TextIter
argPtr1 Ptr TextTag
argPtr2) TextIter
ti
(TextTag -> Maybe TextTag -> TextTag
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr TextTag -> TextTag
TextTag ForeignPtr TextTag
forall a. ForeignPtr a
nullForeignPtr) Maybe TextTag
tt)
type TextCharPredicate = FunPtr ((CUInt -> ((Ptr ()) -> (IO CInt))))
{-# LINE 793 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
foreign import ccall "wrapper" mkTextCharPredicate ::
((CUInt) -> Ptr () -> IO (CInt)) -> IO TextCharPredicate
textIterForwardFindChar :: TextIter -> (Char -> Bool) -> Maybe TextIter ->
IO Bool
textIterForwardFindChar :: TextIter -> (Char -> Bool) -> Maybe TextIter -> IO Bool
textIterForwardFindChar TextIter
ti Char -> Bool
pred Maybe TextIter
limit = do
TextCharPredicate
fPtr <- (CUInt -> Ptr () -> IO CInt) -> IO TextCharPredicate
mkTextCharPredicate (\CUInt
c Ptr ()
_ -> CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CInt -> IO CInt) -> CInt -> IO CInt
forall a b. (a -> b) -> a -> b
$ Bool -> CInt
forall a. Num a => Bool -> a
fromBool (Bool -> CInt) -> Bool -> CInt
forall a b. (a -> b) -> a -> b
$ Char -> Bool
pred (Int -> Char
chr (CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CUInt
c)))
Bool
res <- (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ (\(TextIter ForeignPtr TextIter
arg1) TextCharPredicate
arg2 Ptr ()
arg3 (TextIter ForeignPtr TextIter
arg4) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg4 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr4 ->Ptr TextIter
-> TextCharPredicate -> Ptr () -> Ptr TextIter -> IO CInt
gtk_text_iter_forward_find_char Ptr TextIter
argPtr1 TextCharPredicate
arg2 Ptr ()
arg3 Ptr TextIter
argPtr4)
{-# LINE 810 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
ti fPtr Ptr ()
forall a. Ptr a
nullPtr (TextIter -> Maybe TextIter -> TextIter
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr TextIter -> TextIter
TextIter ForeignPtr TextIter
forall a. ForeignPtr a
nullForeignPtr) Maybe TextIter
limit)
TextCharPredicate -> IO ()
forall a. FunPtr a -> IO ()
freeHaskellFunPtr TextCharPredicate
fPtr
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
res
textIterBackwardFindChar :: TextIter -> (Char -> Bool) -> Maybe TextIter ->
IO Bool
textIterBackwardFindChar :: TextIter -> (Char -> Bool) -> Maybe TextIter -> IO Bool
textIterBackwardFindChar TextIter
ti Char -> Bool
pred Maybe TextIter
limit = do
TextCharPredicate
fPtr <- (CUInt -> Ptr () -> IO CInt) -> IO TextCharPredicate
mkTextCharPredicate (\CUInt
c Ptr ()
_ -> CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CInt -> IO CInt) -> CInt -> IO CInt
forall a b. (a -> b) -> a -> b
$ Bool -> CInt
forall a. Num a => Bool -> a
fromBool (Bool -> CInt) -> Bool -> CInt
forall a b. (a -> b) -> a -> b
$ Char -> Bool
pred (Int -> Char
chr (CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CUInt
c)))
Bool
res <- (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ (\(TextIter ForeignPtr TextIter
arg1) TextCharPredicate
arg2 Ptr ()
arg3 (TextIter ForeignPtr TextIter
arg4) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg4 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr4 ->Ptr TextIter
-> TextCharPredicate -> Ptr () -> Ptr TextIter -> IO CInt
gtk_text_iter_backward_find_char Ptr TextIter
argPtr1 TextCharPredicate
arg2 Ptr ()
arg3 Ptr TextIter
argPtr4)
{-# LINE 827 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
ti fPtr Ptr ()
forall a. Ptr a
nullPtr (TextIter -> Maybe TextIter -> TextIter
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr TextIter -> TextIter
TextIter ForeignPtr TextIter
forall a. ForeignPtr a
nullForeignPtr) Maybe TextIter
limit)
TextCharPredicate -> IO ()
forall a. FunPtr a -> IO ()
freeHaskellFunPtr TextCharPredicate
fPtr
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
res
textIterForwardSearch :: GlibString string => TextIter -> string -> [TextSearchFlags] ->
Maybe TextIter -> IO (Maybe (TextIter, TextIter))
textIterForwardSearch :: forall string.
GlibString string =>
TextIter
-> string
-> [TextSearchFlags]
-> Maybe TextIter
-> IO (Maybe (TextIter, TextIter))
textIterForwardSearch TextIter
ti string
str [TextSearchFlags]
flags Maybe TextIter
limit = do
TextIter
start <- IO TextIter
makeEmptyTextIter
TextIter
end <- IO TextIter
makeEmptyTextIter
Bool
found <- (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ string -> (Ptr CChar -> IO CInt) -> IO CInt
forall a. string -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString string
str ((Ptr CChar -> IO CInt) -> IO CInt)
-> (Ptr CChar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
cStr ->
(\(TextIter ForeignPtr TextIter
arg1) Ptr CChar
arg2 CInt
arg3 (TextIter ForeignPtr TextIter
arg4) (TextIter ForeignPtr TextIter
arg5) (TextIter ForeignPtr TextIter
arg6) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg4 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr4 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg5 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr5 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg6 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr6 ->Ptr TextIter
-> Ptr CChar
-> CInt
-> Ptr TextIter
-> Ptr TextIter
-> Ptr TextIter
-> IO CInt
gtk_text_iter_forward_search Ptr TextIter
argPtr1 Ptr CChar
arg2 CInt
arg3 Ptr TextIter
argPtr4 Ptr TextIter
argPtr5 Ptr TextIter
argPtr6) TextIter
ti Ptr CChar
cStr
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral(Int -> CInt)
-> ([TextSearchFlags] -> Int) -> [TextSearchFlags] -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
.[TextSearchFlags] -> Int
forall a. Flags a => [a] -> Int
fromFlags) [TextSearchFlags]
flags) TextIter
start TextIter
end
(TextIter -> Maybe TextIter -> TextIter
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr TextIter -> TextIter
TextIter ForeignPtr TextIter
forall a. ForeignPtr a
nullForeignPtr) Maybe TextIter
limit)
Maybe (TextIter, TextIter) -> IO (Maybe (TextIter, TextIter))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe (TextIter, TextIter) -> IO (Maybe (TextIter, TextIter)))
-> Maybe (TextIter, TextIter) -> IO (Maybe (TextIter, TextIter))
forall a b. (a -> b) -> a -> b
$ if Bool
found then (TextIter, TextIter) -> Maybe (TextIter, TextIter)
forall a. a -> Maybe a
Just (TextIter
start,TextIter
end) else Maybe (TextIter, TextIter)
forall a. Maybe a
Nothing
textIterBackwardSearch :: GlibString string => TextIter -> string -> [TextSearchFlags] ->
Maybe TextIter -> IO (Maybe (TextIter, TextIter))
textIterBackwardSearch :: forall string.
GlibString string =>
TextIter
-> string
-> [TextSearchFlags]
-> Maybe TextIter
-> IO (Maybe (TextIter, TextIter))
textIterBackwardSearch TextIter
ti string
str [TextSearchFlags]
flags Maybe TextIter
limit = do
TextIter
start <- IO TextIter
makeEmptyTextIter
TextIter
end <- IO TextIter
makeEmptyTextIter
Bool
found <- (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ string -> (Ptr CChar -> IO CInt) -> IO CInt
forall a. string -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString string
str ((Ptr CChar -> IO CInt) -> IO CInt)
-> (Ptr CChar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
cStr ->
(\(TextIter ForeignPtr TextIter
arg1) Ptr CChar
arg2 CInt
arg3 (TextIter ForeignPtr TextIter
arg4) (TextIter ForeignPtr TextIter
arg5) (TextIter ForeignPtr TextIter
arg6) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg4 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr4 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg5 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr5 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg6 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr6 ->Ptr TextIter
-> Ptr CChar
-> CInt
-> Ptr TextIter
-> Ptr TextIter
-> Ptr TextIter
-> IO CInt
gtk_text_iter_backward_search Ptr TextIter
argPtr1 Ptr CChar
arg2 CInt
arg3 Ptr TextIter
argPtr4 Ptr TextIter
argPtr5 Ptr TextIter
argPtr6) TextIter
ti Ptr CChar
cStr
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral(Int -> CInt)
-> ([TextSearchFlags] -> Int) -> [TextSearchFlags] -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
.[TextSearchFlags] -> Int
forall a. Flags a => [a] -> Int
fromFlags) [TextSearchFlags]
flags) TextIter
start TextIter
end
(TextIter -> Maybe TextIter -> TextIter
forall a. a -> Maybe a -> a
fromMaybe (ForeignPtr TextIter -> TextIter
TextIter ForeignPtr TextIter
forall a. ForeignPtr a
nullForeignPtr) Maybe TextIter
limit)
Maybe (TextIter, TextIter) -> IO (Maybe (TextIter, TextIter))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe (TextIter, TextIter) -> IO (Maybe (TextIter, TextIter)))
-> Maybe (TextIter, TextIter) -> IO (Maybe (TextIter, TextIter))
forall a b. (a -> b) -> a -> b
$ if Bool
found then (TextIter, TextIter) -> Maybe (TextIter, TextIter)
forall a. a -> Maybe a
Just (TextIter
start,TextIter
end) else Maybe (TextIter, TextIter)
forall a. Maybe a
Nothing
textIterForwardVisibleLine :: TextIter
-> IO Bool
textIterForwardVisibleLine :: TextIter -> IO Bool
textIterForwardVisibleLine TextIter
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_forward_visible_line Ptr TextIter
argPtr1)
{-# LINE 884 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
textIterBackwardVisibleLine :: TextIter
-> IO Bool
textIterBackwardVisibleLine :: TextIter -> IO Bool
textIterBackwardVisibleLine TextIter
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_backward_visible_line Ptr TextIter
argPtr1)
{-# LINE 901 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
textIterForwardVisibleLines :: TextIter
-> Int
-> IO Bool
textIterForwardVisibleLines :: TextIter -> Int -> IO Bool
textIterForwardVisibleLines TextIter
self Int
count =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_forward_visible_lines Ptr TextIter
argPtr1 CInt
arg2)
{-# LINE 919 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
count)
textIterBackwardVisibleLines :: TextIter
-> Int
-> IO Bool
textIterBackwardVisibleLines :: TextIter -> Int -> IO Bool
textIterBackwardVisibleLines TextIter
self Int
count =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_backward_visible_lines Ptr TextIter
argPtr1 CInt
arg2)
{-# LINE 938 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
count)
textIterForwardVisibleWordEnds :: TextIter
-> Int
-> IO Bool
textIterForwardVisibleWordEnds :: TextIter -> Int -> IO Bool
textIterForwardVisibleWordEnds TextIter
self Int
count =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_forward_visible_word_ends Ptr TextIter
argPtr1 CInt
arg2)
{-# LINE 950 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
count)
textIterBackwardVisibleWordStarts :: TextIter
-> Int
-> IO Bool
textIterBackwardVisibleWordStarts :: TextIter -> Int -> IO Bool
textIterBackwardVisibleWordStarts TextIter
self Int
count =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_backward_visible_word_starts Ptr TextIter
argPtr1 CInt
arg2)
{-# LINE 961 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
count)
textIterForwardVisibleWordEnd :: TextIter
-> IO Bool
textIterForwardVisibleWordEnd :: TextIter -> IO Bool
textIterForwardVisibleWordEnd TextIter
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_forward_visible_word_end Ptr TextIter
argPtr1)
{-# LINE 974 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
textIterBackwardVisibleWordStart :: TextIter
-> IO Bool
textIterBackwardVisibleWordStart :: TextIter -> IO Bool
textIterBackwardVisibleWordStart TextIter
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_backward_visible_word_start Ptr TextIter
argPtr1)
{-# LINE 986 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
textIterForwardVisibleCursorPosition :: TextIter
-> IO Bool
textIterForwardVisibleCursorPosition :: TextIter -> IO Bool
textIterForwardVisibleCursorPosition TextIter
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_forward_visible_cursor_position Ptr TextIter
argPtr1)
{-# LINE 996 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
textIterBackwardVisibleCursorPosition :: TextIter
-> IO Bool
textIterBackwardVisibleCursorPosition :: TextIter -> IO Bool
textIterBackwardVisibleCursorPosition TextIter
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> IO CInt
gtk_text_iter_backward_visible_cursor_position Ptr TextIter
argPtr1)
{-# LINE 1006 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
textIterForwardVisibleCursorPositions :: TextIter
-> Int
-> IO Bool
textIterForwardVisibleCursorPositions :: TextIter -> Int -> IO Bool
textIterForwardVisibleCursorPositions TextIter
self Int
count =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_forward_visible_cursor_positions Ptr TextIter
argPtr1 CInt
arg2)
{-# LINE 1016 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
count)
textIterBackwardVisibleCursorPositions :: TextIter
-> Int
-> IO Bool
textIterBackwardVisibleCursorPositions :: TextIter -> Int -> IO Bool
textIterBackwardVisibleCursorPositions TextIter
self Int
count =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) CInt
arg2 -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->Ptr TextIter -> CInt -> IO CInt
gtk_text_iter_backward_visible_cursor_positions Ptr TextIter
argPtr1 CInt
arg2)
{-# LINE 1028 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
count)
textIterEqual :: TextIter -> TextIter -> IO Bool
textIterEqual :: TextIter -> TextIter -> IO Bool
textIterEqual TextIter
ti2 TextIter
ti1 = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$ (\(TextIter ForeignPtr TextIter
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg2 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr2 ->Ptr TextIter -> Ptr TextIter -> IO CInt
gtk_text_iter_equal Ptr TextIter
argPtr1 Ptr TextIter
argPtr2) TextIter
ti1 TextIter
ti2
textIterCompare :: TextIter -> TextIter -> IO Ordering
textIterCompare :: TextIter -> TextIter -> IO Ordering
textIterCompare TextIter
ti2 TextIter
ti1 = do
CInt
res <- (\(TextIter ForeignPtr TextIter
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg2 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr2 ->Ptr TextIter -> Ptr TextIter -> IO CInt
gtk_text_iter_compare Ptr TextIter
argPtr1 Ptr TextIter
argPtr2) TextIter
ti1 TextIter
ti2
Ordering -> IO Ordering
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ordering -> IO Ordering) -> Ordering -> IO Ordering
forall a b. (a -> b) -> a -> b
$ case CInt
res of
(-1) -> Ordering
LT
CInt
0 -> Ordering
EQ
CInt
1 -> Ordering
GT
textIterInRange :: TextIter
-> TextIter
-> TextIter
-> IO Bool
textIterInRange :: TextIter -> TextIter -> TextIter -> IO Bool
textIterInRange TextIter
ti TextIter
start TextIter
end = (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(TextIter ForeignPtr TextIter
arg1) (TextIter ForeignPtr TextIter
arg2) (TextIter ForeignPtr TextIter
arg3) -> ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg2 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr2 ->ForeignPtr TextIter -> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg3 ((Ptr TextIter -> IO CInt) -> IO CInt)
-> (Ptr TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr3 ->Ptr TextIter -> Ptr TextIter -> Ptr TextIter -> IO CInt
gtk_text_iter_in_range Ptr TextIter
argPtr1 Ptr TextIter
argPtr2 Ptr TextIter
argPtr3) TextIter
ti TextIter
start TextIter
end
textIterOrder :: TextIter -> TextIter -> IO ()
textIterOrder :: TextIter -> TextIter -> IO ()
textIterOrder TextIter
first TextIter
second =
(\(TextIter ForeignPtr TextIter
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextIter -> (Ptr TextIter -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg1 ((Ptr TextIter -> IO ()) -> IO ())
-> (Ptr TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr1 ->ForeignPtr TextIter -> (Ptr TextIter -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextIter
arg2 ((Ptr TextIter -> IO ()) -> IO ())
-> (Ptr TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextIter
argPtr2 ->Ptr TextIter -> Ptr TextIter -> IO ()
gtk_text_iter_order Ptr TextIter
argPtr1 Ptr TextIter
argPtr2) TextIter
first TextIter
second
textIterVisibleLineOffset :: Attr TextIter Int
textIterVisibleLineOffset :: Attr TextIter Int
textIterVisibleLineOffset = (TextIter -> IO Int)
-> (TextIter -> Int -> IO ()) -> Attr TextIter Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
TextIter -> IO Int
textIterGetVisibleLineOffset
TextIter -> Int -> IO ()
textIterSetVisibleLineOffset
textIterOffset :: Attr TextIter Int
textIterOffset :: Attr TextIter Int
textIterOffset = (TextIter -> IO Int)
-> (TextIter -> Int -> IO ()) -> Attr TextIter Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
TextIter -> IO Int
textIterGetOffset
TextIter -> Int -> IO ()
textIterSetOffset
textIterLineOffset :: Attr TextIter Int
textIterLineOffset :: Attr TextIter Int
textIterLineOffset = (TextIter -> IO Int)
-> (TextIter -> Int -> IO ()) -> Attr TextIter Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
TextIter -> IO Int
textIterGetLineOffset
TextIter -> Int -> IO ()
textIterSetLineOffset
textIterLine :: Attr TextIter Int
textIterLine :: Attr TextIter Int
textIterLine = (TextIter -> IO Int)
-> (TextIter -> Int -> IO ()) -> Attr TextIter Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
TextIter -> IO Int
textIterGetLine
TextIter -> Int -> IO ()
textIterSetLine
foreign import ccall unsafe "gtk_text_iter_get_buffer"
gtk_text_iter_get_buffer :: ((Ptr TextIter) -> (IO (Ptr TextBuffer)))
foreign import ccall unsafe "gtk_text_iter_get_offset"
gtk_text_iter_get_offset :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_get_line"
gtk_text_iter_get_line :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_get_line_offset"
gtk_text_iter_get_line_offset :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_get_visible_line_offset"
gtk_text_iter_get_visible_line_offset :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_get_char"
gtk_text_iter_get_char :: ((Ptr TextIter) -> (IO CUInt))
foreign import ccall safe "gtk_text_iter_get_slice"
gtk_text_iter_get_slice :: ((Ptr TextIter) -> ((Ptr TextIter) -> (IO (Ptr CChar))))
foreign import ccall unsafe "g_free"
g_free :: ((Ptr ()) -> (IO ()))
foreign import ccall safe "gtk_text_iter_get_text"
gtk_text_iter_get_text :: ((Ptr TextIter) -> ((Ptr TextIter) -> (IO (Ptr CChar))))
foreign import ccall safe "gtk_text_iter_get_visible_slice"
gtk_text_iter_get_visible_slice :: ((Ptr TextIter) -> ((Ptr TextIter) -> (IO (Ptr CChar))))
foreign import ccall safe "gtk_text_iter_get_visible_text"
gtk_text_iter_get_visible_text :: ((Ptr TextIter) -> ((Ptr TextIter) -> (IO (Ptr CChar))))
foreign import ccall unsafe "gtk_text_iter_get_pixbuf"
gtk_text_iter_get_pixbuf :: ((Ptr TextIter) -> (IO (Ptr Pixbuf)))
foreign import ccall unsafe "gtk_text_iter_get_child_anchor"
gtk_text_iter_get_child_anchor :: ((Ptr TextIter) -> (IO (Ptr TextChildAnchor)))
foreign import ccall safe "gtk_text_iter_get_marks"
gtk_text_iter_get_marks :: ((Ptr TextIter) -> (IO (Ptr ())))
foreign import ccall safe "gtk_text_iter_get_toggled_tags"
gtk_text_iter_get_toggled_tags :: ((Ptr TextIter) -> (CInt -> (IO (Ptr ()))))
foreign import ccall unsafe "gtk_text_iter_begins_tag"
gtk_text_iter_begins_tag :: ((Ptr TextIter) -> ((Ptr TextTag) -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_ends_tag"
gtk_text_iter_ends_tag :: ((Ptr TextIter) -> ((Ptr TextTag) -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_toggles_tag"
gtk_text_iter_toggles_tag :: ((Ptr TextIter) -> ((Ptr TextTag) -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_has_tag"
gtk_text_iter_has_tag :: ((Ptr TextIter) -> ((Ptr TextTag) -> (IO CInt)))
foreign import ccall safe "gtk_text_iter_get_tags"
gtk_text_iter_get_tags :: ((Ptr TextIter) -> (IO (Ptr ())))
foreign import ccall unsafe "gtk_text_iter_editable"
gtk_text_iter_editable :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_can_insert"
gtk_text_iter_can_insert :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_starts_word"
gtk_text_iter_starts_word :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_ends_word"
gtk_text_iter_ends_word :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_inside_word"
gtk_text_iter_inside_word :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_starts_line"
gtk_text_iter_starts_line :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_ends_line"
gtk_text_iter_ends_line :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_starts_sentence"
gtk_text_iter_starts_sentence :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_ends_sentence"
gtk_text_iter_ends_sentence :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_inside_sentence"
gtk_text_iter_inside_sentence :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_is_cursor_position"
gtk_text_iter_is_cursor_position :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_get_chars_in_line"
gtk_text_iter_get_chars_in_line :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_get_attributes"
gtk_text_iter_get_attributes :: ((Ptr TextIter) -> ((Ptr TextAttributes) -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_get_language"
gtk_text_iter_get_language :: ((Ptr TextIter) -> (IO (Ptr Language)))
foreign import ccall unsafe "gtk_text_iter_is_end"
gtk_text_iter_is_end :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_is_start"
gtk_text_iter_is_start :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_forward_char"
gtk_text_iter_forward_char :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_backward_char"
gtk_text_iter_backward_char :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_forward_chars"
gtk_text_iter_forward_chars :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_backward_chars"
gtk_text_iter_backward_chars :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_forward_line"
gtk_text_iter_forward_line :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_backward_line"
gtk_text_iter_backward_line :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_forward_lines"
gtk_text_iter_forward_lines :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_backward_lines"
gtk_text_iter_backward_lines :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_forward_word_ends"
gtk_text_iter_forward_word_ends :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_backward_word_starts"
gtk_text_iter_backward_word_starts :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_forward_word_end"
gtk_text_iter_forward_word_end :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_backward_word_start"
gtk_text_iter_backward_word_start :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_forward_cursor_position"
gtk_text_iter_forward_cursor_position :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_backward_cursor_position"
gtk_text_iter_backward_cursor_position :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_forward_cursor_positions"
gtk_text_iter_forward_cursor_positions :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_backward_cursor_positions"
gtk_text_iter_backward_cursor_positions :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_forward_sentence_ends"
gtk_text_iter_forward_sentence_ends :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_backward_sentence_starts"
gtk_text_iter_backward_sentence_starts :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_forward_sentence_end"
gtk_text_iter_forward_sentence_end :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_backward_sentence_start"
gtk_text_iter_backward_sentence_start :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_set_offset"
gtk_text_iter_set_offset :: ((Ptr TextIter) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_text_iter_set_line"
gtk_text_iter_set_line :: ((Ptr TextIter) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_text_iter_set_line_offset"
gtk_text_iter_set_line_offset :: ((Ptr TextIter) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_text_iter_set_visible_line_offset"
gtk_text_iter_set_visible_line_offset :: ((Ptr TextIter) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_text_iter_forward_to_end"
gtk_text_iter_forward_to_end :: ((Ptr TextIter) -> (IO ()))
foreign import ccall unsafe "gtk_text_iter_forward_to_line_end"
gtk_text_iter_forward_to_line_end :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall unsafe "gtk_text_iter_forward_to_tag_toggle"
gtk_text_iter_forward_to_tag_toggle :: ((Ptr TextIter) -> ((Ptr TextTag) -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_backward_to_tag_toggle"
gtk_text_iter_backward_to_tag_toggle :: ((Ptr TextIter) -> ((Ptr TextTag) -> (IO CInt)))
foreign import ccall safe "gtk_text_iter_forward_find_char"
gtk_text_iter_forward_find_char :: ((Ptr TextIter) -> ((FunPtr (CUInt -> ((Ptr ()) -> (IO CInt)))) -> ((Ptr ()) -> ((Ptr TextIter) -> (IO CInt)))))
foreign import ccall safe "gtk_text_iter_backward_find_char"
gtk_text_iter_backward_find_char :: ((Ptr TextIter) -> ((FunPtr (CUInt -> ((Ptr ()) -> (IO CInt)))) -> ((Ptr ()) -> ((Ptr TextIter) -> (IO CInt)))))
foreign import ccall unsafe "gtk_text_iter_forward_search"
gtk_text_iter_forward_search :: ((Ptr TextIter) -> ((Ptr CChar) -> (CInt -> ((Ptr TextIter) -> ((Ptr TextIter) -> ((Ptr TextIter) -> (IO CInt)))))))
foreign import ccall unsafe "gtk_text_iter_backward_search"
gtk_text_iter_backward_search :: ((Ptr TextIter) -> ((Ptr CChar) -> (CInt -> ((Ptr TextIter) -> ((Ptr TextIter) -> ((Ptr TextIter) -> (IO CInt)))))))
foreign import ccall safe "gtk_text_iter_forward_visible_line"
gtk_text_iter_forward_visible_line :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall safe "gtk_text_iter_backward_visible_line"
gtk_text_iter_backward_visible_line :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall safe "gtk_text_iter_forward_visible_lines"
gtk_text_iter_forward_visible_lines :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall safe "gtk_text_iter_backward_visible_lines"
gtk_text_iter_backward_visible_lines :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall safe "gtk_text_iter_forward_visible_word_ends"
gtk_text_iter_forward_visible_word_ends :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall safe "gtk_text_iter_backward_visible_word_starts"
gtk_text_iter_backward_visible_word_starts :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall safe "gtk_text_iter_forward_visible_word_end"
gtk_text_iter_forward_visible_word_end :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall safe "gtk_text_iter_backward_visible_word_start"
gtk_text_iter_backward_visible_word_start :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall safe "gtk_text_iter_forward_visible_cursor_position"
gtk_text_iter_forward_visible_cursor_position :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall safe "gtk_text_iter_backward_visible_cursor_position"
gtk_text_iter_backward_visible_cursor_position :: ((Ptr TextIter) -> (IO CInt))
foreign import ccall safe "gtk_text_iter_forward_visible_cursor_positions"
gtk_text_iter_forward_visible_cursor_positions :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall safe "gtk_text_iter_backward_visible_cursor_positions"
gtk_text_iter_backward_visible_cursor_positions :: ((Ptr TextIter) -> (CInt -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_equal"
gtk_text_iter_equal :: ((Ptr TextIter) -> ((Ptr TextIter) -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_compare"
gtk_text_iter_compare :: ((Ptr TextIter) -> ((Ptr TextIter) -> (IO CInt)))
foreign import ccall unsafe "gtk_text_iter_in_range"
gtk_text_iter_in_range :: ((Ptr TextIter) -> ((Ptr TextIter) -> ((Ptr TextIter) -> (IO CInt))))
foreign import ccall safe "gtk_text_iter_order"
gtk_text_iter_order :: ((Ptr TextIter) -> ((Ptr TextIter) -> (IO ())))