
23.05.2007, 10:05
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме: 1948091
Репутация:
1686
|
|
perl tk абдейт label
вообщем есть такой код
$pr->Label(-text => "Записи-->base.txt:".hay('base.txt')." good.txt:".hay('good.txt')." ftps.txt:".hay('ftps.txt')." good_ftp.txt:".hay('good_ftp.txt') , -font => '{Tahoma} 7 bold',-foreground=>'red')->pack(-side => "top" ,-anchor => 's');
он отображает количество записей в том или ином фале через саб который и возвражает нужное значение
в процессе работы проги это значение меняется --- я вот застрял немогу сделать обновление инфы в этом лейбле -- например прога поработала дописала чтонить в файл good.txt и нужно потом заново прогнать этот лейбл для отображения нового количества записей ---
жду вашего совета
|
|
|