perl modules ZincTrace ZincTraceErrors and ZincDebug have been renamed

Tk::Zinc::Trace Tk::Zinc::TraceErrors and Tk::Zinc::debug and moved
accordingly

1 files changed, 7 insertions, 5 deletions

diff --git a/Perl/Zinc/Trace.pm b/Perl/Zinc/Trace.pm
index ec284d8..fcd595f 100644
--- a/Perl/Zinc/Trace.pm
+++ b/Perl/Zinc/Trace.pm
@@ -17,12 +17,14 @@
 # This may be very usefull when your application segfaults and
 # when you have no idea where this happens in your code.
 #
-# To trap Tk::Zinc errors, use rather the ZincTraceErrors package.
+# $Id$
+#
+# To trap Tk::Zinc errors, use rather the Tk::Zinc::TraceErrors package.
 #
 # for using this file do some thing like :
-# perl -MZincTrace myappli.pl
+# perl -MTk::Zinc::Trace myappli.pl
 
-package ZincTrace;
+package Tk::Zinc::Trace;
 
 use vars qw( $VERSION );
 ($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
@@ -34,11 +36,11 @@ use Tk::Zinc::TraceUtils;
 my $WidgetMethodfunction;
 BEGIN {
     if ($ZincTraceErrors::on == 1) {
-	print STDERR "ZincTrace: incompatible package ZincTraceErrors is already ".
+	print STDERR "Tk::Zinc::Trace: incompatible package Tk::Zinc::TraceErrors is already ".
 	    "loaded (exit 1)\n";
 	exit 1;
     }
-    print "ZincTrace is ON\n";
+    print "Tk::Zinc::Trace is ON\n";
     $ZincTrace::on = 1;
     select STDOUT; $|=1; ## for flushing the trace output
     # save current Tk::Zinc::InitObject function; it will be invoked in