summaryrefslogtreecommitdiffstats
path: root/languages/perl/perlsupportpart.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'languages/perl/perlsupportpart.cpp')
-rw-r--r--languages/perl/perlsupportpart.cpp28
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()));
}