From 08a45b115058577b0f370dabb797fe5fcdf4617a Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 21 Oct 2019 08:58:32 +0200
Subject: Add fromPtr function; rename ptr to toPtr (to be able to implement
 "extra" widgets in external modules)

---
 src/Gtk/Widgets.dcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Gtk/Widgets.dcl')

diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl
index d7df700..def39c9 100644
--- a/src/Gtk/Widgets.dcl
+++ b/src/Gtk/Widgets.dcl
@@ -10,7 +10,10 @@ from Gtk.Types import :: GtkCSSClass, :: GtkDirection, :: GtkExpand,
 	:: GtkLabel, :: GtkMargins, :: GtkOrientation, :: GtkPanedHandleWidth,
 	:: GtkResize, :: GtkShrink, :: GtkStylePriority
 
-class ptr a :: !a -> Pointer
+class ptr a
+where
+	toPtr   :: !a -> Pointer
+	fromPtr :: !Pointer -> a
 
 :: GtkWidget
 
-- 
cgit v1.2.3