[wxperl-users] Problems with Wx::ChildFocusEvent

[Mark W. <ma...@ne...>]

Hello,

I want to use the Wx::ChildFocusEvent object and the GetWindow method but I
see that they are not wrapped.

I tried adding this to Event.xs

<snip>
	MODULE=Wx_Evt PACKAGE=Wx::ChildFocusEvent

	wxChildFocusEvent*
	wxChildFocusEvent::new( win = NULL )
		wxWindow* win

	wxWindow*
	wxChildFocusEvent::GetWindow() 
</snip>

But I got errors, so I added lines to typdef.h and typemap (which were shots
in the dark) and eventually got the code to compile but then the tests
failed quoting an inheritance problem.

Since I am shooting blindly can anyone offer more assistance.

Thanks
Mark

-----Original Message-----
From: wxp...@li...
[mailto:wxp...@li...] On Behalf Of Mattia Barbon
Sent: 05 June 2005 09:40 PM
To: Robert; wxp...@li...
Cc: wxg...@li...
Subject: Re: [wxperl-users] Error on SetToolBitmapSize

On Fri, 3 Jun 2005 11:22:20 -0400 Robert <si...@gm...> wrote:

  Hello,

> WxGlade:  0.3.5.1
> WxPerl: 0.21
> ActivePerl: 5.8.6.811
> Windows XP SP2
> 
> 
> Usage: Wx::ToolBarBase::SetToolBitmapSize(THIS, size) at 
> C:\Path\To\LogonMessage.pl line 64.
> 
> The generated Perl code:
> 
> sub __set_properties {
>  my $self = shift;
> 
> # begin wxGlade: MyFrame::__set_properties
> 
>  $self->SetTitle("Change Logon Message");  
> $self->SetSize($self->ConvertDialogSizeToPixels(Wx::Size->new(266, 
> 184)));  $self->{frame_1_statusbar}->SetStatusWidths(-1);
> 
>  my( @frame_1_statusbar_fields ) = (
>   ""
>  );
> 
>  if( @frame_1_statusbar_fields ) {
>   
> $self->{frame_1_statusbar}->SetStatusText($frame_1_statusbar_fields[$_
> ],
> $_)
>   for 0 .. $#frame_1_statusbar_fields ;  }  
> $self->{frame_1_toolbar}->SetToolBitmapSize(32, 32);  
> $self->{frame_1_toolbar}->Realize();
> 
> # end wxGlade
> }
> 
> When I preview it, it looks fine. When I run it, it causes the error
above.

  AFAICS the generated code is wrong: there isn't a SetToolBitmapSize method
for wxToolBar taking two integers for wxWidgets (and neither for wxPython,
if I read the code correctly, but of course I might be wrong on this). The
only method in wxWidgets/wxPerl takes a wxSize/Wx::Size.

Regards
Mattia



-------------------------------------------------------
This SF.Net email is sponsored by: NEC IT Guy Games.  How far can you
shotput a projector? How fast can you ride your desk chair down the office
luge track?
If you want to score the big prize, get to know the little guy.  
Play to win an NEC 61" plasma display: http://www.necitguy.com/?r=20
_______________________________________________
wxperl-users mailing list
wxp...@li...
https://lists.sourceforge.net/lists/listinfo/wxperl-users