ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     26 Nov 2003  19:42:49
 To : Konstantin Tokar
 Subject : Re: Hепонятности с Tk
 -------------------------------------------------------------------------------- 
 

 Я поставил с нуля Debian, и эта беда воспроизвелась как часы. Может 
 быть, кто-нибудь сталкивался с подобным?
 
 Konstantin Tokar wrote:
 
 > Я запускаю простую программу, вывод идёт на X-Server на моём компьютере, 
 > запускается программа на других. Странность в том, что после запуска с 
 > одного компьютера окно чёрное, как и предполагалось, а с другого 
 > запускается с серым фоном, и цвета не меняются. Что я не так делаю?
 > 
 
 #!/usr/bin/perl
 use strict;
 use Tk;
 
 my $main = MainWindow->new( -width => 320, -height => 240, );
 
 $main->geometry("+20+20");
 $main->resizable( 0, 0 );
 
 my $top_frame = $main->Frame(
          -width  => 320,
          -height => 240,
                  -background=>'red',
                  -foreground=>'blue',
 );
 $top_frame->place(-x=>10, -y=>10);
 $top_frame->Label(-text=>"test")->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