Allow selection items to have a payload

2022-12-24 00:28:04 +00:00
parent 5356d21778
commit a97c5ec8ef
8 changed files with 65 additions and 92 deletions
@@ -60,9 +60,9 @@ data ScreenLayer
        , _scOffset :: Int
        , _scPositionedMenuOption :: PositionedMenuOption
        , _scOptionFlag :: OptionScreenFlag
-        , _scSelectionList :: SelectionList
+        , _scSelectionList :: SelectionList (Universe -> Universe)
        , _scAvailableLines :: Int
-        , _scShownItems :: [(SelectionItem,SelectionItemIndex)]
+--        , _scShownItems :: [(SelectionItem,SelectionItemIndex)]
        , _scListDisplayParams :: ListDisplayParams
        }
    | ColumnsScreen