ECE-472
/
CacheSim
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Properly display forward and back buttons.

This commit is contained in:
Danila Fedorin 2019-05-28 22:39:34 -07:00
parent 7cababbe67
commit 2f180bbf98
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/CacheSim/View.elm
View File

@ -133,11 +133,11 @@ viewAccessView m av =
currentCache = Maybe.withDefault [] m.hierarchy
in
div [ class "access-view" ]
[ buttonWrapper
[ viewCacheHierarchy <| effectiveCacheHierarchy currentCache av
, buttonWrapper
[ button "Forward" AccessViewForward
, button "Back" AccessViewBack
]
, viewCacheHierarchy <| effectiveCacheHierarchy currentCache av
]
viewAccessInput : Model -> Html Msg
@ -148,7 +148,7 @@ viewAccessInput m =
Just i -> optionalButton True "Access address" (Access i)
Nothing -> optionalButton False "Access address" (Access -1)
in
div []
div [ class "access-input" ]
[ labeledInput "Access address" m.accessInput ChangeAccessInput
, accessButton
]
@ -162,5 +162,6 @@ viewBase m =
rawView = viewRawCacheModelHierarchy m.rawHierarchy
cacheView = Maybe.withDefault [] <| Maybe.map (List.singleton << viewCacheHierarchy) <| m.hierarchy
accessView = Maybe.withDefault [] <| Maybe.map (List.singleton << viewAccessView m) <| m.accessView
accessInputView = [ viewAccessInput m ]
in
div [] <| [ rawView, viewAccessInput m] ++ cacheView ++ accessView
div [] <| [ rawView ] ++ cacheView ++ accessView ++ accessInputView