Implement floating camera

2023-03-26 16:44:19 +01:00
parent 082ce9c9a1
commit 73e742e1a2
12 changed files with 86 additions and 38 deletions
@@ -60,12 +60,12 @@ mouseClickOptionsList :: ScreenLayer -> Universe -> Universe
 mouseClickOptionsList screen u = fromMaybe u $ do
    sl <- screen ^? scSelectionList
    Just $ case u ^. uvWorld . input . mouseButtons . at ButtonLeft of
-        Just False -> fromMaybe u $ do
+        Just 1 -> fromMaybe u $ do
            i <- sl ^. slSelPos
            f <- sl ^? slItems . ix i . siPayload . _1
            return $ f u
        _ -> case u ^. uvWorld . input . mouseButtons . at ButtonRight of
-            Just False -> fromMaybe u $ do
+            Just 1 -> fromMaybe u $ do
                i <- sl ^. slSelPos
                f <- sl ^? slItems . ix i . siPayload . _2
                return $ f u