Ok think I found it - Wx::wxVERSION(). Version = 2.008012 What version are you using?
On Wed, 2012-02-08 at 21:29 -0200, Steve Cookson wrote: > Hi Jeff, > > I tried it on Windows and couldn't see the problem you report. What O/s are > you using. > > Regards > > Steve > > > > -----Original Message----- > From: jeff [mailto:j...@roqc.no] > Sent: 08 February 2012 20:39 > To: wxperl-users > Cc: Cava Licensed Support > Subject: [Fwd: wx::dialog and movexy broken?] > > One slight correction. That code on ~line 50 should be Movexy(100,100) - > some folks might be use to seeing MoveXY, but both work and display the > same odd behavior. > > > -------- Forwarded Message -------- > > Have some odd behavior here. > Here is a test simple script. It simple opens and closes a non modal > dialog by click a button on the main window. > > On the 1st click it will open the dialog at the requested location. > Click the button a 2nd time and it will close. > Click it a 3rd time and it will center on parent - hiding the main > window. > Move it aside. > Click it a 4th time and it will close. > Click it a 5th time and it will open at the requested location. > And on and on., alternating between the two positions. > > The line of interest is ~ line 50. > Having this behavior in many locations in real code :-( > > Anyone have any ideas? Hopefully we're just being stupid ;-) > > Jeff > > ##################################### CUT HERE > ################################# > use strict; > use Wx; > ########################################################### > # > # Extend the Frame class to our needs > # > package MyFrame; > > use Wx::Event qw( EVT_BUTTON ); > use Wx qw/:everything/; > > use base qw/Wx::Frame/; # Inherit from Wx::Frame > > sub new > { > my $class = shift; > > my $self = $class->SUPER::new(@_); # call the superclass' constructor > > # Then define a Panel to put the button on > my $panel = Wx::Panel->new( $self, # parent > -1 # id > ); > > my $BTNID = 1; # store the id of the button in $BTNID > > $self->{btn} = Wx::Button->new( $panel, # parent > $BTNID, # ButtonID > ">>> Press me <<<", # label > [50,50] # position > ); > > EVT_BUTTON( $self, # Object to bind to > $BTNID, # ButtonID > \&ButtonClicked # Subroutine to execute > ); > > $self->{dialog} = Wx::Dialog->new($self, -1, "test dialog"); > $self->{dialog_state}=0; > > return $self; > } > > sub ButtonClicked > { > my( $self, $event ) = @_; > > if($self->{dialog_state}==0){ > $self->{dialog}->MoveXY > > (100, 100); > $self->{dialog}->Show(1); > $self->{dialog_state}=1; > } > else{ > $self->{dialog}->Show(0); > $self->{dialog_state}=0; > } > } > > ########################################################### > # > # Define our ButtonApp2 class that extends Wx::App > # > package ButtonApp2; > > use base qw(Wx::App); # Inherit from Wx::App > > sub OnInit > { > my $self = shift; > my $frame = MyFrame->new( undef, # Parent window > -1, # Window id > 'Button interaction example', # Title > [300,400], # position X, Y > [200, 150] # size X, Y > ); > $self->SetTopWindow($frame); # Define the toplevel window > $frame->Show(1); # Show the frame > } > > ########################################################### > # > # The main program > # > package main; > > my $wxobj = ButtonApp2->new(); # New ButtonApp application > $wxobj->MainLoop; > > > > > ______________________________________________________________________ > This email has been scanned by the Symantec Email Security.cloud service. > For more information please visit http://www.symanteccloud.com > ______________________________________________________________________ > > > > ______________________________________________________________________ > This email has been scanned by the Symantec Email Security.cloud service. > For more information please visit http://www.symanteccloud.com > ______________________________________________________________________
