justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Improve rotate drag mouse context

Browse Source
This commit is contained in:
justin
2025-06-01 10:06:51 +01:00
parent 59e1207b46
commit 61e85ffd5c
2 changed files with 2 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
-12
View File
@@ -38,18 +38,6 @@ testStringInit u = [show $ u ^. uvWorld . unpauseClock]
-- let itms = IM.elems $ cr ^. crInv
-- return $ map (show . (^? itLocation . ilIsSelected)) itms
--return . foldMap (prettyLDT (show . (^. _1 . itType))) . invLDT $ _crInv cr
-- [ show $ u ^? uvWorld . input . mouseContext . mcoSelEnd
-- , show $ u ^? uvWorld . hud . hudElement . diSelection
-- , show $ u ^? uvWorld . input . mouseContext
-- , show $ u ^? uvWorld . input . mouseContext . mcoDragSection
-- , show $ u ^? uvWorld . input . mouseContext . mcoMaybeSelect
-- , show $ u ^? uvWorld . input . mouseContext . mcoAboveSelect
-- , show $ u ^? uvWorld . input . mouseContext . mcoBelowSelect
-- , show mpos
-- , show yint
-- , show $ u ^? uvWorld . hud . hudElement . diSections >>= inverseSelSecYint yint
-- ]
-- where
-- idp = invDisplayParams $ u ^. uvWorld
-- cfig = u ^. uvConfig