perl - 如何在 wxPerl 中的按钮单击事件后动态更新 StaticText 标签？

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