Make displayed terminal text screen dragable

2026-04-05 23:45:38 +01:00
parent 017e92470e
commit ed28af8d11
11 changed files with 300 additions and 262 deletions
@@ -373,11 +373,9 @@ drawTerminalDisplay w cfig tid = fold $ do
            TerminalTextInput s -> (++ [(getPromptTM ++ s ++ [cFilledRect], white)])
            TerminalPressTo s -> (++ [(s, white)])
    return $
-        drawSelectionList terminalLDP cfig f
+        drawSelectionList (w ^. tmLDP) cfig f
            <> drawTerminalCursorLink w cfig tm
  where
-    --        <> tm ^. tmButtonID
-
    --        <> invHead cfig ("TERMINAL-" ++ show tid)
    --        <> color
    --            (withAlpha 0.5 green) -- consider integrating termScreenColor somehow