(build_list) keep html code string visible outside of closure (needed

for next commits)

1 files changed, 5 insertions, 1 deletions

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(<small>$text</small>), 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;