diff options
| author | Camil Staps | 2019-10-21 19:59:33 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-21 19:59:33 +0200 |
| commit | d23e852b6f4d29f88a859c3180b9cd7e14b5dad7 (patch) | |
| tree | 8cd777c4ff59b89601a56b49b1076627c8ea3a33 /src/Gtk/Widgets/Sheet.icl | |
| parent | Simplify tuning (diff) | |
Add tune instances to set row/column resizability/sensitivity on GtkSheet
Diffstat (limited to 'src/Gtk/Widgets/Sheet.icl')
| -rw-r--r-- | src/Gtk/Widgets/Sheet.icl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl index 9d8a50c..fe3eb93 100644 --- a/src/Gtk/Widgets/Sheet.icl +++ b/src/Gtk/Widgets/Sheet.icl @@ -22,3 +22,27 @@ instance gtkContainer GtkSheet where gtkContainer s = fromPtr s newSheet :: !Int !Int !String -> GtkM GtkSheet newSheet nrows ncols title = toStateR ('I'.gtk_sheet_new nrows ncols title) >>= show + +instance tune GtkSheet GtkSheetColumnResizability +where + tune setting sheet = + toState ('I'.gtk_sheet_columns_set_resizable sheet setting=:ColumnsResizable) >>| + pure sheet + +instance tune GtkSheet GtkSheetColumnSensitity +where + tune setting sheet = + toState ('I'.gtk_sheet_columns_set_sensitivity sheet setting=:ColumnsSensitive) >>| + pure sheet + +instance tune GtkSheet GtkSheetRowResizability +where + tune setting sheet = + toState ('I'.gtk_sheet_rows_set_resizable sheet setting=:RowsResizable) >>| + pure sheet + +instance tune GtkSheet GtkSheetRowSensitity +where + tune setting sheet = + toState ('I'.gtk_sheet_rows_set_sensitivity sheet setting=:RowsSensitive) >>| + pure sheet |