summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-08-29 09:10:27 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-08-29 09:10:27 +0000
commit6c4d11ec5422c2fab71fb9121de67b2dbbba5444 (patch)
tree97854f9cf167cdfd3d85da91cc96449faf3b7f62 /perl-install
parent71180d5532cd2fe1853cc32d8826a04644e2ec08 (diff)
downloaddrakx-6c4d11ec5422c2fab71fb9121de67b2dbbba5444.tar
drakx-6c4d11ec5422c2fab71fb9121de67b2dbbba5444.tar.gz
drakx-6c4d11ec5422c2fab71fb9121de67b2dbbba5444.tar.bz2
drakx-6c4d11ec5422c2fab71fb9121de67b2dbbba5444.tar.xz
drakx-6c4d11ec5422c2fab71fb9121de67b2dbbba5444.zip
ask_browse: display_info needs to be available for rpmdrake
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/my_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 5a544a8d3..7eee5dbca 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -523,7 +523,7 @@ sub ask_browse_tree_info_given_widgets {
&$update_size;
};
- my $display_info = sub { gtktext_insert($w->{info}, $common->{get_info}($curr)); 0 };
+ $common->{display_info} = sub { gtktext_insert($w->{info}, $common->{get_info}($curr)); 0 };
my $children = sub { map { ($w->{tree}->node_get_pixtext($_, 0))[0] } gtkctree_children($_[0]) };
my $toggle = sub {
if (ref $curr && ! $_[0]) {
@@ -557,7 +557,7 @@ sub ask_browse_tree_info_given_widgets {
if ($_[1]->row->is_leaf) {
($curr) = $w->{tree}->node_get_pixtext($_[1], 0);
$parent = $_[1]->row->parent;
- $idle = Gtk->timeout_add(100, $display_info);
+ $idle = Gtk->timeout_add(100, $common->{display_info});
} else {
$curr = $_[1];
}