anchor.diff:      destructor Destroy; override;
       procedure Resize(X,Y:word);
       procedure ShowHouseInfo(Sender:TKMHouse; aAskDemolish:boolean=false);
  -    procedure ShowUnitInfo(Sender:TKMUnit);
  +    procedure ShowUnitInfo(Sender:TKMUnit; aAskDismiss:boolean=false);
       procedure MessageIssue(MsgTyp:TKMMessageType; Text:string; Loc:TKMPoint);
       procedure MenuIconsEnabled(NewValue:boolean);
       procedure UpdateMapSize(X,Y:integer);
  -    procedure ShowClock(aSpeed: Word);
  +    procedure ShowClock(aSpeed: Word);
       procedure ShowPlayMore(DoShow:boolean; Msg:TGameResultMsg);
       procedure ShowMPPlayMore(Msg:TGameResultMsg);
       procedure ShowNetworkLag(DoShow:boolean; aPlayers:TStringList; IsHost:boolean);
  
positive.code:   end;
  end;
  
  
  procedure TKMGamePlayInterface.Army_HideJoinMenu(Sender:TObject);
  begin
  
negative.code:   Woodcutters := TKMHouseWoodcutters(fPlayers.Selected);
    if Sender = Button_Woodcutter then
      Radio_Woodcutter.ItemIndex := (Radio_Woodcutter.ItemIndex+1) mod 2; //Cycle
  
    if (Sender = Button_Woodcutter) or (Sender = Radio_Woodcutter) then
    begin
      if Radio_Woodcutter.ItemIndex = 0 then
  