Add get/setActiveCell for GtkSheet

2 files changed, 12 insertions, 0 deletions

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