cvs commit: p5ee/App-Widget-ChartDirector/lib/App/Widget ChartDirector.pm

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);