Fix left clicks in terminals

2023-05-03 16:45:39 +01:00
parent 1d5f982fcc
commit 727e5af2a6
7 changed files with 33 additions and 24 deletions
@@ -117,7 +117,9 @@ changeTweakParam mi i w = fromMaybe w $ do
               )

 scrollCommands :: Terminal -> [TerminalCommand]
-scrollCommands = (nullCommand :) . _tmScrollCommands
+scrollCommands tm 
+    | null $ _tmPartialCommand tm = (nullCommand :) $ _tmScrollCommands tm
+    | otherwise = [nullCommand]

 getArguments' :: TerminalCommand -> Terminal -> World -> [String]
 getArguments' tc tm = ("" :) . getArguments tc tm