From 8672acbbb52494178cabffd778edf8397fe01484 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 21 Oct 2019 11:14:10 +0200
Subject: Add ActivateHandler for GtkMenuItem

---
 src/Gtk/Signal.dcl | 7 ++++---
 src/Gtk/Signal.icl | 3 ++-
 2 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Gtk/Signal.dcl b/src/Gtk/Signal.dcl
index 2260ebe..acec991 100644
--- a/src/Gtk/Signal.dcl
+++ b/src/Gtk/Signal.dcl
@@ -1,12 +1,13 @@
 definition module Gtk.Signal
 
-from Gtk.State import :: State, :: StateT, :: Identity, :: GtkState
+from Gtk.State import :: State, :: StateT, :: Identity, :: GtkState, :: GtkM
 from Gtk.Widgets import class gtkWidget
 
-:: GSignalHandlerFunction :== State GtkState ()
+:: GSignalHandlerFunction :== GtkM ()
 
 :: GSignalHandler
-	= DestroyHandler !GSignalHandlerFunction
+	= DestroyHandler  !GSignalHandlerFunction
+	| ActivateHandler !GSignalHandlerFunction
 
 :: GSignalHandlerInternal
 	= GSHI_Void !GSignalHandlerFunction
diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl
index 2fb8df5..9ca4b22 100644
--- a/src/Gtk/Signal.icl
+++ b/src/Gtk/Signal.icl
@@ -24,4 +24,5 @@ installSignalHandler handler widget =
 	pure widget
 where
 	(signal_name,handler_internal) = case handler of
-		DestroyHandler f -> ("destroy",GSHI_Void f)
+		DestroyHandler f  -> ("destroy", GSHI_Void f)
+		ActivateHandler f -> ("activate",GSHI_Void f)
-- 
cgit v1.2.3