diff options
Diffstat (limited to 'src/Gtk/Signal.icl')
| -rw-r--r-- | src/Gtk/Signal.icl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl index 64a244e..56126f8 100644 --- a/src/Gtk/Signal.icl +++ b/src/Gtk/Signal.icl @@ -38,8 +38,9 @@ installSignalHandler handler widget = where type handler = case handler of SHI_Void _ -> 1 - SHI_Pointer_Bool _ -> 2 - SHI_Int_Int_Pointer_Pointer_Bool _ -> 3 + SHI_Int_Int_Bool _ -> 2 + SHI_Pointer_Bool _ -> 3 + SHI_Int_Int_Pointer_Pointer_Bool _ -> 4 instance tune w SignalHandler | gtkWidget w where @@ -95,6 +96,8 @@ runSignalHandler :: !SignalHandlerInternal !{#Int} -> GtkM Int runSignalHandler handler args = case handler of SHI_Void f -> toInt <$> f + SHI_Int_Int_Bool f + -> toInt <$> f args.[0] args.[1] SHI_Pointer_Bool f -> toInt <$> f args.[0] SHI_Int_Int_Pointer_Pointer_Bool f |