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.dcl | 1 +
 src/Gtk/Signal.icl | 2 ++
 2 files changed, 3 insertions(+)

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