diff options
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") ); |