Как я могу динамически обновить метку StaticText после события нажатия кнопки в wxPerl?

Question

У меня есть статический текст, отображающий текущее имя файла. Я бы хотел, чтобы он обновлялся каждый раз, когда пользователь выбирает новый файл с помощью кнопки "Выбрать файл".

Я пытался использовать метод Update() внутри вызова подпрограммы EVT_BUTTON, но он не работает.

Ниже приведен раздел моего кода. Пожалуйста, извините за любые плохие методы кодирования, относительно новые для этого.

      $self->{class_source_txt} = Wx::StaticText->new(
                                 $panel,
                                              1,
               "Classifier Source: $classifier",
                         [-1,-1]);

      $self->{file_select} = Wx::Button->new(
                $panel,
                1,
                "Select Classifier",
               );

      EVT_BUTTON(   
        $self,
        1,
        sub{
        $classifier = FileSelect();
        $self->{class_source_txt}->Update();
            }
                );

В частности, что я пытаюсь сделать, это иметь Classifier Source: $classifier строка отображает новое значение $classifier созданный EVT_BUTTON

Answer 1

$self->{class_source_txt}->SetLabel($classifier);

Вы можете установить Wx::Demo и учиться на этих примерах.