- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1522 [757]
От : Konstantin Tokar 2:5020/400 25 ноября 03, 16:22
Кому : All 26 ноября 03, 20:53
Тема : Hепонятности с Tk
-------------------------------------------------------------------------------
From: Konstantin Tokar
Я запускаю простую программу, вывод идёт на X-Server на моём компьютере,
запускается программа на других. Странность в том, что после запуска с
одного компьютера окно чёрное, как и предполагалось, а с другого
запускается с серым фоном, и цвета не меняются. Что я не так делаю?
#!/usr/bin/perl
use strict;
use Tk;
my $main = MainWindow->new( -width => 320, -height => 240, );
$main->geometry("+200+200");
$main->resizable( 0, 0 );
my $top_frame = $main->Frame(
-width => 320,
-height => 240,
-background=>'#000000',
-foreground=>'#FFFFFF',
);
$top_frame->pack();
MainLoop;
--- ifmail v.2.15dev5.1
* Origin: Demos online service (2:5020/400)