From 4aa8bcfe74dce6199a623871194f27e169d06bfa Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 30 Oct 2019 21:14:11 +0100
Subject: Add support for delete-event signal

---
 src/Gtk/Signal.icl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Gtk/Signal.icl')

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
-- 
cgit v1.2.3