1 files changed, 22 insertions, 22 deletions

diff --git a/languages/perl/perlsupportpart.cpp b/languages/perl/perlsupportpart.cpp
index 3236e72e..910e9f7e 100644
--- a/languages/perl/perlsupportpart.cpp
+++ b/languages/perl/perlsupportpart.cpp
@@ -28,7 +28,7 @@
 #include <kstatusbar.h>
 #include "kdevmainwindow.h"
 
-#include <kprocess.h>
+#include <tdeprocess.h>
 #include <stdlib.h>
 #include <unistd.h>
 
@@ -45,45 +45,45 @@
 //#include "programmingbycontract.h"
 
 typedef KDevGenericFactory<PerlSupportPart> PerlSupportFactory;
-static const KDevPluginInfo data("kdevperlsupport");
-K_EXPORT_COMPONENT_FACTORY( libkdevperlsupport, PerlSupportFactory( data ) )
+static const KDevPluginInfo pluginData("kdevperlsupport");
+K_EXPORT_COMPONENT_FACTORY( libkdevperlsupport, PerlSupportFactory( pluginData ) )
 
 PerlSupportPart::PerlSupportPart(TQObject *parent, const char *name, const TQStringList &)
-    : KDevLanguageSupport(&data, parent, name ? name : "PerlSupportPart")
+    : KDevLanguageSupport(&pluginData, parent, name ? name : "PerlSupportPart")
 {
     setInstance(PerlSupportFactory::instance());
 
     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()));
 }
 
 
@@ -262,9 +262,9 @@ void PerlSupportPart::initialParse()
     if (project()) {
         //copy from cpp support : give user some feedback
         mainWindow()->statusBar()->message( i18n("Updating...") );
-        kapp->processEvents( );
+        tdeApp->processEvents( );
 
-        kapp->setOverrideCursor(waitCursor);
+        tdeApp->setOverrideCursor(waitCursor);
         TQStringList files = project()->allFiles();
         m_parser->initialParse();
 
@@ -281,7 +281,7 @@ void PerlSupportPart::initialParse()
             //update progress bar
             bar->setProgress( n++ );
             if( (n%5) == 0 )
-              kapp->processEvents();
+              tdeApp->processEvents();
         }
         parseUseFiles();
         emit updatedSourceInfo();
@@ -289,7 +289,7 @@ void PerlSupportPart::initialParse()
         //remove progressbar
         mainWindow( )->statusBar( )->removeWidget( bar );
         delete bar;
-        kapp->restoreOverrideCursor();
+        tdeApp->restoreOverrideCursor();
         mainWindow()->statusBar()->message( i18n("Done") );
 
     } else {