Commit before moving button press events from events into your control

2022-06-29 12:12:45 +01:00
parent 5501d6f9b5
commit 4b8155ae16
8 changed files with 55 additions and 28 deletions
@@ -165,7 +165,7 @@ data World = World
    , _rewindWorlds         :: [World]
    , _timeFlow             :: TimeFlowStatus
    , _worldClock           :: Int
-    , _doubleMouseHammer    :: HammerPosition
+    , _hammers              :: M.Map WorldHammer HammerPosition
    , _backspaceTimer       :: Int
    , _genParams            :: GenParams
    , _genPlacements        :: IM.IntMap [(Placement,Int)]
@@ -174,6 +174,10 @@ data World = World
    , _testFloat            :: Float
    , _wSelect              :: (Point2,Point2)
    }
+data WorldHammer
+    = SubInvHam
+    | DoubleMouseHam
+  deriving (Eq,Ord,Show,Enum,Bounded)

 newtype GenParams = GenParams
    { _sensorCoding :: M.Map DamageType (PaletteColor,DecorationShape)