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

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;

最佳答案

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

关于perl - gtk条目set_position不会移动光标,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/18674005/

10-11 23:19
查看更多