You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
111 lines
4.1 KiB
111 lines
4.1 KiB
/***************************************************************************
|
|
* 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"
|