1 files changed, 9 insertions, 9 deletions
diff --git a/PerlQt/bin/pqtapi b/PerlQt/bin/pqtapi
index 9c5eadf..338d600 100755
--- a/PerlQt/bin/pqtapi
+++ b/PerlQt/bin/pqtapi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# Note: this program is part of PerlQt and makes use of its internal functions.
+# Note: this program is part of PerlTQt and makes use of its internal functions.
 #       You should not rely on those in your own programs.
 
 use Getopt::Std;
@@ -9,17 +9,17 @@ use strict 'vars';
 our (%o, @x, $h);
 getopts('r:hvimp', \%o);
 
-package Qt::_internal;
-use Qt;
+package TQt::_internal;
+use TQt;
 
-exists $o{'v'} and do{ print "PerlQt-$Qt::VERSION using Qt-".&Qt::version."\n" and exit 0 };
+exists $o{'v'} and do{ print "PerlTQt-$TQt::VERSION using TQt-".&TQt::version."\n" and exit 0 };
 exists $o{'h'} and do{ print $h and exit 0 };
-exists $o{'m'} and do{      # interactive mode for driving the Qt Designer Plugin
+exists $o{'m'} and do{      # interactive mode for driving the TQt Designer Plugin
     select(STDOUT); $| = 1; # unbuffered
     while(<STDIN>)
     {
         chomp;
-        s/^Q(?=[A-Z])/Qt::/;
+        s/^Q(?=[A-Z])/TQt::/;
         my $i = find_pclassid( $_ );
         print "__START__\n";
         if ($i)
@@ -38,7 +38,7 @@ exists $o{'m'} and do{      # interactive mode for driving the Qt Designer Plugi
         print "__END__\n";
     }
 };
-(my $c = $ARGV[0]) =~ s/^Q(?=[A-Z])/Qt::/;
+(my $c = $ARGV[0]) =~ s/^Q(?=[A-Z])/TQt::/;
 my $i = $c ? find_pclassid( $c ) : 1;
 my $r = exists $o{'r'} ? (exists $o{'i'} ? qr|$o{'r'}|i : qr|$o{'r'}|) : 0;
 my $d = "";
@@ -71,12 +71,12 @@ while ($i)
 }
 
 BEGIN {
-    $h = "pqtapi - a PerlQt introspection tool\t(c) Germain Garand 2003 <germain\@ebooksfrance.org>\n\n".
+    $h = "pqtapi - a PerlTQt introspection tool\t(c) Germain Garand 2003 <germain\@ebooksfrance.org>\n\n".
          "usage: pqtapi [-r <re>] [<class>]\n\n".
          "options:\n". 
          "\t-r <re> : find all functions matching regular expression/keyword <re>\n".
          "\t-i : together with -r, performs a case insensitive search\n".
          "\t-p : display also inherited methods for <class>.\n".
-         "\t-v : print PerlQt and Qt versions\n".
+         "\t-v : print PerlTQt and TQt versions\n".
          "\t-h : print this help message\n";
 }