From 6cb588ed76b36e09ff2bf3f7e674603a6455b433 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau 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(+) 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