From 562189dc3e0a31d630ab1cd147c1d06093a96876 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 24 Oct 2019 08:56:51 +0200
Subject: Add GtkWrapMode for GtkTextView

---
 src/Gtk/Widgets.icl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Gtk/Widgets.icl')

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
-- 
cgit v1.2.3