diff options
| author | Camil Staps | 2019-11-08 14:59:13 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-11-08 16:06:43 +0100 |
| commit | 8ed51dca15aca92313350a18107536aeb1d2dd51 (patch) | |
| tree | 7a4ebaecac2e52fb70b11116463d90af6ce976fe /src/Gtk/Widgets | |
| parent | Cleanup and add documentation (diff) | |
Use abstract newtypes to hide pointers
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 |