diff options
Diffstat (limited to 'src/Gtk/Widgets/Sheet.icl')
| -rw-r--r-- | src/Gtk/Widgets/Sheet.icl | 10 |
1 files changed, 10 insertions, 0 deletions
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) >>| |