From c0b119e20d4874bd330c9cd9d352fd2666f19191 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 20 Oct 2019 10:02:46 +0200
Subject: Add rudimentary support for GtkPaned and GtkTextView

---
 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 4bc14b5..d98a14d 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 (gtkPtr widget) signal_name id
+		GSHI_Void _ -> 'I'.g_signal_connect_void (ptr (gtkWidget widget)) signal_name id
 where
 	(signal_name,handler_internal) = case handler of
 		DestroyHandler f -> ("destroy",GSHI_Void f)
-- 
cgit v1.2.3