anchor.diff:  end;
   
   
  +procedure TKMMapEdHouse.House_RefreshRepair;
  +begin
  +  Button_HouseRepair.TexID := IfThen(fHouse.BuildingRepair, 39, 40);
  +  Button_HouseRepair.Show;
  +end;
  +
  +
   procedure TKMMapEdHouse.House_RefreshCommon;
   var
     HouseDat: TKMHouseSpec;
  
positive.code: procedure TKMMapEdHouse.House_RepairToggle(Sender: TObject);
  begin
    fHouse.BuildingRepair := not fHouse.BuildingRepair;
    House_RefreshCommon;
  end;
  
  
  
negative.code:     procedure House_ClosedForWorkerToggle(Sender: TObject);
      procedure HandleHouseClosedForWorker(aHouse: TKMHouse);
  
      procedure House_RefreshRepair;
      procedure House_RefreshCommon;
      procedure BarracksRefresh;
      procedure TownHallRefresh;
  