wxPerl: is AddMany implemented?

HelenCr has asked for the wisdom of the Perl Monks concerning the following question:

Dear esteemed Perlmonks

Using wxPerl, it is often cumbersome (and repetitive), to have many widgets added to a sizer, each one in its own line.

I have noticed on the Net, the existence of a "convenience method" called: "AddMany" (for example here: http://neveredit.sourceforge.net/apidocs/private/wx._core.Sizer-class.html#AddMany):

AddMany is a convenience method for adding several items to a sizer at one time.

Is there a wxPerl implementation of this package? When I try to use it, I get:

Can't locate object method "AddMany" via package "Wx::BoxSizer" ...
etc...
[download]

Many TIA - Helen

Comment on wxPerl: is AddMany implemented? Select or Download Code

Replies are listed 'Best First'.
Re: wxPerl: is AddMany implemented? (check and see with wxperl_usage) by Anonymous Monk on Apr 19, 2013 at 08:21 UTC
check and see with wxperl_usage / wxperl-usage / wxPerl::Usage / Class Method Browser , available methods, method invocation syntax, link to docs Also, you didn't notice that "convenience method" on the wxwidgets website http://docs.wxwidgets.org/trunk/search.php?query=AddMany Perl doesn't really need such a convenience method $sizer->Add( $_, 1, Wx::wxEXPAND() ) for $code, $text, $tree, $snickerdoodle; But you could make one `sub Wx::Sizer::AddMany { my $sizer = shift; $sizer->Add($_) for @_; } sub Wx::Sizer::AddMany { my ( $self, @many ) = @_; $self->Add($_) for +@many; } sub Wx::Sizer::AddMany { my ( $self, $flags, @many ) = @_; if ( 'ARRAY' eq ref $flags ) { $self->Add( $_, @$flags ) for @many +; } else { $self->Add($_) for $flags, @many; } }` [download]	[reply] [d/l]
Re^2: wxPerl: is AddMany implemented? (check and see with wxperl_usage) by Anonymous Monk on Apr 19, 2013 at 09:00 UTC
:) make it work with wxperl-usage :) `sub Wx::Sizer::AddMany { my ( $self, $flags, @many ) = @_; $self and $flags or Carp::croak "Usage: Wx::Sizer::AddMany( THIS, +optionalArrayrefOfOptions, window, ... )"; if ( 'ARRAY' eq ref $flags ) { @many or Carp::croak "Usage: Wx::Sizer::AddMany( THIS, optiona +lArrayrefOfOptions, window, ... )"; $self->Add( $_, @$flags ) for @many; } else { $self->Add($_) for $flags, @many; } }` [download]	[reply] [d/l]
Re^3: wxPerl: is AddMany implemented? (check and see with wxperl_usage) by HelenCr (Monk) on Apr 21, 2013 at 14:37 UTC
Thanks, AM's, I'll try that. Helen	[reply]