diff options
| author | Camil Staps | 2019-10-23 10:21:42 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-23 10:21:42 +0200 |
| commit | 5b96750c3c4252d29bb5524c6a1c0e2b1065e369 (patch) | |
| tree | cc749f5ce6fddb51c55735926e16a2db8a998d39 /src/Gtk/State.dcl | |
| parent | Add tune instance for signal handlers (diff) | |
Add rudimentary shares system
Diffstat (limited to 'src/Gtk/State.dcl')
| -rw-r--r-- | src/Gtk/State.dcl | 2 |
1 files changed, 2 insertions, 0 deletions
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)) |