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

$text->SetCursor(position)
Moves the insert mark to position.
url: http://search.cpan.org/dist/Tk/pod/Text.pod
Hi guys,
Anyone know what the position should be.
Give me some example thanks.

Replies are listed 'Best First'.
Re: How to use Tk::Text->SetCursor (INDICES/INDEX)
by Anonymous Monk on Nov 08, 2013 at 20:25 UTC

    Hmm,

    nope -- perldoc Tk |grep -in position

    nope -- grep SetPosition -r Tk-804.031

    *brains* -- I remember its http://search.cpan.org/dist/Tk/pod/Text.pod#INDICES you want 

    $text->SetCursor( "$line.$char" );
$text->SetCursor( "+ $count chars" );
$text->SetCursor( "- $count chars" );
$text->SetCursor( "+ $count lines" );
$text->SetCursor( "- $count lines" );
$text->SetCursor( "wordstart" );
$text->SetCursor( "wordend" );
$text->SetCursor( "linestart" );
$text->SetCursor( "lineend" );
$text->SetCursor( "imageName" );
$text->SetCursor( $widget );
$text->SetCursor( "tag.first" );
$text->SetCursor( "tag.last" );
$text->SetCursor( "mark" );
$text->SetCursor( "othermark" );
$text->SetCursor( "end" );
$text->SetCursor( "@30,50" ); ## pixels

    [download]
[reply]
[d/l]
      Thanks man.
      But I still cannot understand.
      For example, How to move the insert cursor to 3rd line?
[reply]

        You buy it dinner first? 

        my $line = 3;
my $char = 0;
$text->SetCursor( "$line.$char" );
$text->SetCursor( "3.0" );

        [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom