어떻게 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 라인 당신은 Wx::Demo를 설치하고이 사례에서 배울 수있는 EVT_BUTTON

Answer 1

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

만든 $classifier의 새 값을 표시하는 것입니다.