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/Signal.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl
index d98a14d..699ee98 100644
--- a/src/Gtk/Signal.icl
+++ b/src/Gtk/Signal.icl
@@ -20,7 +20,7 @@ installSignalHandler widget handler =
 		}) >>|
 	gets (\st -> st.signal_counter) >>= \id ->
 	toState case handler_internal of
-		GSHI_Void _ -> 'I'.g_signal_connect_void (ptr (gtkWidget widget)) signal_name id
+		GSHI_Void _ -> 'I'.g_signal_connect_void (toPtr (gtkWidget widget)) signal_name id
 where
 	(signal_name,handler_internal) = case handler of
 		DestroyHandler f -> ("destroy",GSHI_Void f)
-- 
cgit v1.2.3