diff options
| author | Camil Staps | 2019-10-27 10:09:25 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-27 10:09:25 +0100 |
| commit | ffb75903b1493cb050a86ed3e62a5c1c11943ef5 (patch) | |
| tree | d776f2d65de019c42c8b5d6593fffc164a91bcee /src/Gtk/Signal.icl | |
| parent | Add addTimeout for running a task on a certain interval (diff) | |
Add DeactivateHandler for GtkSheet
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 |