Correctly update root status of item in _ilIsRoot

2024-11-05 18:25:30 +00:00
parent 38ab6a35da
commit 9b3518e4eb
16 changed files with 40 additions and 25 deletions
@@ -25,7 +25,7 @@ yourSelectedItem w = do

 yourRootItem :: World -> Maybe Item
 yourRootItem w = do
-    i <- you w ^? crManipulation . manObject . imRootItem
+    i <- you w ^? crManipulation . manObject . imRootSelectedItem
    _crInv (you w) IM.!? i

 --yourScrollAttachment :: World -> Maybe (Int,ScrollAttachParams)