From 79915057437b92095ed44667c269c8650a77a298 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Wed, 30 Oct 2019 13:21:06 +0100 Subject: Add GdkEvent and KeyPressHandler --- src/Gtk/Internal.icl | 8 -------- 1 file changed, 8 deletions(-) (limited to 'src/Gtk/Internal.icl') diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index eeffe6b..e9b7a27 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -36,14 +36,6 @@ g_timeout_add_seconds interval id env = code { ccall clean_g_timeout_add_seconds "II:V:A" } -gdk_keyval_from_name :: !String -> Int -gdk_keyval_from_name name = get (packString name) -where - get :: !String -> Int - get _ = code { - ccall gdk_keyval_from_name "s:I" - } - gtk_accel_group_new :: !.a -> (!Pointer, !.a) gtk_accel_group_new env = code { ccall gtk_accel_group_new ":p:A" -- cgit v1.2.3