如何在wxPerl中单击按钮事件后动态更新静态文本标签？

Question

我有一个显示当前所选文件名的静态文本。我希望每次用户使用“选择文件”按钮选择新文件时都会更新。

我已尝试在EVT_BUTTON子例程调用中使用Update（）方法，但无效。

以下是我的代码的一部分。 请原谅任何不良的编码习惯，相对较新。

      $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并从这些示例中学习。