Use new TQ_METHOD, TQ_SIGNAL, TQ_SLOT defines

Signed-off-by: Michele Calgaro <[email protected]>

1 files changed, 14 insertions, 14 deletions

diff --git a/languages/perl/perlsupportpart.cpp b/languages/perl/perlsupportpart.cpp
index 1bcbb96b..a3ec40db 100644
--- a/languages/perl/perlsupportpart.cpp
+++ b/languages/perl/perlsupportpart.cpp
@@ -55,35 +55,35 @@ PerlSupportPart::PerlSupportPart(TQObject *parent, const char *name, const TQStr
 
     setXMLFile("kdevperlsupport.rc");
 
-    connect( core(), TQT_SIGNAL(projectOpened()), this, TQT_SLOT(projectOpened()) );
-    connect( core(), TQT_SIGNAL(projectClosed()), this, TQT_SLOT(projectClosed()) );
-    connect( partController(), TQT_SIGNAL(savedFile(const KURL&)),
-             this, TQT_SLOT(savedFile(const KURL&)) );
+    connect( core(), TQ_SIGNAL(projectOpened()), this, TQ_SLOT(projectOpened()) );
+    connect( core(), TQ_SIGNAL(projectClosed()), this, TQ_SLOT(projectClosed()) );
+    connect( partController(), TQ_SIGNAL(savedFile(const KURL&)),
+             this, TQ_SLOT(savedFile(const KURL&)) );
 
     TDEAction *action;
 
     action = new TDEAction( i18n("Execute Main Program"), "application-x-executable", 0,
-                          this, TQT_SLOT(slotExecute()),
+                          this, TQ_SLOT(slotExecute()),
                           actionCollection(), "build_exec" );
     action->setToolTip( i18n("Runs the Perl program") );
 
     action = new TDEAction( i18n("Execute String..."), "application-x-executable", 0,
-                          this, TQT_SLOT(slotExecuteString()),
+                          this, TQ_SLOT(slotExecuteString()),
                           actionCollection(), "build_execstring" );
     action->setToolTip( i18n("Executes a string as Perl code") );
 
     action = new TDEAction( i18n("Start Perl Interpreter"), "application-x-executable", 0,
-                          this, TQT_SLOT(slotStartInterpreter()),
+                          this, TQ_SLOT(slotStartInterpreter()),
                           actionCollection(), "build_runinterpreter" );
     action->setToolTip( i18n("Starts the Perl interpreter without a program") );
 
     action = new TDEAction( i18n("Find Perl Function Documentation..."), 0,
-                          this, TQT_SLOT(slotPerldocFunction()),
+                          this, TQ_SLOT(slotPerldocFunction()),
                           actionCollection(), "help_perldocfunction" );
     action->setToolTip( i18n("Show the documentation page of a Perl function") );
 
     action = new TDEAction( i18n("Find Perl FAQ Entry..."), 0,
-                          this, TQT_SLOT(slotPerldocFAQ()),
+                          this, TQ_SLOT(slotPerldocFAQ()),
                           actionCollection(), "help_perldocfaq" );
     action->setToolTip( i18n("Show the FAQ entry for a keyword") );
 
@@ -106,14 +106,14 @@ void PerlSupportPart::projectOpened()
 {
     kdDebug(9007) << "projectOpened()" << endl;
 
-    connect( project(), TQT_SIGNAL(addedFilesToProject(const TQStringList &)),
-             this, TQT_SLOT(addedFilesToProject(const TQStringList &)) );
-    connect( project(), TQT_SIGNAL(removedFilesFromProject(const TQStringList &)),
-             this, TQT_SLOT(removedFilesFromProject(const TQStringList &)) );
+    connect( project(), TQ_SIGNAL(addedFilesToProject(const TQStringList &)),
+             this, TQ_SLOT(addedFilesToProject(const TQStringList &)) );
+    connect( project(), TQ_SIGNAL(removedFilesFromProject(const TQStringList &)),
+             this, TQ_SLOT(removedFilesFromProject(const TQStringList &)) );
 
     // We want to parse only after all components have been
     // properly initialized
-    TQTimer::singleShot(0, this, TQT_SLOT(initialParse()));
+    TQTimer::singleShot(0, this, TQ_SLOT(initialParse()));
 }