diff options
| author | Camil Staps | 2019-10-30 21:14:11 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-30 21:14:11 +0100 |
| commit | 4aa8bcfe74dce6199a623871194f27e169d06bfa (patch) | |
| tree | 427299988cd5a68efa03ecde19c7482d4116b57e | |
| parent | Add getEntry for GtkSheet (diff) | |
Add support for delete-event signal
| -rw-r--r-- | src/Gtk/Signal.dcl | 1 | ||||
| -rw-r--r-- | src/Gtk/Signal.icl | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/Gtk/Signal.dcl b/src/Gtk/Signal.dcl index 6bb60d8..7830886 100644 --- a/src/Gtk/Signal.dcl +++ b/src/Gtk/Signal.dcl @@ -19,6 +19,7 @@ where = ActivateHandler !(GtkM ()) | ChangedHandler !(GtkM ()) | ClickedHandler !(GtkM ()) + | DeleteEventHandler !(GdkEvent -> GtkM GtkPropagate) | DestroyHandler !(GtkM ()) | KeyPressHandler !(GdkEvent -> GtkM GtkPropagate) | NextMatchHandler !(GtkM ()) diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl index cb13551..94d6ecd 100644 --- a/src/Gtk/Signal.icl +++ b/src/Gtk/Signal.icl @@ -19,6 +19,7 @@ where ActivateHandler _ -> "activate" ChangedHandler _ -> "changed" ClickedHandler _ -> "clicked" + DeleteEventHandler _ -> "delete-event" DestroyHandler _ -> "destroy" KeyPressHandler _ -> "key-press-event" NextMatchHandler _ -> "next-match" @@ -29,6 +30,7 @@ where ActivateHandler f -> SHI_Void f ChangedHandler f -> SHI_Void f ClickedHandler f -> SHI_Void f + DeleteEventHandler f -> SHI_Pointer_Bool \ev -> toBool <$> f (GdkEvent ev) DestroyHandler f -> SHI_Void f KeyPressHandler f -> SHI_Pointer_Bool \ev -> toBool <$> f (GdkEvent ev) NextMatchHandler f -> SHI_Void f |