Eric wrote:
> Did my reply to your previous message not make it to the list?
Yes it does!
In fact you previous post was quite important for me!
Daniel wrote:
You should look at wxWindow, where wxFrame is derived from:
wxBORDER_NONE Displays no border, overriding the default border style for the
window. wxNO_BORDER is the old name for this style.
However, my problem is more concrete. I enclosed the code. If I try to replace
in the code
the word wxNO_BORDER with the following: wxBORDER_NONE, I get the error:
[ "wxBORDER_NONE" is not exported by the Wx module ].
Waldemar
#!/usr/bin/perl -w
package myFrame;
use strict;
use warnings;
use vars qw(@ISA);
@ISA = qw(Wx::Frame);
my $ID_QUIT = 1;
use Wx qw( wxNO_BORDER );
#---------------------------------------------------------------------------------------------------
sub newFrame {
my $class = shift;
my $this = $class->SUPER::new( undef, -1, $_[0], [ @_[1, 2] ], [ @_[3,
4] ], wxNO_BORDER );
my $file = Wx::Menu->new;
$file->Append( $ID_QUIT, "E&xit" );
my $bar = Wx::MenuBar->new;
$bar->Append( $file, "E&xit" );
$this->SetMenuBar( $bar );
use Wx::Event qw(EVT_MENU EVT_UPDATE_UI);
EVT_MENU( $this, $ID_QUIT, \&OnQuit );
return $this;
}
sub OnQuit {
my( $this, $event ) = @_;
$this->Close( 1 );
}
###########################################################################
package main;
use strict;
use warnings;
use base 'Wx::App';
my $app = main->new;
$app->MainLoop;
sub OnInit {
my $frame = myFrame->newFrame( "NewWindow", 100, 100, 200, 200 );
$frame->Show( 1 );
return 1;
}
###########################################################################
