diff options
| author | Camil Staps | 2019-10-21 20:17:56 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-21 20:17:56 +0200 |
| commit | f738860d69a382965488065dbc1386fa1f28957b (patch) | |
| tree | f161203c080d9f38d5dd363e1eb6eead96d477e0 /src/Gtk/Widgets/Sheet.icl | |
| parent | Add tune instances to set row/column resizability/sensitivity on GtkSheet (diff) | |
Remove usage of import qualified as, which relies on the itask compiler
Diffstat (limited to 'src/Gtk/Widgets/Sheet.icl')
| -rw-r--r-- | src/Gtk/Widgets/Sheet.icl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl index fe3eb93..442f67d 100644 --- a/src/Gtk/Widgets/Sheet.icl +++ b/src/Gtk/Widgets/Sheet.icl @@ -12,7 +12,7 @@ import Control.Monad.State import System._Pointer import Gtk -import qualified Gtk.Widgets.Sheet.Internal as I +import Gtk.Widgets.Sheet.Internal :: GtkSheet :== Pointer @@ -21,28 +21,28 @@ 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 + toStateR (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) >>| + toState (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) >>| + toState (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) >>| + toState (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) >>| + toState (gtk_sheet_rows_set_sensitivity sheet setting=:RowsSensitive) >>| pure sheet |