anchor.diff:  
   constructor TVCMIMap.CreateEmpty(env: TMapEnvironment);
   begin
  +  FTrackObjectChanges := false;
     FTerrainManager := env.tm;
     FListsManager := env.lm;
   
  
positive.code: 
  procedure TVCMIMap.FPOObservedChanged(ASender: TObject;
    Operation: TFPObservedOperation; Data: Pointer);
  begin
    FIsDirty := true;
  
    //case Operation of
    //  ooChange,ooAddItem,ooDeleteItem: FIsDirty := true ;
    //end;
  end;
  
  function TVCMIMap.GetCurrentLevelIndex: Integer;
  
negative.code:   AObserved.FPOAttachObserver(Self);
  end;
  
  constructor TVCMIMap.Create(env: TMapEnvironment; Params: TMapCreateParams);
  var
    lvl: TMapLevel;
  