diff options
| author | Camil Staps | 2019-10-20 12:58:20 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-20 12:58:20 +0200 |
| commit | 68a4d8aa22fe304c500cbe31e8f7b322eff70191 (patch) | |
| tree | 74b203d0b989cbf52eaaa6c56cedd5db98333ad3 /src/Gtk/Widgets.icl | |
| parent | Add GtkFrame (diff) | |
Make GtkTextView not editable
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index b630549..5413dd5 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -85,7 +85,10 @@ instance gtkWidget GtkTextView where gtkWidget tv = tv instance gtkContainer GtkTextView where gtkContainer tv = tv newTextView :: State GtkState GtkTextView -newTextView = toStateR 'I'.gtk_text_view_new >>= show +newTextView = + toStateR 'I'.gtk_text_view_new >>= \text_view -> + toState ('I'.gtk_text_view_set_editable text_view False) >>| + show text_view getTextBuffer :: !GtkTextView -> GtkTextBuffer getTextBuffer text_view = 'I'.gtk_text_view_get_buffer text_view |