I'd like to realize a dictionary in Perl Tkx (using ActiveState Perl 12).
The dictionary has an entry field for the searched word. The dictionary happens to be Japanese to German. In Windows one is using IME to input Japanese. This is working fine for for example HTML entry fields, but not in Tkx (at least at the moment ...). I put the cursor focus into the Tkx entry field, switch the keyboard to Japanese, type a japanese word, which appears in Hiragana (a way to write something in japanese without the meaning based Kanji), press the space bar and then IME gives me some possible writings in Kanji. I choose one and I have to confirm this by pressing the RETURN key. This produces an error message:
"alloc: invalid block: 0145F78C: 4b 5
This application has requested the Runtime to terminate it in an unusual way. Please contact the application's support team for more information"

On the other hand: if I copy Japanese into the entry field, everything is fine. But of course I'd like to type in my searched word into the field directly, not having to first write it somewhere and then copy it into the field. Did anybody have the same problem and found a solution?

To simulate this problem, the following programm should be sufficient:

use Tkx;

Tkx::ttk__frame(".c",  -padding => "3 3 12 12");
Tkx::grid( ".c", -column => 0, -row => 0, -sticky => "nwes");
Tkx::grid_columnconfigure( ".", 0, -weight => 1); 
Tkx::grid_rowconfigure(".", 0, -weight => 1);

Tkx::ttk__entry(".c.feet", -width => 7, -textvariable => \$feet);
Tkx::grid(".c.feet", -column => 2, -row => 1, -sticky => "we");
Tkx::ttk__button(".c.calc", -text => "Search", -command => sub {search
+();});
Tkx::grid(".c.calc", -column => 3, -row => 3, -sticky => "w");

sub search {
   #...;
}

Tkx::MainLoop();
[download]