diff options
Diffstat (limited to 'src/Gtk/Widgets')
| -rw-r--r-- | src/Gtk/Widgets/Sheet.dcl | 2 | ||||
| -rw-r--r-- | src/Gtk/Widgets/Sheet.icl | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Gtk/Widgets/Sheet.dcl b/src/Gtk/Widgets/Sheet.dcl index 0f365d2..5a4191d 100644 --- a/src/Gtk/Widgets/Sheet.dcl +++ b/src/Gtk/Widgets/Sheet.dcl @@ -22,7 +22,7 @@ from Gtk.Widgets import import Gtk.Widgets.Sheet.Signal -:: GtkSheet =: GtkSheet Pointer +:: GtkSheet (=: GtkSheet Pointer) instance gtkWidget GtkSheet instance gtkContainer GtkSheet 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 |