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 | |
| parent | Add singletonShared convenience function (diff) | |
Add set{Column,Row}Titles convenience functions for GtkSheet
| -rw-r--r-- | src/Gtk/Widgets/Sheet.dcl | 3 | ||||
| -rw-r--r-- | src/Gtk/Widgets/Sheet.icl | 10 |
2 files changed, 13 insertions, 0 deletions
diff --git a/src/Gtk/Widgets/Sheet.dcl b/src/Gtk/Widgets/Sheet.dcl index 1b85a26..45014ee 100644 --- a/src/Gtk/Widgets/Sheet.dcl +++ b/src/Gtk/Widgets/Sheet.dcl @@ -26,7 +26,10 @@ whileFrozen :: !(GtkM a) !GtkSheet -> GtkM a ensureDimensions :: !Int !Int !GtkSheet -> GtkM GtkSheet setColumnTitle :: !Int !String !GtkSheet -> GtkM GtkSheet +setColumnTitles :: ![String] !GtkSheet -> GtkM GtkSheet setRowTitle :: !Int !String !GtkSheet -> GtkM GtkSheet +setRowTitles :: ![String] !GtkSheet -> GtkM GtkSheet + setCellText :: !Int !Int !String !GtkSheet -> GtkM GtkSheet setCSSClassForRange :: !GtkCSSClass !(!Int,!Int) !(!Int,!Int) !GtkSheet -> GtkM GtkSheet setRangeEditable :: !Bool !(!Int,!Int) !(!Int,!Int) !GtkSheet -> GtkM GtkSheet 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) >>| |