From: Daniel W. <dm...@lu...> - 2012-11-24 03:13:04
|
diffing dir... Fri Jun 10 00:56:25 BST 2011 Daniel Wagner <da...@wa...> * add the "entryBuffer" attribute to bind to the "gtk_entry_set_buffer" and "gtk_entry_get_buffer" functions Ignore-this: a4dd3aede78d6dc09646fd31159bd2be hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 106 + entryBuffer, hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 206 +-- | 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) + +-- Although the documentation doesn't say one way or the other, a look at the +-- source indicates that gtk_entry_get_buffer doesn't increment the reference +-- count of the GtkEntryBuffer it returns, so, like textViewGetBuffer, we must +-- increment it ourselves. + +-- | Returns the 'EntryBuffer' being displayed. +-- +entryGetBuffer :: EntryClass self => self -> IO EntryBuffer +entryGetBuffer self = + makeNewGObject mkEntryBuffer $ + {# call entry_get_buffer #} + (toEntry self) + hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 650 +-- | The buffer being displayed. +-- +entryBuffer :: EntryClass self => Attr self EntryBuffer +entryBuffer = newAttr + entryGetBuffer + entrySetBuffer + |