ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     06 Nov 2003  20:25:13
 To : 903923Љ Єа Ў®в вмбЈа дЁзҐбЄЁ¬Ёд ©« 
 Subject : Re: Как работать с графическими файлами в Tk?
 -------------------------------------------------------------------------------- 
 

 Хмутро.
 
 9sr> Hе могу понять, что делаю неправильно. Следующий код не хочет никак
 9sr> отображать содержимое графического файла, при том что, если изменить
 9sr> название файла (использовать файл, который используется в примере,
 9sr> поставляемом вместе с ActivePerl) - то все работает. Более того, в
 9sr> упомянутом примере (в котором реализован диалог открытия файла, кликаешь
 9sr> на названии графического файла, и он открывается в одном из фреймов)
 9sr> нужный мне файл открывается. То есть "родная" картинка (из ActivePerl)
 9sr> открывается обоими скриптами, но нужная мне открывается только
 9sr> демо-скриптом ActivePerl, но не хочет открываться моим скриптом. Привожу
 9sr> текст скрипта:
 
 9sr> #!/usr/bin/perl -w
 9sr> use Tk;
 9sr>  my(@pl) = qw/-side top -padx .5m -pady .5m/;
 9sr> $logo=Tk::MainWindow->new(-width => 200, -height => 200);
 9sr> $logo->Photo('logo', -file => Tk->findINC('mf.bmp'));
 9sr> $logo->Label(-image => 'logo')->pack(@pl);
 
 9sr> MainLoop;
 
 В примере, небось, отнюдь не BMP'шник?
 
 -- 
 Artem Chuprina
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
 --- ifmail v.2.15dev5.1
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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