diff options
Diffstat (limited to 'src/Gtk/Signal.icl')
| -rw-r--r-- | src/Gtk/Signal.icl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl index 56126f8..ca19afd 100644 --- a/src/Gtk/Signal.icl +++ b/src/Gtk/Signal.icl @@ -14,11 +14,15 @@ import Gtk.Internal instance signalHandler GSignalHandler where signalName h = case h of - DestroyHandler _ -> "destroy" ActivateHandler _ -> "activate" + ChangedHandler _ -> "changed" + ClickedHandler _ -> "clicked" + DestroyHandler _ -> "destroy" signalHandler h = case h of - 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 installSignalHandler :: !h !w -> GtkM w | signalHandler h & gtkWidget w installSignalHandler handler widget = |