From 8ed51dca15aca92313350a18107536aeb1d2dd51 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 8 Nov 2019 14:59:13 +0100
Subject: Use abstract newtypes to hide pointers

---
 src/Gtk/Widgets/Sheet.icl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Gtk/Widgets/Sheet.icl')

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
-- 
cgit v1.2.3