4 files changed, 15 insertions, 0 deletions
diff --git a/src/Gtk/Widgets/Sheet.dcl b/src/Gtk/Widgets/Sheet.dcl
index 6f27ecf..f7298a9 100644
--- a/src/Gtk/Widgets/Sheet.dcl
+++ b/src/Gtk/Widgets/Sheet.dcl
@@ -25,6 +25,7 @@ whileFrozen :: !(GtkM a) !GtkSheet -> GtkM a
 ensureDimensions :: !Int !Int !GtkSheet -> GtkM GtkSheet
 
 setColumnTitle :: !Int !String !GtkSheet -> GtkM GtkSheet
+setRowTitle :: !Int !String !GtkSheet -> GtkM GtkSheet
 setCellText :: !Int !Int !String !GtkSheet -> GtkM GtkSheet
 
 :: GtkSheetColumnResizability
diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl
index dcafa26..e34a304 100644
--- a/src/Gtk/Widgets/Sheet.icl
+++ b/src/Gtk/Widgets/Sheet.icl
@@ -41,6 +41,11 @@ setColumnTitle col title sheet =
 	toState (gtk_sheet_set_column_title sheet col title) >>|
 	pure sheet
 
+setRowTitle :: !Int !String !GtkSheet -> GtkM GtkSheet
+setRowTitle row title sheet =
+	toState (gtk_sheet_row_button_add_label sheet row title) >>|
+	pure sheet
+
 setCellText :: !Int !Int !String !GtkSheet -> GtkM GtkSheet
 setCellText row col text sheet =
 	toState (gtk_sheet_cell_delete sheet row col) >>|
diff --git a/src/Gtk/Widgets/Sheet/Internal.dcl b/src/Gtk/Widgets/Sheet/Internal.dcl
index ec8f340..4f1eec3 100644
--- a/src/Gtk/Widgets/Sheet/Internal.dcl
+++ b/src/Gtk/Widgets/Sheet/Internal.dcl
@@ -11,6 +11,7 @@ gtk_sheet_add_rows :: !Pointer !Int !.a -> .a
 gtk_sheet_insert_rows :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_delete_rows :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_get_rows_count :: !Pointer !.a -> (!Int, !.a)
+gtk_sheet_row_button_add_label :: !Pointer !Int !String !.a -> .a
 gtk_sheet_rows_set_resizable :: !Pointer !Bool !.a -> .a
 gtk_sheet_rows_set_sensitivity :: !Pointer !Bool !.a -> .a
 
diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl
index 67c7f37..5f45cfc 100644
--- a/src/Gtk/Widgets/Sheet/Internal.icl
+++ b/src/Gtk/Widgets/Sheet/Internal.icl
@@ -40,6 +40,14 @@ gtk_sheet_get_rows_count sheet env = code {
 	ccall gtk_sheet_get_rows_count "p:I:A"
 }
 
+gtk_sheet_row_button_add_label :: !Pointer !Int !String !.a -> .a
+gtk_sheet_row_button_add_label sheet col title env = set sheet col (packString title) env
+where
+	set :: !Pointer !Int !String !.a -> .a
+	set _ _ _ _ = code {
+		ccall gtk_sheet_row_button_add_label "pIs:V: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"