From ca46c5047fd0f619486b89e032c34d9a5664cdcb Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Wed, 22 Oct 2014 14:24:34 -0500 Subject: Fix exec icon location and bring it into XDG compliance --- languages/perl/perlsupportpart.cpp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'languages/perl') 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") ); -- cgit v1.2.1