From 3cf3179c502b85693b4b9fed28cc6c0695ee98b6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 18 Nov 2013 15:58:01 +0100
Subject: adapt to get_selected_rows() behavior change in Gtk3

---
 perl-install/standalone/drakfont | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 830baf933..8675d8890 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -663,7 +663,8 @@ sub advanced_install() {
 sub list_to_remove() {
     #my @files_path = grep(!/fonts/, all($current_path)); garbage ?
     gtkflush();
-    my (@tux) = $left_list->get_selection->get_selected_rows; #- get tree & paths
+    my ($indices) = $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 ?
     show_list_to_remove();
-- 
cgit v1.2.1