summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-09 16:32:22 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-09 16:32:22 +0000
commit719a268b70274f200cc245dd5d2515fbc1cc0e67 (patch)
treeebb91eda2421639b2c405923c0499026992d34ec /perl-install/ugtk2.pm
parent23da00868903cc5d9d19517e4e0d1d3430e799d9 (diff)
downloaddrakx-backup-do-not-use-719a268b70274f200cc245dd5d2515fbc1cc0e67.tar
drakx-backup-do-not-use-719a268b70274f200cc245dd5d2515fbc1cc0e67.tar.gz
drakx-backup-do-not-use-719a268b70274f200cc245dd5d2515fbc1cc0e67.tar.bz2
drakx-backup-do-not-use-719a268b70274f200cc245dd5d2515fbc1cc0e67.tar.xz
drakx-backup-do-not-use-719a268b70274f200cc245dd5d2515fbc1cc0e67.zip
Add the possibility to call a callback just after widget initialisation in
ask_browse_tree_info_given_widgets().
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 4cb39422d..e91ed0eb5 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1249,6 +1249,7 @@ sub ask_browse_tree_info_given_widgets {
&$update_size;
$common->{initial_selection} and $common->{toggle_nodes}($set_leaf_state, @{$common->{initial_selection}});
my $_b = before_leaving { $clear_all_caches->() };
+ $common->{init_callback}->() if $common->{init_callback};
$w->{w}->main;
}