--- lib/SWF/Chart.pm.orig 2008-08-14 15:08:19.000000000 -0700
+++ lib/SWF/Chart.pm 2008-08-14 17:36:28.000000000 -0700
@@ -137,6 +137,7 @@
axis_ticks => ['elem'],
axis_value => ['elem'],
axis_value_text => ['container', 'string'],
+ axis_value_label => ['container', 'string'],
chart_border => ['elem'],
chart_data => ['elem'],
@@ -147,8 +148,10 @@
chart_transition => ['elem'],
chart_type => ['elem', 1],
chart_value => ['elem'],
+ chart_label => ['elem'],
chart_value_text => ['container', 'string'],
+ legend => ['elem'],
legend_label => ['elem'],
legend_rect => ['elem'],
legend_transition => ['elem'],
@@ -156,10 +159,12 @@
link => ['elem'],
link_data => ['elem'],
live_update => ['elem'],
+ update => ['elem'],
series_color => ['container', 'color'],
series_explode => ['container', 'number'],
series_gap => ['elem'],
+ series => ['elem'],
series_switch => ['elem'],
circle => ['elem'],
@@ -169,6 +174,8 @@
string => ['elem', 1],
color => ['elem', 1],
number => ['elem', 1],
+
+ context_menu => ['elem'],
};
# A list of properties that if passed to any of the above options should be
@@ -310,7 +317,7 @@
my $self = shift;
# This is the ordained way to remove the legend...yuk
- $self->legend_rect(y => -9999);
+ $self->legend(y => -9999);
}
=pod
@@ -356,8 +363,8 @@
# Set the defaults for attribute only tags
$self->axis_category(%param);
$self->axis_value(%param);
- $self->chart_value(%param);
- $self->legend_label(%param);
+ $self->chart_label(%param);
+ $self->legend(%param);
# Set the defaults for the draw_text tags
if (exists $self->{opts}->{draw_text}) {
