1 files changed, 104 insertions, 0 deletions
diff --git a/interfaces/tdescript/scriptloader.cpp b/interfaces/tdescript/scriptloader.cpp
new file mode 100644
index 000000000..79fa2055a
--- /dev/null
+++ b/interfaces/tdescript/scriptloader.cpp
@@ -0,0 +1,104 @@
+/* This file is part of the KDE project
+   Copyright (C) 2001 Ian Reinhart Geiser  (geiseri@kde.org)
+
+   This library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public
+   License as published by the Free Software Foundation; either
+   version 2 of the License, or (at your option) any later version.
+
+   This library 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
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public License
+   along with this library; see the file COPYING.LIB.  If not, write to
+   the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+   Boston, MA 02110-1301, USA.
+*/
+#include "scriptloader.h"
+
+#include <kapplication.h>
+#include <tdeparts/part.h>
+#include <tdeparts/componentfactory.h>
+#include <kglobal.h>
+#include <klocale.h>
+#include <kconfig.h>
+#include <kdesktopfile.h>
+#include <kstandarsdirs.h>
+#include <kstdaccel.h>
+#include <kdebug.h>
+
+#include <tqdir.h>
+#include <tqfileinfo.h>
+
+
+ScriptLoader::ScriptLoader(KMainWindow *parent) : TQObject (parent)
+{
+	m_parent = parent;
+	m_scripts.clear();
+  	m_theAction = new KSelectAction ( i18n("KDE Scripts"),
+		0,
+		this,
+		TQT_SLOT(runAction()),
+		m_parent->actionCollection(),
+		"scripts");
+}
+
+ScriptLoader::~ScriptLoader()
+{
+	// Clean out the list
+	m_scripts.clear();
+}
+
+KSelectAction * ScriptLoader::getScripts()
+{
+	// Get the available scripts for this application.
+	TQStringList pluginList = "";
+	// Find plugins
+	TQString searchPath = kapp->name();
+	searchPath += "/scripts/";
+	TQDir d(locate( "data", searchPath));
+	kdDebug() << "loading plugin from " << locate( "data", searchPath) << endl;
+	const QFileInfoList *fileList = d.entryInfoList("*.desktop");
+	QFileInfoListIterator it ( *fileList );
+	TQFileInfo *fi;
+	// Find all available script desktop files
+	while( (fi=it.current()))
+	{
+	// Query each desktop file
+		if(KDesktopFile::isDesktopFile(fi->absFilePath()))
+		{
+			KDesktopFile desktop((fi->absFilePath()), true);
+			kdDebug () << "Trying to load script type: " << desktop.readType() << endl;
+			KScriptInterface *tmpIface = KParts::ComponentFactory::createInstanceFromQuery<KScriptInterface>(desktop.readType() );
+			if( tmpIface != 0 )
+			{
+				m_scripts.append(tmpIface);			
+				m_scripts.current()->setScript(desktop.readURL());
+				//if(m_parent != 0)
+					//m_scripts.current()->setParent(m_parent);
+				pluginList.append(desktop.readName());
+			}
+			else
+				kdDebug() << desktop.readName() << " could not be loaded!" << endl;
+		}
+		++it;
+	}
+	m_theAction->clear();
+	m_theAction->setItems(pluginList);
+	return m_theAction;
+}
+
+void ScriptLoader::runAction()
+{
+	TQString scriptName = m_theAction->currentText();
+
+}
+
+void ScriptLoader::stopAction()
+{
+
+}
+
+#include "scriptloader.moc"