summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-09 19:21:34 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-09 19:21:34 +0000
commitecdcfe03ae26bf55597d6b435316e0978702f162 (patch)
treead8debd9cd65e517397b6b3ddee34ab2bdfa331a /perl-install/ugtk2.pm
parente68fc0d0b676bc86d807fe78ea593c3f2d8c972a (diff)
downloaddrakx-ecdcfe03ae26bf55597d6b435316e0978702f162.tar
drakx-ecdcfe03ae26bf55597d6b435316e0978702f162.tar.gz
drakx-ecdcfe03ae26bf55597d6b435316e0978702f162.tar.bz2
drakx-ecdcfe03ae26bf55597d6b435316e0978702f162.tar.xz
drakx-ecdcfe03ae26bf55597d6b435316e0978702f162.zip
get rid of equals
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index d57ccb86e..5de8205d3 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1094,6 +1094,7 @@ sub ask_browse_tree_info {
$toolbar->append_item(undef, $toolbar{$_}[0], undef, gtkcreate_img("$_.png"), $toolbar{$_}[1]);
}
+ $pixcolumn->{is_pix} = 1;
$common->{widgets} = { w => $w, tree => $tree, tree_model => $tree_model, textcolumn => $textcolumn, pixcolumn => $pixcolumn,
info => $info, status => $status };
ask_browse_tree_info_given_widgets($common);
@@ -1289,9 +1290,9 @@ sub ask_browse_tree_info_given_widgets {
0;
});
$w->{tree}->signal_connect(button_press_event => sub { #- not too good, but CellRendererPixbuf doesn't have the needed signals :(
- my ($returns, $path, $column) = $w->{tree}->get_path_at_pos($_[1]->x, $_[1]->y);
- if ($returns) {
- Gtk2->equals($column, $w->{pixcolumn}) and $mouse_toggle_pending = $w->{tree_model}->get($path, 0);
+ my ($path, $column) = $w->{tree}->get_path_at_pos($_[1]->x, $_[1]->y);
+ if ($path && $column) {
+ $column->{is_pix} and $mouse_toggle_pending = $w->{tree_model}->get($path, 0);
}
});
$common->{rebuild_tree}->();