使用perl Gtk2制作无窗口条目小部件

我想得到一个没有背景的条目小部件（与主窗口的背景相同，如中的第二幅图像）。对于标签小部件，情况就是这样，因为它们不是窗口小部件。我们可以从入口小部件中执行同样的操作吗

请建议从以下代码获取它的方法：

#! /usr/bin/perl

use Gtk2 -init;

my $dialog = Gtk2::Dialog->new ('Message', undef,
                'destroy-with-parent',
                'gtk-ok' => 'none');
my $label = Gtk2::Label->new ('Label text with no window: background of main window');
$dialog->get_content_area ()->add ($label);
my $entry = Gtk2::Entry->new();
$entry->set_text('Entry text, white background');
$dialog->get_content_area ()->add ($entry);
$dialog->show_all;
$dialog->signal_connect (response => sub { $_[0]->destroy });
$dialog->run;

---

谢谢

尝试不指定“帧”或“边框”

添加

$entry->set\u has\u frame（0）$输入->设置内部边界（未定义）不更改背景-仅更改条目大纲。是否设置背景<代码>$entry->修改背景（未定义，未定义）

modify_bg的第一个参数必须是

GtkStateType

值。但是，无论您使用的第一个参数是什么（

normal

，

active

，

prelight

，…）