perlquestion
jdtoronto
Esteemed monks,<p>
In a Perl/Tk application I create a notebook, then a tab which I populate. One of the fields is a [mod://Tk::Entry] which is to get a file name. But when the variable gets updated, the value shown in the [mod://Tk::Entry] does not change on the screen. <readmore>Draw the notebook:
<c>
sub draw {
my $self = shift;
print "Notebook Page ", $self->{_nb};
my $notebook = $self->{_nb}->parent();
#$notebook->pageconfigure( 'page12', -raisecmd => sub { $self->_load_configs } );
#notebook portion
$self->{_subnb} = $self->{_nb}->NoteBook()->grid();
$self->{subnb_p1} = $self->{_subnb}->add( 'page1', -label => 'Prepare email message' );
$self->_draw_subnb_p1();
}
</c>
then populate it:
<c>
sub _draw_subnb_p1 {
my $self = shift;
# FRAME - top left side
$self->{subnb_p1}->Label( -text => 'Email Subject', )->grid(
$self->{subnb_p1}->Entry(
-width => 50,
-textvariable => \$::cini_global->{trickle}->{subject},
),
-padx => 5,
-pady => 5,
);
$self->{subnb_p1}->Label(
-text => 'Email template',
-width => '12',
)->grid(
$self->{subnb_p1}->Entry(
-width => '50',
-textvariable => \$::cini_global->{trickle}->{email_template_file}
),
$self->{subnb_p1}->Button(
-text => 'Browse',
-command => sub { $self->_getImportFile() },
),
$self->{_edemail_button} = $self->{subnb_p1}->Button(
-text => 'Edit',
-command => sub { $self->_edit_emailtemplate() },
),
-padx => 5,
-pady => 5,
);
my $top = $self->{subnb_p1}->Frame( -borderwidth => 2, -relief => 'raised' )->grid();
$top->Button(
-text => 'Preview Email',
-command => sub { $self->_preview_emailtemplate() },
)->grid(
$top->Button(
-text => 'Send Emails',
-command => sub { $self->_send_emails() },
),
-padx => 5,
-pady => 5,
);
}
</c>
<c> $::cini_global </c> is a global configuration hash whioch is populate using [mod://Config::IniHash]<p>
Now click on the button to change the file name and this gets called:
<c>
sub _getImportFile {
my $self = shift;
# Get the name of the file we are going to import
my @types = ( [ "TMPL files", '.tmpl' ], [ "All Files", "*" ], );
$::cini_global->{trickle}->{email_template_file} = $self->{_nb}->getOpenFile( -filetypes => \@types );
if ( $::cini_global->{trickle}->{email_template_file} ) {
$self->{_edemail_button}->configure( -state => 'normal' );
}
WriteINI( $::CONFIG_FILE, $::cini_global );
print Dumper $::cini_global;
$self->{_mw}->update();
}
</c>
You will see as soon as I get the file name I write the config hash back to disk - just in case. I can see the file change when I look at it, but despite the fact that <c>$::cini_global->{trickle}->{email_template_file}</c> has changed the display does not change! Am I doing something stupid here? Or is there a bug somewhere??
</readmore>
<p>
[jdtoronto]