Make dragging items instantaneous (up to 30 items away, at least)

2024-11-26 21:18:28 +00:00
parent d4c50ede65
commit 199cd73fa9
3 changed files with 115 additions and 65 deletions
@@ -24,8 +24,12 @@ import Dodge.Data.Universe
 import qualified IntMapHelp as IM

 testStringInit :: Universe -> [String]
-testStringInit u = [show $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . 
-    crManipulation . manObject . imRootSelectedItem]
+testStringInit u = 
+    [show $ u ^? uvWorld . input . mouseContext . mcoDragSection
+    ,show $ u ^? uvWorld . input . mouseContext . mcoMaybeSelect
+    ,show $ u ^? uvWorld . input . mouseContext . mcoAboveSelect
+    ,show $ u ^? uvWorld . input . mouseContext . mcoBelowSelect
+    ]
 --  fromMaybe mempty $ do
 --        cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
 --        let itms = IM.elems $ cr ^. crInv