diff options
Diffstat (limited to 'src/Gtk/Widgets/Sheet.icl')
| -rw-r--r-- | src/Gtk/Widgets/Sheet.icl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl index 36d0b4d..c28816f 100644 --- a/src/Gtk/Widgets/Sheet.icl +++ b/src/Gtk/Widgets/Sheet.icl @@ -11,8 +11,8 @@ import Gtk.Widgets.Sheet.Internal :: GtkSheet =: GtkSheet Pointer -instance gtkWidget GtkSheet where gtkWidget (GtkSheet s) = GtkWidget s -instance gtkContainer GtkSheet where gtkContainer (GtkSheet s) = GtkContainer s +instance gtkWidget GtkSheet where gtkWidget (GtkSheet s) = unsafeToWidget s +instance gtkContainer GtkSheet where gtkContainer (GtkSheet s) = unsafeToContainer s newSheet :: !Int !Int !String -> GtkM GtkSheet newSheet nrows ncols title = @@ -105,7 +105,7 @@ setActiveCell row col sheet=:(GtkSheet s) = getEntry :: !GtkSheet -> GtkM GtkEntry getEntry (GtkSheet s) = toStateR (gtk_sheet_get_entry s) >>= \e -> - pure (GtkEntry e) + pure (unsafeToEntry e) instance tune GtkSheet GtkSheetColumnResizability where |