From cea57d1c2c2b33e2117582462ae76d1fcc0ac3dd Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Fri, 14 Feb 2003 17:33:20 +0000 Subject: add a frame to the wizard's outline --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 2c30c213d..ebce0c800 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -756,7 +756,7 @@ sub new { $::WizardWindow = Gtk2::Window->new('toplevel'); $::WizardWindow->signal_connect(delete_event => sub { die 'wizcancel' }); $::WizardTable = Gtk2::Table->new(2, 2, 0); - $::WizardWindow->add($::WizardTable); + $::WizardWindow->add(gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'out'), $::WizardTable)); if ($::isInstall) { $::WizardTable->set_size_request($::windowwidth * 0.90, $::windowheight * ($::logoheight ? 0.73 : 0.9)); -- cgit v1.2.1