perl - perl Gtk2 でウィンドウなしエントリ ウィジェットを作成する

Question

背景のないエントリ ウィジェットを取得したいと思います ( http://www.lanedo.com/~carlos/gtk3-doc/chap-drawing-model.htmlの 2 番目の画像のように、メイン ウィンドウと同じ背景) #figure-windowed-label )。ラベル ウィジェットの場合、これらはウィンドウのないウィジェットであるためです。エントリ ウィジェットから同じことができますか?

次のコードから取得する方法を提案してください。

#! /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;

ありがとう！

Answer 1

「枠」または「枠」を指定しないでみてください