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/Widgets/Sheet/Signal.icl | |
| parent | Add addTimeout for running a task on a certain interval (diff) | |
Add DeactivateHandler for GtkSheet
Diffstat (limited to 'src/Gtk/Widgets/Sheet/Signal.icl')
| -rw-r--r-- | src/Gtk/Widgets/Sheet/Signal.icl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Gtk/Widgets/Sheet/Signal.icl b/src/Gtk/Widgets/Sheet/Signal.icl index 6db3b6b..8cfa10f 100644 --- a/src/Gtk/Widgets/Sheet/Signal.icl +++ b/src/Gtk/Widgets/Sheet/Signal.icl @@ -12,9 +12,11 @@ import Gtk instance signalHandler GtkSheetSignalHandler where signalName handler = case handler of + DeactivateHandler _ -> "deactivate" EnterPressedHandler _ -> "enter-pressed" TraverseHandler _ -> "traverse" signalHandler handler = case handler of + DeactivateHandler f -> SHI_Int_Int_Bool f EnterPressedHandler f -> SHI_Pointer_Bool \_ -> not <$> f TraverseHandler f -> SHI_Int_Int_Pointer_Pointer_Bool \oldrow oldcol newrowp newcolp -> let newrow = readInt4S newrowp 0; newcol = readInt4S newcolp 0 in |