summaryrefslogtreecommitdiff
path: root/src/Gtk/State.icl
diff options
context:
space:
mode:
authorCamil Staps2019-10-23 10:21:42 +0200
committerCamil Staps2019-10-23 10:21:42 +0200
commit5b96750c3c4252d29bb5524c6a1c0e2b1065e369 (patch)
treecc749f5ce6fddb51c55735926e16a2db8a998d39 /src/Gtk/State.icl
parentAdd tune instance for signal handlers (diff)
Add rudimentary shares system
Diffstat (limited to 'src/Gtk/State.icl')
-rw-r--r--src/Gtk/State.icl3
1 files changed, 2 insertions, 1 deletions
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)