AW: Frame and wxNO_BORDER option

[Daniel]

You are right, seems to be not implemented yet.



----- Ursprüngliche Mail ----
Von: Waldemar Biernacki <[EMAIL PROTECTED]>
An: wxperl-users@perl.org
Gesendet: Donnerstag, den 24. April 2008, 11:41:19 Uhr
Betreff: Re: Frame and wxNO_BORDER option

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;
}
###########################################################################





      __________________________________________________________
Gesendet von Yahoo! Mail.
Mehr Möglichkeiten, in Kontakt zu bleiben. http://de.overview.mail.yahoo.com