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 <tqlabel.h>
#include <tqvbox.h>
#include <tqvgroupbox.h>
//#include <tqhgroupbox.h>
#include <tqcombobox.h>
#include <tqdir.h>
#include <tqpopupmenu.h>
#include <ktextedit.h>
#include <kpushbutton.h>
#include <kpopupmenu.h>
#include <kmenubar.h>
#include <kstandarddirs.h>
TestWindow::TestWindow(const TQString& interpretername, const TQString& 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);
TQString file = KGlobal::dirs()->findResource("appdata", "testscripting.rc");
if(file.isNull())
file = TQDir(TQDir::currentDirPath()).filePath("testscripting.rc");
else Kross::krossdebug("-------------------------222222");
Kross::krossdebug(TQString("XML-file: %1").tqarg(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() );
TQVBox* mainbox = new TQVBox(this);
TQVGroupBox* interpretergrpbox = new TQVGroupBox("Interpreter", mainbox);
TQStringList interpreters = Kross::Api::Manager::scriptManager()->getInterpreters();
m_interpretercombo = new TQComboBox(interpretergrpbox);
m_interpretercombo->insertStringList(interpreters);
m_interpretercombo->setCurrentText(interpretername);
TQVGroupBox* scriptgrpbox = new TQVGroupBox("Scripting code", mainbox);
m_codeedit = new KTextEdit(m_scriptcode, TQString(), scriptgrpbox);
m_codeedit->setWordWrap(TQTextEdit::NoWrap);
m_codeedit->setTextFormat(TQt::PlainText);
TQHBox* btnbox = new TQHBox(mainbox);
KPushButton* execbtn = new KPushButton("Execute", btnbox);
connect(execbtn, TQT_SIGNAL(clicked()), this, TQT_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( TQString("EXCEPTION => %1").tqarg(m_scriptcontainer->getException()->toString()) );
}
else {
TQString s = result ? result->toString() : TQString();
Kross::krossdebug( TQString("DONE => %1").tqarg(s) );
}
}
#include "testwindow.moc"
|
