(build_list) make icon+text act as a single item for links (fcrozat)

2 files changed, 7 insertions, 5 deletions

diff --git a/NEWS b/NEWS
index 2aa88841..d7df43b1 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- make icon+text act as a single item for links
+
 Version 11.4 - 25 September 2008, Thierry Vignaud
 
 - add padding between icons & text
diff --git a/control-center b/control-center
index 241bc12d..0f878dd4 100755
--- a/control-center
+++ b/control-center
@@ -869,16 +869,16 @@ foreach (@tree) {
                        $tool_feedback{$label} = sub {}; #sub { $event_box->window && $event_box->window->set_cursor($hand_cursor) };
                         my $real_icon = $icon ? '<IMG SRC="' . ugtk2::_find_imgfile($icon) . '">' : '';
                         my @widgets = (
-                            qq(<TD><A HREF="$label">$real_icon</A></TD>),
-                            qq(<TD style="text-align: $align"><A HREF="$label"><DIV>)
+                            qq(<TD>$real_icon</TD>),
+                            qq(<TD style="text-align: $align"><DIV>)
                               . escape_text_for_TextView_markup_format($programs{$label}{description})
-                                . qq(</DIV></A></TD>)
+                                . qq(</DIV></TD>)
                         );
                         @widgets = reverse @widgets if mygtk2::text_direction_rtl();
                          qq(<TD WIDTH="49%">
-<TABLE align="$align2"><TR>
+<A HREF="$label"><TABLE align="$align2"><TR>
 @widgets
-</TR></TABLE></TD>
+</TR></TABLE></A></TD>
 );
                    } @{$subtree->{list}})
                    );