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 543c7a2..be019b5 100644 --- a/src/Gtk/Signal.icl +++ b/src/Gtk/Signal.icl @@ -49,7 +49,7 @@ 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} -> - let (GtkWidget w) = gtkWidget widget in + let w = toPtr widget in toState (g_signal_connect w (signalName handler) (callback handler_internal) id) >>| pure widget where |