Tk question about Text widget


Don't ask to ask, just ask
	PerlMonks

Tk question about Text widget

by Courage (Parson)

on Jun 08, 2002 at 12:04 UTC ( [id://172767]=perlquestion: print w/replies, xml )

Need Help??

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

Dear wise fellows perlmonks!

How can one intercept changing of cursor position in Text widget?
Is there a way to do this without intercepting of all events and comparing old and new position?

Thanks in advance,
Courage, the Cowardly Dog.
PS. Something fishy is going on there, or my name is Vadim Konovalov. And it's not.

Comment on Tk question about Text widget

Replies are listed 'Best First'.

Re: Tk question about Text widget
by Courage (Parson) on Jun 08, 2002 at 14:11 UTC

In my widget, which is derived from Tk::Text, I redefined a function SetCursor, and all worked!

sub SetCursor {
  my $w = shift;
  print STDERR "here we know that cursor position changed\n";
  my $rc = $w->SUPER::SetCursor(@_);
  print STDERR "do something more when Text widget calmed down after c
+hanging cursor position\n";
  return $rc;
}
[download]

Also, many other intresting event mappings could be done this way.

Courage, the Cowardly Dog.
PS. Something fishy is going on there, or my name is Vadim Konovalov. And it's not.

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom