Help for this page

Select Code to Download

Select or download this

sub SetCursor {
  my $w = shift;
...
  print STDERR "do something more when Text widget calmed down after c
+hanging cursor position\n";
  return $rc;
}