[GT] SVN Commit r644 - trunk/GT/Graphics/Object

[GeniusTrader SVN <raphael AT geniustrader.org>]

Author: ras
Date: 2008-06-26 01:18:12 +0200 (Thu, 26 Jun 2008)
New Revision: 644

Modified:
   trunk/GT/Graphics/Object/Histogram.pm
Log:
restore missing method set_foreground_color to package


Modified: trunk/GT/Graphics/Object/Histogram.pm
===================================================================
--- trunk/GT/Graphics/Object/Histogram.pm	2008-06-25 22:16:42 UTC (rev 643)
+++ trunk/GT/Graphics/Object/Histogram.pm	2008-06-25 23:18:12 UTC (rev 644)
@@ -185,9 +185,9 @@
             }
             if ( $tooshort > 0 ) {
                 @points = (
-                [$zone->absolute_coordinate($x + int($space / 2) - 1, $y) ],
-                [$zone->absolute_coordinate($x, $y - $space) ],
-                [$zone->absolute_coordinate($x + $space - 2, $y - $space) ]
+                    [$zone->absolute_coordinate($x + int($space / 2) - 1, $y)],
+                    [$zone->absolute_coordinate($x, $y - $space)],
+                    [$zone->absolute_coordinate($x + $space - 2, $y - $space)]
             );
             } else {
                 @points = (
@@ -201,4 +201,18 @@
     }
 }
 
+
+sub set_foreground_color {
+    my ($self, $color) = @_;
+    if ( $self->{'calc'} ne "" && $color =~ /^\s*(Indicators|I:)/ ) {
+      $self->{'fg_color'} = $color;
+      $self->{'color_ds'} =
+       GT::Graphics::DataSource::GenericIndicatorResults->new($self->{'calc'}, $color );
+    }
+    else {
+      $self->{'fg_color'} = get_color($color);
+    }
+}
+
+
 1;