{-# LINE 2 "./Graphics/UI/Gtk/Multiline/TextView.chs" #-}
module Graphics.UI.Gtk.Multiline.TextView (
TextView,
TextViewClass,
TextChildAnchor,
TextChildAnchorClass,
castToTextView, gTypeTextView,
toTextView,
DeleteType(..),
DirectionType(..),
Justification(..),
MovementStep(..),
TextWindowType(..),
WrapMode(..),
textViewNew,
textViewNewWithBuffer,
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,
textViewPixelsAboveLines,
textViewPixelsBelowLines,
textViewPixelsInsideWrap,
textViewEditable,
textViewImModule,
textViewWrapMode,
textViewJustification,
textViewLeftMargin,
textViewRightMargin,
textViewIndent,
textViewCursorVisible,
textViewBuffer,
textViewOverwrite,
textViewAcceptsTab,
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" #-}
textViewNew :: IO TextView
textViewNew :: IO TextView
textViewNew =
(ForeignPtr TextView -> TextView, FinalizerPtr TextView)
-> IO (Ptr TextView) -> IO TextView
forall obj.
ObjectClass 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" #-}
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.
ObjectClass 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)
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)
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)
textViewScrollToMark :: (TextViewClass self, TextMarkClass mark) => self
-> mark
-> Double
-> Maybe (Double, Double)
-> 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)
textViewScrollToIter :: TextViewClass self => self
-> TextIter
-> Double
-> Maybe (Double, Double)
-> IO Bool
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)
textViewScrollMarkOnscreen :: (TextViewClass self, TextMarkClass mark) => self
-> mark
-> 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)
textViewMoveMarkOnscreen :: (TextViewClass self, TextMarkClass mark) => self
-> mark
-> IO Bool
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)
textViewPlaceCursorOnscreen :: TextViewClass self => self
-> IO Bool
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)
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
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
textViewGetLineAtY :: TextViewClass self => self
-> Int
-> IO (TextIter, Int)
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)
textViewGetLineYrange :: TextViewClass self => self
-> TextIter
-> IO (Int, Int)
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)
textViewGetIterAtLocation :: TextViewClass self => self
-> Int
-> Int
-> 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 ()) -> 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 -> CInt -> IO ()
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
textViewBufferToWindowCoords :: TextViewClass self => self
-> TextWindowType
-> (Int, Int)
-> IO (Int, Int)
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)
textViewWindowToBufferCoords :: TextViewClass self => self
-> TextWindowType
-> (Int, Int)
-> IO (Int, Int)
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)
textViewGetWindow :: TextViewClass self => self
-> TextWindowType
-> IO (Maybe DrawWindow)
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)
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
textViewSetBorderWindowSize :: TextViewClass self => self
-> TextWindowType
-> Int
-> 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)
textViewGetBorderWindowSize :: TextViewClass self => self
-> TextWindowType
-> IO Int
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_)
textViewForwardDisplayLine :: TextViewClass self => self
-> TextIter
-> IO Bool
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
textViewBackwardDisplayLine :: TextViewClass self => self
-> TextIter
-> IO Bool
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
textViewForwardDisplayLineEnd :: TextViewClass self => self
-> TextIter
-> IO Bool
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
textViewBackwardDisplayLineStart :: TextViewClass self => self
-> TextIter
-> IO Bool
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
textViewStartsDisplayLine :: TextViewClass self => self
-> TextIter
-> IO Bool
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
textViewMoveVisually :: TextViewClass self => self
-> TextIter
-> Int
-> IO Bool
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)
textViewAddChildAtAnchor :: (TextViewClass self, WidgetClass child) => self
-> child
-> TextChildAnchor
-> 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
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" #-}
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.
ObjectClass 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)
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
textViewAddChildInWindow :: (TextViewClass self, WidgetClass child) => self
-> child
-> TextWindowType
-> Int
-> Int
-> 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)
textViewMoveChild :: (TextViewClass self, WidgetClass child) => self
-> child
-> Int
-> Int
-> 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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
textViewSetLeftMargin :: TextViewClass self => self
-> Int
-> 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)
textViewGetLeftMargin :: TextViewClass self => self
-> IO Int
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)
textViewSetRightMargin :: TextViewClass self => self
-> Int
-> 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)
textViewGetRightMargin :: TextViewClass self => self
-> IO Int
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)
textViewSetIndent :: TextViewClass self => self
-> Int
-> 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)
textViewGetIndent :: TextViewClass self => self
-> IO Int
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)
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
textViewGetIterAtPosition :: TextViewClass self => self
-> Int
-> Int
-> IO (TextIter, Int)
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 ()) -> 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 -> CInt -> CInt -> IO ()
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)
textViewSetOverwrite :: TextViewClass self => self
-> Bool
-> 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)
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)
textViewSetAcceptsTab :: TextViewClass self => self
-> Bool
-> 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)
textViewGetAcceptsTab :: TextViewClass self => self
-> IO Bool
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)
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.
ObjectClass 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)
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.
ObjectClass 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)
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)
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)
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
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
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
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
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"
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
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
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
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
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
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
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
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
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
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")
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")
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")
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")
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")
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")
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")
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")
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")
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")
populatePopup :: TextViewClass self => Signal self (Menu -> IO ())
= (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")
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")
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")
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")
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")
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")
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 ())))))
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 ()))))))
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 ()))