Subject: | Cannot show multiple timezones |
Date: | Tue, 06 May 2008 11:30:17 -0400 |
To: | bug-Tk-Clock [...] rt.cpan.org |
From: | "Tosh, Michael J" <michael.j.tosh [...] lmco.com> |
Using the code below, and much shorter versions, I was unable to display
2 clocks displaying multiple timezones. I would have expected to. Each
clock instance uses the timeZone setting from the first. If I rearrange
and put Etc/UTC first, all 3 clocks use that.
Thanks,
Mike
<code>
#!/usr/bin/perl -w
use Tk;
use Tk::Clock;
my $MW1=MainWindow->new();
my $clock1 = $MW1->Clock();
$clock1->config( useDigital => 1, useAnalog => 0,
timeZone => "America/New_York");
$clock1->pack( expand => 1, fill => "both" );
my $clock2 = $MW1->Clock();
$clock2->config( useDigital => 1, useAnalog => 0,
timeZone => "Etc/UTC");
$clock2->pack( expand => 1, fill => "both" );
my $clock3 = $MW1->Clock();
$clock3->config( useDigital => 1, useAnalog => 0,
timeZone => "America/Los_Angeles" );
$clock3->pack( expand => 1, fill => "both" );
MainLoop();
</code>