From 2d16462b26c5651aa0699a707ba0201dada8d3e4 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 28 Oct 2009 17:49:41 +0000 Subject: use ugtk2 sweet --- perl-install/fs/partitioning_wizard.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'perl-install/fs') diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index b04dded63..86137a8a7 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -321,11 +321,9 @@ sub create_display_box { $part_widget->set_name("PART_vfat"); $part_info->set_size_request(ceil($ratio * $entry->{min_win}), 0); - my $mdv_widget = Gtk2::EventBox->new; - my $b2 = gtknew("Image", file => "small-logo"); - $mdv_widget->add($b2); - $b2->set_size_request($ratio * MB(600), 0); - $mdv_widget->set_name("PART_new"); + my $mdv_widget = gtkadd(gtkset_name(Gtk2::EventBox->new, "PART_new"), + gtkset_size_request(gtknew("Image", file => "small-logo"), + $ratio * MB(600), 0)); my $hpane = Gtk2::HPaned->new; $hpane->add1($part_widget); -- cgit v1.2.1