From 8e4c06ed5e4572d7e9c1655b1d3442d4467f2997 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 29 Oct 2019 19:39:13 +0100 Subject: Add GtkSearchEntry --- src/Gtk/Signal.icl | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) (limited to 'src/Gtk/Signal.icl') 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 = -- cgit v1.2.3