From 581d70ff9bbdb93dca53e1c46ddb10b2b1eaa945 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 19 Nov 2013 21:37:27 +0100 Subject: perlish ->window => ->get_window --- MageiaUpdate | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'MageiaUpdate') diff --git a/MageiaUpdate b/MageiaUpdate index df1bbd09..8bde8afc 100755 --- a/MageiaUpdate +++ b/MageiaUpdate @@ -114,7 +114,7 @@ sub toggle { my $pkg = $pkgs->{$name}{pkg}; return if !$pkg; $pkg->set_flag_skip(0); - toggle_nodes($w->{real_window}->window, $list->get_model, sub { + toggle_nodes($w->{real_window}->get_window, $list->get_model, sub { my ($leaf, $_state, $_model) = @_; $done = 1; $list->{data}[$data{$leaf}][$pkg_columns{selected}] = $pkgs->{$name}{selected}; @@ -237,7 +237,7 @@ sub run_treeview_dialog { $list->get_selection->signal_connect(changed => sub { my ($model, $iter) = $_[0]->get_selected; $model && $iter or return; - gtktext_insert($info, get_info($model->get($iter, $pkg_columns{text}), $w->{real_window}->window)); + gtktext_insert($info, get_info($model->get($iter, $pkg_columns{text}), $w->{real_window}->get_window)); $info->scroll_to_iter($info->get_buffer->get_start_iter, 0, 0, 0, 0); }); @@ -264,8 +264,8 @@ sub run_treeview_dialog { $cell->signal_connect(toggled => sub { my ($_cell, $text_path) = @_; my $name = $list->{data}[$text_path][$pkg_columns{text}]; - gtkset_mousecursor_wait($w->{real_window}->window); - my $_guard = before_leaving(sub { gtkset_mousecursor_normal($w->{real_window}->window) }); + gtkset_mousecursor_wait($w->{real_window}->get_window); + my $_guard = before_leaving(sub { gtkset_mousecursor_normal($w->{real_window}->get_window) }); toggle($list, $name); }); $action_button->set_sensitive(0) if $>; -- cgit v1.2.1