在Perl GTK + 2中提取菜單項文本

Question

我在彈出菜單上的樹視圖中用戶選擇要從備份中恢復的機器。我想簡化界面並製作一個根據可用文件動態生成的子菜單。這是我到目前爲止有：

$restore_item->set_submenu($arc_menu); 
open(FILE, "archives.db") or die("Unable to open file"); 
foreach (<FILE>) { 
    # if record is correct 
    if ($_ =~ /archive=(.+)/) { 
     my $item = new Gtk2::MenuItem("_" . $1); 
     $item->signal_connect('activate' => sub { print "selected\n"; }); 
     $arc_menu->append($item); 
    } 
} 
close(FILE); 

但是，在現實生活中，我將要讀菜單項文本文件，可以動態地改變，我不能靠計數或東西。我無法理解如何從回調中獲取菜單項文本。

Answer 1

至少有兩種選擇。將可選參數傳遞給回調（user_data）或從Gtk2 :: MenuItem（$item->get_label）獲取標籤。

對於前者，你可以使用類似：

$item->signal_connect('activate' => \&on_button_activate, $1); 
[...] 

sub on_button_activate 
{ 
     # Do whatever you need. The second parameters is 
     # user_data (the filename in this case). 
     my ($item, $user_data) = @_; 
     print $item->get_label; 
     print $user_data; 
}