summaryrefslogtreecommitdiffstats
path: root/perl-install/fs/partitioning_wizard.pm
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2009-10-17 19:51:44 +0000
committerPascal Terjan <pterjan@mandriva.org>2009-10-17 19:51:44 +0000
commitfad0259fb304e54cedebb7f389d5cd99f643d0db (patch)
tree6dc35128059d38931aef442b09f9d1fe2a9e225f /perl-install/fs/partitioning_wizard.pm
parent3b2ca31618e79683ddce30cde61e3b77fab73dfd (diff)
downloaddrakx-fad0259fb304e54cedebb7f389d5cd99f643d0db.tar
drakx-fad0259fb304e54cedebb7f389d5cd99f643d0db.tar.gz
drakx-fad0259fb304e54cedebb7f389d5cd99f643d0db.tar.bz2
drakx-fad0259fb304e54cedebb7f389d5cd99f643d0db.tar.xz
drakx-fad0259fb304e54cedebb7f389d5cd99f643d0db.zip
- partitioning wizard:
o add legend for the colors o display mount point if known o display ext2 like ext3/4
Diffstat (limited to 'perl-install/fs/partitioning_wizard.pm')
-rw-r--r--perl-install/fs/partitioning_wizard.pm18
1 files changed, 16 insertions, 2 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 43d648edf..99c04acc5 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -301,9 +301,9 @@ sub create_display_box {
$last = $resize->[-1] if $resize;
foreach my $entry (@parts) {
- my $info = $entry->{device_LABEL};
+ my $info = $entry->{mntpoint} || $entry->{device_LABEL};
my $w = Gtk2::Label->new($info);
- my @colorized_fs_types = qw(ext3 ext4 xfs swap vfat ntfs ntfs-3g);
+ my @colorized_fs_types = qw(ext2 ext3 ext4 xfs swap vfat ntfs ntfs-3g);
$ev = Gtk2::EventBox->new;
$ev->add($w);
my $part;
@@ -391,6 +391,20 @@ sub create_display_box {
ugtk2::gtkpack__($display_box, $ev);
}
$display_box->remove($ev);
+ 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"));
+ my %name2fs_type = ('Ext2/3/4' => 'ext3', 'XFS' => 'xfs', Swap => 'swap', Other => 'other', "Windows" => 'vfat', HFS => 'hfs');
+ $desc = ugtk2::gtkpack(Gtk2::HBox->new(),
+ map {
+ my $t = $name2fs_type{$_};
+ my $ev = Gtk2::EventBox->new;
+ my $w = Gtk2::Label->new(translate($_));
+ $ev->add($w);
+ $ev->set_name('PART_' . ($t || 'empty'));
+ $ev;
+ } @types);
+ }
$vbox->add($display_box);
$vbox->add($desc) if $desc;