summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-10-28 17:01:27 +0000
committerOlivier Blin <oblin@mandriva.com>2009-10-28 17:01:27 +0000
commitd99932d51905acb2ffff1f0ba29802a08fb81237 (patch)
treead3f4c0d8fccc1fb44bdc92b036f0bb87d7db63e /perl-install
parentf3fb118ac213d2e6e3bce3cd580a66298f6254d7 (diff)
downloaddrakx-d99932d51905acb2ffff1f0ba29802a08fb81237.tar
drakx-d99932d51905acb2ffff1f0ba29802a08fb81237.tar.gz
drakx-d99932d51905acb2ffff1f0ba29802a08fb81237.tar.bz2
drakx-d99932d51905acb2ffff1f0ba29802a08fb81237.tar.xz
drakx-d99932d51905acb2ffff1f0ba29802a08fb81237.zip
use ugtk2 magic and separate variable for partition separator
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/partitioning_wizard.pm11
1 files changed, 5 insertions, 6 deletions
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"));