#!c:/perl/bin/perl
use strict;
use warnings;
package MyApp;
use strict;
use warnings;
use base 'Wx::App';
sub OnInit {
my $frame = MyFrame->new;
$frame->Show(1);
return 1;
}
package MyFrame;
use Wx qw(:everything);
use base 'Wx::Frame';
use wxHtmlWindow; ############ the culprit
sub new {
my ($class) = @_;
my $self = $class->SUPER::new(
undef, -1,
'TextEntryDialog.pl',
wxDefaultPosition, wxDefaultSize,
);
my $statusBar = Wx::StatusBar->new($self, wxID_ANY, wxST_SIZEGRIP)
+;
$self->SetStatusBar($statusBar);
my @widths = (250, 100, -1);
$statusBar->SetFieldsCount($#widths+1);
$statusBar->SetStatusWidths(@widths);
$statusBar->SetStatusText("Ready", 0);
myStdDialogs($self);
return $self;
}
sub myStdDialogs {
my ( $self ) = @_;
my $getTextFromUser = Wx::GetTextFromUser(
"This is some text, actually a lot of text\nEven two
+rows of text",
"Enter a String: ", wxOK | wxCANCEL, $self);
#
Wx::MessageBox("$getTextFromUser", "Entered String", wxOK | wxICON
+_INFORMATION, $self);
}
#
package main;
#
# MyApp->new->MainLoop; or
my $app = MyApp->new;
$app->MainLoop;
I use the following command to create the executable:
pp -v 3 -g -l C:\Perl\site\lib\Alien\wxWidgets\msw_2_8_12_uni_gcc_3_4\lib\libgcc_s_sjlj-1.dll -l C:\Perl\site\lib\Alien\wxWidgets\msw_2_8_12_uni_gcc_3_4\lib\libstdc++-6.dll -l C:\Perl\site\lib\Alien\wxWidgets\msw_2_8_12_uni_gcc_3_4\lib\wxbase28u_gcc_wxPerl.dll -l C:\Perl\site\lib\Alien\wxWidgets\msw_2_8_12_uni_gcc_3_4\lib\wxmsw28u_adv_gcc_wxPerl.dll -l C:\Perl\site\lib\Alien\wxWidgets\msw_2_8_12_uni_gcc_3_4\lib\wxmsw28u_core_gcc_wxPerl.dll -o test.exe -r TextEntryDialog.pl -L test.log
|