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.icl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index 7fda320..e485364 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -18,7 +18,11 @@ import Gtk.Types
 :: GtkWidget :== Pointer
 
 instance gtkWidget GtkWidget where gtkWidget w = w
-instance ptr GtkWidget where ptr w = w
+
+instance ptr GtkWidget
+where
+	toPtr   w = w
+	fromPtr w = w
 
 addCSSClass :: !GtkCSSClass !w -> GtkM () | gtkWidget w
 addCSSClass (Class cls) widget =
-- 
cgit v1.2.3