diff options
Diffstat (limited to 'src/Gtk/Signal.icl')
| -rw-r--r-- | src/Gtk/Signal.icl | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl index 26fcc7f..e97f2ab 100644 --- a/src/Gtk/Signal.icl +++ b/src/Gtk/Signal.icl @@ -14,15 +14,23 @@ import Gtk.Internal instance signalHandler GSignalHandler where signalName h = case h of - ActivateHandler _ -> "activate" - ChangedHandler _ -> "changed" - ClickedHandler _ -> "clicked" - DestroyHandler _ -> "destroy" + ActivateHandler _ -> "activate" + ChangedHandler _ -> "changed" + ClickedHandler _ -> "clicked" + DestroyHandler _ -> "destroy" + NextMatchHandler _ -> "next-match" + PreviousMatchHandler _ -> "previous-match" + SearchChangedHandler _ -> "search-changed" + StopSearchHandler _ -> "stop-search" signalHandler h = case h of - ActivateHandler f -> SHI_Void f - ChangedHandler f -> SHI_Void f - ClickedHandler f -> SHI_Void f - DestroyHandler f -> SHI_Void f + ActivateHandler f -> SHI_Void f + ChangedHandler f -> SHI_Void f + ClickedHandler f -> SHI_Void f + DestroyHandler f -> SHI_Void f + NextMatchHandler f -> SHI_Void f + PreviousMatchHandler f -> SHI_Void f + SearchChangedHandler f -> SHI_Void f + StopSearchHandler f -> SHI_Void f installSignalHandler :: !h !w -> GtkM w | signalHandler h & gtkWidget w installSignalHandler handler widget = |