diff options
| author | Camil Staps | 2019-10-20 10:02:46 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-20 10:02:46 +0200 |
| commit | c0b119e20d4874bd330c9cd9d352fd2666f19191 (patch) | |
| tree | b4122ed9e831a2f6916626a61dd60f6dae9570c4 /src/Gtk/Signal.icl | |
| parent | Initial commit (diff) | |
Add rudimentary support for GtkPaned and GtkTextView
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 4bc14b5..d98a14d 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 (gtkPtr widget) signal_name id + GSHI_Void _ -> 'I'.g_signal_connect_void (ptr (gtkWidget widget)) signal_name id where (signal_name,handler_internal) = case handler of DestroyHandler f -> ("destroy",GSHI_Void f) |