From f11b3b7e50d03d9cf435bc9ec7532947ee95204f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 16 Jan 2016 09:32:13 +0100
Subject: fix crash (mga#17484)

it looks like newer gtk+ fires some signals too early
---
 perl-install/NEWS                | 3 +++
 perl-install/diskdrake/hd_gtk.pm | 1 +
 2 files changed, 4 insertions(+)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 3edfbc05a..9f2dc09eb 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- diskdrake:
+  o fix crash (mga#17484)
+
 Version 17.12 - 2 January 2016
 
 - misc cleanups
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 93625e921..68295879d 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -276,6 +276,7 @@ sub per_entry_info_box {
 sub current_kind_changed {
     my ($_in, $kind) = @_;
 
+    return if !$kind->{display_box};
     $_->destroy foreach $kind->{display_box}->get_children;
     my @parts = kind2parts($kind);
     my $totalsectors = kind2sectors($kind, @parts);
-- 
cgit v1.2.1