@RaMzz

WxPerl как с ним работать?

Ребят помогите пожалуйста с примером выбираю GUI для своих простеньких скриптов на Perl
c Тк в прицепи разобрался без проблем там как то все более менее логично, но нет многопоточности и интерфейс :(
Вот накидал небольшую формачку помогите с примерчиком и хотяб минимальным описанием как вы делали это.
Требуется открыть файл вывести его в листбокс посточно с работой прогрессБара
Помогите с примером буду очень благодарен дальше я сам..
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, 'File open', [-1,-1], [266, 257]);
		my $panel = Wx::Panel->new($this, -1);

		$this->{button1} = Wx::Button->new($panel, -1, 'File Open',[168,16], [73, 46]);

		$this->{progressbar1} = Wx::Gauge->new($panel, -1, 100, [21,192], [201, 17]);
		$this->{progressbar1}->SetValue('0');

		my $listbox2_list = [''];
		$this->{listbox2} = Wx::ListBox->new($panel, -1, [24,16], [137, 166], $listbox2_list);
		$this->{listbox2}->SetBackgroundColour(Wx::Colour->new(255, 255, 255));


	$this;
}

package main;	
my( $app ) = MyApp->new();

$app->MainLoop();
  • Вопрос задан
  • 94 просмотра
Пригласить эксперта
Ваш ответ на вопрос

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

Войти через центр авторизации
Похожие вопросы
Productivity Inside Новосибирск
от 60 000 до 100 000 ₽
ЛАНИТ Москва
До 200 000 ₽
ЛАНИТ Санкт-Петербург
До 140 000 ₽
29 мар. 2024, в 18:29
100000 руб./за проект
29 мар. 2024, в 18:23
50000 руб./за проект
29 мар. 2024, в 18:08
2500 руб./за проект