diff options
| author | Camil Staps | 2019-10-29 19:39:13 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-29 22:19:53 +0100 |
| commit | 8e4c06ed5e4572d7e9c1655b1d3442d4467f2997 (patch) | |
| tree | d1088d8536e7e55d2bca1c5a0a0d46a58ed105f7 /src/Gtk/Signal.icl | |
| parent | Add functions to set/check row visibility of GtkSheets (diff) | |
Add GtkSearchEntry
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 = |