ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : 903923@saronline.ru                  2:5053/16      06 Nov 2003  19:15:47
 To : All
 Subject : Как работать с графическими файлами в Tk?
 -------------------------------------------------------------------------------- 
 

 название файла (использовать файл, который используется в примере,
 поставляемом вместе с ActivePerl) - то все работает. Более того, в
 упомянутом примере (в котором реализован диалог открытия файла, кликаешь на
 названии графического файла, и он открывается в одном из фреймов) нужный мне
 файл открывается. То есть "родная" картинка (из ActivePerl) открывается
 обоими скриптами, но нужная мне открывается только демо-скриптом ActivePerl,
 но не хочет открываться моим скриптом. Привожу текст скрипта:
 
 #!/usr/bin/perl -w
 use Tk;
  my(@pl) = qw/-side top -padx .5m -pady .5m/;
 $logo=Tk::MainWindow->new(-width => 200, -height => 200);
 
 $logo->Photo('logo', -file => Tk->findINC('mf.bmp'));
 $logo->Label(-image => 'logo')->pack(@pl);
 
 MainLoop;
 --- ifmail v.2.15-BSC.03/FreeBSD
  * Origin: unknown (2:5053/16@fidonet)
 
 

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