ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     06 Nov 2003  21:09:52
 To : 903923@saronline.ru
 Subject : Re: Как работать с графическими файлами в Tk?
 -------------------------------------------------------------------------------- 
 

 #!/usr/bin/perl -w
 use strict;
 use Tk;
 
 my $bmp = shift;
 my(@pl) = qw/-side top -padx .5m -pady .5m/;
 my $logo=Tk::MainWindow->new(-width => 200, -height => 200);
 warn $bmp;
 warn Tk::findINC($bmp);
 #
 # сравни со своей строчкой
 
 $logo->Photo('logo', -file => Tk::findINC($bmp));
 
 #
 
 $logo->Label(-image => 'logo')->pack(@pl);
 
 MainLoop;
 
 --- ifmail v.2.15dev5.1
  * Origin: Demos online service (2:5020/400)
 
 

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