diff options
Diffstat (limited to 'src/Gtk/Signal.icl')
| -rw-r--r-- | src/Gtk/Signal.icl | 2 |
1 files changed, 1 insertions, 1 deletions
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) |