anchor.diff:                  match Address.getNames address with
                   | [_; _; _] ->
                       let entity = Entity address
  -                    selectEntity form entity world
  +                    selectEntity entity form world
                       world
                   | _ -> world // don't have an entity address
               else world
  
positive.code:             else deselectEntity form world
          | _ -> ()
  
      let private selectLayer (form : GaiaForm) layer world =
          let layerTds = { DescribedLayer = layer; Form = form }
          Globals.WorldRef := world // must be set for property grid
          form.layerPropertyGrid.SelectedObject <- layerTds
  
negative.code:                     else node.Collapse ())
              treeState
  
      let private addEntityTreeViewNode (entity : Entity) (form : GaiaForm) world =
          let entityGroupName = getTypeName (entity.GetDispatcher world)
          let treeGroup = form.entityTreeView.Nodes.[entityGroupName]
          let treeGroupNodeName = scstring entity.EntityAddress
  