From 6cb588ed76b36e09ff2bf3f7e674603a6455b433 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 26 Feb 2004 11:08:20 +0000
Subject: ask_browse_tree_info_given_widgets: allow for an initial selection if
 necessary (through toggle_nodes)

---
 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 29f0b4767..42f631717 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1396,6 +1396,7 @@ sub ask_browse_tree_info_given_widgets {
     });
     $common->{rebuild_tree}->();
     &$update_size;
+    $common->{initial_selection} and $common->{toggle_nodes}($set_leaf_state, @{$common->{initial_selection}});
     my $_b = before_leaving { $clear_all_caches->() };
     $w->{w}->main;
 }
-- 
cgit v1.2.1