From f78eb03afb8c9a380985d26286afc40b4c89b292 Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Fri, 1 Feb 2013 15:15:35 -0600 Subject: Rename a number of classes to enhance compatibility with KDE4 --- languages/perl/perlsupportpart.cpp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'languages/perl') diff --git a/languages/perl/perlsupportpart.cpp b/languages/perl/perlsupportpart.cpp index e634b52c..c3d92608 100644 --- a/languages/perl/perlsupportpart.cpp +++ b/languages/perl/perlsupportpart.cpp @@ -60,29 +60,29 @@ PerlSupportPart::PerlSupportPart(TQObject *parent, const char *name, const TQStr connect( partController(), TQT_SIGNAL(savedFile(const KURL&)), this, TQT_SLOT(savedFile(const KURL&)) ); - KAction *action; + TDEAction *action; - action = new KAction( i18n("Execute Main Program"), "exec", 0, + action = new TDEAction( i18n("Execute Main Program"), "exec", 0, this, TQT_SLOT(slotExecute()), actionCollection(), "build_exec" ); action->setToolTip( i18n("Runs the Perl program") ); - action = new KAction( i18n("Execute String..."), "exec", 0, + action = new TDEAction( i18n("Execute String..."), "exec", 0, this, TQT_SLOT(slotExecuteString()), actionCollection(), "build_execstring" ); action->setToolTip( i18n("Executes a string as Perl code") ); - action = new KAction( i18n("Start Perl Interpreter"), "exec", 0, + action = new TDEAction( i18n("Start Perl Interpreter"), "exec", 0, this, TQT_SLOT(slotStartInterpreter()), actionCollection(), "build_runinterpreter" ); action->setToolTip( i18n("Starts the Perl interpreter without a program") ); - action = new KAction( i18n("Find Perl Function Documentation..."), 0, + action = new TDEAction( i18n("Find Perl Function Documentation..."), 0, this, TQT_SLOT(slotPerldocFunction()), actionCollection(), "help_perldocfunction" ); action->setToolTip( i18n("Show the documentation page of a Perl function") ); - action = new KAction( i18n("Find Perl FAQ Entry..."), 0, + action = new TDEAction( i18n("Find Perl FAQ Entry..."), 0, this, TQT_SLOT(slotPerldocFAQ()), actionCollection(), "help_perldocfaq" ); action->setToolTip( i18n("Show the FAQ entry for a keyword") ); -- cgit v1.2.1