PDA

Просмотр полной версии : perl tk абдейт label


genom--
23.05.2007, 10:05
вообщем есть такой код

$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 и нужно потом заново прогнать этот лейбл для отображения нового количества записей ---

жду вашего совета

KSURi
24.05.2007, 17:51
perldoc Tk
perldoc Tk::Label

genom--
24.05.2007, 20:10
мда --- читал апдейт не катит -- уже вроде все пересмотрел =(