More work on menus

2022-12-24 11:15:00 +00:00
parent a97c5ec8ef
commit acb085e3b4
3 changed files with 30 additions and 18 deletions
@@ -7,6 +7,7 @@ Description : Simulation update
 module Dodge.Update (updateUniverse) where

 --import Dodge.Menu.Option
+import Dodge.Menu.Option
 import Dodge.SelectionList
 import Dodge.Data.SelectionList
 import Dodge.InputFocus
@@ -141,7 +142,8 @@ optionScreenUpdate :: ScreenLayer -> [MenuOption] -> PositionedMenuOption -> Opt
    -> SelectionList (Universe -> Universe)
    -> Universe -> Universe
 optionScreenUpdate screen mos mop _ ldps sl u = 
-     optionScreenDefEff mop
+    refreshOptionsSelectionList
+    . optionScreenDefEff mop
    . mouseClickOptionsList mos screen
    . mouseOverSelectionList ldps sl
    . menuWheelEvents