summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-18 15:58:01 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:53:08 +0100
commit3cf3179c502b85693b4b9fed28cc6c0695ee98b6 (patch)
tree66654c45040aabc3a6a8d5e79e7e783d1108a2ef /perl-install
parent2bffccc63a0edc4979c5ed2831e961d93ebaef1a (diff)
downloaddrakx-3cf3179c502b85693b4b9fed28cc6c0695ee98b6.tar
drakx-3cf3179c502b85693b4b9fed28cc6c0695ee98b6.tar.gz
drakx-3cf3179c502b85693b4b9fed28cc6c0695ee98b6.tar.bz2
drakx-3cf3179c502b85693b4b9fed28cc6c0695ee98b6.tar.xz
drakx-3cf3179c502b85693b4b9fed28cc6c0695ee98b6.zip
adapt to get_selected_rows() behavior change in Gtk3
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfont3
1 files changed, 2 insertions, 1 deletions
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();