[Gtk2hs-commit] (main branch): de-duplicate entry{G, S}etBuffer (how did this ever build before?)

[Daniel W. <dm...@lu...>]

diffing dir...
Sat Nov 24 03:02:42 GMT 2012  Daniel Wagner <da...@wa...>
  * de-duplicate entry{G,S}etBuffer (how did this ever build before?)
  Ignore-this: 1ebbf7852a75b303807b0dd519cf65a9
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 106
    -  entryBuffer,
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 205
    --- | Sets the given buffer as the buffer being displayed.
    ---
    -entrySetBuffer :: (EntryClass self, EntryBufferClass buffer) => self -> buffer -> IO ()
    -entrySetBuffer self buffer =
    -  {# call entry_set_buffer #}
    -    (toEntry self)
    -    (toEntryBuffer buffer)
    -
    +#if GTK_CHECK_VERSION(2,18,0)
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 211
    --- | Returns the 'EntryBuffer' being displayed.
    ---
    -entryGetBuffer :: EntryClass self => self -> IO EntryBuffer
    +-- | Get the 'EntryBuffer' object which holds the text for this widget.
    +entryGetBuffer :: EntryClass self => self
    +  -> IO EntryBuffer
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 216
    -  {# call entry_get_buffer #}
    +  {# call gtk_entry_get_buffer #}
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 219
    +-- | Set the 'EntryBuffer' object which holds the text for this widget.
    +entrySetBuffer :: (EntryClass self, EntryBufferClass buffer) => self
    +  -> buffer -> IO ()
    +entrySetBuffer self =
    +  {# call gtk_entry_set_buffer #}
    +    (toEntry self) . toEntryBuffer
    +#endif
    +
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 475
    -#if GTK_CHECK_VERSION(2,18,0)
    --- | Get the 'EntryBuffer' object which holds the text for this widget.
    -entryGetBuffer :: EntryClass self => self
    -  -> IO EntryBuffer
    -entryGetBuffer self =
    -  makeNewGObject mkEntryBuffer $
    -  {# call gtk_entry_get_buffer #}
    -    (toEntry self)
    -
    --- | Set the 'EntryBuffer' object which holds the text for this widget.
    -entrySetBuffer :: (EntryClass self, EntryBufferClass buffer) => self
    -  -> buffer -> IO ()
    -entrySetBuffer self =
    -  {# call gtk_entry_set_buffer #}
    -    (toEntry self) . toEntryBuffer
    -#endif
    -
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 633
    --- | The buffer being displayed.
    ---
    -entryBuffer :: EntryClass self => Attr self EntryBuffer
    -entryBuffer = newAttr
    -  entryGetBuffer
    -  entrySetBuffer
    -
    hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 670
    +-- | The buffer being displayed.
    +--