@RaMzz

WxPerl как открыть текстовый файл?

Подскажиет как открыть тектсовый файл и отобразить его в листбокс
use Wx;
package MyApp;

use vars qw(@ISA);

@ISA=qw(Wx::App);

sub OnInit {
	my( $this ) = @_;

	
	my( $frame ) = MyFrame->new();

	
	$this->SetTopWindow( $frame );
	
	$frame->Show( 1 );

	1;
}

package MyFrame;
use vars qw(@ISA);
@ISA=qw(Wx::Frame);

sub new {
	my( $class ) = shift;
		my $this = $class->SUPER::new( undef, -1, 'form title', [-1,-1], [158, 252]);
		my $panel = Wx::Panel->new($this, -1);

		my $listbox1_list = [''];
		$this->{listbox1} = Wx::ListBox->new($panel, -1, [16,8], [118, 164], $listbox1_list);
		$this->{listbox1}->SetBackgroundColour(Wx::Colour->new(255, 255, 255));

		$this->{button1} = Wx::Button->new($panel, -1, 'button',[24,176], [108, 37]);


	$this;
}

package main;	
my( $app ) = MyApp->new();
# start processing events
$app->MainLoop();
  • Вопрос задан
  • 20 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы