From 1f5c461f61a492f00171a0b61ae23d6197d61cad Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 23 Oct 2019 21:39:25 +0200
Subject: Add set{Column,Row}Titles convenience functions for GtkSheet

---
 src/Gtk/Widgets/Sheet.icl | 10 ++++++++++
 1 file changed, 10 insertions(+)

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

diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl
index d4625a3..6d29575 100644
--- a/src/Gtk/Widgets/Sheet.icl
+++ b/src/Gtk/Widgets/Sheet.icl
@@ -42,11 +42,21 @@ setColumnTitle col title sheet =
 	toState (gtk_sheet_set_column_title sheet col title) >>|
 	pure sheet
 
+setColumnTitles :: ![String] !GtkSheet -> GtkM GtkSheet
+setColumnTitles titles sheet =
+	sequence_ [setColumnTitle i t sheet \\ i <- [0..] & t <- titles] >>|
+	pure sheet
+
 setRowTitle :: !Int !String !GtkSheet -> GtkM GtkSheet
 setRowTitle row title sheet =
 	toState (gtk_sheet_row_button_add_label sheet row title) >>|
 	pure sheet
 
+setRowTitles :: ![String] !GtkSheet -> GtkM GtkSheet
+setRowTitles titles sheet =
+	sequence_ [setRowTitle i t sheet \\ i <- [0..] & t <- titles] >>|
+	pure sheet
+
 setCellText :: !Int !Int !String !GtkSheet -> GtkM GtkSheet
 setCellText row col text sheet =
 	toState (gtk_sheet_cell_clear sheet row col) >>|
-- 
cgit v1.2.3