将Gtk2::EntryCompletion与Gtk2::SimpleList一起使用

use Gtk2 '-init';
use Gtk2::SimpleList;
use Gtk2::EntryCompletion;

# 创建主窗口
my $window = Gtk2::Window->new('toplevel');
$window->set_title('EntryCompletion with SimpleList');
$window->set_default_size(400, 300);
$window->signal_connect('destroy' => sub { Gtk2->main_quit });

# 创建Gtk2::Entry对象
my $entry = Gtk2::Entry->new;
$entry->set_text('');  # 设置初始文本

# 创建Gtk2::EntryCompletion对象
my $completion = Gtk2::EntryCompletion->new;
$completion->set_model(Gtk2::ListStore->new('Glib::String'));
$completion->set_text_column(0);
$completion->set_match_func(\&match_func);  # 设置匹配规则的回调函数

# 创建Gtk2::SimpleList对象
my $list = Gtk2::SimpleList->new('Column 1' => 'text');
$list->set_headers_visible(0);  # 隐藏列标题

# 将Gtk2::EntryCompletion与Gtk2::SimpleList关联起来
$completion->set_popup_completion(1);
$completion->set_popup_set_width(1);
$completion->set_popup_single_match(0);
$completion->set_popup_rows(5);
$completion->set_popup_widget($list);

# 将Gtk2::EntryCompletion添加到Gtk2::Entry中
$entry->set_completion($completion);

# 将Gtk2::Entry和Gtk2::SimpleList添加到主窗口
my $vbox = Gtk2::VBox->new(0, 5);
$vbox->pack_start($entry, 0, 0, 0);
$vbox->pack_start($list, 1, 1, 0);
$window->add($vbox);

$window->show_all;
Gtk2->main;

# 匹配规则的回调函数
sub match_func {
    my ($completion, $key, $iter) = @_;
    my $model = $completion->get_model;
    my $iter = $model->get_iter_first;
    while ($iter) {
        my $text = $model->get_value($iter, 0);
        if ($text =~ /^$key/i) {
            return 1;
        }
        $iter = $model->iter_next($iter);
    }
    return 0;
}