don't use extra space if we have only one icon in last row

1 files changed, 3 insertions, 2 deletions

diff --git a/control-center b/control-center
index c2e37618..f6d78653 100755
--- a/control-center
+++ b/control-center
@@ -1426,6 +1426,7 @@ foreach (@tree) {
 <h3>$subtree->{title}</h3>
 <TABLE BORDER=0 cellspacing="20" WIDTH="100%">
 );
+        push @{$subtree->{list}}, "" if @{$subtree->{list}} % 2;
     $string .= join("\n",
                     map {
                         "<TR>" . join("\n", grep { defined $_ } @$_) . "</TR>" } 
@@ -1441,9 +1442,9 @@ foreach (@tree) {
                        };
                        # FIX ME: DO THIS AGAIN:
                        $tool_feedback{$label} = sub {}; #sub { $event_box->window && $event_box->window->set_cursor($hand_cursor) };
-                        my $file = ugtk2::_find_imgfile($icon);
+                        my $real_icon = $icon ? '<IMG SRC="' . ugtk2::_find_imgfile($icon) . '">' : '';
                         my @widgets = (
-                            qq(<TD><A HREF="$label"><IMG SRC="$file"></A></TD>),
+                            qq(<TD><A HREF="$label">$real_icon</A></TD>),
                             qq(<TD style="text-align: $align"><A HREF="$label">$programs{$label}{long_description}</A></TD>)
                         );
                         @widgets = reverse @widgets if lang::text_direction_rtl();