From 5b96750c3c4252d29bb5524c6a1c0e2b1065e369 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 23 Oct 2019 10:21:42 +0200
Subject: Add rudimentary shares system

---
 src/Gtk/State.icl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/src/Gtk/State.icl b/src/Gtk/State.icl
index 405b8b4..0d1726e 100644
--- a/src/Gtk/State.icl
+++ b/src/Gtk/State.icl
@@ -9,8 +9,8 @@ from Data.Map import :: Map
 import Data.Maybe
 import Data.Tuple
 
+import Gtk
 import Gtk.Internal
-import Gtk.Signal
 
 newGtkState :: GtkState
 newGtkState =
@@ -18,6 +18,7 @@ newGtkState =
 	, return          = False
 	, signal_handlers = 'Data.Map'.newMap
 	, signal_counter  = 0
+	, shares          = 'Data.Map'.newMap
 	}
 
 instance Functor GtkM where fmap f (GtkM m) = GtkM (first f o m)
-- 
cgit v1.2.3