From bdcf8597b53f3157e351f4270c8bd60eccd8eac9 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 29 Oct 2019 19:39:01 +0100
Subject: Add functions to set/check row visibility of GtkSheets

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

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

diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl
index f8ecabe..521e3ee 100644
--- a/src/Gtk/Widgets/Sheet.icl
+++ b/src/Gtk/Widgets/Sheet.icl
@@ -82,6 +82,14 @@ setRangeEditable setting top_left bottom_right sheet=:(GtkSheet s) =
 	toState (gtk_sheet_range_set_editable s top_left bottom_right setting) >>|
 	pure sheet
 
+setRowVisibility :: !Bool !Int !GtkSheet -> GtkM GtkSheet
+setRowVisibility setting row sheet=:(GtkSheet s) =
+	toState (gtk_sheet_row_set_visibility s row setting) >>|
+	pure sheet
+
+isRowVisible :: !Int !GtkSheet -> GtkM Bool
+isRowVisible row (GtkSheet s) = toStateR (gtk_sheet_row_visible s row)
+
 getActiveCell :: !GtkSheet -> GtkM (Maybe (Int,Int))
 getActiveCell (GtkSheet s) =
 	toStateR (gtk_sheet_get_active_cell s) >>= \cell=:(row,col)
-- 
cgit v1.2.3