From 8e28b7b164be215dcdbebbb6dfdae689998f5874 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 20 Jan 2014 01:52:28 +0100
Subject: show labels on partition buttons

reverting commit 54dd9e586b59fdacb54bcd2f78d29870d00b1f3e
---
 perl-install/diskdrake/hd_gtk.pm | 10 ++--------
 perl-install/install/NEWS        |  1 +
 2 files changed, 3 insertions(+), 8 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 0b36d229d..98738738f 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -356,14 +356,8 @@ sub create_buttons4partitions {
 	}
 	my $info = $entry->{mntpoint} || $entry->{device_LABEL} || '';
 	$info .= "\n" . ($entry->{size} ? formatXiB($entry->{size}, 512) : N("Unknown")) if $info;
-	my $w;
-	if ($::isInstall) {
-	    $w = Gtk3::ToggleButton->new();
-	}else {
-	    $w = Gtk3::ToggleButton->new_with_label($info);
-	    $w->get_child->set_ellipsize('end');
-	}
-	$w or internal_error('new_with_label');
+	my $w = Gtk3::ToggleButton->new_with_label($info) or internal_error('new_with_label');
+	$w->get_child->set_ellipsize('end');
 	$w->set_tooltip_text($info);
 	$w->signal_connect(clicked => sub { 
 	    $current_button != $w or return;
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index b04a7f5ed..9412c459b 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -4,6 +4,7 @@
   o fix sizing partition widgets
   o fix not moving window (mga#11790, mga#11988, mga#11977)
   o revert minimum partition width to its pre-gtk3 value
+  o show labels on partition buttons
 
 Version 16.25 - 19 January 2014
 
-- 
cgit v1.2.1