diff options
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 |