From b6a9f80f64d28dc8ea4f65e4bbe5603b567e8b6d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 29 Oct 2009 18:41:24 +0000 Subject: (build_list) keep html code string visible outside of closure (needed for next commits) --- control-center | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/control-center b/control-center index 9f6528ac..c9322f94 100755 --- a/control-center +++ b/control-center @@ -847,6 +847,8 @@ sub build_widget_element { ); } +my (@strings, $current_string_idx); + sub build_list() { my $index = 0; load_packages2install(); @@ -964,10 +966,12 @@ foreach (@tree) { MDK::Common::File::output_utf8("/tmp/mcc/$i.html", $string); } + $strings[$my_index] = $string; push @buttons, gtknew('Button', relief => 'none', child => gtknew('Label_Right', text_markup => qq($text), ellipsize => 'end'), clicked => sub { - $view->load_html_string($string, 'file:///'); + $current_string_idx = $my_index; + $view->load_html_string($strings[$current_string_idx], 'file:///'); $steps->move_selection($_[0]->child); $banner_notebook->set_current_page($my_index); $help_on_context = $help; -- cgit v1.2.1