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.dcl | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/src/Gtk/State.dcl b/src/Gtk/State.dcl
index 5c8d039..389ce71 100644
--- a/src/Gtk/State.dcl
+++ b/src/Gtk/State.dcl
@@ -7,6 +7,7 @@ from Control.Monad import class Monad
 from Data.Functor import class Functor
 from Data.Map import :: Map
 
+from Gtk.Shares import :: ShareId
 from Gtk.Signal import :: SignalHandlerInternal
 
 :: GtkState =
@@ -14,6 +15,7 @@ from Gtk.Signal import :: SignalHandlerInternal
 	, return          :: !Bool
 	, signal_handlers :: !Map Int SignalHandlerInternal
 	, signal_counter  :: !Int
+	, shares          :: !Map ShareId Dynamic
 	}
 
 :: GtkM a =: GtkM (GtkState -> (a, GtkState))
-- 
cgit v1.2.3