{-# LINE 2 "./Graphics/UI/Gtk/Multiline/TextIter.chs" #-}
-- -*-haskell-*-
-- GIMP Toolkit (GTK) TextIter TextBuffer
--
-- Author : Axel Simon, Andy Stewart
--
-- Created: 23 February 2002
--
-- Copyright (C) 2002-2005 Axel Simon
-- Copyright (C) 2009 Andy Stewart
--
-- This library is free software; you can redistribute it and/or
-- modify it under the terms of the GNU Lesser General Public
-- License as published by the Free Software Foundation; either
-- version 2.1 of the License, or (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- Lesser General Public License for more details.
--
-- The following functions do not make sense due to Haskell's wide character
-- representation of Unicode:
-- gtk_text_iter_get_line_index
-- gtk_text_iter_get_visible_line_index
-- gtk_text_iter_get_bytes_in_line
-- gtk_text_iter_set_line_index
-- gtk_text_iter_set_visible_line_index
--
-- All offsets are counted from 0.
--
-- |
-- Maintainer : gtk2hs-users@lists.sourceforge.net
-- Stability : provisional
-- Portability : portable (depends on GHC)
--
-- An iterator is an abstract datatype representing a pointer into a
-- 'TextBuffer'.
--
module Graphics.UI.Gtk.Multiline.TextIter (

-- * Types
  TextIter,
  TextSearchFlags(..),

-- * Methods
  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,

-- * Attributes
  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" #-}

-- methods


-- | Return the 'TextBuffer' this iterator
-- is associated with.
--
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

-- | Returns the character offset of an iterator. Each character in a
-- 'TextBuffer' has an offset, starting with 0 for the first character in the
-- buffer. Use 'Graphics.UI.Gtk.Multiline.TextBuffer.textBufferGetIterAtOffset'
-- to convert an offset back into an iterator.
--
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

-- | Returns the line number containing the iterator. Lines in a 'TextBuffer'
-- are numbered beginning with 0 for the first line in the buffer.
--
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

-- | Returns the character offset of the iterator, counting from the start of
-- a newline-terminated line. The first character on the line has offset 0.
--
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

-- | Returns the offset in characters from the start of the line to the given
-- @iter@, not counting characters that are invisible due to tags with the
-- \"invisible\" flag toggled on.
--
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

-- | Returns the Unicode character at this iterator.
-- If the element at this iterator is a non-character
-- element, such as an image embedded in the buffer, the Unicode \"unknown\"
-- character 0xFFFC is returned. If invoked on the end iterator,
-- @Nothing@ is returned.
--
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)

-- | Returns the text in the given range. A \"slice\" is a list of
-- characters, including the Unicode \"unknown\"
-- character 0xFFFC for iterable non-character elements in the buffer, such as
-- images. Because images are encoded in the slice, offsets
-- in the returned array will correspond to offsets in the text buffer.
-- Note that 0xFFFC can occur in normal text as well, so it is not a reliable
-- indicator that a pixbuf or widget is in the buffer.
--
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

-- | Return the text in a given range.
--
-- * Pictures (and other objects) are stripped form the output. Thus, this
-- function does not preserve offsets.
--
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

-- | Like 'textIterGetSlice', but invisible text is not included. Invisible
-- text is usually invisible because a 'TextTag' with the \"invisible\"
-- attribute turned on has been applied to it.
--
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

-- | Like 'textIterGetText', but invisible text is not included. Invisible
-- text is usually invisible because a 'TextTag' with the \"invisible\"
-- attribute turned on has been applied to it.
--
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

-- | Get the 'Pixbuf' under the iterator.
--
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)

-- | If the location at @iter@ contains a child anchor,
-- the anchor is returned (with no new reference count added).
-- Otherwise, @Nothing@ is returned.
--
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)

-- | Returns a list of all 'TextMark' at this location. Because marks are not
-- iterable (they don't take up any \"space\" in the buffer, they are just
-- marks in between iterable locations), multiple marks can exist in the same
-- place. The returned list is not in any meaningful order.
--
textIterGetMarks :: TextIter
 -> IO [TextMark] -- ^ returns list of '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))

-- | Returns a list of 'TextTag' that are toggled on or off at this point. (If
-- @toggledOn@ is @True@, the list contains tags that are toggled on.) If a tag
-- is toggled on at @iter@, then some non-empty range of characters following
-- @iter@ has that tag applied to it. If a tag is toggled off, then some
-- non-empty range following @iter@ does /not/ have the tag applied to it.
--
textIterGetToggledTags :: TextIter
 -> Bool -- ^ @toggledOn@ - @True@ to get toggled-on tags
 -> IO [TextTag] -- ^ returns tags toggled at this point
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))

-- | Returns @True@ if @tag@ is toggled on at exactly this point. If @tag@ is
-- @Nothing@,
-- returns @True@ if any tag is toggled on at this point. Note that the
-- 'textIterBeginsTag' returns @True@ if @iter@ is the /start/ of the tagged
-- range; 'textIterHasTag' tells you whether an iterator is /within/ a tagged
-- range.
--
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)

-- | Returns @True@ if @tag@ is toggled off at exactly this point. If @tag@ is
-- @Notihng@,
-- returns @True@ if any tag is toggled off at this point. Note that the
-- 'textIterEndsTag' returns @True@ if @iter@ is the /end/ of the tagged range;
-- 'textIterHasTag' tells you whether an iterator is /within/ a tagged range.
--
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)

-- | Query if the 'TextIter' is at the
-- beginning or the end of a 'TextTag'. This is equivalent to
-- ('textIterBeginsTag' || 'textIterEndsTag'), i.e. it
-- tells you whether a range with @tag@ applied to it begins /or/ ends at
-- @iter@.
--
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)

-- | Check if 'TextIter' is within a range
-- tagged with tag.
--
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)

-- | Returns a list of tags that apply to @iter@, in ascending order of
-- priority (highest-priority tags are last).
--
textIterGetTags :: TextIter
 -> IO [TextTag] -- ^ returns list of '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))


-- | Returns whether the character at @iter@ is within an editable region of
-- text. Non-editable text is \"locked\" and can't be changed by the user via
-- 'TextView'. This function is simply a convenience wrapper around
-- 'textIterGetAttributes'. If no tags applied to this text affect editability,
-- @defaultSetting@ will be returned.
--
-- You don't want to use this function to decide whether text can be
-- inserted at @iter@, because for insertion you don't want to know whether the
-- char at @iter@ is inside an editable range, you want to know whether a new
-- character inserted at @iter@ would be inside an editable range. Use
-- 'textIterCanInsert' to handle this case.
--
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)

-- | Check if new text can be inserted at 'TextIter'.
--
-- * Considering the default editability of the buffer, and tags that affect
-- editability, determines whether text inserted at @iter@ would be editable.
-- If text inserted at @iter@ would be editable then the user should be allowed
-- to insert text at @iter@.
-- 'Graphics.UI.Gtk.Multiline.TextBuffer.textBufferInsertInteractive'
-- uses this function
-- to decide whether insertions are allowed at a given position.
--
-- * Use 'Graphics.UI.Gtk.Multiline.TextBuffer.textBufferInsertInteractive'
-- if you want to insert text depending on the current editable status.
--
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)

-- | Determine if 'TextIter' begins a new
-- natural-language word.
--
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


-- | Determine if 'TextIter' ends a new
-- natural-language word.
--
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

-- | Determine if 'TextIter' is inside a
-- word.
--
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

-- | Determine if 'TextIter' begins a new
-- line.
--
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

-- | Returns @True@ if @iter@ points to the start of the paragraph delimiter
-- characters for a line (delimiters will be either a newline, a carriage
-- return, a carriage return followed by a newline, or a Unicode paragraph
-- separator character). Note that an iterator pointing to the \n of a \r\n
-- pair will not be counted as the end of a line, the line ends before the \r.
-- The end iterator is considered to be at the end of a line, even though there
-- are no paragraph delimiter chars there.
--
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

-- | Determine if 'TextIter' starts a
-- sentence.
--
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

-- | Determine if 'TextIter' ends a
-- sentence.
--
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

-- | Determine if 'TextIter' is inside
-- a sentence.
--
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

-- | Determine if 'TextIter' is at a
-- cursor position.
--
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

-- | Return number of characters in this line.
--
-- * The return value includes delimiters.
--
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

-- | Computes the effect of any tags applied to this spot in the text.
-- The values parameter should be initialized to the default settings you wish to use if no tags are in effect.
-- You'd typically obtain the defaults from 'textViewGetDefaultAttributes'.
-- 'textIterGetAttributes' will modify values, applying the effects of any tags present at iter.
-- If any tags affected values, the function returns @True@.
--
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

-- | A convenience wrapper around 'textIterGetAttributes', which returns the language in effect at iter.
-- If no tags affecting language apply to iter, the return value is identical to that of 'getDefaultLanguage'.
--
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

-- | Determine if 'TextIter' is at the end of
-- the buffer.
--
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

-- | Determine if 'TextIter' is at the
-- beginning of the buffer.
--
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

-- | Move 'TextIter' forwards.
--
-- * Returns True if the iterator is pointing to a character.
--
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

-- | Move 'TextIter' backwards.
--
-- * Returns True if the movement was possible.
--
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

-- | Move 'TextIter' forwards by
-- @n@ characters.
--
-- * Returns @True@ if the iterator is pointing to a new character (and @False@ if
-- the iterator points to a picture or has not moved).
--
-- * Note that images embedded
-- in the buffer occupy 1 character slot, so 'textIterForwardChar' may actually
-- move onto an image instead of a character.
--
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)

-- | Move 'TextIter' backwards by
-- @n@ characters.
--
-- * Returns @True@ if the iterator is pointing to a new character (and @False@ if
-- the iterator points to a picture or has not moved).
--
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)


-- | Move 'TextIter' forwards.
--
-- * Returns True if the iterator is pointing to a new line (and False if the
-- iterator points to a picture or has not moved).
--
-- * If 'TextIter' is on the first line, it will be moved to the
-- beginning of the buffer.
--
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

-- | Move 'TextIter' backwards.
--
-- * Returns True if the iterator is pointing to a new line (and False if the
-- iterator points to a picture or has not moved).
--
-- * If 'TextIter' is on the first line, it will be moved to the end
-- of the buffer.
--
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


-- | Move 'TextIter' forwards by
-- @n@ lines.
--
-- * Returns True if the iterator is pointing to a new line (and False if the
-- iterator points to a picture or has not moved).
--
-- * If 'TextIter' is on the first line, it will be moved to the
-- beginning of the buffer.
--
-- * @n@ can be negative.
--
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)

-- | Move 'TextIter' backwards by
-- @n@ lines.
--
-- * Returns True if the iterator is pointing to a new line (and False if the
-- iterator points to a picture or has not moved).
--
-- * If 'TextIter' is on the first line, it will be moved to the end
-- of the buffer.
--
-- * @n@ can be negative.
--
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)

-- | Move 'TextIter' forwards by
-- @n@ word ends.
--
-- * Returns True if the iterator is pointing to a new word end.
--
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)

-- | Move 'TextIter' backwards by
-- @n@ word beginnings.
--
-- * Returns True if the iterator is pointing to a new word start.
--
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)

-- | Move 'TextIter' forwards to the
-- next word end.
--
-- * Returns True if the iterator has moved to a new word end.
--
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

-- | Move 'TextIter' backwards to
-- the next word beginning.
--
-- * Returns True if the iterator has moved to a new word beginning.
--
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

-- | Move 'TextIter' forwards to
-- the next cursor position.
--
-- * Some characters are composed of two Unicode codes. This function ensures
-- that 'TextIter' does not point in between such double characters.
--
-- * Returns True if 'TextIter' moved and points to a character (not
-- to an object).
--
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

-- | Move 'TextIter' backwards
-- to the next cursor position.
--
-- * Some characters are composed of two Unicode codes. This function ensures
-- that 'TextIter' does not point in between such double characters.
--
-- * Returns True if 'TextIter' moved and points to a character (not
-- to an object).
--
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

-- | Move 'TextIter' forwards
-- by @n@ cursor positions.
--
-- * Returns True if 'TextIter' moved and points to a character (not
-- to an object).
--
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)

-- | Move 'TextIter' backwards
-- by @n@ cursor positions.
--
-- * Returns True if 'TextIter' moved and points to a character (not
-- to an object).
--
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)


-- | Move 'TextIter' forwards by
-- @n@ sentence ends.
--
-- * Returns True if the iterator is pointing to a new sentence end.
--
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)

-- | Move 'TextIter' backwards
-- by @n@ sentence beginnings.
--
-- * Returns True if the iterator is pointing to a new sentence start.
--
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)

-- | Move 'TextIter' forwards to
-- the next sentence end.
--
-- * Returns True if the iterator has moved to a new sentence end.
--
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

-- | Move 'TextIter' backwards
-- to the next sentence beginning.
--
-- * Returns True if the iterator has moved to a new sentence beginning.
--
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

-- | Set 'TextIter' to an offset within the
-- buffer.
--
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)

-- | Set 'TextIter' to a line within the
-- buffer.
--
-- * If number is negative or larger than the number of lines in the buffer,
-- moves @iter@ to the start of the last line in the buffer.
--
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)

-- | Set 'TextIter' to an offset within the line.
--
-- * The
-- given character offset must be less than or equal to the number of
-- characters in the line; if equal, the iterator moves to the start of the
-- next line.
--
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)

-- | Like 'textIterSetLineOffset', but the offset is in visible characters,
-- i.e. text with a tag making it invisible is not counted in the offset.
--
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)

-- | Moves @iter@ forward to the \"end iterator,\" which points one past the
-- last valid character in the buffer.
--
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

-- | Moves the iterator to point to the paragraph delimiter characters, which
-- will be either a newline, a carriage return, a carriage return\/newline in
-- sequence, or the Unicode paragraph separator character. If the iterator is
-- already at the paragraph delimiter characters, moves to the paragraph
-- delimiter characters for the next line. If @iter@ is on the last line in the
-- buffer, which does not end in paragraph delimiters, moves to the end
-- iterator (end of the last line), and returns @False@.
--
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

-- | Moves 'TextIter' forward to
-- the next change of a 'TextTag'.
--
-- * If Nothing is supplied, any 'TextTag' will be matched.
--
-- * Returns @True@ if there was a tag toggle after 'TextIter'.
--
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)

-- | Moves 'TextIter' backward to
-- the next change of a 'TextTag'.
--
-- * If @Nothing@ is supplied, any 'TextTag' will be matched.
--
-- * Returns @True@ if there was a tag toggle before 'TextIter'.
--
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

-- | Move 'TextIter' forward until a
-- predicate function returns True.
--
-- * If @pred@ returns True before @limit@ is reached, the
-- search is stopped and the return value is True.
--
-- * If @limit@ is Nothing, the search stops at the end of the buffer.
--
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

-- | Move 'TextIter' backward until a
-- predicate function returns True.
--
-- * If @pred@ returns True before @limit@ is reached, the
-- search is stopped and the return value is True.
--
-- * If @limit@ is Nothing, the search stops at the end of the buffer.
--
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

-- | Search forward for a specific string.
--
-- * If specified, the last character which is tested against that start of
-- the search pattern will be @limit@.
--
-- * 'TextSearchFlags' may be empty.
--
-- * Returns the start and end position of the string found.
--
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

-- | Search backward for a specific string.
--
-- * If specified, the last character which is tested against that start of
-- the search pattern will be @limit@.
--
-- * 'TextSearchFlags' my be empty.
--
-- * Returns the start and end position of the string found.
--
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


-- | Moves @iter@ to the start of the next visible line. Returns @True@ if
-- there was a next line to move to, and @False@ if @iter@ was simply moved to
-- the end of the buffer and is now not dereferenceable, or if @iter@ was
-- already at the end of the buffer.
--
-- * Available since Gtk+ version 2.8
--
textIterForwardVisibleLine :: TextIter
 -> IO Bool -- ^ returns whether @iter@ can be dereferenced
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

-- | Moves @iter@ to the start of the previous visible line. Returns @True@ if
-- @iter@ could be moved; i.e. if @iter@ was at character offset 0, this
-- function returns @False@. Therefore if @iter@ was already on line 0, but not
-- at the start of the line, @iter@ is snapped to the start of the line and the
-- function returns @True@. (Note that this implies that in a loop calling this
-- function, the line number may not change on every iteration, if your first
-- iteration is on line 0.)
--
-- * Available since Gtk+ version 2.8
--
textIterBackwardVisibleLine :: TextIter
 -> IO Bool -- ^ returns whether @iter@ moved
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

-- | Moves @count@ visible lines forward, if possible (if @count@ would move
-- past the start or end of the buffer, moves to the start or end of the
-- buffer). The return value indicates whether the iterator moved onto a
-- dereferenceable position; if the iterator didn't move, or moved onto the end
-- iterator, then @False@ is returned. If @count@ is 0, the function does
-- nothing and returns @False@. If @count@ is negative, moves backward by 0 -
-- @count@ lines.
--
-- * Available since Gtk+ version 2.8
--
textIterForwardVisibleLines :: TextIter
 -> Int -- ^ @count@ - number of lines to move forward
 -> IO Bool -- ^ returns whether @iter@ moved and is dereferenceable
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)

-- | Moves @count@ visible lines backward, if possible (if @count@ would move
-- past the start or end of the buffer, moves to the start or end of the
-- buffer). The return value indicates whether the iterator moved onto a
-- dereferenceable position; if the iterator didn't move, or moved onto the end
-- iterator, then @False@ is returned. If @count@ is 0, the function does
-- nothing and returns @False@. If @count@ is negative, moves forward by 0 -
-- @count@ lines.
--
-- * Available since Gtk+ version 2.8
--
textIterBackwardVisibleLines :: TextIter
 -> Int -- ^ @count@ - number of lines to move backward
 -> IO Bool -- ^ returns whether @iter@ moved and is dereferenceable
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)


-- | Calls 'textIterForwardVisibleWordEnd' up to count times.
--
textIterForwardVisibleWordEnds :: TextIter
 -> Int -- ^ @counter@ - number of times to move
 -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator
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)

-- | Calls 'textIterBackwardVisibleWordStart' up to count times.
--
textIterBackwardVisibleWordStarts :: TextIter
 -> Int -- ^ @counter@ - number of times to move
 -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator
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)

-- | Moves forward to the next visible word end.
-- (If iter is currently on a word end, moves forward to the next one after that.)
-- Word breaks are determined by Pango and should be correct for nearly any language
-- (if not, the correct fix would be to the Pango word break algorithms).
--
textIterForwardVisibleWordEnd :: TextIter
 -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator
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

-- | Moves backward to the previous visible word start.
-- (If iter is currently on a word start, moves backward to the next one after that.)
-- Word breaks are determined by Pango and should be correct for nearly any language
-- (if not, the correct fix would be to the Pango word break algorithms).
--
textIterBackwardVisibleWordStart :: TextIter
 -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator
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

-- | Moves iter forward to the next visible cursor position.
-- See 'textIterForwardCursorPosition' for details.
--
textIterForwardVisibleCursorPosition :: TextIter
 -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator
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

-- | Moves iter forward to the previous visible cursor position.
-- See 'textIterBackwardCursorPosition' for details.
--
textIterBackwardVisibleCursorPosition :: TextIter
 -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator
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

-- | Moves up to count visible cursor positions.
-- See 'textIterForwardCursorPosition' for details.
textIterForwardVisibleCursorPositions :: TextIter
 -> Int -- ^ @counter@ - number of times to move
 -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator
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)

-- | Moves up to count visible cursor positions.
-- See 'textIterBackwardCursorPosition' for details.
--
textIterBackwardVisibleCursorPositions :: TextIter
 -> Int -- ^ @counter@ - number of times to move
 -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator
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)

-- | Compare two 'TextIter' for equality.
--
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

-- | Compare two 'TextIter'.
--
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

-- | Checks whether iter falls in the range [start, end).
-- start and end must be in ascending order.
--
textIterInRange :: TextIter
 -> TextIter -- ^ @start@ start of range
 -> TextIter -- ^ @end@ end of range
 -> IO Bool -- ^ @True@ if iter is in the range
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

-- | Swaps the value of first and second if second comes before first in the buffer.
-- That is, ensures that first and second are in sequence.
-- Most text buffer functions that take a range call this automatically on your behalf, so there's no real reason to call it yourself in those cases.
-- There are some exceptions, such as 'textIterInRange', that expect a pre-sorted range.
--
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

--------------------
-- Attributes

-- | \'visibleLineOffset\' property. See 'textIterGetVisibleLineOffset' and
-- 'textIterSetVisibleLineOffset'
--
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

-- | \'offset\' property. See 'textIterGetOffset' and 'textIterSetOffset'
--
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

-- | \'lineOffset\' property. See 'textIterGetLineOffset' and
-- 'textIterSetLineOffset'
--
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

-- | \'line\' property. See 'textIterGetLine' and 'textIterSetLine'
--
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 ())))