Add scrollToCell for GtkSheet

2 files changed, 6 insertions, 0 deletions

diff --git a/src/Gtk/Widgets/Sheet/Internal.dcl b/src/Gtk/Widgets/Sheet/Internal.dcl
index f799d00..02c6c4a 100644
--- a/src/Gtk/Widgets/Sheet/Internal.dcl
+++ b/src/Gtk/Widgets/Sheet/Internal.dcl
@@ -37,6 +37,7 @@ gtk_sheet_cell_clear :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_cell_delete :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_cell_get_text :: !Pointer !Int !Int !.a -> (!Maybe String, !.a)
 gtk_sheet_get_active_cell :: !Pointer !.a -> (!(!Int, !Int), !.a)
+gtk_sheet_moveto :: !Pointer !Int !Int !Int !Int !.a -> .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 d465984..9da7850 100644
--- a/src/Gtk/Widgets/Sheet/Internal.icl
+++ b/src/Gtk/Widgets/Sheet/Internal.icl
@@ -148,6 +148,11 @@ gtk_sheet_get_active_cell sheet env = code {
 	ccall gtk_sheet_get_active_cell "p:VII:A"
 }
 
+gtk_sheet_moveto :: !Pointer !Int !Int !Int !Int !.a -> .a
+gtk_sheet_moveto sheet row col row_align col_align env = code {
+	ccall gtk_sheet_moveto "pIIII:V: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 "GpII:V:A"