http://qs321.pair.com?node_id=274817


in reply to Tk text widget indices.

Hi,

the follwing test ...

#!perl use strict; use warnings; use Tk; use vars qw/$TOP/; $TOP = MainWindow->new(); my $t = $TOP->Scrolled(qw/Text -scrollbars e/)->pack(); $t->insert('0.0', 'try **until **you **succeed'); my $result = $t->search(-forwards,"**",'end'); print "\$result: $result\n"; my $start=$result+.2; print "\$start: $start\n"; my @chars=$t->get("$start","$start wordend"); print "\nThe word:"; print"\n@chars\n"; MainLoop;
... with activePerl ...
# aperl -v This is perl, v5.6.1 built for MSWin32-x86-multi-thread (with 1 registered patch, see perl -V for more detail) Copyright 1987-2001, Larry Wall Binary build 633 provided by ActiveState Corp. http://www.ActiveState. +com Built 21:33:05 Jun 17 2002
... on XP did it, at least i think, as you want.

# aperl textwidget $result: 1.4 $start: 1.6 The word: until
But are sure whether it's a good idea to do text/string-orientated things with widget-methods. Perhaps it would be easier and more efficient to try approaches with regexes or split.

greetings, tos