1 files changed, 86 insertions, 10 deletions

diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl
index 4fcb3d9..67c7f37 100644
--- a/src/Gtk/Widgets/Sheet/Internal.icl
+++ b/src/Gtk/Widgets/Sheet/Internal.icl
@@ -2,16 +2,6 @@ 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
@@ -20,6 +10,36 @@ where
 		ccall gtk_sheet_new "IIs:p:A"
 	}
 
+gtk_sheet_freeze :: !Pointer !.a -> .a
+gtk_sheet_freeze sheet env = code {
+	ccall gtk_sheet_freeze "p:V:A"
+}
+
+gtk_sheet_unfreeze :: !Pointer !.a -> .a
+gtk_sheet_unfreeze sheet env = code {
+	ccall gtk_sheet_thaw "p:V:A"
+}
+
+gtk_sheet_add_rows :: !Pointer !Int !.a -> .a
+gtk_sheet_add_rows sheet nrows env = code {
+	ccall gtk_sheet_add_row "pI:V:A"
+}
+
+gtk_sheet_insert_rows :: !Pointer !Int !Int !.a -> .a
+gtk_sheet_insert_rows sheet before nrows env = code {
+	ccall gtk_sheet_insert_row "pII:V:A"
+}
+
+gtk_sheet_delete_rows :: !Pointer !Int !Int !.a -> .a
+gtk_sheet_delete_rows sheet start nrows env = code {
+	ccall gtk_sheet_delete_rows "pII:V:A"
+}
+
+gtk_sheet_get_rows_count :: !Pointer !.a -> (!Int, !.a)
+gtk_sheet_get_rows_count sheet env = code {
+	ccall gtk_sheet_get_rows_count "p:I: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"
@@ -29,3 +49,59 @@ 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"
 }
+
+gtk_sheet_add_columns :: !Pointer !Int !.a -> .a
+gtk_sheet_add_columns sheet ncolumns env = code {
+	ccall gtk_sheet_add_column "pI:V:A"
+}
+
+gtk_sheet_insert_columns :: !Pointer !Int !Int !.a -> .a
+gtk_sheet_insert_columns sheet before ncolumns env = code {
+	ccall gtk_sheet_insert_column "pII:V:A"
+}
+
+gtk_sheet_delete_columns :: !Pointer !Int !Int !.a -> .a
+gtk_sheet_delete_columns sheet start ncolumns env = code {
+	ccall gtk_sheet_delete_columns "pII:V:A"
+}
+
+gtk_sheet_get_columns_count :: !Pointer !.a -> (!Int, !.a)
+gtk_sheet_get_columns_count sheet env = code {
+	ccall gtk_sheet_get_columns_count "p:I:A"
+}
+
+gtk_sheet_set_column_title :: !Pointer !Int !String !.a -> .a
+gtk_sheet_set_column_title sheet col title env = set sheet col (packString title) env
+where
+	set :: !Pointer !Int !String !.a -> .a
+	set _ _ _ _ = code {
+		ccall gtk_sheet_set_column_title "pIs:V:A"
+	}
+
+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_cell_clear :: !Pointer !Int !Int !.a -> .a
+gtk_sheet_cell_clear sheet row col env = code {
+	ccall gtk_sheet_cell_clear "pII:V:A"
+}
+
+gtk_sheet_cell_delete :: !Pointer !Int !Int !.a -> .a
+gtk_sheet_cell_delete sheet row col env = code {
+	ccall gtk_sheet_cell_delete "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
+	set :: !Pointer !Int !Int !String !.a -> .a
+	set _ _ _ _ _ = code {
+		ccall gtk_sheet_set_cell_text "pIIs:V:A"
+	}