diff options
| author | Camil Staps | 2019-10-23 21:39:25 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-23 21:39:25 +0200 |
| commit | 1f5c461f61a492f00171a0b61ae23d6197d61cad (patch) | |
| tree | f0604245f50c2a1cc0592451f062c1b832741a53 /src/Gtk/Widgets/Sheet.icl | |
| parent | Add singletonShared convenience function (diff) | |
Add set{Column,Row}Titles convenience functions for GtkSheet
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) >>| |