Skip navigation.
Home

perl

#!/usr/bin/perl -w

use utf8;
use strict;
use Wx;

my $app = Wx::SimpleApp->new;
my $frame= Wx::Frame->new( undef, -1, "Trivial Sample" );
my $button = Wx::Button->new( $frame, -1, 'Test' );
#EVT_BUTTON( $this, $button, 'OnAbout' );

$frame->Show;
$app->MainLoop;

-----------------------

Модальное окно:

#!/usr/bin/perl -w

use utf8;
use strict;
use Wx;

Wx::MessageBox("Это окно без заголовка");

Wx::MessageBox("Это окно с заголовком", "Заголовок");

Wx::LogMessage( 'Button clicked' );

-----------------

wxperl_demo.pl - запускает wx demo

-----------------

sudo apt install libgtk-3-dev - dev - Это именно для разработки

sudo apt install gtk-3-examples - Это демки для С++

Запускается так: gtk3-demo

-------------------------------------

cpan -i pp

это сработало, но говорят что так лучше:

apt-get install libwx-perl - ставил Wx модуль

https://metacpan.org/pod/Wx

http://www.wxperl.it/p/download.html