From 62b3a66aeb48d8cc11f3180d1599009d71e8c483 Mon Sep 17 00:00:00 2001
From: barbeque-squared <barbeque.squared@gmail.com>
Date: Mon, 7 Oct 2024 19:38:01 +0200
Subject: [PATCH] allow to set player names in party->tournament again

---
 src/screens/UScreenPartyTournamentPlayer.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/screens/UScreenPartyTournamentPlayer.pas b/src/screens/UScreenPartyTournamentPlayer.pas
index 4c4c21833..b2a478169 100644
--- a/src/screens/UScreenPartyTournamentPlayer.pas
+++ b/src/screens/UScreenPartyTournamentPlayer.pas
@@ -179,6 +179,7 @@ function TScreenPartyTournamentPlayer.ParseInput(PressedKey: cardinal; CharCode:
     until ((Interactions[Interaction].Typ = iSelectS) and
       SelectsS[Interactions[Interaction].Num].Visible) or
       (Button[Interactions[Interaction].Num].Visible);
+    SetTextInput(Interactions[Interaction].Typ = iButton);
   end;
   procedure IntPrev;
   begin
@@ -187,6 +188,7 @@ function TScreenPartyTournamentPlayer.ParseInput(PressedKey: cardinal; CharCode:
     until ((Interactions[Interaction].Typ = iSelectS) and
       SelectsS[Interactions[Interaction].Num].Visible) or
       (Button[Interactions[Interaction].Num].Visible);
+    SetTextInput(Interactions[Interaction].Typ = iButton);
   end;
 begin
   Result := true;