diff options
| author | Camil Staps | 2019-10-24 08:56:51 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-24 08:56:51 +0200 |
| commit | 562189dc3e0a31d630ab1cd147c1d06093a96876 (patch) | |
| tree | b89a26d97ccf466e4bcb29cd186a728d85877db5 /src/Gtk/Widgets.icl | |
| parent | Add set{Column,Row}Titles convenience functions for GtkSheet (diff) | |
Add GtkWrapMode for GtkTextView
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index a2a0349..adb655e 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -220,6 +220,12 @@ newTextView = getTextBuffer :: !GtkTextView -> GtkTextBuffer getTextBuffer text_view = gtk_text_view_get_buffer text_view +instance tune GtkTextView GtkWrapMode +where + tune mode text_view = + toState (gtk_text_view_set_wrap_mode text_view (toInt mode)) >>| + pure text_view + :: GtkWidget :== Pointer instance gtkWidget GtkWidget where gtkWidget w = w |