perl&tk&images

[x-treem]

скажите плиз, как с помощью Tk отобразить картинку

[Gh0s7]

http://search.cpan.org/~ni-s/Tk-804.027/pod/Image.pod

Советую для начала хоть немного смотреть маны =\
Копипастить сюда весь ман не буду, т.к. там форматирование лучше =\

[x-treem]

млин, я смотрел. тока я смотрел локальный, то есть на компе который в поставке.
и ничего не понял(
в принципе как ив мане.
если не трудно, приведи пример рабочего кода.

[Gh0s7]

млин, я смотрел. тока я смотрел локальный, то есть на компе который в поставке.
и ничего не понял(
в принципе как ив мане.
если не трудно, приведи пример рабочего кода.

Если знаешь тк, то не трудно.
А код привести трудно, т.к. сам с тк не саморачивался.

[genom--]

на держи за код спасибо elekt-y

# GUI . Создаём окно
$wind = new MainWindow(title => "Antichat SQL-tools" );
$wind->geometry ( '800x600' ) ;
$wind->resizable(0,0);

#################################################
# выводим рисунок
$wind->Label( -text => ' ', -font => '{Verdana} 1 bold',)->pack();
$wind->Photo('logo', -file => 'logo.gif');
$frames_image = $wind->Frame()->pack(-side => "top" , -anchor => 'center');
$frames_image->Label(-height=>70, -image=>'logo', -width=>750)->pack(-side => "top" , -anchor => 'center');


кста норм доков по tk - на русском фиг найдешь -- все думаю засесть за перевод мана да времени нету

[x-treem]

ага, genom-- - спасибо тебе большое.
я уже к утру сам разобрался, но это мне тоже кое что подсказало. только jpg не открываются. их реально открыть с помощью перла?
и вот ещё один вопрос.
к примеру в окне скрипта есть надпись (Label)
можно ли её сменить по нажатию на кнопку в этом окне?