diff options
| -rw-r--r-- | src/Gtk/Signal.dcl | 1 | ||||
| -rw-r--r-- | src/Gtk/Signal.icl | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/Gtk/Signal.dcl b/src/Gtk/Signal.dcl index 571aeff..225cda2 100644 --- a/src/Gtk/Signal.dcl +++ b/src/Gtk/Signal.dcl @@ -27,6 +27,7 @@ instance signalHandler GSignalHandler installSignalHandler :: !h !w -> GtkM w | signalHandler h & gtkWidget w instance tune w SignalHandler | gtkWidget w +instance tune w GSignalHandler | gtkWidget w saveState :: GtkM () retrieveState :: GtkM GtkState diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl index 55aca6d..6780ae9 100644 --- a/src/Gtk/Signal.icl +++ b/src/Gtk/Signal.icl @@ -45,6 +45,10 @@ instance tune w SignalHandler | gtkWidget w where tune (SignalHandler handler) widget = installSignalHandler handler widget +instance tune w GSignalHandler | gtkWidget w +where + tune handler widget = installSignalHandler handler widget + // NB: low-level hacking to use and modify the GtkState from within callbacks. // We use a CAF to keep track of the state. In runGtk, the state is saved with // saveState. This state is retrieved with retrieveState there (to check |