1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
/***************************************************************************
* testwindow.cpp
* This file is part of the KDE project
* copyright (C)2004-2005 by Sebastian Sauer (mail@dipe.org)
*
* This program 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 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
* Library General Public License for more details.
* You should have received a copy of the GNU Library General Public License
* along with this program; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
***************************************************************************/
#include "testwindow.h"
#include "testplugin.h"
#include <qlabel.h>
#include <qvbox.h>
#include <qvgroupbox.h>
//#include <qhgroupbox.h>
#include <qcombobox.h>
#include <qdir.h>
#include <qpopupmenu.h>
#include <ktextedit.h>
#include <kpushbutton.h>
#include <kpopupmenu.h>
#include <kmenubar.h>
#include <kstandarddirs.h>
TestWindow::TestWindow(const QString& interpretername, const QString& scriptcode)
: KMainWindow()
, m_interpretername(interpretername)
, m_scriptcode(scriptcode)
{
Kross::Api::Manager* manager = Kross::Api::Manager::scriptManager();
manager->addModule( new TestPluginModule("krosstestpluginmodule") );
m_scriptcontainer = manager->getScriptContainer("test");
KPopupMenu *menuFile = new KPopupMenu( this );
menuBar()->insertItem( "&File", menuFile );
m_scriptextension = new Kross::Api::ScriptGUIClient(this, this);
QString file = KGlobal::dirs()->findResource("appdata", "testscripting.rc");
if(file.isNull())
file = QDir(QDir::currentDirPath()).filePath("testscripting.rc");
else Kross::krossdebug("-------------------------222222");
Kross::krossdebug(QString("XML-file: %1").arg(file));
m_scriptextension->setXMLFile(file);
//menuFile->insertSeparator();
KAction* execaction = m_scriptextension->action("executescriptfile");
if(execaction) execaction->plug(menuFile);
KAction* configaction = m_scriptextension->action("configurescripts");
if(configaction) configaction->plug(menuFile);
KAction* scriptsaction = m_scriptextension->action("installedscripts");
if(scriptsaction) scriptsaction->plug(menuFile);
//menuFile->insertItem( ( (KActionMenu*)m_scriptextension->action("scripts") )->popupMenu() );
QVBox* mainbox = new QVBox(this);
QVGroupBox* interpretergrpbox = new QVGroupBox("Interpreter", mainbox);
QStringList interpreters = Kross::Api::Manager::scriptManager()->getInterpreters();
m_interpretercombo = new QComboBox(interpretergrpbox);
m_interpretercombo->insertStringList(interpreters);
m_interpretercombo->setCurrentText(interpretername);
QVGroupBox* scriptgrpbox = new QVGroupBox("Scripting code", mainbox);
m_codeedit = new KTextEdit(m_scriptcode, QString::null, scriptgrpbox);
m_codeedit->setWordWrap(QTextEdit::NoWrap);
m_codeedit->setTextFormat(Qt::PlainText);
QHBox* btnbox = new QHBox(mainbox);
KPushButton* execbtn = new KPushButton("Execute", btnbox);
connect(execbtn, SIGNAL(clicked()), this, SLOT(execute()));
setCentralWidget(mainbox);
setMinimumSize(600,420);
}
TestWindow::~TestWindow()
{
}
void TestWindow::execute()
{
m_scriptcontainer->setInterpreterName( m_interpretercombo->currentText() );
m_scriptcontainer->setCode(m_codeedit->text());
Kross::Api::Object::Ptr result = m_scriptcontainer->execute();
if(m_scriptcontainer->hadException()) {
Kross::krossdebug( QString("EXCEPTION => %1").arg(m_scriptcontainer->getException()->toString()) );
}
else {
QString s = result ? result->toString() : QString::null;
Kross::krossdebug( QString("DONE => %1").arg(s) );
}
}
#include "testwindow.moc"
|
