From df8cfa2edd72585ac2f002ea11e8736849759ca5 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 23 Oct 2019 09:25:57 +0200
Subject: Add tune instance for signal handlers

---
 src/Gtk/Signal.icl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Gtk/Signal.icl')

diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl
index e51614c..040d6f7 100644
--- a/src/Gtk/Signal.icl
+++ b/src/Gtk/Signal.icl
@@ -36,6 +36,10 @@ installSignalHandler handler widget =
 			-> g_signal_connect 2 (toPtr (gtkWidget widget)) (signalName handler) id) >>|
 	pure widget
 
+instance tune w SignalHandler | gtkWidget w
+where
+	tune (SignalHandler 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
-- 
cgit v1.2.3