summaryrefslogtreecommitdiff
path: root/src/Gtk/Signal.icl
diff options
context:
space:
mode:
Diffstat (limited to 'src/Gtk/Signal.icl')
-rw-r--r--src/Gtk/Signal.icl2
1 files changed, 2 insertions, 0 deletions
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