diff options
Diffstat (limited to 'src/Gtk/Signal.icl')
| -rw-r--r-- | src/Gtk/Signal.icl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl index ca19afd..26fcc7f 100644 --- a/src/Gtk/Signal.icl +++ b/src/Gtk/Signal.icl @@ -32,12 +32,8 @@ installSignalHandler handler widget = & signal_handlers = 'Data.Map'.put (st.signal_counter+1) handler_internal st.signal_handlers , signal_counter = st.signal_counter+1 }) >>= \{signal_counter=id} -> - toState - (g_signal_connect - (type handler_internal) - (toPtr (gtkWidget widget)) - (signalName handler) - id) >>| + let (GtkWidget w) = gtkWidget widget in + toState (g_signal_connect (type handler_internal) w (signalName handler) id) >>| pure widget where type handler = case handler of |