diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/fillrule.pl')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/fillrule.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl index 4d2dc1a..bf32797 100644 --- a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl +++ b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl @@ -10,6 +10,9 @@ ####### -fillrule attribute of curves ####### contour, coords and clone method +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); + use Tk::Zinc; |