kill unuse variables

1 files changed, 1 insertions, 25 deletions

diff --git a/control-center b/control-center
index aabb38a4..790a7d44 100755
--- a/control-center
+++ b/control-center
@@ -566,18 +566,11 @@ my (undef, $nodename, $release, undef, $machine) = POSIX::uname();
 
 
 
-my @darea_left_list;
 my ($hand_cursor, $normal_cursor, $wait_cursor) = map { Gtk2::Gdk::Cursor->new($_) } qw(hand2 left-ptr watch);
 
-# 0 => unselected,  1 => highlited,  2 => selected
-
 my ($index, $left_locked) = (0, 0);
 
-my ($d_width, $d_height) = (173, 46);
-my $right_text_offset = $d_width - 155;
-my @colors  = (gtkcolor(0, 0, 0), gtkcolor(0xAA, 0xAA, 0xFF), gtkcolor(0, 0, 0));
 my $spacing = 25;
-my ($lspacing, $left_txt_offset, $icon_offset);
 
 my @main_icons;
              
@@ -613,24 +606,8 @@ foreach (@tree) {
                              );
 
 #    die "gtkput(fixed_left, VBox of StockButtons there or\n   (while waiting for gc to implement IconFactory) VBox of Hbox[icon|text]";
-    my $darea_left = gtkset_size_request(Gtk2::DrawingArea->new, $d_width, $d_height);
-    $darea_left->set_events([ 'exposure_mask', 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]);
-
-    my $icon_pixbuf = gtkcreate_pixbuf($icon);
-
-    my @icon_pixbufs = ($icon_pixbuf, render_shiner($icon_pixbuf, 1.89), $icon_pixbuf);
 
     my @fonts = map { Gtk2::Pango::FontDescription->from_string($_) } '', 'Bold', 'Bold';
-    my ($lines, $widths, $heights, $offset, @dbl_area_left);
-
-
-
-    $darea_left->signal_connect(button_release_event => sub {
-    });
-
-    # push left icons
-    #TV $fixed_left->put($darea_left, 0, $my_index*$d_height);
-    push @darea_left_list, $darea_left;
 
 
     # Create right notebook pages :
@@ -805,7 +782,7 @@ sub fork_ {
 }
 
 sub compute_exec_string {
-    my ($label, $box, $icon, $log_exp, $exec_, $gtkplug, undef, $alternate) = @_; #($_[0], @{$_[1]});
+    my ($label, $box, $icon, $_log_exp, $exec_, $gtkplug, undef, $alternate) = @_; #($_[0], @{$_[1]});
     return if $tool_pids{$label};
     my $exec = ref($exec_) ? $exec_->[0] : $exec_;
     if (! -x first(split /\s+/, $exec)) {
@@ -1103,7 +1080,6 @@ use ugtk2 qw(:helpers :wrappers);
 
 sub new {
     my ($_class, $background, $icon, $text, $font) = @_;
-    my $hbox_spacing = 10; 
     my $fixed = gtkput(gtksignal_connect(Gtk2::Fixed->new,
                                          "configure-event" => sub {},
                                         ),