Make displayed terminal text screen dragable

src/Dodge/Data/Input.hs

@@ -25,13 +25,14 @@ data MouseContext
     | OverCombFilter
     | OverCombEscape
     | OverTerminal {_mcoTermID :: Int, _mcoTermStatus :: TerminalStatus}
+    | OverTerminalBar {_mcoBarOffset :: Point2}
     | OutsideTerminal
     | MouseGameRotate {_mcoRotateDist :: Float}  -- TODO warp mouse to this distance
     | OverDebug {_mcoDBBool :: DebugBool, _mcoDBInt :: Int}
     deriving (Show)
 
 data Input = Input
-    { _mousePos :: Point2 -- in pixels, from the center of the screen
+    { _mousePos :: Point2 -- in pixels, from the center of the screen, +ve up and right (I believe)
     , _mouseContext :: MouseContext
     , _mouseMoving :: Bool
     , _pressedKeys :: M.Map Scancode Int

src/Dodge/Data/World.hs

@@ -10,6 +10,7 @@ module Dodge.Data.World (
     module Dodge.Data.Input,
 ) where
 
+import Dodge.Data.SelectionList
 import Color.Data
 import qualified Data.IntMap.Strict as IM
 import NewInt
@@ -58,6 +59,7 @@ data World = World
     , _wCam :: Camera
     , _unpauseClock :: Int
     , _coordinates :: IM.IntMap Point2 -- temporary coordinates for world generation/placement
+    , _tmLDP :: LDParams
     }
 
 data TimeFlowStatus