为什么这段代码没有将光标移动到条目的最后一个字符?
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/