in reply to making a GUI for a web client

Assign a textvariable to the label. Anywhere you currently print, set the textvariable instead. You'll have to make the textvariable global, or pass it to the subroutine.

You may want to $mw->update; to see the change immediately.

$fr1->Label(-textvariable=>\$lblStatus, -background=>'yellow', etc.
...
$lblStatus = "Download failed: " . $request->status_line . " Retrying 
+$i... \n"

[download]

Replies are listed 'Best First'.
Re^2: making a GUI for a web client
by dannoura (Pilgrim) on Jul 14, 2004 at 11:38 UTC

    Thanks for the reply. I may be going the wrong way about this but using the code below doesn't update the label text, it produces another label.

    #! c:\perl\bin -w

use strict;
use Tk;

my $mw=new MainWindow;
$mw->minsize(qw(250 150));
$mw->title(" Tk Test 1 ");
my $body=$mw->Frame(-background=>'cyan')->pack(side=>'bottom', -fill=>
+'x');
my $fr1=$body->Frame(-background=>'magenta')->pack(side=>'top', -fill=
+>'x');
my $txt='hi';
$fr1->Label(-textvariable=>\$txt, -background=>'yellow', -foreground=>
+'red')->pack(-fill=>'y');

sleep 5;
change('foo', $fr1, $mw);
sleep 5;
change('bar', $fr1, $mw);
MainLoop();
sub change {
    my ($txt, $fr1, $mw)=@_;
    $fr1->Label(-textvariable=>\$txt, -background=>'yellow', -foregrou
+nd=>'red')->pack(-fill=>'y');
    $mw->update;
    }

    [download]

    -----------------------------------

    Any comments about coding style are welcome.
[reply]
[d/l]

      I'm not familiar with Tk, but I think he was trying to get you to do something more like this:

      #! c:\perl\bin -w

use strict;
use Tk;

my $mw=new MainWindow;
$mw->minsize(qw(250 150));
$mw->title(" Tk Test 1 ");
my $body=$mw->Frame(-background=>'cyan')->pack(side=>'bottom', -fill=>
+'x');
my $fr1=$body->Frame(-background=>'magenta')->pack(side=>'top', -fill=
+>'x');
my $txt='hi';
$fr1->Label(-textvariable=>\$txt, -background=>'yellow', -foreground=>
+'red')->pack(-fill=>'y');

sleep 5;
change('foo', $fr1, $mw);
sleep 5;
change('bar', $fr1, $mw);
MainLoop();

sub change {
    my ($new_txt, $fr1, $mw)=@_;
    $txt = $new_txt
    $fr1->pack(-fill=>'y');
    $mw->update;
}

      [download]

      Again, I'm not a Tk guy, but I think the $txt variable gets tied to the label, so you just want to update the variable and get the label to refresh itself.

      Update: Just tested it here, and yup, it replaces the old label.

      Update 2: Fixed code formatting.

[reply]
[d/l]

        Thanks! That works.

[reply]

In Section Seekers of Perl Wisdom