What do $state->{pullType} and $state->{pullDs} contain? Are you using strict?
Most likely, the two hash entries contain the same thing (probably an inital desired state string), and you're not using strict. The -variable option expects a reference, and you're passing it (presumably) a simple scalar. If you're not using strict, this will get treated as a symbolic reference. If it's a valid symbolic reference (and an empty string is a valid reference), you're basically giving the two BrowseEntry's the same state variable, so changes in one are going to be reflected in the other automatically.
To illustrate, try this example code:
#!/usr/bin/winperl use Tk; use Tk::BrowseEntry; $state = { one => '', two => '', three => '', four => '', }; $mw = MainWindow->new(); $mw->BrowseEntry( -label => 'List One', -choices => [qw(foo bar)], -variable => $state->{one}, )->grid(-padx => 5, -pady => 5); $mw->BrowseEntry( -label => 'List Two', -choices => [qw(baz quux)], -variable => $state->{two}, )->grid(-padx => 5, -pady => 5); # versus $mw->BrowseEntry( -label => 'List Three', -choices => [qw(foo bar)], -variable => \$state->{three}, )->grid(-padx => 5, -pady => 5, -column => 2, -row => 0); $mw->BrowseEntry( -label => 'List Four', -choices => [qw(baz quux)], -variable => \$state->{four}, )->grid(-padx => 5, -pady => 5, -column => 2, -row => 1); MainLoop;
bbfu
Black flowers blossom
Fearless on my breath
In reply to Re: Perl/Tk - values appearing in the wrong place!
by bbfu
in thread Perl/Tk - values appearing in the wrong place!
by jdtoronto
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |