From fc9d23b1360e8103366260ac5c0cb79693a4701d Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Sat, 17 Oct 2009 15:05:47 +0000
Subject: partitioning wizard: use a different color for newly created
 partition

---
 perl-install/NEWS                      | 2 ++
 perl-install/fs/partitioning_wizard.pm | 8 ++++----
 perl-install/install/NEWS              | 3 +++
 perl-install/share/diskdrake.rc        | 8 ++++++++
 4 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 4382ce7c0..451cfe209 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,5 +1,7 @@
 - service_harddrake: allow to force screen resolution using
   RESOLUTION_WANTED=XxY in /etc/sysconfig/harddrake2/service.conf
+- partitioning wizard:
+  o use a different color for newly created partition
 
 Version 12.66 - 15 October 2009
 
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index b1826f2be..43d648edf 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -317,7 +317,7 @@ sub create_display_box {
             my $b2 = Gtk2::Label->new("");
             $ev2->add($b2);
             $b2->set_size_request($ratio * MB(600), 0);
-            $ev2->set_name("PART_ext4");
+            $ev2->set_name("PART_new");
             
             my $hpane = Gtk2::HPaned->new;
             $hpane->add1($ev);
@@ -342,7 +342,7 @@ sub create_display_box {
             $win_size_label->set_alignment(0,0.5);
             $ev = Gtk2::EventBox->new;
             $ev->add(Gtk2::Label->new(" " x 4));
-            $ev->set_name("PART_ext4");
+            $ev->set_name("PART_new");
             ugtk2::gtkpack__($desc, $ev); 
             my $mdv_size_label = Gtk2::Label->new;
             ugtk2::gtkset_size_request($mdv_size_label, 150, 20);
@@ -373,7 +373,7 @@ sub create_display_box {
         } else {
             if ($fill_empty && isEmpty($entry)) {
                 $w->set_text("Mandriva");
-                $ev->set_name("PART_ext4");
+                $ev->set_name("PART_new");
             } else {
                 $ev->set_name("PART_" . (isEmpty($entry) ? 'empty' : 
                                          $entry->{fs_type} && member($entry->{fs_type}, @colorized_fs_types) ? $entry->{fs_type} :
@@ -437,7 +437,7 @@ sub display_choices {
             my $b2 = Gtk2::Label->new("Mandriva");
             $item->add($b2);
             $b2->set_size_request(516,24);
-            $item->set_name("PART_ext4");
+            $item->set_name("PART_new");
         } elsif ($s eq 'diskdrake') {
         } else {
             log::l($s);
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 078b4a4b1..bdcecbabc 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- partitioning wizard:
+  o use a different color for newly created partition
+
 Version 12.66 - 15 October 2009
 
 - mount windows partitions under /media instead of /mnt (#53392)
diff --git a/perl-install/share/diskdrake.rc b/perl-install/share/diskdrake.rc
index 29c830f88..9efd83d2e 100644
--- a/perl-install/share/diskdrake.rc
+++ b/perl-install/share/diskdrake.rc
@@ -44,6 +44,13 @@ style "gray" = "font"
   bg[PRELIGHT] = { 0.57, 0.62, 0.57 }
   fg[NORMAL] = { 0, 0, 0 }
 }
+style "yellow" = "font"
+{
+  bg[NORMAL] = { 1.0, 1.0, 0 }
+  bg[ACTIVE] = { 1.0, 1.0, 0 }
+  bg[PRELIGHT] = { 1.0, 1.0, 0 }
+  fg[NORMAL] = { 0, 0, 0 }
+}
 
 widget "*PART_ext3"	style "red" 
 widget "*PART_ext4"	style "red" 
@@ -53,3 +60,4 @@ widget "*PART_vfat"	style "blue"
 widget "*PART_ntfs*"	style "blue"
 widget "*PART_empty"	style "white"
 widget "*PART_other"	style "gray"
+widget "*PART_new"	style "yellow"
-- 
cgit v1.2.1