Commit before messing with main inventory display

2023-01-24 11:54:59 +00:00
parent 5810c2262a
commit ce25157738
13 changed files with 74 additions and 55 deletions
@@ -1,6 +1,6 @@
 module Dodge.Default.World where

--import Dodge.Data.SelectionList
+import Dodge.Data.SelectionList
 import Data.Graph.Inductive.Graph hiding ((&))
 import qualified Data.Map as M
 import Dodge.Data.World
@@ -142,10 +142,17 @@ defaultLWorld =
        , _lClock = 0
        }

+defaultDisplaySections :: SelectionSections a
+defaultDisplaySections = SelectionSections
+    { _sssSections = mempty
+    , _sssSelPos = Just 0
+    , _sssMaxSize = 20
+    }
+
 defaultHUD :: HUD
 defaultHUD =
    HUD
-        { _hudElement = DisplayInventory NoSubInventory
+        { _hudElement = DisplayInventory {_subInventory =NoSubInventory, _diSections = defaultDisplaySections}
        , _carteCenter = V2 0 0
        , _carteZoom = 0.5
        , _carteRot = 0