[GT] CVS commit in GT

[GeniusTrader C. r. <ra...@ge...>]

Update of /bourse/cvsroot/GT
In directory arrakis:/scratch/tmp/cvs-serv14242

Modified Files:
	Indicators.pm 
Log Message:
- Update of many indicators by Oliver Bossert.


--- /bourse/cvsroot/GT/Indicators.pm	2003/02/19 18:48:04	1.6
+++ /bourse/cvsroot/GT/Indicators.pm	2003/06/05 23:04:07	1.7
@@ -106,7 +106,13 @@
     }
 
     if (defined($func)) {
+	# User supplied input
 	$self->{'func'} = $func;
+    } else {
+	# We make the supposition that the last parameter is going to be
+	# an input parameter ...
+	$self->{'func'} = sub { $self->{'args'}->get_arg_values($_[0], $_[1],
+								$self->{'args'}->get_nb_args() ); };
     }
     
     return manage_object(\@{"$class\::NAMES"}, $self, $class, $self->{'args'}, $key);