[wxperl-users] TextCrtl select all text when control is entered

[Grumm, C. <car...@ch...>]

Hello,

I'm trying to have all text selected when a user enters the textcontrol.
I've tried using EVT_SET_FOCUS like this:

sub OnSetFocus {
	my ($this, $event) =3D @_;
	$this->SetSelection(-1, -1);
}

... but that doesn't work.

I've found some Pythoncode
(http://aspn.activestate.com/ASPN/Mail/Message/wxPython-users/2086900)=20
where Wx::CallAfter is used, but I don't know how to do this in wxPerl?

Thanks in adv.

Carsten