From aed58076b2046bebcca2b96a68656921ee7558ad Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 19 May 2015 05:08:42 -0400
Subject: fix crash (mga#13627)

bug introduced in commit 3cf3179c502b85693b4b9fed28cc6c0695ee98b6
---
 perl-install/NEWS                | 3 +++
 perl-install/standalone/drakfont | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 9ea357c82..24536588a 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- drakfont:
+  o fix crash (mga#13627)
+
 Version 16.97 - 18 May 2015
 
 - library (for draklive-install):
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index ba9e17ab0..ade0d51c5 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -661,7 +661,7 @@ sub advanced_install() {
 sub list_to_remove() {
     #my @files_path = grep(!/fonts/, all($current_path)); garbage ?
     gtkflush();
-    my ($indices) = $selection->get_selected_rows;
+    my ($indices) = $left_list->get_selection->get_selected_rows;
     my (@tux) = @$indices; #- get tree & paths
     push @uninstall, map { $left_model->get($left_model->get_iter($_), 0) } @tux;
     #push @uninstall, $current_path . "/" . $files_path[$_] foreach @number_to_remove; garbage ?
-- 
cgit v1.2.1