perl tk абдейт label

Discussion in 'PHP' started by genom--, 23 May 2007.

  1. genom--

    genom-- Elder - Старейшина

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    вообщем есть такой код

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

    жду вашего совета
     
  2. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    perldoc Tk
    perldoc Tk::Label
     
  3. genom--

    genom-- Elder - Старейшина

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    мда --- читал апдейт не катит -- уже вроде все пересмотрел =(