in reply to Entry widget does not work in 5.18.1

G'day rjohn1,

I'm running Perl 5.18.1 and Tk 804.031 on Mac OS X (darwin-thread-multi-2level). I am unable to reproduce your reported problem.

I ran the code you posted without any changes. I was able to enter text into all the Entry widgets.

I then modified the Save button as follows: 

$f->Button(-text => "Save",
-command => sub { # do something with %info;
    use Data::Dump;
    dd \%info;
})->pack(-side => 'bottom');

[download]

I then ran the script again and was still able to enter text in all fields. When I hit Save, I got this output which exactly matched what I had entered: 

{
  Address => 456,
  Business_Address => "jkl",
  Business_Phone => "zxc",
  City => 789,
  Company => "fgh",
  Name => 123,
  Occupation => "asd",
  Phone => "uio",
  State => "qwe",
  Zip => "rty",
}

[download]

I always reinstall Tk after upgrading Perl. If you haven't done this, I recommend you do so.

-- Ken

Replies are listed 'Best First'.
Re^2: Entry widget does not work in 5.18.1
by rjohn1 (Sexton) on Jan 14, 2014 at 04:08 UTC

    Hi Ken, Thanks for looking into it. I know it works. It works for me on my personal Ubuntu machine. But at my workplace (i.e Red Hat Entr Linux Server release 5.8(Tikanga)) , it does not work. Now it is becoming very difficult for me to understand whether the problem lies in my OS, perl/Tk or somewhere else.... Do you know of any definitive place to find the solution for this problem? Thanks RJ

[reply]
      "Do you know of any definitive place to find the solution for this problem?"

      I don't actually know of a "definitive place" as such. You could try searching the Internet and speaking with your SysAdmins (both obvious and you may already have done this).

      I've front-paged this thread which will give it a little more exposure here.

      -- Ken

[reply]

        One of my sysadmins got to it and solved it by 

        >> unsetenv XMODIFIERS

        [download]
        That's it. Now the entry box works as expected.

[reply]
[d/l]

In Section Seekers of Perl Wisdom