finished storing ui widgets into a HashMap and referencing them by UIId.

Additionally, widgets functions now use the Pioneers monad.
Branch is compiling again and works.
This commit is contained in:
tpajenka
2014-04-26 19:16:53 +02:00
parent 6879201c53
commit 2d80c92384
6 changed files with 166 additions and 73 deletions

View File

@ -103,6 +103,7 @@ main =
far = 500 --far plane
ratio = fromIntegral fbWidth / fromIntegral fbHeight
frust = createFrustum fov near far ratio
(guiMap, guiRoots) = createGUI
aks = ArrowKeyState {
_up = False
, _down = False
@ -174,6 +175,8 @@ main =
}
, _ui = UIState
{ _uiHasChanged = True
, _uiMap = guiMap
, _uiRoots = guiRoots
}
}