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

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

diff --git a/src/Gtk/Widgets/Sheet/Internal.dcl b/src/Gtk/Widgets/Sheet/Internal.dcl
index 27c7945..14499f5 100644
--- a/src/Gtk/Widgets/Sheet/Internal.dcl
+++ b/src/Gtk/Widgets/Sheet/Internal.dcl
@@ -30,3 +30,4 @@ gtk_sheet_set_active_cell :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_set_cell_text :: !Pointer !Int !Int !String !.a -> .a
 
 gtk_sheet_range_set_css_class :: !Pointer !(!Int,!Int) !(!Int,!Int) !String !.a -> .a
+gtk_sheet_range_set_editable :: !Pointer !(!Int,!Int) !(!Int,!Int) !Bool !.a -> .a
diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl
index 060d6ab..11f5f5a 100644
--- a/src/Gtk/Widgets/Sheet/Internal.icl
+++ b/src/Gtk/Widgets/Sheet/Internal.icl
@@ -141,3 +141,19 @@ where
 		push_a_b 0
 		pop_a 1
 	}
+
+gtk_sheet_range_set_editable :: !Pointer !(!Int,!Int) !(!Int,!Int) !Bool !.a -> .a
+gtk_sheet_range_set_editable sheet (r1,c1) (r2,c2) setting env
+	# range = IF_INT_64_OR_32 {#c1<<32+r1,c2<<32+r2} {#r1,c1,r2,c2}
+	= set sheet (get_ptr range + IF_INT_64_OR_32 24 16) setting env
+where
+	set :: !Pointer !Pointer !Bool !.a -> .a
+	set _ _ _ _ = code {
+		ccall gtk_sheet_range_set_editable "ppI:V:A"
+	}
+
+	get_ptr :: !{#Int} -> Pointer
+	get_ptr _ = code {
+		push_a_b 0
+		pop_a 1
+	}
-- 
cgit v1.2.3