Make selection cursors use selection item width

2024-11-26 22:49:54 +00:00
parent f12c390778
commit 2b969f6530
9 changed files with 128 additions and 126 deletions
@@ -25,10 +25,7 @@ import qualified IntMapHelp as IM

 testStringInit :: Universe -> [String]
 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
+    [show $ u ^? uvWorld . hud . hudElement . diSections . ix (-1) . ssItems . ix 0 . siWidth
    ]
 --  fromMaybe mempty $ do
 --        cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0