Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Button в Tk

Автор: DiverD 23.11.2006, 22:32

Код


$mw->Button(-background => 'red', -text => '[load.file]', -command => sub { loadFile($pwdFile); })->pack;

тут вызывается подпрограмма которая выводит файл в форму, у меня проблема в том что если повторна наживать на кнопку, то сколька раз нажмешь столька окон и вылизит - как это убрать, т.е. я нажал раз на [load.file] увидел содержимое а потом если еще раз нажму то ни чего непроизойдет.?

Автор: korob2001 1.12.2006, 13:21

Насколько я понял, ты хочешь выводить в форму содержимое файла, только один раз? Если да, то очищай форму перед каждым чтением файла, т.е. в подпрограмме loadFile(). Если я не верно понял задачу, поясни условие.

Автор: DiverD 1.12.2006, 18:54

ok.