添加一个弹出窗口

　　现在再改写其它菜单项的程序，为它们添加弹出窗口的功能。同样，GNOME 将会为我们完成这一切。我们为 About… 指定一个子程序的引用，

　　{type => 'item',
　　label => '_About...',
　　pixmap_type => 'stock',
　　pixmap_info => 'Menu_About',
　　callback => chunk73189886chunk#38;about_box
　　}

　　这个子程序会创建并在窗口上显示这个弹出窗口：

　　sub about_box {
　　my $about = new Gnome::About $NAME, "v1.0",
　　"(C) Simon Cozens, 2000", ["Simon Cozens"],
　　"This program is released under the same terms as Perl itself";
　　show $about;
　　}

　　用 Gnome:About 类可以创建弹出窗口的实例：在这里我们给弹出窗口传递了我们程序的名称，版本，版权信息，作者的姓名和其它评论。然后用显示主窗口用到的 show 方法来同样显示这个弹出窗口。当点击 “OK” 按钮的时候，这个弹出窗口就关闭。