anchor.diff:  procedure TKMapEdInterface.View_Passability(Sender: TObject);
   begin
     SHOW_TERRAIN_WIRES := (TKMTrackBar(Sender).Position <> 0);
  -  fShowPassability := TKMTrackBar(Sender).Position;
  +  SHOW_TERRAIN_PASS := TKMTrackBar(Sender).Position;
  +
     if TKMTrackBar(Sender).Position <> 0 then
  -    Label_Passability.Caption := GetEnumName(TypeInfo(TPassability), TKMTrackBar(Sender).Position)
  +    Label_Passability.Caption := GetEnumName(TypeInfo(TPassability), SHOW_TERRAIN_PASS)
     else
       Label_Passability.Caption := 'Off';
   end;
  
positive.code: type
    TKMapEdInterface = class (TKMUserInterface)
    private
      fShowPassability:byte;
      PrevHint:TObject;
      StorehouseItem:byte; //Selected ware in storehouse
      BarracksItem:byte; //Selected ware in barracks
  
negative.code:     procedure Player_UpdateColors;
      procedure ShowHouseInfo(Sender:TKMHouse);
      procedure ShowUnitInfo(Sender:TKMUnit);
      procedure SetMinimap;
      procedure SetMapName(const aName:string);
      procedure RightClick_Cancel;
  