From d23e852b6f4d29f88a859c3180b9cd7e14b5dad7 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 21 Oct 2019 19:59:33 +0200
Subject: Add tune instances to set row/column resizability/sensitivity on
 GtkSheet

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

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

diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl
index 9d8a50c..fe3eb93 100644
--- a/src/Gtk/Widgets/Sheet.icl
+++ b/src/Gtk/Widgets/Sheet.icl
@@ -22,3 +22,27 @@ instance gtkContainer GtkSheet where gtkContainer s = fromPtr s
 newSheet :: !Int !Int !String -> GtkM GtkSheet
 newSheet nrows ncols title =
 	toStateR ('I'.gtk_sheet_new nrows ncols title) >>= show
+
+instance tune GtkSheet GtkSheetColumnResizability
+where
+	tune setting sheet =
+		toState ('I'.gtk_sheet_columns_set_resizable sheet setting=:ColumnsResizable) >>|
+		pure sheet
+
+instance tune GtkSheet GtkSheetColumnSensitity
+where
+	tune setting sheet =
+		toState ('I'.gtk_sheet_columns_set_sensitivity sheet setting=:ColumnsSensitive) >>|
+		pure sheet
+
+instance tune GtkSheet GtkSheetRowResizability
+where
+	tune setting sheet =
+		toState ('I'.gtk_sheet_rows_set_resizable sheet setting=:RowsResizable) >>|
+		pure sheet
+
+instance tune GtkSheet GtkSheetRowSensitity
+where
+	tune setting sheet =
+		toState ('I'.gtk_sheet_rows_set_sensitivity sheet setting=:RowsSensitive) >>|
+		pure sheet
-- 
cgit v1.2.3