Count mouse button press time up from 0

2023-04-27 11:39:42 +01:00
parent 9972e0fdea
commit 5b1212e4f6
6 changed files with 10 additions and 10 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 1 -> fromMaybe u $ do
+        Just 0 -> 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 1 -> fromMaybe u $ do
+            Just 0 -> fromMaybe u $ do
                i <- sl ^. slSelPos
                f <- sl ^? slItems . ix i . siPayload . _2
                return $ f u