From: Daniel W. <dm...@lu...> - 2012-04-22 20:24:21
|
diffing dir... Fri Apr 20 14:35:54 BST 2012 ads...@ya... * Add entryGet/SetBuffer functions. Ignore-this: 5e083fd21fc5e63986fa0bae6a7d5442 hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 81 +#if GTK_CHECK_VERSION (2,18,0) + entryGetBuffer, + entrySetBuffer, +#endif hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 111 +#if GTK_CHECK_VERSION (2,18,0) + entryBuffer, +#endif hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 167 +#if GTK_CHECK_VERSION (2,18,0) +import Graphics.UI.Gtk.Entry.EntryBuffer +#endif hunk ./gtk/Graphics/UI/Gtk/Entry/Entry.chs 442 +#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 653 +#if GTK_CHECK_VERSION(2,18,0) +entryBuffer :: (EntryClass self, EntryBufferClass buffer) => + ReadWriteAttr self EntryBuffer buffer +entryBuffer = newAttr + entryGetBuffer + entrySetBuffer +#endif + + |