diff options
| author | Camil Staps | 2019-11-08 14:59:13 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-11-08 16:06:43 +0100 |
| commit | 8ed51dca15aca92313350a18107536aeb1d2dd51 (patch) | |
| tree | 7a4ebaecac2e52fb70b11116463d90af6ce976fe /src/Gtk/Signal.icl | |
| parent | Cleanup and add documentation (diff) | |
Use abstract newtypes to hide pointers
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 |