diff options
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) |