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/Internal.dcl |  4 ++++
 src/Gtk/Widgets/Sheet/Internal.icl | 20 ++++++++++++++++++++
 2 files changed, 24 insertions(+)

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

diff --git a/src/Gtk/Widgets/Sheet/Internal.dcl b/src/Gtk/Widgets/Sheet/Internal.dcl
index b356f5b..05f798c 100644
--- a/src/Gtk/Widgets/Sheet/Internal.dcl
+++ b/src/Gtk/Widgets/Sheet/Internal.dcl
@@ -2,4 +2,8 @@ definition module Gtk.Widgets.Sheet.Internal
 
 from System._Pointer import :: Pointer
 
+gtk_sheet_columns_set_resizable :: !Pointer !Bool !.a -> .a
+gtk_sheet_columns_set_sensitivity :: !Pointer !Bool !.a -> .a
 gtk_sheet_new :: !Int !Int !String !.a -> (!Pointer, !.a)
+gtk_sheet_rows_set_resizable :: !Pointer !Bool !.a -> .a
+gtk_sheet_rows_set_sensitivity :: !Pointer !Bool !.a -> .a
diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl
index e0df1e5..4fcb3d9 100644
--- a/src/Gtk/Widgets/Sheet/Internal.icl
+++ b/src/Gtk/Widgets/Sheet/Internal.icl
@@ -2,6 +2,16 @@ implementation module Gtk.Widgets.Sheet.Internal
 
 import System._Pointer
 
+gtk_sheet_columns_set_resizable :: !Pointer !Bool !.a -> .a
+gtk_sheet_columns_set_resizable sheet setting env = code {
+	ccall gtk_sheet_columns_set_resizable "pI:V:A"
+}
+
+gtk_sheet_columns_set_sensitivity :: !Pointer !Bool !.a -> .a
+gtk_sheet_columns_set_sensitivity sheet setting env = code {
+	ccall gtk_sheet_columns_set_sensitivity "pI:V:A"
+}
+
 gtk_sheet_new :: !Int !Int !String !.a -> (!Pointer, !.a)
 gtk_sheet_new rows cols title env = new rows cols (packString title) env
 where
@@ -9,3 +19,13 @@ where
 	new _ _ _ _ = code {
 		ccall gtk_sheet_new "IIs:p:A"
 	}
+
+gtk_sheet_rows_set_resizable :: !Pointer !Bool !.a -> .a
+gtk_sheet_rows_set_resizable sheet setting env = code {
+	ccall gtk_sheet_rows_set_resizable "pI:V:A"
+}
+
+gtk_sheet_rows_set_sensitivity :: !Pointer !Bool !.a -> .a
+gtk_sheet_rows_set_sensitivity sheet setting env = code {
+	ccall gtk_sheet_rows_set_sensitivity "pI:V:A"
+}
-- 
cgit v1.2.3