From 719a268b70274f200cc245dd5d2515fbc1cc0e67 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 9 Feb 2005 16:32:22 +0000
Subject: Add the possibility to call a callback just after widget
 initialisation in ask_browse_tree_info_given_widgets().

---
 perl-install/ugtk2.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install')

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;
 }
 
-- 
cgit v1.2.1