From 6af9d6c98d7ccec8143f53ac970763910ad828f3 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Thu, 26 Nov 2009 23:12:56 +0000 Subject: diskdrake: allow copying disk and partition infos (#55886) --- perl-install/NEWS | 2 ++ perl-install/diskdrake/hd_gtk.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index b18054551..1107a313d 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -14,6 +14,8 @@ - detect better invalid dos partition table (fixes a crash in harddrake) - mygtk2: o allow labels to be set selectable +- diskdrake: + o allow copying disk and partition infos (#55886) Version 12.78 - 18 November 2009 diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 6848e2b5b..65f4f94cb 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -243,7 +243,7 @@ sub per_entry_info_box { } gtkpack($box, gtkadd(gtkcreate_frame(N("Details")), gtknew('HBox', border_width => 5, children_loose => [ - gtkset_alignment(gtkset_justify(Gtk2::Label->new($info), 'left'), 0, 0) ]))); + gtkset_alignment(gtkset_justify(gtknew('Label', selectable => 1, text => $info), 'left'), 0, 0) ]))); } sub current_kind_changed { -- cgit v1.2.1