cvsuser 05/11/08 09:43:47
Modified: App-Widget-ChartDirector/lib/App/Widget ChartDirector.pm
Log:
remove bar graph labels on the bars
Revision Changes Path
1.2 +7 -7
p5ee/App-Widget-ChartDirector/lib/App/Widget/ChartDirector.pm
Index: ChartDirector.pm
===================================================================
RCS file:
/cvs/public/p5ee/App-Widget-ChartDirector/lib/App/Widget/ChartDirector.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- ChartDirector.pm 8 Nov 2005 04:59:56 -0000 1.1
+++ ChartDirector.pm 8 Nov 2005 17:43:46 -0000 1.2
@@ -207,10 +207,10 @@
&App::sub_entry if ($App::trace);
my ($self, $graphtype) = @_;
my %dims = (
- bar => 3,
- area => 3,
- line => 3,
- stacked_bar => 3,
+ bar => 2,
+ area => 2,
+ line => 2,
+ stacked_bar => 2,
pie => 1,
meter => 0,
);
@@ -416,9 +416,9 @@
$layer->addDataSet($yn->[$i], -1, $y_labels->[$i]);
}
#Enable bar label for the whole bar
- $layer->setAggregateLabelStyle();
+ #$layer->setAggregateLabelStyle();
#Enable bar label for each segment of the stacked bar
- $layer->setDataLabelStyle();
+ #$layer->setDataLabelStyle();
}
else {
my $layer = $c->addBarLayer2($perlchartdir::Side, $#$yn + 1);
