From d99932d51905acb2ffff1f0ba29802a08fb81237 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 28 Oct 2009 17:01:27 +0000 Subject: use ugtk2 magic and separate variable for partition separator --- perl-install/fs/partitioning_wizard.pm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'perl-install') diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index 248bb04ed..926fdfbcd 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -302,6 +302,7 @@ sub create_display_box { my $vbox = Gtk2::VBox->new; my $ev; + my $part_sep; my $desc; my $last; @@ -394,14 +395,12 @@ sub create_display_box { ugtk2::gtkpack($display_box, $ev); } $ev->add($w); - my $sep = Gtk2::Label->new("."); - $ev = Gtk2::EventBox->new; - $ev->add($sep); - $sep->set_size_request(1, 0); - ugtk2::gtkpack__($display_box, $ev); + $part_sep = gtkadd(Gtk2::EventBox->new, + gtkset_size_request(Gtk2::Label->new("."), 1, 0)); + gtkpack__($display_box, $part_sep); } - $display_box->remove($ev); + $display_box->remove($part_sep); unless($resize || $fill_empty) { my @types = (N_("Ext2/3/4"), N_("XFS"), N_("Swap"), arch() =~ /sparc/ ? N_("SunOS") : arch() eq "ppc" ? N_("HFS") : N_("Windows"), N_("Other"), N_("Empty")); -- cgit v1.2.1