From 2bc741058cece3e5ee840c3774704f40cd9fca6d Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Sun, 27 Nov 2005 11:16:55 +0000
Subject: [PATCH] Added method legend_position

---
 TimeSeries.pm | 18 +++++++++++++++++-
 t/0basic.t    | 12 +++++++++++-
 2 files changed, 28 insertions(+), 2 deletions(-)

diff --git a/TimeSeries.pm b/TimeSeries.pm
index 17ad360..e673b0c 100644
--- a/TimeSeries.pm
+++ b/TimeSeries.pm
@@ -27,7 +27,7 @@ use Data::Dumper;
 use HTTP::Date qw(parse_date);
 use Time::Local qw(timegm_nocheck);
 
-$VERSION = do { my @r=(q$Revision: 1.10 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.11 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r};
 
 =head2 new(%opts)
 
@@ -129,6 +129,21 @@ sub legend {
     return $oldlegend ? @$oldlegend : ();
 }
 
+=head2 legend_position($position)
+
+Set the position of the legend. Currently, this is simply a string passed
+to gnuplot's "set key" command. Valid positions are left, right, top, bottom,
+outside, below and everything else gnuplot understands.
+
+=cut
+
+sub legend_position {
+    my ($self, $legend_position) = @_;
+    my $oldlegend_position = $self->{legend_position};
+    $self->{legend_position} = $legend_position if ($legend_position);
+    return $oldlegend_position;
+}
+
 =head2 style([$style])
 
 Sets a new style if $style is given. In any case the old style is
@@ -310,6 +325,7 @@ sub plot {
     print $ctlfh "set grid\n";
     print $ctlfh "set log x\n" if ($self->{log_x});
     print $ctlfh "set log y\n" if ($self->{log_y});
+    print $ctlfh "set key $self->{legend_position}\n" if ($self->{legend_position});
 
     # compute ticks
 
diff --git a/t/0basic.t b/t/0basic.t
index 79a406a..03f3ec9 100644
--- a/t/0basic.t
+++ b/t/0basic.t
@@ -6,7 +6,7 @@
 # Change 1..1 below to 1..last_test_to_print .
 # (It may become useful if the test is moved to ./t subdirectory.)
 
-BEGIN { $| = 1; print "1..6\n"; }
+BEGIN { $| = 1; print "1..7\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use TimeSeries;
 $loaded = 1;
@@ -71,3 +71,13 @@ if (length($g) > 0 && substr($g, 0, 2) eq "%!") {
     print "not ok $test\n";
 }
 
+$test = 7;
+$ts->legend_position("below");
+$g = $ts->plot();
+# print STDERR "length \$g = ", length($g), "\n";
+if (length($g) > 0 && substr($g, 0, 2) eq "%!") {
+    print "ok $test\n";
+} else {
+    print "not ok $test\n";
+}
+