diff options
| author | Camil Staps | 2019-10-21 08:58:32 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-21 08:58:32 +0200 |
| commit | 08a45b115058577b0f370dabb797fe5fcdf4617a (patch) | |
| tree | 466b00e928c047aa5fe8771ff7d9d356c7eccd79 /src/Gtk/Signal.icl | |
| parent | Add CSS support (diff) | |
Add fromPtr function; rename ptr to toPtr (to be able to implement "extra" widgets in external modules)
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) |