Distinguish between selected item and root-selected item

src/Dodge/Data/Item.hs

@@ -35,7 +35,8 @@ data Item = Item
     , _itType :: ItemType
     , _itID :: Int
     , _itLocation :: ItemLocation
-    , _itIsHeld :: Bool
+    , _itIsRoot :: Bool
+    , _itIsSelected :: Bool
     , _itEffect :: ItEffect
     , _itInvSize :: Float
     , _itDimension :: ItemDimension

src/Dodge/Data/Item/HeldUse.hs

@@ -23,8 +23,8 @@ data Huse
     | HeldDetectorEffect Detector
 --    | HeldTeslaArc
 --    | HeldLaser
-    | HeldCircleLaser
-    | HeldDualLaser
+--    | HeldCircleLaser
+--    | HeldDualLaser
     | HeldTractor
     | HeldForceField
     | HeldShatter

src/Dodge/Data/Item/Use/Consumption/LoadAction.hs

@@ -30,7 +30,7 @@ data NearbyManipulation
 
 data InventoryManipulation
     = SortInventory
-    | SelItem { _ispItem :: Int, _iselAction :: InvSelAction}
+    | SelectedItem { _imSelectedItem :: Int, _imRootItem :: Int}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data InvSelAction