Создайте виджет без окон с помощью Perl Gtk2 - PullRequest
0 голосов
/ 05 февраля 2012

Я хотел бы получить виджет ввода без фона (тот же фон, что и в главном окне, как на втором изображении из http://www.lanedo.com/~carlos/gtk3-doc/chap-drawing-model.html#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;

Спасибо!

1 Ответ

0 голосов
/ 05 февраля 2012

Попробуйте указать «рамку» или «рамку»

...