Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Tk::Entry not updating when textvariable changes.

by shmem (Canon)
on Oct 16, 2006 at 22:57 UTC ( #578620=note: print w/ replies, xml ) Need Help??


in reply to Tk::Entry not updating when textvariable changes.

Bear with me, I have the same difficulties as you to grok your code ;-)

-textvariable => \$::cini_global->{trickle}->{email_template_file}

Is this a reference? is $cini_global a hash reference? Is the value that falls out the dereferencing chain a reference?

$::cini_global->{trickle}->{email_template_file} = $self->{_nb}->getOp +enFile(-filetypes => \@types );
is $self->{_nb}->getOpenFile(-filetypes => \@types ) returning a reference? Are you passing a value or a reference via that assignment?

Having these questions answered, the solution to the problem may be simple ;-)

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}


Comment on Re: Tk::Entry not updating when textvariable changes.
Select or Download Code
Re^2: Tk::Entry not updating when textvariable changes.
by rcseege (Pilgrim) on Oct 16, 2006 at 23:40 UTC

    I'm suspicious of Config::IniHash myself... I'm operating under the assumption that the $cini_global is a hashRef, and I know that getOpenFile returns a scalar -- in this case a selected filename. Here's a shortened example:

    use Tk; use strict; $::cini_global = { trickle => { email_template_file => "nothing" }}; my $mw = MainWindow->new; $mw->Entry( -width => 40, -textvariable => \$::cini_global->{trickle}->{email_template_file} )->pack(qw/-expand 1 -fill x/); $mw->Button( -text => "Change", -command => sub { $::cini_global->{trickle}->{email_template_file} = $mw->getOpenFile(); })->pack; MainLoop;

    I suspect there's something else going on outside of the shown code. Perhaps Config::IniHash creates something different than what it appears

    Update: It would seem that Config::IniHash does some pretty interesting things under the hood and isn't exactly what it seems. I haven't looked at all the code, but my guess is that the two times you use it, the internal references are different. I've added a second example that shows how I'd work around it if I had to use Config::IniHash, which I'm not certain that I would.

    <crotchety voice>Config::IniHash seems a bit too clever for its own good to me</crotchety voice> Still, its code makes for pretty interesting reading ;-)

    Example 2 : In the second example I was able to reprodce the reported problem. The code shows how I worked around it.

    config file, containing:

    [trickle] email_template_file=nothing

    Script with workaround:

    use strict; use Config::IniHash; use Data::Dumper; use Tk; $::cini_global = ReadINI 'config'; my $ref = $::cini_global->{trickle}->{email_template_file}; my $mw = MainWindow->new; $mw->Entry( -width => 40, -textvariable => \$ref )->pack(qw/-expand 1 -fill x/); $mw->Button( -text => "Change", -command => sub { $ref = $mw->getOpenFile(); $::cini_global->{trickle}{email_template_file} = $ref; })->pack; MainLoop;
    Rob

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://578620]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2014-09-21 09:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (168 votes), past polls