[Gtk2hs-commit] (main branch): Add new functions : entryGetIconWindow, entryGetTextWindow

[Andy S. <And...@co...>]

diffing dir...
Mon Aug 16 21:52:50 EDT 2010  Andy Stewart <laz...@gm...>
  * Add new functions : entryGetIconWindow, entryGetTextWindow
  Ignore-this: 1f2034f25d379c8c77c1f8709f499bf3
    {
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 89
    +#if GTK_CHECK_VERSION(2,20,0)
    +  entryGetIconWindow,
    +  entryGetTextWindow,
    +#endif
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 148
    -import Graphics.UI.Gtk.General.Enums (DeleteType (..), MovementStep (..))
    +import Graphics.UI.Gtk.General.Enums (DeleteType (..), MovementStep (..), EntryIconPosition (..))
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 421
    +#if GTK_CHECK_VERSION(2,20,0)
    +-- | Returns the 'Window' which contains the entry's icon at @iconPos@. This function is useful when
    +-- drawing something to the entry in an expose-event callback because it enables the callback to
    +-- distinguish between the text window and entry's icon windows.
    +-- [_$_]
    +-- See also 'entryGetTextWindow'.
    +entryGetIconWindow :: EntryClass self => self
    +                   -> EntryIconPosition  -- ^ @iconPos@ Icon position                        [_$_]
    +                   -> IO DrawWindow -- ^ returns  the entry's icon window at @iconPos@. [_$_]
    +entryGetIconWindow entry iconPos =
    +    makeNewGObject mkDrawWindow $
    +    {#call gtk_entry_get_icon_window #}
    +       (toEntry entry)
    +       ((fromIntegral . fromEnum) iconPos)
    +       [_$_]
    +-- | Returns the 'Window' which contains the text. This function is useful when drawing something to the
    +-- entry in an expose-event callback because it enables the callback to distinguish between the text
    +-- window and entry's icon windows.
    +-- [_$_]
    +-- See also 'entryGetIconWindow'.
    +entryGetTextWindow :: EntryClass self => self
    +                   -> IO DrawWindow  -- ^ returns the entry's text window. [_$_]
    +entryGetTextWindow entry =
    +    makeNewGObject mkDrawWindow $
    +    {#call gtk_entry_get_text_window #}
    +      (toEntry entry)
    +#endif
    +
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 84
    +  EntryIconPosition(..),
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs 423
    +-- | Specifies the side of the entry at which an icon is placed.
    +--
    +{#enum EntryIconPosition {underscoreToCase} deriving (Eq,Show)#}
    }