ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     25 Nov 2003  17:22:52
 To : All
 Subject : Hепонятности с Tk
 -------------------------------------------------------------------------------- 
 

 Я запускаю простую программу, вывод идёт на 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Hепонятности с Tk   Konstantin Tokar   25 Nov 2003 17:22:52   Re: Hепонятности с Tk   Konstantin Tokar   26 Nov 2003 19:42:49