RE: Help with Wx::Perl::PubSub

Hi Steve,

I download this from https://github.com/mbarbon/wx-perl-pubsub/blob/master/Build.PL

It's not a cpan however
The reason of the modules are here
http://www.nntp.perl.org/group/perl.wxperl.users/2010/06/msg7350.html

I have use Gtk2, and the subscribe unsubscribe functions of this module seem me similar to the functions I used with Gtk signal event.

Another question: I would like to have a dropdbox that list usernames and that return a userid when one select a name. Shall I use a Wx::ListBox or Wx::ListCtrl ? 
Can you point me to some codes examples ?

Thanks 

François

> -----Original Message-----
> From: Steve Cookson - gmail [mailto:[email protected]]
> Sent: jeudi, 14. mai 2015 20:34
> To: [email protected]
> Subject: Re: Help with Wx::Perl::PubSub
> 
> Hi François,
> 
> This is very interesting.  I've not seen it before, what is it supposed
> to do to events and why is it better than the standard way of handling
> them?
> 
> Regards
> 
> Steve.
> 
> On 12/05/15 09:29, RAPPAZ Francois wrote:
> > I would like to bind a TextChanged event with a Wx::TextCtrl.
> >
> > I have this that works:
> >
> > EVT_TEXT($frame, $w, sub{$self->Test($w)}); Where $frame is the top
> > level frame, $w the field that emit the signal.
> >
> > I'm trying to use the Wx::Perl::PubSub module, but none of these
> works
> >
> > $w->subscribe('TextChanged', sub{$self->Test($w)} ); Does nothing
> >
> > $w->subscribe('TextChanged', $self, 'Test'); Crash with not a code
> ref
> > at C:/strawberry/perl/site/lib/Wx/Perl/PubSub.pm line 377.
> >          Wx::Perl::PubSub::emit(Wx::TextCtrl=SCALAR(0x4bd19bc),
> > "TextChanged", "1
> > 0.1111/tpj.12544-modd") called at
> > C:/strawberry/perl/site/lib/Wx/Perl/PubSub.pm
> > line 390
> >          Wx::Perl::PubSub::emit_event(Wx::TextCtrl=SCALAR(0x4bd19bc),
> > Wx::Command Event=SCALAR(0x406fcec), "TextChanged",
> > "10.1111/tpj.12544-modd") called at C:/s
> trawberry/perl/site/lib/Wx/Perl/PubSub/Events.pm line 205
> >
> >
> Wx::Perl::PubSub::Events::_Wx_TextCtrl_TextChanged(Wx::TextCtrl=SCALAR
> > (0 x4bd19bc), Wx::CommandEvent=SCALAR(0x406fcec)) called at
> > U:\docs\perl\wxw\refsui .pl line 26
> >          eval {...} called at U:\docs\perl\wxw\refsui.pl line 26
> >
> >
> > $w->subscribe('TextChanged', $frame, 'Test'); Remains silent
> >
> > Where Test is
> > sub Test {
> > my ($self, $w) = @_;
> > print $w->GetValue. "\n";
> >
> > }
> >
> > Thanks for any help
> >
> > François
> >