From 63a7f69566f25d5033fc9556da637408e92f1f92 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 23 Oct 2019 16:23:10 +0200
Subject: Add get/setActiveCell for GtkSheet

---
 src/Gtk/Widgets/Sheet/Internal.dcl |  2 ++
 src/Gtk/Widgets/Sheet/Internal.icl | 10 ++++++++++
 2 files changed, 12 insertions(+)

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

diff --git a/src/Gtk/Widgets/Sheet/Internal.dcl b/src/Gtk/Widgets/Sheet/Internal.dcl
index 4f1eec3..b372c54 100644
--- a/src/Gtk/Widgets/Sheet/Internal.dcl
+++ b/src/Gtk/Widgets/Sheet/Internal.dcl
@@ -25,4 +25,6 @@ gtk_sheet_columns_set_sensitivity :: !Pointer !Bool !.a -> .a
 
 gtk_sheet_cell_clear :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_cell_delete :: !Pointer !Int !Int !.a -> .a
+gtk_sheet_get_active_cell :: !Pointer !.a -> (!(!Int, !Int), !.a)
+gtk_sheet_set_active_cell :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_set_cell_text :: !Pointer !Int !Int !String !.a -> .a
diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl
index 5f45cfc..69459b6 100644
--- a/src/Gtk/Widgets/Sheet/Internal.icl
+++ b/src/Gtk/Widgets/Sheet/Internal.icl
@@ -106,6 +106,16 @@ gtk_sheet_cell_delete sheet row col env = code {
 	ccall gtk_sheet_cell_delete "pII:V:A"
 }
 
+gtk_sheet_get_active_cell :: !Pointer !.a -> (!(!Int, !Int), !.a)
+gtk_sheet_get_active_cell sheet env = code {
+	ccall gtk_sheet_get_active_cell "p:VII:A"
+}
+
+gtk_sheet_set_active_cell :: !Pointer !Int !Int !.a -> .a
+gtk_sheet_set_active_cell sheet row col env = code {
+	ccall gtk_sheet_set_active_cell "pII:V:A"
+}
+
 gtk_sheet_set_cell_text :: !Pointer !Int !Int !String !.a -> .a
 gtk_sheet_set_cell_text sheet row col text env = set sheet row col (packString text) env
 where
-- 
cgit v1.2.3