diff options
| author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-02-01 15:15:35 -0600 |
|---|---|---|
| committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-02-01 15:15:35 -0600 |
| commit | f78eb03afb8c9a380985d26286afc40b4c89b292 (patch) | |
| tree | 3c087e2f119e645c902958c3bc3c802abf078ad0 /languages/perl/perlsupportpart.cpp | |
| parent | da1941ccadffe5ae70ee111c53f0ec2b3d990869 (diff) | |
| download | tdevelop-f78eb03afb8c9a380985d26286afc40b4c89b292.tar.gz tdevelop-f78eb03afb8c9a380985d26286afc40b4c89b292.zip | |
Rename a number of classes to enhance compatibility with KDE4
Diffstat (limited to 'languages/perl/perlsupportpart.cpp')
| -rw-r--r-- | languages/perl/perlsupportpart.cpp | 12 |
1 files changed, 6 insertions, 6 deletions
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") ); |