{-# LINE 2 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
-- -*-haskell-*-
-- GIMP Toolkit (GTK) Widget TextView
--
-- Author : Axel Simon
--
-- Created: 23 February 2002
--
-- Copyright (C) 2002-2005 Axel Simon
--
-- 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.
--
-- TODO
--
-- If PangoTabArray is bound:
-- Fucntions: textViewSetTabs and textViewGetTabs
-- Properties: textViewTabs
--
-- All on... and after... signales had incorrect names (underscore instead of hypens). Thus
-- they could not have been used in applications and removing them can't break anything.
-- Thus, I've removed them. Also, all key-binding singals are now removed as there is
-- no way to add additional key bindings programatically in a type-safe way, let alone
-- use these signals.
--
-- |
-- Maintainer : gtk2hs-users@lists.sourceforge.net
-- Stability : provisional
-- Portability : portable (depends on GHC)
--
-- Widget that displays a 'TextBuffer'
--
module Graphics.UI.Gtk.Multiline.TextView (
-- * Detail
--
-- | You may wish to begin by reading the text widget conceptual overview
-- which gives an overview of all the objects and data types related to the
-- text widget and how they work together.
--
-- Throughout we distinguish between buffer coordinates which are pixels with
-- the origin at the upper left corner of the first character on the first
-- line. Window coordinates are relative to the top left pixel which is visible
-- in the current 'TextView'. Coordinates from Events are in the latter
-- relation. The conversion can be done with 'textViewWindowToBufferCoords'.

-- * Class Hierarchy
-- |
-- @
-- | 'GObject'
-- | +----'Object'
-- | +----'Widget'
-- | +----'Container'
-- | +----TextView
-- |
-- |
-- | 'GObject'
-- | +----TextChildAnchor
-- @

-- * Types
  TextView,
  TextViewClass,
  TextChildAnchor,
  TextChildAnchorClass,
  castToTextView, gTypeTextView,
  toTextView,
  DeleteType(..),
  DirectionType(..),
  Justification(..),
  MovementStep(..),
  TextWindowType(..),
  WrapMode(..),

-- * Constructors
  textViewNew,
  textViewNewWithBuffer,

-- * Methods
  textViewSetBuffer,
  textViewGetBuffer,
  textViewScrollToMark,
  textViewScrollToIter,
  textViewScrollMarkOnscreen,
  textViewMoveMarkOnscreen,
  textViewPlaceCursorOnscreen,
  textViewGetLineAtY,
  textViewGetLineYrange,
  textViewGetIterAtLocation,
  textViewBufferToWindowCoords,
  textViewWindowToBufferCoords,
  textViewGetWindow,
  textViewGetWindowType,
  textViewSetBorderWindowSize,
  textViewGetBorderWindowSize,
  textViewForwardDisplayLine,
  textViewBackwardDisplayLine,
  textViewForwardDisplayLineEnd,
  textViewBackwardDisplayLineStart,
  textViewStartsDisplayLine,
  textViewMoveVisually,
  textViewAddChildAtAnchor,
  textChildAnchorNew,
  textChildAnchorGetWidgets,
  textChildAnchorGetDeleted,
  textViewAddChildInWindow,
  textViewMoveChild,
  textViewSetWrapMode,
  textViewGetWrapMode,
  textViewSetEditable,
  textViewGetEditable,
  textViewSetCursorVisible,
  textViewGetCursorVisible,
  textViewSetPixelsAboveLines,
  textViewGetPixelsAboveLines,
  textViewSetPixelsBelowLines,
  textViewGetPixelsBelowLines,
  textViewSetPixelsInsideWrap,
  textViewGetPixelsInsideWrap,
  textViewSetJustification,
  textViewGetJustification,
  textViewSetLeftMargin,
  textViewGetLeftMargin,
  textViewSetRightMargin,
  textViewGetRightMargin,
  textViewSetIndent,
  textViewGetIndent,
  textViewGetDefaultAttributes,
  textViewGetVisibleRect,
  textViewGetIterLocation,

  textViewGetIterAtPosition,


  textViewSetOverwrite,
  textViewGetOverwrite,
  textViewSetAcceptsTab,
  textViewGetAcceptsTab,


  textViewGetHadjustment,
  textViewGetVadjustment,
  textViewImContextFilterKeypress,
  textViewResetImContext,


-- * Attributes
  textViewPixelsAboveLines,
  textViewPixelsBelowLines,
  textViewPixelsInsideWrap,
  textViewEditable,
  textViewImModule,
  textViewWrapMode,
  textViewJustification,
  textViewLeftMargin,
  textViewRightMargin,
  textViewIndent,
  textViewCursorVisible,
  textViewBuffer,

  textViewOverwrite,
  textViewAcceptsTab,


-- * Signals
  backspace,
  copyClipboard,
  cutClipboard,
  deleteFromCursor,
  insertAtCursor,
  moveCursor,
  moveViewport,
  moveFocus,
  pageHorizontally,
  pasteClipboard,
  populatePopup,
  selectAll,
  setAnchor,
  setTextViewScrollAdjustments,
  toggleCursorVisible,
  toggleOverwrite,
  textViewPreeditChanged
  ) where

import Control.Monad (liftM)

import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes
import System.Glib.Properties (newAttrFromStringProperty)
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Gdk.EventM (EventM, EKey)
import Control.Monad.Reader ( ask )
import Control.Monad.Trans ( liftIO )
import Graphics.UI.Gtk.Types
{-# LINE 202 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 203 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
import Graphics.UI.Gtk.Multiline.Types
{-# LINE 204 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
import Graphics.UI.Gtk.Multiline.TextTag
{-# LINE 205 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
import Graphics.UI.Gtk.General.Enums (TextWindowType(..), DeleteType(..),
                                         DirectionType(..), Justification(..),
                                         MovementStep(..), WrapMode(..),
                                         ScrollStep (..))
import System.Glib.GList (fromGList)
import Graphics.UI.Gtk.General.Structs (Rectangle(..))


{-# LINE 213 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}

--------------------
-- Constructors

-- | Creates a new 'TextView'. If you don't call 'textViewSetBuffer' before
-- using the text view, an empty default buffer will be created for you. Get
-- the buffer with 'textViewGetBuffer'. If you want to specify your own buffer,
-- consider 'textViewNewWithBuffer'.
--
textViewNew :: IO TextView
textViewNew :: IO TextView
textViewNew =
  (ForeignPtr TextView -> TextView, FinalizerPtr TextView)
-> IO (Ptr TextView) -> IO TextView
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr TextView -> TextView, FinalizerPtr TextView)
forall {a}. (ForeignPtr TextView -> TextView, FinalizerPtr a)
mkTextView (IO (Ptr TextView) -> IO TextView)
-> IO (Ptr TextView) -> IO TextView
forall a b. (a -> b) -> a -> b
$
  (Ptr Widget -> Ptr TextView)
-> IO (Ptr Widget) -> IO (Ptr TextView)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr TextView
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr TextView) (IO (Ptr Widget) -> IO (Ptr TextView))
-> IO (Ptr Widget) -> IO (Ptr TextView)
forall a b. (a -> b) -> a -> b
$
  IO (Ptr Widget)
gtk_text_view_new
{-# LINE 227 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}

-- | Creates a new 'TextView' widget displaying the buffer @buffer@. One
-- buffer can be shared among many widgets.
--
textViewNewWithBuffer :: TextBufferClass buffer => buffer -> IO TextView
textViewNewWithBuffer :: forall buffer. TextBufferClass buffer => buffer -> IO TextView
textViewNewWithBuffer buffer
buffer =
  (ForeignPtr TextView -> TextView, FinalizerPtr TextView)
-> IO (Ptr TextView) -> IO TextView
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr TextView -> TextView, FinalizerPtr TextView)
forall {a}. (ForeignPtr TextView -> TextView, FinalizerPtr a)
mkTextView (IO (Ptr TextView) -> IO TextView)
-> IO (Ptr TextView) -> IO TextView
forall a b. (a -> b) -> a -> b
$
  (Ptr Widget -> Ptr TextView)
-> IO (Ptr Widget) -> IO (Ptr TextView)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr TextView
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr TextView) (IO (Ptr Widget) -> IO (Ptr TextView))
-> IO (Ptr Widget) -> IO (Ptr TextView)
forall a b. (a -> b) -> a -> b
$
  (\(TextBuffer ForeignPtr TextBuffer
arg1) -> ForeignPtr TextBuffer
-> (Ptr TextBuffer -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextBuffer
arg1 ((Ptr TextBuffer -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr TextBuffer -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr TextBuffer
argPtr1 ->Ptr TextBuffer -> IO (Ptr Widget)
gtk_text_view_new_with_buffer Ptr TextBuffer
argPtr1)
{-# LINE 236 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextBuffer buffer)

--------------------
-- Methods

-- | Sets the given buffer as the buffer being displayed by the text view.
--
textViewSetBuffer :: (TextViewClass self, TextBufferClass buffer) => self -> buffer -> IO ()
textViewSetBuffer :: forall self buffer.
(TextViewClass self, TextBufferClass buffer) =>
self -> buffer -> IO ()
textViewSetBuffer self
self buffer
buffer =
  (\(TextView ForeignPtr TextView
arg1) (TextBuffer ForeignPtr TextBuffer
arg2) -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->ForeignPtr TextBuffer -> (Ptr TextBuffer -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextBuffer
arg2 ((Ptr TextBuffer -> IO ()) -> IO ())
-> (Ptr TextBuffer -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextBuffer
argPtr2 ->Ptr TextView -> Ptr TextBuffer -> IO ()
gtk_text_view_set_buffer Ptr TextView
argPtr1 Ptr TextBuffer
argPtr2)
{-# LINE 246 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (buffer -> TextBuffer
forall o. TextBufferClass o => o -> TextBuffer
toTextBuffer buffer
buffer)

-- | Returns the 'TextBuffer' being displayed by this text view.
--
textViewGetBuffer :: TextViewClass self => self -> IO TextBuffer
textViewGetBuffer :: forall self. TextViewClass self => self -> IO TextBuffer
textViewGetBuffer self
self =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView
-> (Ptr TextView -> IO (Ptr TextBuffer)) -> IO (Ptr TextBuffer)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO (Ptr TextBuffer)) -> IO (Ptr TextBuffer))
-> (Ptr TextView -> IO (Ptr TextBuffer)) -> IO (Ptr TextBuffer)
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO (Ptr TextBuffer)
gtk_text_view_get_buffer Ptr TextView
argPtr1)
{-# LINE 255 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Scrolls the text view so that @mark@ is on the screen in the position
-- indicated by @xalign@ and @yalign@. An alignment of 0.0 indicates left or
-- top, 1.0 indicates right or bottom, 0.5 means center. If the alignment is
-- @Nothing@, the text scrolls the minimal distance to get the mark onscreen,
-- possibly not scrolling at all. The effective screen for purposes of this
-- function is reduced by a margin of size @withinMargin@.
--
textViewScrollToMark :: (TextViewClass self, TextMarkClass mark) => self
 -> mark -- ^ @mark@ - a 'TextMark'
 -> Double -- ^ @withinMargin@ - margin as a [0.0,0.5) fraction of screen size
           -- and imposes an extra margin at all four sides of the window
           -- within which @xalign@ and @yalign@ are evaluated.
 -> Maybe (Double, Double) -- ^ @Just (xalign, yalign)@ - horizontal and
           -- vertical alignment of mark within visible area (if @Nothing@,
           -- scroll just enough to get the mark onscreen)
 -> IO ()
textViewScrollToMark :: forall self mark.
(TextViewClass self, TextMarkClass mark) =>
self -> mark -> Double -> Maybe (Double, Double) -> IO ()
textViewScrollToMark self
self mark
mark Double
withinMargin Maybe (Double, Double)
align =
  let (Bool
useAlign, Double
xalign, Double
yalign) = case Maybe (Double, Double)
align of
        Maybe (Double, Double)
Nothing -> (Bool
False, Double
0, Double
0)
        Just (Double
xalign, Double
yalign) -> (Bool
True, Double
xalign, Double
yalign)
  in
  (\(TextView ForeignPtr TextView
arg1) (TextMark ForeignPtr TextMark
arg2) CDouble
arg3 CInt
arg4 CDouble
arg5 CDouble
arg6 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->ForeignPtr TextMark -> (Ptr TextMark -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextMark
arg2 ((Ptr TextMark -> IO ()) -> IO ())
-> (Ptr TextMark -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextMark
argPtr2 ->Ptr TextView
-> Ptr TextMark -> CDouble -> CInt -> CDouble -> CDouble -> IO ()
gtk_text_view_scroll_to_mark Ptr TextView
argPtr1 Ptr TextMark
argPtr2 CDouble
arg3 CInt
arg4 CDouble
arg5 CDouble
arg6)
{-# LINE 279 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (mark -> TextMark
forall o. TextMarkClass o => o -> TextMark
toTextMark mark
mark)
    (Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
withinMargin)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
useAlign)
    (Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
xalign)
    (Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
yalign)

-- | Scrolls the text view so that @iter@ is on the screen in the position
-- indicated by @xalign@ and @yalign@. An alignment of 0.0 indicates left or
-- top, 1.0 indicates right or bottom, 0.5 means center. If the alignment is
-- @Nothing@, the text scrolls the minimal distance to get the mark onscreen,
-- possibly not scrolling at all. The effective screen for purposes of this
-- function is reduced by a margin of size @withinMargin@.
--
-- * This function
-- uses the currently-computed height of the lines in the text buffer. Note
-- that line heights are computed in an idle handler; so this function may
-- not
-- have the desired effect if it's called before the height computations. To
-- avoid oddness, consider using 'textViewScrollToMark' which saves a point
-- to be scrolled to after line validation. This is particularly important
-- if you add new text to the buffer and immediately ask the view to scroll
-- to it (which it can't since it is not updated until the main loop runs).
--
textViewScrollToIter :: TextViewClass self => self
 -> TextIter -- ^ @iter@ - a 'TextIter'
 -> Double -- ^ @withinMargin@ - margin as a [0.0,0.5) fraction of screen
             -- size
 -> Maybe (Double, Double) -- ^ @Just (xalign, yalign)@ - horizontal and
             -- vertical alignment of mark within visible area (if @Nothing@,
             -- scroll just enough to get the iterator onscreen)
 -> IO Bool -- ^ returns @True@ if scrolling occurred
textViewScrollToIter :: forall self.
TextViewClass self =>
self -> TextIter -> Double -> Maybe (Double, Double) -> IO Bool
textViewScrollToIter self
self TextIter
iter Double
withinMargin Maybe (Double, Double)
align =
  let (Bool
useAlign, Double
xalign, Double
yalign) = case Maybe (Double, Double)
align of
        Maybe (Double, Double)
Nothing -> (Bool
False, Double
0, Double
0)
        Just (Double
xalign, Double
yalign) -> (Bool
True, Double
xalign, Double
yalign)
  in
  (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
$
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) CDouble
arg3 CInt
arg4 CDouble
arg5 CDouble
arg6 -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView
-> Ptr TextIter -> CDouble -> CInt -> CDouble -> CDouble -> IO CInt
gtk_text_view_scroll_to_iter Ptr TextView
argPtr1 Ptr TextIter
argPtr2 CDouble
arg3 CInt
arg4 CDouble
arg5 CDouble
arg6)
{-# LINE 318 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter
    (Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
withinMargin)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
useAlign)
    (Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
xalign)
    (Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
yalign)

-- | Scrolls the text view the minimum distance such that @mark@ is contained
-- within the visible area of the widget.
--
textViewScrollMarkOnscreen :: (TextViewClass self, TextMarkClass mark) => self
 -> mark -- ^ @mark@ - a mark in the buffer for the text view
 -> IO ()
textViewScrollMarkOnscreen :: forall self mark.
(TextViewClass self, TextMarkClass mark) =>
self -> mark -> IO ()
textViewScrollMarkOnscreen self
self mark
mark =
  (\(TextView ForeignPtr TextView
arg1) (TextMark ForeignPtr TextMark
arg2) -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->ForeignPtr TextMark -> (Ptr TextMark -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextMark
arg2 ((Ptr TextMark -> IO ()) -> IO ())
-> (Ptr TextMark -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextMark
argPtr2 ->Ptr TextView -> Ptr TextMark -> IO ()
gtk_text_view_scroll_mark_onscreen Ptr TextView
argPtr1 Ptr TextMark
argPtr2)
{-# LINE 333 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (mark -> TextMark
forall o. TextMarkClass o => o -> TextMark
toTextMark mark
mark)

-- | Moves a mark within the buffer so that it's located within the
-- currently-visible text area.
--
textViewMoveMarkOnscreen :: (TextViewClass self, TextMarkClass mark) => self
 -> mark -- ^ @mark@ - a 'TextMark'
 -> IO Bool -- ^ returns @True@ if the mark moved (wasn't already onscreen)
textViewMoveMarkOnscreen :: forall self mark.
(TextViewClass self, TextMarkClass mark) =>
self -> mark -> IO Bool
textViewMoveMarkOnscreen self
self mark
mark =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) (TextMark ForeignPtr TextMark
arg2) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->ForeignPtr TextMark -> (Ptr TextMark -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextMark
arg2 ((Ptr TextMark -> IO CInt) -> IO CInt)
-> (Ptr TextMark -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextMark
argPtr2 ->Ptr TextView -> Ptr TextMark -> IO CInt
gtk_text_view_move_mark_onscreen Ptr TextView
argPtr1 Ptr TextMark
argPtr2)
{-# LINE 345 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (mark -> TextMark
forall o. TextMarkClass o => o -> TextMark
toTextMark mark
mark)

-- | Moves the cursor to the currently visible region of the buffer, it it
-- isn't there already.
--
textViewPlaceCursorOnscreen :: TextViewClass self => self
 -> IO Bool -- ^ returns @True@ if the cursor had to be moved.
textViewPlaceCursorOnscreen :: forall self. TextViewClass self => self -> IO Bool
textViewPlaceCursorOnscreen self
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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_place_cursor_onscreen Ptr TextView
argPtr1)
{-# LINE 356 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Returns the currently-visible region of the buffer, in
-- buffer coordinates. Convert to window coordinates with
-- 'textViewBufferToWindowCoords'.
--
textViewGetVisibleRect :: TextViewClass self => self -> IO Rectangle
textViewGetVisibleRect :: forall self. TextViewClass self => self -> IO Rectangle
textViewGetVisibleRect self
self =
  (Ptr Rectangle -> IO Rectangle) -> IO Rectangle
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr Rectangle -> IO Rectangle) -> IO Rectangle)
-> (Ptr Rectangle -> IO Rectangle) -> IO Rectangle
forall a b. (a -> b) -> a -> b
$ \Ptr Rectangle
rectPtr -> do
  (\(TextView ForeignPtr TextView
arg1) Ptr ()
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> Ptr () -> IO ()
gtk_text_view_get_visible_rect Ptr TextView
argPtr1 Ptr ()
arg2)
{-# LINE 366 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Ptr Rectangle -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Rectangle
rectPtr)
  Ptr Rectangle -> IO Rectangle
forall a. Storable a => Ptr a -> IO a
peek Ptr Rectangle
rectPtr

-- | Gets a rectangle which roughly contains the character at @iter@. The
-- rectangle position is in buffer coordinates; use
-- 'textViewBufferToWindowCoords' to convert these coordinates to coordinates
-- for one of the windows in the text view.
--
textViewGetIterLocation :: TextViewClass self => self -> TextIter -> IO Rectangle
textViewGetIterLocation :: forall self. TextViewClass self => self -> TextIter -> IO Rectangle
textViewGetIterLocation self
self TextIter
iter =
  (Ptr Rectangle -> IO Rectangle) -> IO Rectangle
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr Rectangle -> IO Rectangle) -> IO Rectangle)
-> (Ptr Rectangle -> IO Rectangle) -> IO Rectangle
forall a b. (a -> b) -> a -> b
$ \Ptr Rectangle
rectPtr -> do
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) Ptr ()
arg3 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> Ptr () -> IO ()
gtk_text_view_get_iter_location Ptr TextView
argPtr1 Ptr TextIter
argPtr2 Ptr ()
arg3)
{-# LINE 379 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter
    (Ptr Rectangle -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Rectangle
rectPtr)
  Ptr Rectangle -> IO Rectangle
forall a. Storable a => Ptr a -> IO a
peek Ptr Rectangle
rectPtr

-- | Gets the 'TextIter' at the start of the line containing the coordinate
-- @y@. @y@ is in buffer coordinates, convert from window coordinates with
-- 'textViewWindowToBufferCoords'. Also returns @lineTop@ the
-- coordinate of the top edge of the line.
--
textViewGetLineAtY :: TextViewClass self => self
 -> Int -- ^ @y@ - a y coordinate
 -> IO (TextIter, Int) -- ^ @(targetIter, lineTop)@ - returns the iter and the
                       -- top coordinate of the line
textViewGetLineAtY :: forall self.
TextViewClass self =>
self -> Int -> IO (TextIter, Int)
textViewGetLineAtY self
self Int
y =
  IO TextIter
makeEmptyTextIter IO TextIter
-> (TextIter -> IO (TextIter, Int)) -> IO (TextIter, Int)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \TextIter
targetIter ->
  (Ptr CInt -> IO (TextIter, Int)) -> IO (TextIter, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (TextIter, Int)) -> IO (TextIter, Int))
-> (Ptr CInt -> IO (TextIter, Int)) -> IO (TextIter, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
lineTopPtr -> do
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) CInt
arg3 Ptr CInt
arg4 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> CInt -> Ptr CInt -> IO ()
gtk_text_view_get_line_at_y Ptr TextView
argPtr1 Ptr TextIter
argPtr2 CInt
arg3 Ptr CInt
arg4)
{-# LINE 397 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
targetIter
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
y)
    Ptr CInt
lineTopPtr
  CInt
lineTop <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
lineTopPtr
  (TextIter, Int) -> IO (TextIter, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (TextIter
targetIter, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
lineTop)

-- | Gets the y coordinate of the top of the line containing @iter@, and the
-- height of the line. The coordinate is a buffer coordinate; convert to window
-- coordinates with 'textViewBufferToWindowCoords'.
--
textViewGetLineYrange :: TextViewClass self => self
 -> TextIter -- ^ @iter@ - a 'TextIter'
 -> IO (Int, Int) -- ^ @(y, height)@ - y coordinate and height of the line
textViewGetLineYrange :: forall self.
TextViewClass self =>
self -> TextIter -> IO (Int, Int)
textViewGetLineYrange self
self TextIter
iter =
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
yPtr ->
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
heightPtr -> do
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) Ptr CInt
arg3 Ptr CInt
arg4 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> Ptr CInt -> Ptr CInt -> IO ()
gtk_text_view_get_line_yrange Ptr TextView
argPtr1 Ptr TextIter
argPtr2 Ptr CInt
arg3 Ptr CInt
arg4)
{-# LINE 415 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter
    Ptr CInt
yPtr
    Ptr CInt
heightPtr
  CInt
y <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
yPtr
  CInt
height <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
heightPtr
  (Int, Int) -> IO (Int, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
y, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
height)

-- | Retrieves the iterator at buffer coordinates @x@ and @y@. Buffer
-- coordinates are coordinates for the entire buffer, not just the
-- currently-displayed portion. If you have coordinates from an event, you have
-- to convert those to buffer coordinates with 'textViewWindowToBufferCoords'.
--
textViewGetIterAtLocation :: TextViewClass self => self
 -> Int -- ^ @x@ - x position, in buffer coordinates
 -> Int -- ^ @y@ - y position, in buffer coordinates
 -> IO TextIter
textViewGetIterAtLocation :: forall self.
TextViewClass self =>
self -> Int -> Int -> IO TextIter
textViewGetIterAtLocation self
self Int
x Int
y = do
  TextIter
iter <- IO TextIter
makeEmptyTextIter
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) CInt
arg3 CInt
arg4 -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> CInt -> CInt -> IO CInt
gtk_text_view_get_iter_at_location Ptr TextView
argPtr1 Ptr TextIter
argPtr2 CInt
arg3 CInt
arg4)
{-# LINE 435 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
x)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
y)
  TextIter -> IO TextIter
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter

-- | Converts coordinate @(bufferX, bufferY)@ to coordinates for the window
-- @win@
--
-- Note that you can't convert coordinates for a nonexisting window (see
-- 'textViewSetBorderWindowSize').
--
textViewBufferToWindowCoords :: TextViewClass self => self
 -> TextWindowType -- ^ @win@ - a 'TextWindowType' except 'TextWindowPrivate'
 -> (Int, Int) -- ^ @(bufferX, bufferY)@ - buffer x and y coordinates
 -> IO (Int, Int) -- ^ returns window x and y coordinates
textViewBufferToWindowCoords :: forall self.
TextViewClass self =>
self -> TextWindowType -> (Int, Int) -> IO (Int, Int)
textViewBufferToWindowCoords self
self TextWindowType
win (Int
bufferX, Int
bufferY) =
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
windowXPtr ->
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
windowYPtr -> do
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 CInt
arg3 CInt
arg4 Ptr CInt
arg5 Ptr CInt
arg6 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView
-> CInt -> CInt -> CInt -> Ptr CInt -> Ptr CInt -> IO ()
gtk_text_view_buffer_to_window_coords Ptr TextView
argPtr1 CInt
arg2 CInt
arg3 CInt
arg4 Ptr CInt
arg5 Ptr CInt
arg6)
{-# LINE 455 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (TextWindowType -> Int) -> TextWindowType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextWindowType -> Int
forall a. Enum a => a -> Int
fromEnum) TextWindowType
win)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
bufferX)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
bufferY)
    Ptr CInt
windowXPtr
    Ptr CInt
windowYPtr
  CInt
windowX <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
windowXPtr
  CInt
windowY <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
windowYPtr
  (Int, Int) -> IO (Int, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
windowX, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
windowY)

-- | Converts coordinates on the window identified by @win@ to buffer
-- coordinates.
--
-- Note that you can't convert coordinates for a nonexisting window (see
-- 'textViewSetBorderWindowSize').
--
textViewWindowToBufferCoords :: TextViewClass self => self
 -> TextWindowType -- ^ @win@ - a 'TextWindowType' except 'TextWindowPrivate'
 -> (Int, Int) -- ^ @(windowX, windowY)@ - window x and y coordinates
 -> IO (Int, Int) -- ^ returns buffer x and y coordinates
textViewWindowToBufferCoords :: forall self.
TextViewClass self =>
self -> TextWindowType -> (Int, Int) -> IO (Int, Int)
textViewWindowToBufferCoords self
self TextWindowType
win (Int
windowX, Int
windowY) =
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
bufferXPtr ->
  (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
bufferYPtr -> do
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 CInt
arg3 CInt
arg4 Ptr CInt
arg5 Ptr CInt
arg6 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView
-> CInt -> CInt -> CInt -> Ptr CInt -> Ptr CInt -> IO ()
gtk_text_view_window_to_buffer_coords Ptr TextView
argPtr1 CInt
arg2 CInt
arg3 CInt
arg4 Ptr CInt
arg5 Ptr CInt
arg6)
{-# LINE 479 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (TextWindowType -> Int) -> TextWindowType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextWindowType -> Int
forall a. Enum a => a -> Int
fromEnum) TextWindowType
win)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
windowX)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
windowY)
    Ptr CInt
bufferXPtr
    Ptr CInt
bufferYPtr
  CInt
bufferX <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
bufferXPtr
  CInt
bufferY <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
bufferYPtr
  (Int, Int) -> IO (Int, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
bufferX, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
bufferY)

-- | Retrieves the 'DrawWindow' corresponding to an area of the text view;
-- possible windows include the overall widget window, child windows on the
-- left, right, top, bottom, and the window that displays the text buffer.
-- Windows are @Nothing@ and nonexistent if their width or height is 0, and are
-- nonexistent before the widget has been realized.
--
textViewGetWindow :: TextViewClass self => self
 -> TextWindowType -- ^ @win@ - window to get
 -> IO (Maybe DrawWindow) -- ^ returns a 'DrawWindow', or @Nothing@
textViewGetWindow :: forall self.
TextViewClass self =>
self -> TextWindowType -> IO (Maybe DrawWindow)
textViewGetWindow self
self TextWindowType
win =
  (IO (Ptr DrawWindow) -> IO DrawWindow)
-> IO (Ptr DrawWindow) -> IO (Maybe DrawWindow)
forall a. (IO (Ptr a) -> IO a) -> IO (Ptr a) -> IO (Maybe a)
maybeNull ((ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
forall {a}. (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr a)
mkDrawWindow) (IO (Ptr DrawWindow) -> IO (Maybe DrawWindow))
-> IO (Ptr DrawWindow) -> IO (Maybe DrawWindow)
forall a b. (a -> b) -> a -> b
$
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView
-> (Ptr TextView -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow))
-> (Ptr TextView -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO (Ptr DrawWindow)
gtk_text_view_get_window Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 501 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (TextWindowType -> Int) -> TextWindowType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextWindowType -> Int
forall a. Enum a => a -> Int
fromEnum) TextWindowType
win)

-- | Retrieve the type of window the 'TextView' widget contains.
--
-- Usually used to find out which window an event corresponds to. An emission
-- of an event signal of 'TextView' yields a 'DrawWindow'. This function can be
-- used to see if the event actually belongs to the main text window.
--
textViewGetWindowType :: TextViewClass self => self
 -> DrawWindow
 -> IO TextWindowType
textViewGetWindowType :: forall self.
TextViewClass self =>
self -> DrawWindow -> IO TextWindowType
textViewGetWindowType self
self DrawWindow
window =
  (CInt -> TextWindowType) -> IO CInt -> IO TextWindowType
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> TextWindowType
forall a. Enum a => Int -> a
toEnum (Int -> TextWindowType) -> (CInt -> Int) -> CInt -> TextWindowType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO TextWindowType) -> IO CInt -> IO TextWindowType
forall a b. (a -> b) -> a -> b
$
  (\(TextView ForeignPtr TextView
arg1) (DrawWindow ForeignPtr DrawWindow
arg2) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->ForeignPtr DrawWindow -> (Ptr DrawWindow -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr DrawWindow
arg2 ((Ptr DrawWindow -> IO CInt) -> IO CInt)
-> (Ptr DrawWindow -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr DrawWindow
argPtr2 ->Ptr TextView -> Ptr DrawWindow -> IO CInt
gtk_text_view_get_window_type Ptr TextView
argPtr1 Ptr DrawWindow
argPtr2)
{-# LINE 516 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    DrawWindow
window

-- | Sets the width of 'TextWindowLeft' or 'TextWindowRight', or the height of
-- 'TextWindowTop' or 'TextWindowBottom'. Automatically destroys the
-- corresponding window if the size is set to 0, and creates the window if the
-- size is set to non-zero. This function can only be used for the \"border
-- windows\", it doesn't work with 'TextWindowWidget', 'TextWindowText', or
-- 'TextWindowPrivate'.
--
textViewSetBorderWindowSize :: TextViewClass self => self
 -> TextWindowType -- ^ @type@ - window to affect
 -> Int -- ^ @size@ - width or height of the window
 -> IO ()
textViewSetBorderWindowSize :: forall self.
TextViewClass self =>
self -> TextWindowType -> Int -> IO ()
textViewSetBorderWindowSize self
self TextWindowType
type_ Int
size =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 CInt
arg3 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> CInt -> IO ()
gtk_text_view_set_border_window_size Ptr TextView
argPtr1 CInt
arg2 CInt
arg3)
{-# LINE 532 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (TextWindowType -> Int) -> TextWindowType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextWindowType -> Int
forall a. Enum a => a -> Int
fromEnum) TextWindowType
type_)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
size)

-- | Gets the width of the specified border window. See
-- 'textViewSetBorderWindowSize'.
--
textViewGetBorderWindowSize :: TextViewClass self => self
 -> TextWindowType -- ^ @type@ - window to return size from
 -> IO Int -- ^ returns width of window
textViewGetBorderWindowSize :: forall self. TextViewClass self => self -> TextWindowType -> IO Int
textViewGetBorderWindowSize self
self TextWindowType
type_ =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO CInt
gtk_text_view_get_border_window_size Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 545 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (TextWindowType -> Int) -> TextWindowType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextWindowType -> Int
forall a. Enum a => a -> Int
fromEnum) TextWindowType
type_)

-- | Moves the given @iter@ forward by one display (wrapped) line. A display
-- line is different from a paragraph. Paragraphs are separated by newlines or
-- other paragraph separator characters. Display lines are created by
-- line-wrapping a paragraph. If wrapping is turned off, display lines and
-- paragraphs will be the same. Display lines are divided differently for each
-- view, since they depend on the view's width; paragraphs are the same in all
-- views, since they depend on the contents of the 'TextBuffer'.
--
textViewForwardDisplayLine :: TextViewClass self => self
 -> TextIter -- ^ @iter@ - a 'TextIter'
 -> IO Bool -- ^ returns @True@ if @iter@ was moved and is not on the end
             -- iterator
textViewForwardDisplayLine :: forall self. TextViewClass self => self -> TextIter -> IO Bool
textViewForwardDisplayLine self
self TextIter
iter =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> IO CInt
gtk_text_view_forward_display_line Ptr TextView
argPtr1 Ptr TextIter
argPtr2)
{-# LINE 563 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter

-- | Moves the given @iter@ backward by one display (wrapped) line. A display
-- line is different from a paragraph. Paragraphs are separated by newlines or
-- other paragraph separator characters. Display lines are created by
-- line-wrapping a paragraph. If wrapping is turned off, display lines and
-- paragraphs will be the same. Display lines are divided differently for each
-- view, since they depend on the view's width; paragraphs are the same in all
-- views, since they depend on the contents of the 'TextBuffer'.
--
textViewBackwardDisplayLine :: TextViewClass self => self
 -> TextIter -- ^ @iter@ - a 'TextIter'
 -> IO Bool -- ^ returns @True@ if @iter@ was moved and is not on the end
             -- iterator
textViewBackwardDisplayLine :: forall self. TextViewClass self => self -> TextIter -> IO Bool
textViewBackwardDisplayLine self
self TextIter
iter =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> IO CInt
gtk_text_view_backward_display_line Ptr TextView
argPtr1 Ptr TextIter
argPtr2)
{-# LINE 581 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter

-- | Moves the given @iter@ forward to the next display line end. A display
-- line is different from a paragraph. Paragraphs are separated by newlines or
-- other paragraph separator characters. Display lines are created by
-- line-wrapping a paragraph. If wrapping is turned off, display lines and
-- paragraphs will be the same. Display lines are divided differently for each
-- view, since they depend on the view's width; paragraphs are the same in all
-- views, since they depend on the contents of the 'TextBuffer'.
--
textViewForwardDisplayLineEnd :: TextViewClass self => self
 -> TextIter -- ^ @iter@ - a 'TextIter'
 -> IO Bool -- ^ returns @True@ if @iter@ was moved and is not on the end
             -- iterator
textViewForwardDisplayLineEnd :: forall self. TextViewClass self => self -> TextIter -> IO Bool
textViewForwardDisplayLineEnd self
self TextIter
iter =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> IO CInt
gtk_text_view_forward_display_line_end Ptr TextView
argPtr1 Ptr TextIter
argPtr2)
{-# LINE 599 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter

-- | Moves the given @iter@ backward to the next display line start. A display
-- line is different from a paragraph. Paragraphs are separated by newlines or
-- other paragraph separator characters. Display lines are created by
-- line-wrapping a paragraph. If wrapping is turned off, display lines and
-- paragraphs will be the same. Display lines are divided differently for each
-- view, since they depend on the view's width; paragraphs are the same in all
-- views, since they depend on the contents of the 'TextBuffer'.
--
textViewBackwardDisplayLineStart :: TextViewClass self => self
 -> TextIter -- ^ @iter@ - a 'TextIter'
 -> IO Bool -- ^ returns @True@ if @iter@ was moved and is not on the end
             -- iterator
textViewBackwardDisplayLineStart :: forall self. TextViewClass self => self -> TextIter -> IO Bool
textViewBackwardDisplayLineStart self
self TextIter
iter =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> IO CInt
gtk_text_view_backward_display_line_start Ptr TextView
argPtr1 Ptr TextIter
argPtr2)
{-# LINE 617 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter

-- | Determines whether @iter@ is at the start of a display line. See
-- 'textViewForwardDisplayLine' for an explanation of display lines vs.
-- paragraphs.
--
textViewStartsDisplayLine :: TextViewClass self => self
 -> TextIter -- ^ @iter@ - a 'TextIter'
 -> IO Bool -- ^ returns @True@ if @iter@ begins a wrapped line
textViewStartsDisplayLine :: forall self. TextViewClass self => self -> TextIter -> IO Bool
textViewStartsDisplayLine self
self TextIter
iter =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> IO CInt
gtk_text_view_starts_display_line Ptr TextView
argPtr1 Ptr TextIter
argPtr2)
{-# LINE 630 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter

-- | Move the iterator a given number of characters visually, treating it as
-- the strong cursor position. If @count@ is positive, then the new strong
-- cursor position will be @count@ positions to the right of the old cursor
-- position. If @count@ is negative then the new strong cursor position will be
-- @count@ positions to the left of the old cursor position.
--
-- In the presence of bidirection text, the correspondence between logical
-- and visual order will depend on the direction of the current run, and there
-- may be jumps when the cursor is moved off of the end of a run.
--
textViewMoveVisually :: TextViewClass self => self
 -> TextIter -- ^ @iter@ - a 'TextIter'
 -> Int -- ^ @count@ - number of characters to move (negative moves left,
             -- positive moves right)
 -> IO Bool -- ^ returns @True@ if @iter@ moved and is not on the end
             -- iterator
textViewMoveVisually :: forall self.
TextViewClass self =>
self -> TextIter -> Int -> IO Bool
textViewMoveVisually self
self TextIter
iter 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
$
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) CInt
arg3 -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> CInt -> IO CInt
gtk_text_view_move_visually Ptr TextView
argPtr1 Ptr TextIter
argPtr2 CInt
arg3)
{-# LINE 652 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
count)

-- | Adds a child widget in the text buffer, at the given @anchor@.
--
textViewAddChildAtAnchor :: (TextViewClass self, WidgetClass child) => self
 -> child -- ^ @child@ - a 'Widget'
 -> TextChildAnchor -- ^ @anchor@ - a 'TextChildAnchor' in the 'TextBuffer'
                    -- for the text view
 -> IO ()
textViewAddChildAtAnchor :: forall self child.
(TextViewClass self, WidgetClass child) =>
self -> child -> TextChildAnchor -> IO ()
textViewAddChildAtAnchor self
self child
child TextChildAnchor
anchor =
  (\(TextView ForeignPtr TextView
arg1) (Widget ForeignPtr Widget
arg2) (TextChildAnchor ForeignPtr TextChildAnchor
arg3) -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->ForeignPtr TextChildAnchor
-> (Ptr TextChildAnchor -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextChildAnchor
arg3 ((Ptr TextChildAnchor -> IO ()) -> IO ())
-> (Ptr TextChildAnchor -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextChildAnchor
argPtr3 ->Ptr TextView -> Ptr Widget -> Ptr TextChildAnchor -> IO ()
gtk_text_view_add_child_at_anchor Ptr TextView
argPtr1 Ptr Widget
argPtr2 Ptr TextChildAnchor
argPtr3)
{-# LINE 665 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (child -> Widget
forall o. WidgetClass o => o -> Widget
toWidget child
child)
    TextChildAnchor
anchor

-- | Create a new 'TextChildAnchor'.
--
-- * Using 'textBufferCreateChildAnchor' is usually simpler then
-- executing this function and 'textBufferInsertChildAnchor'.
--
textChildAnchorNew :: IO TextChildAnchor
textChildAnchorNew :: IO TextChildAnchor
textChildAnchorNew =
  (ForeignPtr TextChildAnchor -> TextChildAnchor,
 FinalizerPtr TextChildAnchor)
-> IO (Ptr TextChildAnchor) -> IO TextChildAnchor
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
wrapNewGObject (ForeignPtr TextChildAnchor -> TextChildAnchor,
 FinalizerPtr TextChildAnchor)
forall {a}.
(ForeignPtr TextChildAnchor -> TextChildAnchor, FinalizerPtr a)
mkTextChildAnchor
  IO (Ptr TextChildAnchor)
gtk_text_child_anchor_new
{-# LINE 678 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}

-- | Retrieve all 'Widget's at this
-- 'TextChildAnchor'.
--
-- * The widgets in the returned list need to be upcasted to what they were.
--
textChildAnchorGetWidgets :: TextChildAnchor -> IO [Widget]
textChildAnchorGetWidgets :: TextChildAnchor -> IO [Widget]
textChildAnchorGetWidgets TextChildAnchor
tca = do
  Ptr ()
gList <- (\(TextChildAnchor ForeignPtr TextChildAnchor
arg1) -> ForeignPtr TextChildAnchor
-> (Ptr TextChildAnchor -> IO (Ptr ())) -> IO (Ptr ())
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextChildAnchor
arg1 ((Ptr TextChildAnchor -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr TextChildAnchor -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \Ptr TextChildAnchor
argPtr1 ->Ptr TextChildAnchor -> IO (Ptr ())
gtk_text_child_anchor_get_widgets Ptr TextChildAnchor
argPtr1) TextChildAnchor
tca
  [Ptr Widget]
wList <- Ptr () -> IO [Ptr Widget]
forall a. Ptr () -> IO [Ptr a]
fromGList Ptr ()
gList
  (IO (Ptr Widget) -> IO Widget) -> [IO (Ptr Widget)] -> IO [Widget]
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 ((ForeignPtr Widget -> Widget, FinalizerPtr Widget)
-> IO (Ptr Widget) -> IO Widget
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Widget -> Widget, FinalizerPtr Widget)
forall {a}. (ForeignPtr Widget -> Widget, FinalizerPtr a)
mkWidget) ((Ptr Widget -> IO (Ptr Widget))
-> [Ptr Widget] -> [IO (Ptr Widget)]
forall a b. (a -> b) -> [a] -> [b]
map Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Ptr Widget]
wList)

-- | Query if an anchor was deleted.
--
textChildAnchorGetDeleted :: TextChildAnchor -> IO Bool
textChildAnchorGetDeleted :: TextChildAnchor -> IO Bool
textChildAnchorGetDeleted TextChildAnchor
tca =
  (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
$
  (\(TextChildAnchor ForeignPtr TextChildAnchor
arg1) -> ForeignPtr TextChildAnchor
-> (Ptr TextChildAnchor -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextChildAnchor
arg1 ((Ptr TextChildAnchor -> IO CInt) -> IO CInt)
-> (Ptr TextChildAnchor -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextChildAnchor
argPtr1 ->Ptr TextChildAnchor -> IO CInt
gtk_text_child_anchor_get_deleted Ptr TextChildAnchor
argPtr1) TextChildAnchor
tca

-- | Adds a child at fixed coordinates in one of the text widget's windows.
-- The window must have nonzero size (see 'textViewSetBorderWindowSize'). Note
-- that the child coordinates are given relative to the 'DrawWindow' in
-- question, and that these coordinates have no sane relationship to scrolling.
-- When placing a child in 'TextWindowWidget', scrolling is irrelevant, the
-- child floats above all scrollable areas. If you want the widget to move when
-- the text view scrolls, use 'textViewAddChildAtAnchor' instead.
--
textViewAddChildInWindow :: (TextViewClass self, WidgetClass child) => self
 -> child -- ^ @child@ - a 'Widget'
 -> TextWindowType -- ^ @whichWindow@ - which window the child should appear
                   -- in
 -> Int -- ^ @xpos@ - X position of child in window coordinates
 -> Int -- ^ @ypos@ - Y position of child in window coordinates
 -> IO ()
textViewAddChildInWindow :: forall self child.
(TextViewClass self, WidgetClass child) =>
self -> child -> TextWindowType -> Int -> Int -> IO ()
textViewAddChildInWindow self
self child
child TextWindowType
whichWindow Int
xpos Int
ypos =
  (\(TextView ForeignPtr TextView
arg1) (Widget ForeignPtr Widget
arg2) CInt
arg3 CInt
arg4 CInt
arg5 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr TextView -> Ptr Widget -> CInt -> CInt -> CInt -> IO ()
gtk_text_view_add_child_in_window Ptr TextView
argPtr1 Ptr Widget
argPtr2 CInt
arg3 CInt
arg4 CInt
arg5)
{-# LINE 714 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (child -> Widget
forall o. WidgetClass o => o -> Widget
toWidget child
child)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (TextWindowType -> Int) -> TextWindowType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextWindowType -> Int
forall a. Enum a => a -> Int
fromEnum) TextWindowType
whichWindow)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
xpos)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
ypos)

-- | Move a child widget within the 'TextView'. This is really only apprpriate
-- for \"floating\" child widgets added using 'textViewAddChildInWindow'.
--
textViewMoveChild :: (TextViewClass self, WidgetClass child) => self
 -> child -- ^ @child@ - child widget already added to the text view
 -> Int -- ^ @xpos@ - new X position in window coordinates
 -> Int -- ^ @ypos@ - new Y position in window coordinates
 -> IO ()
textViewMoveChild :: forall self child.
(TextViewClass self, WidgetClass child) =>
self -> child -> Int -> Int -> IO ()
textViewMoveChild self
self child
child Int
xpos Int
ypos =
  (\(TextView ForeignPtr TextView
arg1) (Widget ForeignPtr Widget
arg2) CInt
arg3 CInt
arg4 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr TextView -> Ptr Widget -> CInt -> CInt -> IO ()
gtk_text_view_move_child Ptr TextView
argPtr1 Ptr Widget
argPtr2 CInt
arg3 CInt
arg4)
{-# LINE 730 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (child -> Widget
forall o. WidgetClass o => o -> Widget
toWidget child
child)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
xpos)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
ypos)

-- | Sets the line wrapping for the view.
--
textViewSetWrapMode :: TextViewClass self => self -> WrapMode -> IO ()
textViewSetWrapMode :: forall self. TextViewClass self => self -> WrapMode -> IO ()
textViewSetWrapMode self
self WrapMode
wrapMode =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_wrap_mode Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 740 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (WrapMode -> Int) -> WrapMode -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WrapMode -> Int
forall a. Enum a => a -> Int
fromEnum) WrapMode
wrapMode)

-- | Gets the line wrapping for the view.
--
textViewGetWrapMode :: TextViewClass self => self -> IO WrapMode
textViewGetWrapMode :: forall self. TextViewClass self => self -> IO WrapMode
textViewGetWrapMode self
self =
  (CInt -> WrapMode) -> IO CInt -> IO WrapMode
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> WrapMode
forall a. Enum a => Int -> a
toEnum (Int -> WrapMode) -> (CInt -> Int) -> CInt -> WrapMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO WrapMode) -> IO CInt -> IO WrapMode
forall a b. (a -> b) -> a -> b
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_wrap_mode Ptr TextView
argPtr1)
{-# LINE 749 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Sets the default editability of the 'TextView'. You can override this
-- default setting with tags in the buffer, using the \"editable\" attribute of
-- tags.
--
textViewSetEditable :: TextViewClass self => self -> Bool -> IO ()
textViewSetEditable :: forall self. TextViewClass self => self -> Bool -> IO ()
textViewSetEditable self
self Bool
setting =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_editable Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 758 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
setting)

-- | Returns the default editability of the 'TextView'. Tags in the buffer may
-- override this setting for some ranges of text.
--
textViewGetEditable :: TextViewClass self => self -> IO Bool
textViewGetEditable :: forall self. TextViewClass self => self -> IO Bool
textViewGetEditable self
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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_editable Ptr TextView
argPtr1)
{-# LINE 768 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Toggles whether the insertion point is displayed. A buffer with no
-- editable text probably shouldn't have a visible cursor, so you may want to
-- turn the cursor off.
--
textViewSetCursorVisible :: TextViewClass self => self -> Bool -> IO ()
textViewSetCursorVisible :: forall self. TextViewClass self => self -> Bool -> IO ()
textViewSetCursorVisible self
self Bool
setting =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_cursor_visible Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 777 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
setting)

-- | Find out whether the cursor is being displayed.
--
textViewGetCursorVisible :: TextViewClass self => self -> IO Bool
textViewGetCursorVisible :: forall self. TextViewClass self => self -> IO Bool
textViewGetCursorVisible self
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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_cursor_visible Ptr TextView
argPtr1)
{-# LINE 786 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Sets the default number of blank pixels above paragraphs in the text view.
-- Tags in the buffer for the text view may override the defaults.
--
-- * Tags in the buffer may override this default.
--
textViewSetPixelsAboveLines :: TextViewClass self => self -> Int -> IO ()
textViewSetPixelsAboveLines :: forall self. TextViewClass self => self -> Int -> IO ()
textViewSetPixelsAboveLines self
self Int
pixelsAboveLines =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_pixels_above_lines Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 796 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
pixelsAboveLines)

-- | Gets the default number of pixels to put above paragraphs.
--
textViewGetPixelsAboveLines :: TextViewClass self => self -> IO Int
textViewGetPixelsAboveLines :: forall self. TextViewClass self => self -> IO Int
textViewGetPixelsAboveLines self
self =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_pixels_above_lines Ptr TextView
argPtr1)
{-# LINE 805 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Sets the default number of pixels of blank space to put below paragraphs
-- in the text view. May be overridden by tags applied to the text view's
-- buffer.
--
textViewSetPixelsBelowLines :: TextViewClass self => self -> Int -> IO ()
textViewSetPixelsBelowLines :: forall self. TextViewClass self => self -> Int -> IO ()
textViewSetPixelsBelowLines self
self Int
pixelsBelowLines =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_pixels_below_lines Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 814 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
pixelsBelowLines)

-- | Gets the default number of blank pixels below each paragraph.
--
textViewGetPixelsBelowLines :: TextViewClass self => self -> IO Int
textViewGetPixelsBelowLines :: forall self. TextViewClass self => self -> IO Int
textViewGetPixelsBelowLines self
self =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_pixels_below_lines Ptr TextView
argPtr1)
{-# LINE 823 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Sets the default number of pixels of blank space to leave between
-- display\/wrapped lines within a paragraph. May be overridden by tags in
-- the text view's buffer.
--
textViewSetPixelsInsideWrap :: TextViewClass self => self -> Int -> IO ()
textViewSetPixelsInsideWrap :: forall self. TextViewClass self => self -> Int -> IO ()
textViewSetPixelsInsideWrap self
self Int
pixelsInsideWrap =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_pixels_inside_wrap Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 832 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
pixelsInsideWrap)

-- | Gets the default number of pixels of blank space between lines in a
-- wrapped paragraph.
--
textViewGetPixelsInsideWrap :: TextViewClass self => self -> IO Int
textViewGetPixelsInsideWrap :: forall self. TextViewClass self => self -> IO Int
textViewGetPixelsInsideWrap self
self =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_pixels_inside_wrap Ptr TextView
argPtr1)
{-# LINE 842 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Sets the default justification of text in the text view. Tags in the
-- view's buffer may override the default.
--
textViewSetJustification :: TextViewClass self => self -> Justification -> IO ()
textViewSetJustification :: forall self. TextViewClass self => self -> Justification -> IO ()
textViewSetJustification self
self Justification
justification =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_justification Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 850 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    ((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Justification -> Int) -> Justification -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Justification -> Int
forall a. Enum a => a -> Int
fromEnum) Justification
justification)

-- | Gets the default justification of paragraphs in the text view. Tags in the
-- buffer may override the default.
--
textViewGetJustification :: TextViewClass self => self -> IO Justification
textViewGetJustification :: forall self. TextViewClass self => self -> IO Justification
textViewGetJustification self
self =
  (CInt -> Justification) -> IO CInt -> IO Justification
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> Justification
forall a. Enum a => Int -> a
toEnum (Int -> Justification) -> (CInt -> Int) -> CInt -> Justification
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO Justification) -> IO CInt -> IO Justification
forall a b. (a -> b) -> a -> b
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_justification Ptr TextView
argPtr1)
{-# LINE 860 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Sets the default left margin for text in the text view. Tags in the buffer
-- may override the default.
--
textViewSetLeftMargin :: TextViewClass self => self
 -> Int -- ^ @leftMargin@ - left margin in pixels
 -> IO ()
textViewSetLeftMargin :: forall self. TextViewClass self => self -> Int -> IO ()
textViewSetLeftMargin self
self Int
leftMargin =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_left_margin Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 870 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
leftMargin)

-- | Gets the default left margin size of paragraphs in the text view. Tags
-- in the buffer may override the default.
--
textViewGetLeftMargin :: TextViewClass self => self
 -> IO Int -- ^ returns left margin in pixels
textViewGetLeftMargin :: forall self. TextViewClass self => self -> IO Int
textViewGetLeftMargin self
self =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_left_margin Ptr TextView
argPtr1)
{-# LINE 881 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Sets the default right margin for text in the text view. Tags in the
-- buffer may override the default.
--
textViewSetRightMargin :: TextViewClass self => self
 -> Int -- ^ @rightMargin@ - right margin in pixels
 -> IO ()
textViewSetRightMargin :: forall self. TextViewClass self => self -> Int -> IO ()
textViewSetRightMargin self
self Int
rightMargin =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_right_margin Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 891 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
rightMargin)

-- | Gets the default right margin for text in the text view. Tags in the
-- buffer may override the default.
--
textViewGetRightMargin :: TextViewClass self => self
 -> IO Int -- ^ returns right margin in pixels
textViewGetRightMargin :: forall self. TextViewClass self => self -> IO Int
textViewGetRightMargin self
self =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_right_margin Ptr TextView
argPtr1)
{-# LINE 902 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Sets the default indentation for paragraphs in the text view. Tags in the
-- buffer may override the default.
--
textViewSetIndent :: TextViewClass self => self
 -> Int -- ^ @indent@ - indentation in pixels (may be negative)
 -> IO ()
textViewSetIndent :: forall self. TextViewClass self => self -> Int -> IO ()
textViewSetIndent self
self Int
indent =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_indent Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 912 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
indent)

-- | Gets the default indentation of paragraphs in the text view. Tags in the
-- view's buffer may override the default. The indentation may be negative.
--
textViewGetIndent :: TextViewClass self => self
 -> IO Int -- ^ returns number of pixels of indentation
textViewGetIndent :: forall self. TextViewClass self => self -> IO Int
textViewGetIndent self
self =
  (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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_indent Ptr TextView
argPtr1)
{-# LINE 923 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Obtains a copy of the default text attributes. These are the attributes
-- used for text unless a tag overrides them. You'd typically pass the default
-- attributes in to 'textIterGetAttributes' in order to get the attributes in
-- effect at a given text position.
--
textViewGetDefaultAttributes :: TextViewClass self => self -> IO TextAttributes
textViewGetDefaultAttributes :: forall self. TextViewClass self => self -> IO TextAttributes
textViewGetDefaultAttributes self
self =
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView
-> (Ptr TextView -> IO (Ptr TextAttributes))
-> IO (Ptr TextAttributes)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO (Ptr TextAttributes))
 -> IO (Ptr TextAttributes))
-> (Ptr TextView -> IO (Ptr TextAttributes))
-> IO (Ptr TextAttributes)
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO (Ptr TextAttributes)
gtk_text_view_get_default_attributes Ptr TextView
argPtr1)
{-# LINE 933 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
  IO (Ptr TextAttributes)
-> (Ptr TextAttributes -> IO TextAttributes) -> IO TextAttributes
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr TextAttributes -> IO TextAttributes
makeNewTextAttributes


-- | Retrieves the iterator pointing to the character at buffer coordinates
-- @x@ and @y@. Buffer coordinates are coordinates for the entire buffer, not
-- just the currently-displayed portion. If you have coordinates from an event,
-- you have to convert those to buffer coordinates with
-- 'textViewWindowToBufferCoords'.
--
-- Note that this is different from 'textViewGetIterAtLocation', which
-- returns cursor locations, i.e. positions /between/ characters.
--
-- * Available since Gtk+ version 2.6
--
textViewGetIterAtPosition :: TextViewClass self => self
 -> Int -- ^ @x@ - x position, in buffer coordinates
 -> Int -- ^ @y@ - y position, in buffer coordinates
 -> IO (TextIter, Int) -- ^ @(iter, trailing)@ - returns the iterator and
                         -- an integer indicating where in the grapheme the
                         -- user clicked. It will either be zero, or the
                         -- number of characters in the grapheme. 0 represents
                         -- the trailing edge of the grapheme.
textViewGetIterAtPosition :: forall self.
TextViewClass self =>
self -> Int -> Int -> IO (TextIter, Int)
textViewGetIterAtPosition self
self Int
x Int
y =
  (Ptr CInt -> IO (TextIter, Int)) -> IO (TextIter, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (TextIter, Int)) -> IO (TextIter, Int))
-> (Ptr CInt -> IO (TextIter, Int)) -> IO (TextIter, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
trailingPtr -> do
  TextIter
iter <- IO TextIter
makeEmptyTextIter
  (\(TextView ForeignPtr TextView
arg1) (TextIter ForeignPtr TextIter
arg2) Ptr CInt
arg3 CInt
arg4 CInt
arg5 -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
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 TextView -> Ptr TextIter -> Ptr CInt -> CInt -> CInt -> IO CInt
gtk_text_view_get_iter_at_position Ptr TextView
argPtr1 Ptr TextIter
argPtr2 Ptr CInt
arg3 CInt
arg4 CInt
arg5)
{-# LINE 960 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    TextIter
iter
    Ptr CInt
trailingPtr
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
x)
    (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
y)
  CInt
trailing <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
trailingPtr
  (TextIter, Int) -> IO (TextIter, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (TextIter
iter, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
trailing)



-- | Changes the 'TextView' overwrite mode.
--
-- * Available since Gtk+ version 2.4
--
textViewSetOverwrite :: TextViewClass self => self
 -> Bool -- ^ @overwrite@ - @True@ to turn on overwrite mode, @False@ to turn
          -- it off
 -> IO ()
textViewSetOverwrite :: forall self. TextViewClass self => self -> Bool -> IO ()
textViewSetOverwrite self
self Bool
overwrite =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_overwrite Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 980 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
overwrite)

-- | Returns whether the 'TextView' is in overwrite mode or not.
--
-- * Available since Gtk+ version 2.4
--
textViewGetOverwrite :: TextViewClass self => self -> IO Bool
textViewGetOverwrite :: forall self. TextViewClass self => self -> IO Bool
textViewGetOverwrite self
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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_overwrite Ptr TextView
argPtr1)
{-# LINE 991 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Sets the behavior of the text widget when the Tab key is pressed. If
-- @acceptsTab@ is @True@ a tab character is inserted. If @acceptsTab@ is
-- @False@ the keyboard focus is moved to the next widget in the focus chain.
--
-- * Available since Gtk+ version 2.4
--
textViewSetAcceptsTab :: TextViewClass self => self
 -> Bool -- ^ @acceptsTab@ - @True@ if pressing the Tab key should insert a
          -- tab character, @False@, if pressing the Tab key should move the
          -- keyboard focus.
 -> IO ()
textViewSetAcceptsTab :: forall self. TextViewClass self => self -> Bool -> IO ()
textViewSetAcceptsTab self
self Bool
acceptsTab =
  (\(TextView ForeignPtr TextView
arg1) CInt
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> CInt -> IO ()
gtk_text_view_set_accepts_tab Ptr TextView
argPtr1 CInt
arg2)
{-# LINE 1006 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)
    (Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
acceptsTab)

-- | Returns whether pressing the Tab key inserts a tab characters.
-- 'textViewSetAcceptsTab'.
--
-- * Available since Gtk+ version 2.4
--
textViewGetAcceptsTab :: TextViewClass self => self
 -> IO Bool -- ^ returns @True@ if pressing the Tab key inserts a tab
            -- character, @False@ if pressing the Tab key moves the keyboard
            -- focus.
textViewGetAcceptsTab :: forall self. TextViewClass self => self -> IO Bool
textViewGetAcceptsTab self
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
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO CInt
gtk_text_view_get_accepts_tab Ptr TextView
argPtr1)
{-# LINE 1021 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)



-- | Gets the horizontal-scrolling 'Adjustment'.
--
-- * Available since Gtk+ version 2.22
--
textViewGetHadjustment :: TextViewClass self => self -> IO Adjustment
textViewGetHadjustment :: forall self. TextViewClass self => self -> IO Adjustment
textViewGetHadjustment self
self =
  (ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
forall {a}. (ForeignPtr Adjustment -> Adjustment, FinalizerPtr a)
mkAdjustment (IO (Ptr Adjustment) -> IO Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView
-> (Ptr TextView -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment))
-> (Ptr TextView -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment)
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO (Ptr Adjustment)
gtk_text_view_get_hadjustment Ptr TextView
argPtr1)
{-# LINE 1033 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Gets the vertical-scrolling 'Adjustment'.
--
-- * Available since Gtk+ version 2.22
--
textViewGetVadjustment :: TextViewClass self => self -> IO Adjustment
textViewGetVadjustment :: forall self. TextViewClass self => self -> IO Adjustment
textViewGetVadjustment self
self =
  (ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
forall {a}. (ForeignPtr Adjustment -> Adjustment, FinalizerPtr a)
mkAdjustment (IO (Ptr Adjustment) -> IO Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView
-> (Ptr TextView -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment))
-> (Ptr TextView -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment)
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO (Ptr Adjustment)
gtk_text_view_get_vadjustment Ptr TextView
argPtr1)
{-# LINE 1043 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
    (toTextView self)

-- | Allow the 'TextView' input method to internally handle key press and release events. If this
-- function returns 'True', then no further processing should be done for this key event. See
-- 'imContextFilterKeypress'.
--
-- Note that you are expected to call this function from your handler when overriding key event
-- handling. This is needed in the case when you need to insert your own key handling between the input
-- method and the default key event handling of the 'TextView'.
--
-- * Available since Gtk+ version 2.22
--
textViewImContextFilterKeypress :: TextViewClass self => self -> EventM EKey Bool
textViewImContextFilterKeypress :: forall self. TextViewClass self => self -> EventM EKey Bool
textViewImContextFilterKeypress self
self = do
  Ptr EKey
ptr <- ReaderT (Ptr EKey) IO (Ptr EKey)
forall r (m :: * -> *). MonadReader r m => m r
ask
  IO Bool -> EventM EKey Bool
forall a. IO a -> ReaderT (Ptr EKey) IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> EventM EKey Bool) -> IO Bool -> EventM EKey Bool
forall a b. (a -> b) -> a -> b
$ (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
$
    (\(TextView ForeignPtr TextView
arg1) Ptr ()
arg2 -> ForeignPtr TextView -> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO CInt) -> IO CInt)
-> (Ptr TextView -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> Ptr () -> IO CInt
gtk_text_view_im_context_filter_keypress Ptr TextView
argPtr1 Ptr ()
arg2)
{-# LINE 1060 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
      (toTextView self)
      (Ptr EKey -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr EKey
ptr)

-- | Reset the input method context of the text view if needed.
--
-- This can be necessary in the case where modifying the buffer would confuse on-going input method
-- behavior.
--
-- * Available since Gtk+ version 2.22
--
textViewResetImContext :: TextViewClass self => self -> IO ()
textViewResetImContext :: forall self. TextViewClass self => self -> IO ()
textViewResetImContext self
self =
  (\(TextView ForeignPtr TextView
arg1) -> ForeignPtr TextView -> (Ptr TextView -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TextView
arg1 ((Ptr TextView -> IO ()) -> IO ())
-> (Ptr TextView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TextView
argPtr1 ->Ptr TextView -> IO ()
gtk_text_view_reset_im_context Ptr TextView
argPtr1) (self -> TextView
forall o. TextViewClass o => o -> TextView
toTextView self
self)




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

-- | Pixels of blank space above paragraphs.
--
-- Allowed values: >= 0
--
-- Default value: 0
--
textViewPixelsAboveLines :: TextViewClass self => Attr self Int
textViewPixelsAboveLines :: forall self. TextViewClass self => Attr self Int
textViewPixelsAboveLines = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Int
forall self. TextViewClass self => self -> IO Int
textViewGetPixelsAboveLines
  self -> Int -> IO ()
forall self. TextViewClass self => self -> Int -> IO ()
textViewSetPixelsAboveLines

-- | Pixels of blank space below paragraphs.
--
-- Allowed values: >= 0
--
-- Default value: 0
--
textViewPixelsBelowLines :: TextViewClass self => Attr self Int
textViewPixelsBelowLines :: forall self. TextViewClass self => Attr self Int
textViewPixelsBelowLines = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Int
forall self. TextViewClass self => self -> IO Int
textViewGetPixelsBelowLines
  self -> Int -> IO ()
forall self. TextViewClass self => self -> Int -> IO ()
textViewSetPixelsBelowLines

-- | Pixels of blank space between wrapped lines in a paragraph.
--
-- Allowed values: >= 0
--
-- Default value: 0
--
textViewPixelsInsideWrap :: TextViewClass self => Attr self Int
textViewPixelsInsideWrap :: forall self. TextViewClass self => Attr self Int
textViewPixelsInsideWrap = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Int
forall self. TextViewClass self => self -> IO Int
textViewGetPixelsInsideWrap
  self -> Int -> IO ()
forall self. TextViewClass self => self -> Int -> IO ()
textViewSetPixelsInsideWrap

-- | Whether the text can be modified by the user.
--
-- Default value: @True@
--
textViewEditable :: TextViewClass self => Attr self Bool
textViewEditable :: forall self. TextViewClass self => Attr self Bool
textViewEditable = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Bool
forall self. TextViewClass self => self -> IO Bool
textViewGetEditable
  self -> Bool -> IO ()
forall self. TextViewClass self => self -> Bool -> IO ()
textViewSetEditable

-- | Which IM (input method) module should be used for this entry. See GtkIMContext.
-- Setting this to a non-empty value overrides the system-wide IM module setting.
-- See the GtkSettings "gtk-im-module" property.
--
-- Default value: \"\"
--
textViewImModule :: TextViewClass self => Attr self DefaultGlibString
textViewImModule :: forall self. TextViewClass self => Attr self DefaultGlibString
textViewImModule =
  String -> Attr self DefaultGlibString
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj string
newAttrFromStringProperty String
"im-module"

-- | Whether to wrap lines never, at word boundaries, or at character
-- boundaries.
--
-- Default value: 'WrapNone'
--
textViewWrapMode :: TextViewClass self => Attr self WrapMode
textViewWrapMode :: forall self. TextViewClass self => Attr self WrapMode
textViewWrapMode = (self -> IO WrapMode)
-> (self -> WrapMode -> IO ())
-> ReadWriteAttr self WrapMode WrapMode
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO WrapMode
forall self. TextViewClass self => self -> IO WrapMode
textViewGetWrapMode
  self -> WrapMode -> IO ()
forall self. TextViewClass self => self -> WrapMode -> IO ()
textViewSetWrapMode

-- | Left, right, or center justification.
--
-- Default value: 'JustifyLeft'
--
textViewJustification :: TextViewClass self => Attr self Justification
textViewJustification :: forall self. TextViewClass self => Attr self Justification
textViewJustification = (self -> IO Justification)
-> (self -> Justification -> IO ())
-> ReadWriteAttr self Justification Justification
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Justification
forall self. TextViewClass self => self -> IO Justification
textViewGetJustification
  self -> Justification -> IO ()
forall self. TextViewClass self => self -> Justification -> IO ()
textViewSetJustification

-- | Width of the left margin in pixels.
--
-- Allowed values: >= 0
--
-- Default value: 0
--
textViewLeftMargin :: TextViewClass self => Attr self Int
textViewLeftMargin :: forall self. TextViewClass self => Attr self Int
textViewLeftMargin = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Int
forall self. TextViewClass self => self -> IO Int
textViewGetLeftMargin
  self -> Int -> IO ()
forall self. TextViewClass self => self -> Int -> IO ()
textViewSetLeftMargin

-- | Width of the right margin in pixels.
--
-- Allowed values: >= 0
--
-- Default value: 0
--
textViewRightMargin :: TextViewClass self => Attr self Int
textViewRightMargin :: forall self. TextViewClass self => Attr self Int
textViewRightMargin = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Int
forall self. TextViewClass self => self -> IO Int
textViewGetRightMargin
  self -> Int -> IO ()
forall self. TextViewClass self => self -> Int -> IO ()
textViewSetRightMargin

-- | Amount to indent the paragraph, in pixels.
--
-- Allowed values: >= 0
--
-- Default value: 0
--
textViewIndent :: TextViewClass self => Attr self Int
textViewIndent :: forall self. TextViewClass self => Attr self Int
textViewIndent = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Int
forall self. TextViewClass self => self -> IO Int
textViewGetIndent
  self -> Int -> IO ()
forall self. TextViewClass self => self -> Int -> IO ()
textViewSetIndent

-- | If the insertion cursor is shown.
--
-- Default value: @True@
--
textViewCursorVisible :: TextViewClass self => Attr self Bool
textViewCursorVisible :: forall self. TextViewClass self => Attr self Bool
textViewCursorVisible = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Bool
forall self. TextViewClass self => self -> IO Bool
textViewGetCursorVisible
  self -> Bool -> IO ()
forall self. TextViewClass self => self -> Bool -> IO ()
textViewSetCursorVisible

-- | The buffer which is displayed.
--
textViewBuffer :: TextViewClass self => Attr self TextBuffer
textViewBuffer :: forall self. TextViewClass self => Attr self TextBuffer
textViewBuffer = (self -> IO TextBuffer)
-> (self -> TextBuffer -> IO ())
-> ReadWriteAttr self TextBuffer TextBuffer
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO TextBuffer
forall self. TextViewClass self => self -> IO TextBuffer
textViewGetBuffer
  self -> TextBuffer -> IO ()
forall self buffer.
(TextViewClass self, TextBufferClass buffer) =>
self -> buffer -> IO ()
textViewSetBuffer


-- | Whether entered text overwrites existing contents.
--
-- Default value: @False@
--
textViewOverwrite :: TextViewClass self => Attr self Bool
textViewOverwrite :: forall self. TextViewClass self => Attr self Bool
textViewOverwrite = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Bool
forall self. TextViewClass self => self -> IO Bool
textViewGetOverwrite
  self -> Bool -> IO ()
forall self. TextViewClass self => self -> Bool -> IO ()
textViewSetOverwrite

-- | Whether Tab will result in a tab character being entered.
--
-- Default value: @True@
--
textViewAcceptsTab :: TextViewClass self => Attr self Bool
textViewAcceptsTab :: forall self. TextViewClass self => Attr self Bool
textViewAcceptsTab = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
  self -> IO Bool
forall self. TextViewClass self => self -> IO Bool
textViewGetAcceptsTab
  self -> Bool -> IO ()
forall self. TextViewClass self => self -> Bool -> IO ()
textViewSetAcceptsTab


--------------------
-- Signals
-- | The 'backspace' signal is a keybinding signal which gets emitted when the user asks for it.
--
-- The default bindings for this signal are Backspace and Shift-Backspace.
--
backspace :: TextViewClass self => Signal self (IO ())
backspace :: forall self. TextViewClass self => Signal self (IO ())
backspace = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"on-backspace")

-- | Copying to the clipboard.
--
-- * This signal is emitted when a selection is copied to the clipboard.
--
-- * The action itself happens when the 'TextView' processes this
-- signal.
--
copyClipboard :: TextViewClass self => Signal self (IO ())
copyClipboard :: forall self. TextViewClass self => Signal self (IO ())
copyClipboard = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"copy-clipboard")

-- | Cutting to the clipboard.
--
-- * This signal is emitted when a selection is cut out and copied to the
-- clipboard. The action itself happens when the textview processed this
-- request.
--
cutClipboard :: TextViewClass self => Signal self (IO ())
cutClipboard :: forall self. TextViewClass self => Signal self (IO ())
cutClipboard = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"cut-clipboard")

-- | Deleting text.
--
-- * The widget will remove the specified number of units in the text where
-- the meaning of units depends on the kind of deletion.
--
-- * The action itself happens when the 'TextView' processes this
-- signal.
--
deleteFromCursor :: TextViewClass self => Signal self (DeleteType -> Int -> IO ())
deleteFromCursor :: forall self.
TextViewClass self =>
Signal self (DeleteType -> Int -> IO ())
deleteFromCursor = (Bool
 -> self -> (DeleteType -> Int -> IO ()) -> IO (ConnectId self))
-> Signal self (DeleteType -> Int -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool
-> self
-> (DeleteType -> Int -> IO ())
-> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> Int -> IO ()) -> IO (ConnectId obj)
connect_ENUM_INT__NONE String
"delete-from-cursor")

-- | Inserting text.
--
-- * The widget will insert the string into the text where the meaning
-- of units depends on the kind of deletion.
--
-- * The action itself happens when the 'TextView' processes this
-- signal.
--
insertAtCursor :: (TextViewClass self, GlibString string) => Signal self (string -> IO ())
insertAtCursor :: forall self string.
(TextViewClass self, GlibString string) =>
Signal self (string -> IO ())
insertAtCursor = (Bool -> self -> (string -> IO ()) -> IO (ConnectId self))
-> Signal self (string -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> (string -> IO ()) -> IO (ConnectId self)
forall a' obj.
(GlibString a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_GLIBSTRING__NONE String
"insert-at-cursor")

-- | Moving the cursor.
--
-- * The signal specifies what kind and how many steps the cursor will do.
-- The flag is set to @True@ if this movement extends a selection.
--
-- * The action itself happens when the 'TextView' processes this
-- signal.
--
moveCursor :: TextViewClass self => Signal self (MovementStep -> Int -> Bool -> IO ())
moveCursor :: forall self.
TextViewClass self =>
Signal self (MovementStep -> Int -> Bool -> IO ())
moveCursor = (Bool
 -> self
 -> (MovementStep -> Int -> Bool -> IO ())
 -> IO (ConnectId self))
-> Signal self (MovementStep -> Int -> Bool -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool
-> self
-> (MovementStep -> Int -> Bool -> IO ())
-> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String
-> Bool -> obj -> (a -> Int -> Bool -> IO ()) -> IO (ConnectId obj)
connect_ENUM_INT_BOOL__NONE String
"move-cursor")

-- | The 'moveViewport' signal is a keybinding signal which can be bound to key combinations
-- to allow the user to move the viewport, i.e.
-- change what part of the text view is visible in a containing scrolled window.
-- There are no default bindings for this signal.
--
moveViewport :: TextViewClass self => Signal self (ScrollStep -> Int -> IO ())
moveViewport :: forall self.
TextViewClass self =>
Signal self (ScrollStep -> Int -> IO ())
moveViewport = (Bool
 -> self -> (ScrollStep -> Int -> IO ()) -> IO (ConnectId self))
-> Signal self (ScrollStep -> Int -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool
-> self
-> (ScrollStep -> Int -> IO ())
-> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> Int -> IO ()) -> IO (ConnectId obj)
connect_ENUM_INT__NONE String
"move-viewport")

-- | Moving the focus.
--
-- * The action itself happens when the 'TextView' processes this
-- signal.
--
moveFocus :: TextViewClass self => Signal self (DirectionType -> IO ())
moveFocus :: forall self.
TextViewClass self =>
Signal self (DirectionType -> IO ())
moveFocus = (Bool -> self -> (DirectionType -> IO ()) -> IO (ConnectId self))
-> Signal self (DirectionType -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool -> self -> (DirectionType -> IO ()) -> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE String
"move-focus")

-- | Page change signals.
--
-- * The signal specifies how many pages the view should move up or down.
-- The flag is set to @True@ if this movement extends a selection.
--
-- * The action itself happens when the 'TextView' processes this
-- signal.
--
-- * Figure out why this signal is called horizontally, not vertically.
--
pageHorizontally :: TextViewClass self => Signal self (Int -> Bool -> IO ())
pageHorizontally :: forall self.
TextViewClass self =>
Signal self (Int -> Bool -> IO ())
pageHorizontally = (Bool -> self -> (Int -> Bool -> IO ()) -> IO (ConnectId self))
-> Signal self (Int -> Bool -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool -> self -> (Int -> Bool -> IO ()) -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String
-> Bool -> obj -> (Int -> Bool -> IO ()) -> IO (ConnectId obj)
connect_INT_BOOL__NONE String
"page-horizontally")

-- | Pasting from the clipboard.
--
-- * This signal is emitted when something is pasted from the clipboard.
--
-- * The action itself happens when the 'TextView' processes this
-- signal.
--
pasteClipboard :: TextViewClass self => Signal self (IO ())
pasteClipboard :: forall self. TextViewClass self => Signal self (IO ())
pasteClipboard = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"paste-clipboard")

-- | Add menu entries to context menus.
--
-- * This signal is emitted if a context menu within the 'TextView'
-- is opened. This signal can be used to add application specific menu
-- items to this popup.
--
populatePopup :: TextViewClass self => Signal self (Menu -> IO ())
populatePopup :: forall self. TextViewClass self => Signal self (Menu -> IO ())
populatePopup = (Bool -> self -> (Menu -> IO ()) -> IO (ConnectId self))
-> Signal self (Menu -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> (Menu -> IO ()) -> IO (ConnectId self)
forall a' obj.
(GObjectClass a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT__NONE String
"populate-popup")

-- | Inserting an anchor.
--
-- * This signal is emitted when anchor is inserted into the text.
--
-- * The action itself happens when the 'TextView' processes this
-- signal.
--
selectAll :: TextViewClass self => Signal self (Bool -> IO ())
selectAll :: forall self. TextViewClass self => Signal self (Bool -> IO ())
selectAll = (Bool -> self -> (Bool -> IO ()) -> IO (ConnectId self))
-> Signal self (Bool -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> (Bool -> IO ()) -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> (Bool -> IO ()) -> IO (ConnectId obj)
connect_BOOL__NONE String
"select-all")

-- | The scroll-bars changed.
--
setAnchor :: TextViewClass self => Signal self (IO ())
setAnchor :: forall self. TextViewClass self => Signal self (IO ())
setAnchor = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"set-anchor")

-- | The 'setTextViewScrollAdjustments' signal is a keybinding signal which
-- gets emitted to toggle the visibility of the cursor.
-- The default binding for this signal is F7.
--
setTextViewScrollAdjustments :: TextViewClass self => Signal self (Adjustment -> Adjustment -> IO ())
setTextViewScrollAdjustments :: forall self.
TextViewClass self =>
Signal self (Adjustment -> Adjustment -> IO ())
setTextViewScrollAdjustments = (Bool
 -> self
 -> (Adjustment -> Adjustment -> IO ())
 -> IO (ConnectId self))
-> Signal self (Adjustment -> Adjustment -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool
-> self
-> (Adjustment -> Adjustment -> IO ())
-> IO (ConnectId self)
forall a' b' obj.
(GObjectClass a', GObjectClass b', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> b' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT_OBJECT__NONE String
"set-scroll-adjustments")

-- | The 'toggleCursorVisible' signal is a keybinding signal
-- which gets emitted to toggle the visibility of the cursor.
-- The default binding for this signal is F7.
--
toggleCursorVisible :: TextViewClass self => Signal self (IO ())
toggleCursorVisible :: forall self. TextViewClass self => Signal self (IO ())
toggleCursorVisible = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"toggle-cursor-visible")

-- | Insert Overwrite mode has changed.
--
-- * This signal is emitted when the 'TextView' changes from
-- inserting mode to overwriting mode and vice versa.
--
-- * The action itself happens when the 'TextView' processes this
-- signal.
--
toggleOverwrite :: TextViewClass self => Signal self (IO ())
toggleOverwrite :: forall self. TextViewClass self => Signal self (IO ())
toggleOverwrite = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"toggle-overwrite")

-- | If an input method is used, the typed text will not immediately be committed to the buffer. So if
-- you are interested in the text, connect to this signal.
--
-- This signal is only emitted if the text at the given position is actually editable.
textViewPreeditChanged :: (TextViewClass self, GlibString string) => Signal self (string -> IO ())
textViewPreeditChanged :: forall self string.
(TextViewClass self, GlibString string) =>
Signal self (string -> IO ())
textViewPreeditChanged = (Bool -> self -> (string -> IO ()) -> IO (ConnectId self))
-> Signal self (string -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> (string -> IO ()) -> IO (ConnectId self)
forall a' obj.
(GlibString a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_GLIBSTRING__NONE String
"preedit-changed")

foreign import ccall unsafe "gtk_text_view_new"
  gtk_text_view_new :: (IO (Ptr Widget))

foreign import ccall safe "gtk_text_view_new_with_buffer"
  gtk_text_view_new_with_buffer :: ((Ptr TextBuffer) -> (IO (Ptr Widget)))

foreign import ccall safe "gtk_text_view_set_buffer"
  gtk_text_view_set_buffer :: ((Ptr TextView) -> ((Ptr TextBuffer) -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_buffer"
  gtk_text_view_get_buffer :: ((Ptr TextView) -> (IO (Ptr TextBuffer)))

foreign import ccall safe "gtk_text_view_scroll_to_mark"
  gtk_text_view_scroll_to_mark :: ((Ptr TextView) -> ((Ptr TextMark) -> (CDouble -> (CInt -> (CDouble -> (CDouble -> (IO ())))))))

foreign import ccall safe "gtk_text_view_scroll_to_iter"
  gtk_text_view_scroll_to_iter :: ((Ptr TextView) -> ((Ptr TextIter) -> (CDouble -> (CInt -> (CDouble -> (CDouble -> (IO CInt)))))))

foreign import ccall safe "gtk_text_view_scroll_mark_onscreen"
  gtk_text_view_scroll_mark_onscreen :: ((Ptr TextView) -> ((Ptr TextMark) -> (IO ())))

foreign import ccall safe "gtk_text_view_move_mark_onscreen"
  gtk_text_view_move_mark_onscreen :: ((Ptr TextView) -> ((Ptr TextMark) -> (IO CInt)))

foreign import ccall safe "gtk_text_view_place_cursor_onscreen"
  gtk_text_view_place_cursor_onscreen :: ((Ptr TextView) -> (IO CInt))

foreign import ccall unsafe "gtk_text_view_get_visible_rect"
  gtk_text_view_get_visible_rect :: ((Ptr TextView) -> ((Ptr ()) -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_iter_location"
  gtk_text_view_get_iter_location :: ((Ptr TextView) -> ((Ptr TextIter) -> ((Ptr ()) -> (IO ()))))

foreign import ccall unsafe "gtk_text_view_get_line_at_y"
  gtk_text_view_get_line_at_y :: ((Ptr TextView) -> ((Ptr TextIter) -> (CInt -> ((Ptr CInt) -> (IO ())))))

foreign import ccall unsafe "gtk_text_view_get_line_yrange"
  gtk_text_view_get_line_yrange :: ((Ptr TextView) -> ((Ptr TextIter) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ())))))

foreign import ccall unsafe "gtk_text_view_get_iter_at_location"
  gtk_text_view_get_iter_at_location :: ((Ptr TextView) -> ((Ptr TextIter) -> (CInt -> (CInt -> (IO CInt)))))

foreign import ccall unsafe "gtk_text_view_buffer_to_window_coords"
  gtk_text_view_buffer_to_window_coords :: ((Ptr TextView) -> (CInt -> (CInt -> (CInt -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ())))))))

foreign import ccall unsafe "gtk_text_view_window_to_buffer_coords"
  gtk_text_view_window_to_buffer_coords :: ((Ptr TextView) -> (CInt -> (CInt -> (CInt -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ())))))))

foreign import ccall unsafe "gtk_text_view_get_window"
  gtk_text_view_get_window :: ((Ptr TextView) -> (CInt -> (IO (Ptr DrawWindow))))

foreign import ccall unsafe "gtk_text_view_get_window_type"
  gtk_text_view_get_window_type :: ((Ptr TextView) -> ((Ptr DrawWindow) -> (IO CInt)))

foreign import ccall safe "gtk_text_view_set_border_window_size"
  gtk_text_view_set_border_window_size :: ((Ptr TextView) -> (CInt -> (CInt -> (IO ()))))

foreign import ccall unsafe "gtk_text_view_get_border_window_size"
  gtk_text_view_get_border_window_size :: ((Ptr TextView) -> (CInt -> (IO CInt)))

foreign import ccall unsafe "gtk_text_view_forward_display_line"
  gtk_text_view_forward_display_line :: ((Ptr TextView) -> ((Ptr TextIter) -> (IO CInt)))

foreign import ccall unsafe "gtk_text_view_backward_display_line"
  gtk_text_view_backward_display_line :: ((Ptr TextView) -> ((Ptr TextIter) -> (IO CInt)))

foreign import ccall unsafe "gtk_text_view_forward_display_line_end"
  gtk_text_view_forward_display_line_end :: ((Ptr TextView) -> ((Ptr TextIter) -> (IO CInt)))

foreign import ccall unsafe "gtk_text_view_backward_display_line_start"
  gtk_text_view_backward_display_line_start :: ((Ptr TextView) -> ((Ptr TextIter) -> (IO CInt)))

foreign import ccall unsafe "gtk_text_view_starts_display_line"
  gtk_text_view_starts_display_line :: ((Ptr TextView) -> ((Ptr TextIter) -> (IO CInt)))

foreign import ccall unsafe "gtk_text_view_move_visually"
  gtk_text_view_move_visually :: ((Ptr TextView) -> ((Ptr TextIter) -> (CInt -> (IO CInt))))

foreign import ccall safe "gtk_text_view_add_child_at_anchor"
  gtk_text_view_add_child_at_anchor :: ((Ptr TextView) -> ((Ptr Widget) -> ((Ptr TextChildAnchor) -> (IO ()))))

foreign import ccall unsafe "gtk_text_child_anchor_new"
  gtk_text_child_anchor_new :: (IO (Ptr TextChildAnchor))

foreign import ccall safe "gtk_text_child_anchor_get_widgets"
  gtk_text_child_anchor_get_widgets :: ((Ptr TextChildAnchor) -> (IO (Ptr ())))

foreign import ccall unsafe "gtk_text_child_anchor_get_deleted"
  gtk_text_child_anchor_get_deleted :: ((Ptr TextChildAnchor) -> (IO CInt))

foreign import ccall safe "gtk_text_view_add_child_in_window"
  gtk_text_view_add_child_in_window :: ((Ptr TextView) -> ((Ptr Widget) -> (CInt -> (CInt -> (CInt -> (IO ()))))))

foreign import ccall safe "gtk_text_view_move_child"
  gtk_text_view_move_child :: ((Ptr TextView) -> ((Ptr Widget) -> (CInt -> (CInt -> (IO ())))))

foreign import ccall safe "gtk_text_view_set_wrap_mode"
  gtk_text_view_set_wrap_mode :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_wrap_mode"
  gtk_text_view_get_wrap_mode :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_editable"
  gtk_text_view_set_editable :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_editable"
  gtk_text_view_get_editable :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_cursor_visible"
  gtk_text_view_set_cursor_visible :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_cursor_visible"
  gtk_text_view_get_cursor_visible :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_pixels_above_lines"
  gtk_text_view_set_pixels_above_lines :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_pixels_above_lines"
  gtk_text_view_get_pixels_above_lines :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_pixels_below_lines"
  gtk_text_view_set_pixels_below_lines :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_pixels_below_lines"
  gtk_text_view_get_pixels_below_lines :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_pixels_inside_wrap"
  gtk_text_view_set_pixels_inside_wrap :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_pixels_inside_wrap"
  gtk_text_view_get_pixels_inside_wrap :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_justification"
  gtk_text_view_set_justification :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_justification"
  gtk_text_view_get_justification :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_left_margin"
  gtk_text_view_set_left_margin :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_left_margin"
  gtk_text_view_get_left_margin :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_right_margin"
  gtk_text_view_set_right_margin :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_right_margin"
  gtk_text_view_get_right_margin :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_indent"
  gtk_text_view_set_indent :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall unsafe "gtk_text_view_get_indent"
  gtk_text_view_get_indent :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_get_default_attributes"
  gtk_text_view_get_default_attributes :: ((Ptr TextView) -> (IO (Ptr TextAttributes)))

foreign import ccall safe "gtk_text_view_get_iter_at_position"
  gtk_text_view_get_iter_at_position :: ((Ptr TextView) -> ((Ptr TextIter) -> ((Ptr CInt) -> (CInt -> (CInt -> (IO CInt))))))

foreign import ccall safe "gtk_text_view_set_overwrite"
  gtk_text_view_set_overwrite :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_text_view_get_overwrite"
  gtk_text_view_get_overwrite :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_set_accepts_tab"
  gtk_text_view_set_accepts_tab :: ((Ptr TextView) -> (CInt -> (IO ())))

foreign import ccall safe "gtk_text_view_get_accepts_tab"
  gtk_text_view_get_accepts_tab :: ((Ptr TextView) -> (IO CInt))

foreign import ccall safe "gtk_text_view_get_hadjustment"
  gtk_text_view_get_hadjustment :: ((Ptr TextView) -> (IO (Ptr Adjustment)))

foreign import ccall safe "gtk_text_view_get_vadjustment"
  gtk_text_view_get_vadjustment :: ((Ptr TextView) -> (IO (Ptr Adjustment)))

foreign import ccall safe "gtk_text_view_im_context_filter_keypress"
  gtk_text_view_im_context_filter_keypress :: ((Ptr TextView) -> ((Ptr ()) -> (IO CInt)))

foreign import ccall safe "gtk_text_view_reset_im_context"
  gtk_text_view_reset_im_context :: ((Ptr TextView) -> (IO ()))