diff options
| author | Camil Staps | 2019-10-21 11:14:10 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-21 11:14:10 +0200 |
| commit | 8672acbbb52494178cabffd778edf8397fe01484 (patch) | |
| tree | b764c46e47588fa53be96288238f1443be761c02 /src/Gtk | |
| parent | Reorder more combinator arguments to ease binding (diff) | |
Add ActivateHandler for GtkMenuItem
Diffstat (limited to 'src/Gtk')
| -rw-r--r-- | src/Gtk/Signal.dcl | 7 | ||||
| -rw-r--r-- | src/Gtk/Signal.icl | 3 |
2 files changed, 6 insertions, 4 deletions
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) |