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
