Simplify timeouts (remove C code; use pushLc ABC instruction instead)

1 files changed, 6 insertions, 6 deletions

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index 987ae85..c76f01a 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -26,14 +26,14 @@ where
 		ccall clean_g_signal_connect "IpsI:V:A"
 	}
 
-g_timeout_add :: !Int !Int !.a -> .a
-g_timeout_add interval id env = code {
-	ccall clean_g_timeout_add "II:V:A"
+g_timeout_add :: !Int !Pointer !Int !.a -> .a
+g_timeout_add interval address id env = code {
+	ccall g_timeout_add "IpI:V:A"
 }
 
-g_timeout_add_seconds :: !Int !Int !.a -> .a
-g_timeout_add_seconds interval id env = code {
-	ccall clean_g_timeout_add_seconds "II:V:A"
+g_timeout_add_seconds :: !Int !Pointer !Int !.a -> .a
+g_timeout_add_seconds interval address id env = code {
+	ccall g_timeout_add_seconds "IpI:V:A"
 }
 
 gtk_accel_group_new :: !.a -> (!Pointer, !.a)