Releases v0.2.0.20.2.0.2

2 files changed, 5 insertions, 27 deletions

diff --git a/CHANGELOG b/CHANGELOG
index ed2e3f8..e0508a0 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,6 @@
+Di 9. Aug 20:42:43 CEST 2011
+* Released v0.2.0.2 (Bugfixes only; Bar width was wrong by 1px)
+
 So 7. Aug 14:06:45 CEST 2011
 * Released v0.2.0.1 (Bugfixes only)
 
diff --git a/loadbars.pl b/loadbars.pl
index 5e06bb6..92caeb1 100755
--- a/loadbars.pl
+++ b/loadbars.pl
@@ -49,7 +49,7 @@ use threads::shared;
 
 use constant {
 	DEPTH => 8,
-	VERSION => 'loadbars v0.2.0.1',
+	VERSION => 'loadbars v0.2.0.2',
 	COPYRIGHT => '2010-2011 (c) Paul Buetow <loadbars@mx.buetow.org>',
 	BLACK => SDL::Color->new(-r => 0x00, -g => 0x00, -b => 0x00),
 	BLUE => SDL::Color->new(-r => 0x00, -g => 0x00, -b => 0xff),
@@ -308,31 +308,6 @@ sub main_loop ($@) {
 				$int -= 0.1;
 				$CONF{inter} = $int > 0 ? $int : 0.1;
 				$displayinfo = "Set graph update interval to $CONF{inter}";
-
-=cut
-			} elsif ($key_name eq 'down') {
-				my $height = $CONF{height} + 10;
-				$app->resize($CONF{width},$height);
-				$CONF{height} = $height;
-				$displayinfo = "Set graph height to $CONF{height}";
-			} elsif ($key_name eq 'up') {
-				my $height = $CONF{height};
-				$height -= 10;
-				$CONF{height} = $height > 1 ? $height : 1;
-				$app->resize($CONF{width},$CONF{height});
-				$displayinfo = "Set graph height to $CONF{height}";
-
-			} elsif ($key_name eq 'right') {
-				$CONF{width} += 10;
-				$app->resize($CONF{width},$CONF{height});
-				$displayinfo = "Set graph width to $CONF{width}";
-			} elsif ($key_name eq 'left') {
-				my $width = $CONF{width};
-				$width -= 10;
-				$CONF{width} = $width > 1 ? $width : 1;
-				$app->resize($CONF{width},$CONF{height});
-				$displayinfo = "Set graph width to $CONF{width}";
-=cut
 			}
 		}
 	};
@@ -352,7 +327,7 @@ sub main_loop ($@) {
 		}
 
 		# Avoid division by null
-		my $width = $CONF{width} / ($num_stats ? $num_stats : 1);
+		my $width = $CONF{width} / ($num_stats ? $num_stats : 1) - 1;
 
 		my $barnum = -1;
 		for my $key (sort keys %CPUSTATS) {