Menu
▾
▴
[Gtk2hs-commit] (main branch): Update all modules under Graphics.UI.Gtk.Multiline to Gtk+ 2.16.
|
From: Axel S. <si...@co...> - 2009-10-02 07:38:57
|
Thu Oct 1 03:30:08 EDT 2009 Andy Stewart <laz...@gm...>
* Update all modules under Graphics.UI.Gtk.Multiline to Gtk+ 2.16.
Ignore-this: c9bd81bdac9f9c0f6d7ecad79dda5857
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 4
--- Author : Axel Simon, Manuel Chakravarty
+-- Author : Axel Simon, Manuel Chakravarty, Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 9
+-- Copyright (C) 2009 Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 59
+ ScrollStep (..),
hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 310
+-- | Scrolling step
+--
+{#enum ScrollStep {underscoreToCase} deriving (Eq,Show)#}
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 4
--- Author : Axel Simon
+-- Author : Axel Simon, Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 9
+-- Copyright (C) 2009 Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 21
--- TODO
---
--- The functionality of inserting widgets (child anchors) is not implemented
--- since there will probably some changes before the final release. The
--- following functions are not bound:
--- gtk_text_buffer_insert_child_anchor
--- gtk_text_buffer_create_child_anchor
--- gtk_text_buffer_get_iter_at_anchor
--- onInsertChildAnchor
--- [_$_]
--- Check 'textBufferGetInsert', in case there is no cursor in [_$_]
--- the editor,
--- is there a mark called \"insert\"? If not, the function needs to return
--- Maybe TextMark. The same holds for [_$_]
--- 'textBufferGetSelectionBound'.
---
--- If Clipboards are fully bound, then these functions need to be bound as well:
--- gtk_text_buffer_add_selection_clipboard
--- gtk_text_buffer_remove_selection_clipboard
---
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 23
--- The following convenience functions are omitted: [_$_]
+-- Below `variadic` functions can't support by FFI:
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 27
--- gtk_text_buffer_get_bounds
--- gtk_text_buffer_get_selection_bounds
+-- But above functions is not essential, we can use other functions do same work.
+-- Example:
+--
+-- gtk_text_buffer_insert_with_tags equivalent to calling textBufferInsert,
+-- then textBufferApplyTag on the inserted text.
+-- [_$_]
+-- gtk_text_buffer_insert_with_tags_by_name same as gtk_text_buffer_insert_with_tags,
+-- just use textTagName handle tag name. [_$_]
+--
+-- gtk_text_buffer_create_tag Equivalent to calling textTagNew
+-- and then adding the tag to the buffer's tag table. [_$_]
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 93
+ textBufferAddMark,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 136
+ textBufferAddSelectionClipboard,
+ textBufferRemoveSelectionClipboard,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 159
+ onInsertChildAnchor,
+ afterInsertChildAnchor,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 169
+ onPasteDone,
+ afterPasteDone,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 478
+-- | Adds the mark at position where. [_$_]
+-- The mark must not be added to another buffer, [_$_]
+-- and if its name is not empty then there must not be another mark in the buffer nwith the same name.
+--
+-- Emits the "mark-set" signal as notification of the mark's initial placement.
+--
+textBufferAddMark :: TextBufferClass self => self
+ -> TextMark -- ^ @mark@ the mark to add
+ -> TextIter -- ^ @iter@ location to place mark
+ -> IO ()
+textBufferAddMark self mark iter =
+ {# call text_buffer_add_mark #} (toTextBuffer self) (toTextMark mark) iter
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 741
-
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 963
- -> TextIter -- ^ @start@ - iterator to initialize with first position in the
- -- buffer
- -> TextIter -- ^ @end@ - iterator to initialize with the end iterator
- -> IO ()
-textBufferGetBounds self start end =
- {# call gtk_text_buffer_get_bounds #}
+ -> IO (TextIter, TextIter) -- ^ return the first and last iterators in the buffer
+textBufferGetBounds self = do
+ start <- makeEmptyTextIter
+ end <- makeEmptyTextIter
+ {#call unsafe text_buffer_get_bounds #}
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 971
+ return (start, end)
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 1027
+-- | Adds clipboard to the list of clipboards in which the selection contents of buffer are available. [_$_]
+-- In most cases, clipboard will be the 'Clipboard' of type 'SelectionPrimary' for a view of buffer.
+--
+textBufferAddSelectionClipboard :: TextBufferClass self => self
+ -> Clipboard -- ^ @clipboard@ - the 'Clipboard' object to add
+ -> IO ()
+textBufferAddSelectionClipboard self clipboard =
+ {# call text_buffer_add_selection_clipboard #} (toTextBuffer self) clipboard
+
+-- | Removes a 'Clipboard' added with 'textBufferAddSelectionClipboard'.
+--
+textBufferRemoveSelectionClipboard :: TextBufferClass self => self
+ -> Clipboard -- ^ @clipboard@ - the 'Clipboard' object to remove
+ -> IO ()
+textBufferRemoveSelectionClipboard self clipboard = [_$_]
+ {# call text_buffer_remove_selection_clipboard #} (toTextBuffer self) clipboard
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 1124
--- | A widgets is inserted into the buffer.
---onInsertChildAnchor :: TextBufferClass self =>
--- (TextIter -> TextChildAnchor -> IO ()) -> ConnectAfter -> self -> [_$_]
--- IO (ConnectId self)
---onInsertChildAnchor = connect_BOXED_OBJECT__NONE "insert_child_anchor"
--- mkTextIterCopy
-
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 1133
+-- | The insert-child-anchor signal is emitted to insert a 'TextChildAnchor' in a 'TextBuffer'. [_$_]
+-- Insertion actually occurs in the default handler.
+--
+-- Note that if your handler runs before the default handler it must not invalidate the location iter (or has to revalidate it). [_$_]
+-- The default signal handler revalidates it to be placed after the inserted anchor.
+--
+onInsertChildAnchor, afterInsertChildAnchor :: TextBufferClass self => self
+ -> (TextIter -> TextChildAnchor -> IO ())
+ -> IO (ConnectId self)
+onInsertChildAnchor = connect_BOXED_OBJECT__NONE "insert_child_anchor" mkTextIterCopy False
+afterInsertChildAnchor = connect_BOXED_OBJECT__NONE "insert_child_anchor" mkTextIterCopy True
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp 1185
+-- | The paste-done signal is emitted after paste operation has been completed. [_$_]
+-- This is useful to properly scroll the view to the end of the pasted text. [_$_]
+-- See 'textBufferPasteClipboard' for more details.
+onPasteDone, afterPasteDone :: TextBufferClass self => self
+ -> (Clipboard -> IO ())
+ -> IO (ConnectId self)
+onPasteDone = connect_OBJECT__NONE "paste_done" False
+afterPasteDone = connect_OBJECT__NONE "paste_done" True
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 4
--- Author : Axel Simon
+-- Author : Axel Simon, Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 9
+-- Copyright (C) 2009 Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 29
--- The functions gtk_text_iter_in_range and gtk_text_iter_order are not bound
--- because they are only convenience functions which can replaced by calls
--- to textIterCompare.
---
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 31
--- TODO
---
--- Bind the following functions when we are sure about anchors [_$_]
--- (see 'TextBuffer'):
--- gtk_text_iter_get_anchor
---
--- Bind TextAttribute functions when I am clear how to model them. [_$_]
--- gtk_text_iter_get_attribute
---
--- Forward exceptions in the two callback functions.
---
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 58
+ textIterGetChildAnchor,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 61
- -- textIterGetChildAnchor,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 78
+ textIterGetAttributes,
+ textIterGetLanguage,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 116
+ textIterInRange,
+ textIterOrder,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 124
+ textIterForwardVisibleWordEnds,
+ textIterBackwardVisibleWordStarts,
+ textIterForwardVisibleWordEnd,
+ textIterBackwardVisibleWordStart,
+ textIterForwardVisibleCursorPosition,
+ textIterBackwardVisibleCursorPosition,
+ textIterForwardVisibleCursorPositions,
+ textIterBackwardVisibleCursorPositions,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 153
+{#import Graphics.UI.Gtk.Multiline.TextTag#}
+{#import Graphics.UI.Gtk.Pango.Types#}
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 267
+-- | If the location at iter contains a child anchor, [_$_]
+-- the anchor is returned (with no new reference count added). [_$_]
+-- Otherwise, @Nothing@ is returned.
+--
+textIterGetChildAnchor :: TextIter -> IO (Maybe TextChildAnchor)
+textIterGetChildAnchor it = do
+ tcaPtr <- {#call unsafe text_iter_get_child_anchor#} it
+ if tcaPtr == nullPtr then return Nothing else liftM Just $
+ makeNewGObject mkTextChildAnchor (return tcaPtr)
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 469
--- | Get the text attributes at the iterator.
---
--- * The @ta@ argument gives the default values if no specific [_$_]
--- attributes are set at that specific location.
+-- | Computes the effect of any tags applied to this spot in the text. [_$_]
+-- The values parameter should be initialized to the default settings you wish to use if no tags are in effect. [_$_]
+-- You'd typically obtain the defaults from 'textViewGetDefaultAttributes'. [_$_]
+-- 'textIterGetAttributes' will modify values, applying the effects of any tags present at iter. [_$_]
+-- If any tags affected values, the function returns @True@.
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 475
--- * The function returns @Nothing@ if the text at the iterator has [_$_]
--- the same attributes.
-textIterGetAttributes = error "textIterGetAttributes: not implemented"
+textIterGetAttributes :: TextIter -> TextAttributes -> IO Bool
+textIterGetAttributes ti ta = liftM toBool $
+ {#call unsafe text_iter_get_attributes#} ti ta
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 479
+-- | A convenience wrapper around 'textIterGetAttributes', which returns the language in effect at iter. [_$_]
+-- If no tags affecting language apply to iter, the return value is identical to that of 'getDefaultLanguage'.
+--
+textIterGetLanguage :: TextIter -> IO Language
+textIterGetLanguage ti = liftM Language $
+ {#call unsafe text_iter_get_language#} ti
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 946
+-- | Calls 'textIterForwardVisibleWordEnd' up to count times.
+--
+textIterForwardVisibleWordEnds :: TextIter [_$_]
+ -> Int -- ^ @couter@ - number of times to move [_$_]
+ -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator [_$_]
+textIterForwardVisibleWordEnds self count = [_$_]
+ liftM toBool $
+ {# call text_iter_forward_visible_word_ends #}
+ self
+ (fromIntegral count)
+
+-- | Calls 'textIterBackwardVisibleWordStart' up to count times.
+--
+textIterBackwardVisibleWordStarts :: TextIter [_$_]
+ -> Int -- ^ @couter@ - number of times to move [_$_]
+ -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator [_$_]
+textIterBackwardVisibleWordStarts self count =
+ liftM toBool $
+ {# call text_iter_backward_visible_word_starts #}
+ self
+ (fromIntegral count)
+
+-- | Moves forward to the next visible word end. [_$_]
+-- (If iter is currently on a word end, moves forward to the next one after that.) [_$_]
+-- Word breaks are determined by Pango and should be correct for nearly any language [_$_]
+-- (if not, the correct fix would be to the Pango word break algorithms).
+--
+textIterForwardVisibleWordEnd :: TextIter
+ -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator [_$_]
+textIterForwardVisibleWordEnd self =
+ liftM toBool $
+ {# call text_iter_forward_visible_word_end #}
+ self
+
+-- | Moves backward to the previous visible word start. [_$_]
+-- (If iter is currently on a word start, moves backward to the next one after that.) [_$_]
+-- Word breaks are determined by Pango and should be correct for nearly any language [_$_]
+-- (if not, the correct fix would be to the Pango word break algorithms).
+-- [_$_]
+textIterBackwardVisibleWordStart :: TextIter
+ -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator [_$_]
+textIterBackwardVisibleWordStart self =
+ liftM toBool $
+ {# call text_iter_backward_visible_word_start #}
+ self
+
+-- | Moves iter forward to the next visible cursor position. [_$_]
+-- See 'textIterForwardCursorPosition' for details.
+--
+textIterForwardVisibleCursorPosition :: TextIter
+ -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator [_$_]
+textIterForwardVisibleCursorPosition self =
+ liftM toBool $
+ {# call text_iter_forward_visible_cursor_position #}
+ self
+
+-- | Moves iter forward to the previous visible cursor position. [_$_]
+-- See 'textIterBackwardCursorPosition' for details.
+-- [_$_]
+textIterBackwardVisibleCursorPosition :: TextIter
+ -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator [_$_]
+textIterBackwardVisibleCursorPosition self =
+ liftM toBool $
+ {# call text_iter_backward_visible_cursor_position #}
+ self
+
+-- | Moves up to count visible cursor positions. [_$_]
+-- See 'textIterForwardCursorPosition' for details.
+textIterForwardVisibleCursorPositions :: TextIter
+ -> Int -- ^ @couter@ - number of times to move [_$_]
+ -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator [_$_]
+textIterForwardVisibleCursorPositions self count =
+ liftM toBool $
+ {# call text_iter_forward_visible_cursor_positions #}
+ self
+ (fromIntegral count)
+
+-- | Moves up to count visible cursor positions. [_$_]
+-- See 'textIterBackwardCursorPosition' for details.
+--
+textIterBackwardVisibleCursorPositions :: TextIter [_$_]
+ -> Int -- ^ @couter@ - number of times to move [_$_]
+ -> IO Bool -- ^ return @True@ if iter moved and is not the end iterator [_$_]
+textIterBackwardVisibleCursorPositions self count =
+ liftM toBool $
+ {# call text_iter_backward_visible_cursor_positions #}
+ self
+ (fromIntegral count)
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 1050
+-- | Checks whether iter falls in the range [start, end). [_$_]
+-- start and end must be in ascending order.
+--
+textIterInRange :: TextIter [_$_]
+ -> TextIter -- ^ @start@ start of range
+ -> TextIter -- ^ @end@ end of range
+ -> IO Bool -- ^ @True@ if iter is in the range
+textIterInRange ti start end = liftM toBool $
+ {# call unsafe text_iter_in_range #} ti start end
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextIter.chs.pp 1060
+-- | Swaps the value of first and second if second comes before first in the buffer. [_$_]
+-- That is, ensures that first and second are in sequence. [_$_]
+-- Most text buffer functions that take a range call this automatically on your behalf, so there's no real reason to call it yourself in those cases. [_$_]
+-- There are some exceptions, such as 'textIterInRange', that expect a pre-sorted range.
+--
+textIterOrder :: TextIter -> TextIter -> IO ()
+textIterOrder first second = [_$_]
+ {# call text_iter_order #} first second
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextMark.chs 4
--- Author : Axel Simon
+-- Author : Axel Simon, Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextMark.chs 9
+-- Copyright (C) 2009 Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextMark.chs 69
+-- * Constructors
+ textMarkNew,
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextMark.chs 96
+--------------------
+-- Constructors
+-- | Creates a text mark. [_$_]
+-- Add it to a buffer using 'textBufferAddMark'. [_$_]
+-- If name is NULL, the mark is anonymous; otherwise, the mark can be retrieved by name using 'textBufferGetMark'. [_$_]
+-- If a mark has left gravity, and text is inserted at the mark's current location, [_$_]
+-- the mark will be moved to the left of the newly-inserted text. [_$_]
+-- If the mark has right gravity (left_gravity = FALSE), the mark will end up on the right of newly-inserted text. [_$_]
+-- The standard left-to-right cursor is a mark with right gravity (when you type, the cursor stays on the right side of the text you're typing).
+--
+textMarkNew :: [_$_]
+ Maybe MarkName -- ^ @markName@ - name for mark, or @Nothing@
+ -> Bool -- ^ @leftGravity@ - whether the mark has left gravity
+ -> IO TextMark
+textMarkNew markName leftGravity =
+ makeNewGObject mkTextMark $
+ maybeWith withUTFString markName $ \markNamePtr ->
+ {# call text_mark_new #}
+ markNamePtr
+ (fromBool leftGravity)
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 4
--- Author : Duncan Coutts
+-- Author : Duncan Coutts, Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 9
+-- Copyright (C) 2009 Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 22
---
--- accessor functions for TextAttributes
+-- [_$_]
+-- Haven't bind `textTagTabs` properties, need bind PangoTab first (in `pango-tabs.c`)
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 71
+ textAttributesCopy,
+ textAttributesCopyValues,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 78
+ textTagBackgroundSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 80
+ textTagBackgroundFullHeightSet,
+ textTagBackgroundGdk,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 83
+ textTagBackgroundStippleSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 85
+ textTagForegroundSet,
+ textTagForegroundGdk,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 88
+ textTagForegroundStippleSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 91
+ textTagEditableSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 93
+ textTagFontDesc,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 95
+ textTagFamilySet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 97
+ textTagStyleSet,
+ -- textTagTabs,
+ textTagTabsSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 101
+ textTagVariantSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 103
+ textTagWeightSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 105
+ textTagStretchSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 107
+ textTagSizeSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 109
+ textTagScaleSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 112
+ textTagJustificationSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 114
+ textTagLanguageSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 116
+ textTagLeftMarginSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 118
+ textTagRightMarginSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 120
+ textTagIndentSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 122
+ textTagRiseSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 124
+ textTagPixelsAboveLinesSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 126
+ textTagPixelsBelowLinesSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 128
+ textTagPixelsInsideWrapSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 130
+ textTagStrikethroughSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 132
+ textTagUnderlineSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 134
+ textTagWrapModeSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 137
+ textTagInvisibleSet,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 139
+ textTagParagraphBackgroundSet,
+ textTagParagraphBackgroundGdk,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 156
+import Graphics.UI.Gtk.Pango.Font
+import Graphics.UI.Gtk.Pango.Types (FontDescription (..), makeNewFontDescription)
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 162
+import Graphics.UI.Gtk.General.Structs (Color(..))
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 228
+-- | Copies src and returns a new 'TextAttributes'.
+--
+textAttributesCopy :: [_$_]
+ TextAttributes -- ^ @src@ - a 'TextAttributes' to be copied [_$_]
+ -> IO TextAttributes
+textAttributesCopy src =
+ {#call text_attributes_copy#} src >>= makeNewTextAttributes
+
+-- | Copies the values from src to dest so that dest has the same values as src. [_$_]
+-- Frees existing values in dest.
+--
+textAttributesCopyValues :: TextAttributes -> TextAttributes -> IO ()
+textAttributesCopyValues src dest =
+ {# call text_attributes_copy_values #} src dest
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 267
+-- | Whether this tag affects the background color.
+--
+-- Default value: @False@
+--
+textTagBackgroundSet :: TextTagClass self => Attr self Bool
+textTagBackgroundSet = newAttrFromBoolProperty "background-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 282
+-- | Whether this tag affects background height.
+--
+-- Default value: @False@
+-- [_$_]
+textTagBackgroundFullHeightSet :: TextTagClass self => Attr self Bool
+textTagBackgroundFullHeightSet = newAttrFromBoolProperty "background-full-height-set"
+
+-- | Background color as a (possibly unallocated) GdkColor.
+--
+textTagBackgroundGdk :: TextTagClass self => Attr self Color
+textTagBackgroundGdk =
+ newAttrFromBoxedStorableProperty "background-gdk"
+ {#call pure unsafe gdk_color_get_type#}
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 302
+-- | Whether this tag affects the background stipple.
+-- [_$_]
+-- Default value: @False@
+--
+textTagBackgroundStippleSet :: TextTagClass self => Attr self Bool
+textTagBackgroundStippleSet = newAttrFromBoolProperty "background-stipple-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 316
+-- | Whether this tag affects the foreground color.
+-- [_$_]
+-- Default value: @False@
+--
+textTagForegroundSet :: TextTagClass self => Attr self Bool
+textTagForegroundSet = newAttrFromBoolProperty "foreground-set"
+
+-- | Foreground color as a (possibly unallocated) GdkColor.
+--
+textTagForegroundGdk :: TextTagClass self => Attr self Color
+textTagForegroundGdk =
+ newAttrFromBoxedStorableProperty "foreground-gdk"
+ {# call pure unsafe gdk_color_get_type #}
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 336
+-- | Whether this tag affects the foreground stipple.
+-- [_$_]
+-- Default value: @False@
+--
+textTagForegroundStippleSet :: TextTagClass self => Attr self Bool
+textTagForegroundStippleSet = newAttrFromBoolProperty "foreground-stipple-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 358
+-- | Whether this tag affects text editability.
+-- [_$_]
+-- Default value: @False@
+--
+textTagEditableSet :: TextTagClass self => Attr self Bool
+textTagEditableSet = newAttrFromBoolProperty "editable-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 372
+-- | Font description as a 'FontDescription' struct.
+--
+textTagFontDesc :: TextTagClass self => Attr self FontDescription
+textTagFontDesc = newAttrFromBoxedOpaqueProperty makeNewFontDescription
+ (\(FontDescription fd) act -> withForeignPtr fd act) "font-desc"
+ {# call pure unsafe pango_font_description_get_type #}
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 386
+-- | Whether this tag affects the font family.
+-- [_$_]
+-- Default value: @False@
+--
+textTagFamilySet :: TextTagClass self => Attr self Bool
+textTagFamilySet = newAttrFromBoolProperty "family-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 401
+-- | Whether this tag affects the font style.
+-- [_$_]
+-- Default value: @False@
+--
+textTagStyleSet :: TextTagClass self => Attr self Bool
+textTagStyleSet = newAttrFromBoolProperty "style-set"
+
+-- | Custom tabs for this text.
+-- textTagTabs :: TextTagClass self => Attr self TabArray
+
+-- | Whether this tag affects tabs.
+-- [_$_]
+-- Default value: @False@
+--
+textTagTabsSet :: TextTagClass self => Attr self Bool
+textTagTabsSet = newAttrFromBoolProperty "tabs-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 426
+-- | Whether this tag affects the font variant.
+-- [_$_]
+-- Default value: @False@
+--
+textTagVariantSet :: TextTagClass self => Attr self Bool
+textTagVariantSet = newAttrFromBoolProperty "variant-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 443
+-- | Whether this tag affects the font weight.
+-- [_$_]
+-- Default value: @False@
+--
+textTagWeightSet :: TextTagClass self => Attr self Bool
+textTagWeightSet = newAttrFromBoolProperty "weight-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 458
+-- | Whether this tag affects the font stretch.
+textTagStretchSet :: TextTagClass self => Attr self Bool
+textTagStretchSet = newAttrFromBoolProperty "stretch-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 471
+-- | Whether this tag affects the font size.
+-- [_$_]
+-- Default value: @False@
+--
+textTagSizeSet :: TextTagClass self => Attr self Bool
+textTagSizeSet = newAttrFromBoolProperty "size-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 488
+-- | Whether this tag scales the font size by a factor.
+-- [_$_]
+-- Default value: @False@
+--
+textTagScaleSet :: TextTagClass self => Attr self Bool
+textTagScaleSet = newAttrFromBoolProperty "scale-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 512
+-- | Whether this tag affects paragraph justification.
+-- [_$_]
+-- Default value: @False@
+--
+textTagJustificationSet :: TextTagClass self => Attr self Bool
+textTagJustificationSet = newAttrFromBoolProperty "justification-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 528
+-- | Whether this tag affects the language the text is rendered as.
+-- [_$_]
+-- Default value: @False@
+--
+textTagLanguageSet :: TextTagClass self => Attr self Bool
+textTagLanguageSet = newAttrFromBoolProperty "language-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 544
+-- | Whether this tag affects the left margin.
+-- [_$_]
+-- Default value: @False@
+--
+textTagLeftMarginSet :: TextTagClass self => Attr self Bool
+textTagLeftMarginSet = newAttrFromBoolProperty "left-margin-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 560
+-- | Whether this tag affects the right margin.
+-- [_$_]
+-- Default value: @False@
+--
+textTagRightMarginSet :: TextTagClass self => Attr self Bool
+textTagRightMarginSet = newAttrFromBoolProperty "right-margin-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 574
+-- | Whether this tag affects indentation.
+-- [_$_]
+-- Default value: @False@
+--
+textTagIndentSet :: TextTagClass self => Attr self Bool
+textTagIndentSet = newAttrFromBoolProperty "indent-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 589
+-- | Whether this tag affects the rise.
+textTagRiseSet :: TextTagClass self => Attr self Bool
+textTagRiseSet = newAttrFromBoolProperty "rise-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 602
+-- | Whether this tag affects the number of pixels above lines.
+-- [_$_]
+-- Default value: @False@
+--
+textTagPixelsAboveLinesSet :: TextTagClass self => Attr self Bool
+textTagPixelsAboveLinesSet = newAttrFromBoolProperty "pixels-above-lines-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 618
+-- | Whether this tag affects the number of pixels below lines.
+-- [_$_]
+-- Default value: @False@
+--
+textTagPixelsBelowLinesSet :: TextTagClass self => Attr self Bool
+textTagPixelsBelowLinesSet = newAttrFromBoolProperty "pixels-below-lines-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 634
+-- | Whether this tag affects the number of pixels between wrapped lines.
+-- [_$_]
+-- Default value: @False@
+--
+textTagPixelsInsideWrapSet :: TextTagClass self => Attr self Bool
+textTagPixelsInsideWrapSet = newAttrFromBoolProperty "pixels-inside-wrap-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 648
+-- | Whether this tag affects strikethrough.
+-- [_$_]
+-- Default value: @False@
+--
+textTagStrikethroughSet :: TextTagClass self => Attr self Bool
+textTagStrikethroughSet = newAttrFromBoolProperty "strikethrough-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 663
+-- | Whether this tag affects underlining.
+-- [_$_]
+-- Default value: @False@
+--
+textTagUnderlineSet :: TextTagClass self => Attr self Bool
+textTagUnderlineSet = newAttrFromBoolProperty "underline-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 679
+-- | Whether this tag affects line wrap mode.
+-- [_$_]
+-- Default value: @False@
+--
+textTagWrapModeSet :: TextTagClass self => Attr self Bool
+textTagWrapModeSet = newAttrFromBoolProperty "wrap-mode-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 698
+-- | Whether this tag affects text visibility.
+-- [_$_]
+-- Default value: @False@
+--
+textTagInvisibleSet :: TextTagClass self => Attr self Bool
+textTagInvisibleSet = newAttrFromBoolProperty "invisible-set"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextTag.chs.pp 711
+
+-- | Whether this tag affects the paragraph background color.
+-- [_$_]
+-- Default value: @False@
+--
+textTagParagraphBackgroundSet :: TextTagClass self => Attr self Bool
+textTagParagraphBackgroundSet = newAttrFromBoolProperty "paragraph-background-set"
+
+-- | The paragraph background color as a as a (possibly unallocated) 'Color'.
+--
+textTagParagraphBackgroundGdk :: TextTagClass self => Attr self Color
+textTagParagraphBackgroundGdk = [_$_]
+ newAttrFromBoxedStorableProperty "paragraph-background-gdk"
+ {# call pure unsafe gdk_color_get_type #}
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 4
--- Author : Axel Simon
+-- Author : Axel Simon, Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 9
+-- Copyright (C) 2009 Andy Stewart
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 23
--- If PangoTabArray is bound: do textViewSetTabs and textViewGetTabs
+-- If PangoTabArray is bound: [_$_]
+-- Fucntions: textViewSetTabs and textViewGetTabs
+-- Properties: textViewTabs
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 146
+ textViewImModule,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 160
+ onBackspace,
+ afterBackspace,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 172
+ onMoveViewport,
+ afterMoveViewport,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 186
+ onToggleCursorVisible,
+ afterToggleCursorVisible,
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 196
+import System.Glib.Properties (newAttrFromStringProperty)
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 206
- MovementStep(..), WrapMode(..))
+ MovementStep(..), WrapMode(..),
+ ScrollStep (..))
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 1068
+-- | Which IM (input method) module should be used for this entry. See GtkIMContext.
+-- Setting this to a non-empty value overrides the system-wide IM module setting. [_$_]
+-- See the GtkSettings "gtk-im-module" property.
+--
+-- Default value: \"\"
+--
+textViewImModule :: TextViewClass self => Attr self String
+textViewImModule = [_$_]
+ newAttrFromStringProperty "im-module"
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 1169
+-- | The ::backspace signal is a keybinding signal which gets emitted when the user asks for it.
+--
+-- The default bindings for this signal are Backspace and Shift-Backspace.
+--
+onBackspace, afterBackspace :: TextViewClass self => self
+ -> IO ()
+ -> IO (ConnectId self)
+onBackspace = connect_NONE__NONE "on_backspace" False
+afterBackspace = connect_NONE__NONE "on_backspace" True
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 1246
+-- | The ::move-viewport signal is a keybinding signal which can be bound to key combinations to allow the user to move the viewport, i.e. change what part of the text view is visible in a containing scrolled window.
+-- There are no default bindings for this signal.
+-- [_$_]
+onMoveViewport, afterMoveViewport :: TextViewClass self => self
+ -> (ScrollStep -> Int -> IO ())
+ -> IO (ConnectId self)
+onMoveViewport = connect_ENUM_INT__NONE "move_viewport" False
+afterMoveViewport = connect_ENUM_INT__NONE "move_viewport" True
+
hunk ./gtk/Graphics/UI/Gtk/Multiline/TextView.chs.pp 1331
+-- | The ::toggle-cursor-visible signal is a keybinding signal which gets emitted to toggle the visibility of the cursor.
+-- The default binding for this signal is F7.
+--
+onToggleCursorVisible, afterToggleCursorVisible :: TextViewClass self => self
+ -> IO ()
+ -> IO (ConnectId self)
+onToggleCursorVisible = connect_NONE__NONE "toggle_cursor_visible" False
+afterToggleCursorVisible = connect_NONE__NONE "toggle_cursor_visible" True
+
|