revising preliminary inflexible button handling callback

2014-05-14 13:19:00 +02:00
parent 5f29ce7610
commit 45fe3f8493
5 changed files with 82 additions and 19 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -44,6 +44,7 @@ import           Render.Types
 import           UI.Callbacks
 import           Map.Graphics
 import           Types
+import qualified UI.UIBase as UI
 import           Importer.IQM.Parser
 --import           Data.Attoparsec.Char8 (parseTest)
 --import qualified Data.ByteString as B
@ -161,6 +162,7 @@ main =
                        { _uiHasChanged        = True
                        , _uiMap = guiMap
                        , _uiRoots = guiRoots
+                        , _uiButtonState = UI.UIButtonState 0 Nothing
                        }
              }