From 5165b27ba2a1bb2129788a2e1de310ee6a347e4d Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 21 Oct 2019 08:57:56 +0200
Subject: Add CSS support

---
 src/Gtk/Tune.icl | 7 +++++++
 1 file changed, 7 insertions(+)

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

diff --git a/src/Gtk/Tune.icl b/src/Gtk/Tune.icl
index 26a05f3..c5846af 100644
--- a/src/Gtk/Tune.icl
+++ b/src/Gtk/Tune.icl
@@ -13,3 +13,10 @@ where
 		widgetf >>= \widget ->
 		setMargins margins widget >>|
 		pure widget
+
+instance tune w GtkCSSClass | gtkWidget w
+where
+	tune widgetf cls =
+		widgetf >>= \widget ->
+		addCSSClass cls widget >>|
+		pure widget
-- 
cgit v1.2.3