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.cpp6
1 files changed, 3 insertions, 3 deletions
diff --git a/languages/perl/perlsupportpart.cpp b/languages/perl/perlsupportpart.cpp
index c8379c77..3236e72e 100644
--- a/languages/perl/perlsupportpart.cpp
+++ b/languages/perl/perlsupportpart.cpp
@@ -62,17 +62,17 @@ PerlSupportPart::PerlSupportPart(TQObject *parent, const char *name, const TQStr
TDEAction *action;
- action = new TDEAction( i18n("Execute Main Program"), "exec", 0,
+ action = new TDEAction( i18n("Execute Main Program"), "application-x-executable", 0,
this, TQT_SLOT(slotExecute()),
actionCollection(), "build_exec" );
action->setToolTip( i18n("Runs the Perl program") );
- action = new TDEAction( i18n("Execute String..."), "exec", 0,
+ action = new TDEAction( i18n("Execute String..."), "application-x-executable", 0,
this, TQT_SLOT(slotExecuteString()),
actionCollection(), "build_execstring" );
action->setToolTip( i18n("Executes a string as Perl code") );
- action = new TDEAction( i18n("Start Perl Interpreter"), "exec", 0,
+ action = new TDEAction( i18n("Start Perl Interpreter"), "application-x-executable", 0,
this, TQT_SLOT(slotStartInterpreter()),
actionCollection(), "build_runinterpreter" );
action->setToolTip( i18n("Starts the Perl interpreter without a program") );