perl - gtk entry set_position 不移动光标

Question

为什么这段代码没有将光标移动到条目的最后一个字符？

use Gtk2 '-init';
my $window = Gtk2::Window->new;
my $entry = Gtk2::Entry->new;

my $handler;
$handler = $entry->signal_connect ( 'insert-text' =>
    sub {
        my (
            $entry,
            $chrs,
            $len,
            $pos_strange,
            $handler,
        ) = @_;
        $entry->signal_handler_block ( $$handler );
        $entry->set_text ( 'tryme' );
        $entry->signal_stop_emission_by_name ('insert-text');
        $entry->signal_handler_unblock ( $$handler );
        $entry->set_position ( -1 );
    },
    \$handler
);

$window->set_size_request ( 200, 100 );
$window->add ( $entry );
$window->set_position ('center_always');
$window->show_all;
$window->signal_connect ( delete_event => sub { Gtk2->main_quit; } );
Gtk2->main;

Answer 1

当最后一个insert-text处理程序返回时，Gtk 使用 的值更新光标位置，pos因此您的代码正在移动光标，然后 Gtk 再次移动它。您可以按照上面的建议使用空闲回调，但更新处理程序中的 pos 可能会更干净。你想做 perl 等价的*pos = g_utf8_strlen ("tryme"), 0)代替$entry->set_position ( -1 );