This is a continuation of the issue found https://bugzilla.redhat.com/show_bug.cgi?id=2170830#c52

Sample program to reproduce the issue:

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

1. Create the main window
   my $window = MainWindow->new;
   $window->title("Input Dialog");

1. Create a label to display the instructions
   $window->Label(text => "Enter your input:")>pack;

1. Create an entry widget to input the text
   my $entry = $window->Entry->pack;

1. Create a button to submit the input
   $window->Button(
   -text => "Submit",
   -command => sub { my $input = $entry->get; # Get the input from the entry widget print "Input: $input\n"; # Print the input to the console $window->destroy; # Close the window }

   )->pack;

1. Run the Tk event loop
   MainLoop;

Setting XMODIFIERS=@im=ibus works around the issue for now.