From 064a6acd00a752f590cc4f6bb88c699740901b74 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 30 Jul 2008 15:28:53 +0000 Subject: (_gtk__MagicWindow) remove ugly Frames around windows now that matchbox takes care of drawing real window borders --- perl-install/mygtk2.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index b36b1a6cd..28fb0f0a1 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -649,10 +649,7 @@ sub _gtk__MagicWindow { } if ($pop_it) { - $opts->{child} = $::isInstall ? - gtknew('Frame', shadow_type => 'out', - child => gtknew('Frame', shadow_type => 'none', border_width => 3, child => $sub_child)) : - $sub_child; + $opts->{child} = $sub_child; $w = _create_Window($opts); } else { @@ -678,7 +675,7 @@ sub _gtk__MagicWindow { sync($::WizardWindow); } else { add2hash($opts, { - child => gtknew('Frame', shadow_type => 'out', child => $::WizardTable), + child => $::WizardTable, }); $::WizardWindow = _create_Window($opts); } -- cgit v1.2.1