anchor.diff:      procedure ChatMenuShow(Sender: TObject);
   
       procedure PlayerMenuClick(Sender: TObject);
  -    function DoShowPlayerMenu(Sender: TObject): Boolean;
  +    function CanShowPlayerMenu(Sender: TObject): Boolean;
       procedure PlayerMenuShow(Sender: TObject);
   
       procedure PlayersSetupChange(Sender: TObject);
  
positive.code:   end;
  
    for I := 1 to MAX_LOBBY_SLOTS do
      Image_LobbyFlag[I].HighlightOnMouseOver := DoShowPlayerMenu(Image_LobbyFlag[I]);
  
    //Update the minimap preivew with player colors
    for I := 0 to MAX_HANDS - 1 do
  
negative.code: end;
  
  
  function TKMMenuLobby.CanShowPlayerMenu(Sender: TObject): Boolean;
  var
    ctrl: TKMControl;
  begin
  