From bec9e255a435b3e687e7e611c2f140dab2f6bfdd Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 23 Oct 2019 20:21:41 +0200
Subject: Add setRangeEditable for GtkSheet

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

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

diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl
index e527137..d4625a3 100644
--- a/src/Gtk/Widgets/Sheet.icl
+++ b/src/Gtk/Widgets/Sheet.icl
@@ -58,6 +58,11 @@ setCSSClassForRange (Class cls) top_left bottom_right sheet =
 	toState (gtk_sheet_range_set_css_class sheet top_left bottom_right cls) >>|
 	pure sheet
 
+setRangeEditable :: !Bool !(!Int,!Int) !(!Int,!Int) !GtkSheet -> GtkM GtkSheet
+setRangeEditable setting top_left bottom_right sheet =
+	toState (gtk_sheet_range_set_editable sheet top_left bottom_right setting) >>|
+	pure sheet
+
 getActiveCell :: !GtkSheet -> GtkM (Maybe (Int,Int))
 getActiveCell sheet =
 	toStateR (gtk_sheet_get_active_cell sheet) >>= \cell=:(row,col)
-- 
cgit v1.2.3