From d63c9d696eb6e2539528b99afc21f4086c9defe3 Mon Sep 17 00:00:00 2001 From: Michele Calgaro Date: Sun, 23 May 2021 20:48:35 +0900 Subject: Renaming of files in preparation for code style tools. Signed-off-by: Michele Calgaro (cherry picked from commit 8b78a8791bc539bcffe7159f9d9714d577cb3d7d) --- kspread/plugins/scripting/scripting.cpp | 84 +++++++++++++++++++++++++++++++++ 1 file changed, 84 insertions(+) create mode 100644 kspread/plugins/scripting/scripting.cpp (limited to 'kspread/plugins/scripting/scripting.cpp') diff --git a/kspread/plugins/scripting/scripting.cpp b/kspread/plugins/scripting/scripting.cpp new file mode 100644 index 00000000..040bd98d --- /dev/null +++ b/kspread/plugins/scripting/scripting.cpp @@ -0,0 +1,84 @@ +/* + * This file is part of the KSpread project + * + * Copyright (c) 2005 Cyrille Berger + * Copyright (c) 2006 Isaac Clerencia + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + */ +#include "scripting.h" + +#include + +#include +#include +#include + +#define KROSS_MAIN_EXPORT KDE_EXPORT +#include
+#include
+#include
+ +#include +#include + +typedef KGenericFactory KSpreadScriptingFactory; +K_EXPORT_COMPONENT_FACTORY( kspreadscripting, KSpreadScriptingFactory( "kspreadscripting" ) ) + +Scripting::Scripting(TQObject *parent, const char *name, const TQStringList &) + : KParts::Plugin(parent, name) +{ + setInstance(KSpreadScriptingFactory::instance()); + + kdDebug() << "Scripting plugin. Class: " + << metaObject()->className() + << ", Parent: " + << parent->metaObject()->className() + << "\n"; + + if ( parent->inherits("KSpread::View") ) + { + setInstance(Scripting::instance()); + m_view = (KSpread::View*) parent; + m_scriptguiclient = new Kross::Api::ScriptGUIClient( m_view, m_view ); +// m_scriptguiclient ->setXMLFile(locate("data","kspreadplugins/scripting.rc"), true); + kdDebug() << "Setup actions for scripting !" << endl; + + setXMLFile(locate("data","kspread/kpartplugins/scripting.rc"), true); + + new TDEAction(i18n("Execute Script File..."), 0, 0, m_scriptguiclient, TQT_SLOT(executeScriptFile()), actionCollection(), "executescriptfile"); + new TDEAction(i18n("Script Manager..."), 0, 0, m_scriptguiclient, TQT_SLOT(showScriptManager()), actionCollection(), "configurescripts"); + + TDEAction* scriptmenuaction = m_scriptguiclient->action("installedscripts"); + actionCollection()->insert(scriptmenuaction); + + connect(m_scriptguiclient, TQT_SIGNAL(executionFinished( const Kross::Api::ScriptAction* )), this, TQT_SLOT(executionFinished(const Kross::Api::ScriptAction*))); + + Kross::Api::Manager::scriptManager()->addTQObject(m_view->doc(), "KSpreadDocument"); + Kross::Api::Manager::scriptManager()->addTQObject(TQT_TQOBJECT(m_view), "KSpreadView"); + } + +} + +Scripting::~Scripting() +{ +} + +void Scripting::executionFinished(const Kross::Api::ScriptAction*) +{ + TQApplication::restoreOverrideCursor(); +} + +#include "scripting.moc" -- cgit v1.2.1