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.
236 lines
8.4 KiB
236 lines
8.4 KiB
/***************************************************************************
|
|
* qtobject.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 "qtobject.h"
|
|
#include "object.h"
|
|
#include "variant.h"
|
|
#include "event.h"
|
|
|
|
#include "../main/manager.h"
|
|
#include "eventslot.h"
|
|
#include "eventsignal.h"
|
|
|
|
#include <tqobject.h>
|
|
#include <tqsignal.h>
|
|
//#include <tqglobal.h>
|
|
//#include <tqobjectdefs.h>
|
|
#include <tqmetaobject.h>
|
|
#include <tqucom_p.h> // for the TQt TQUObject API.
|
|
|
|
using namespace Kross::Api;
|
|
|
|
QtObject::QtObject(TQObject* object, const TQString& name)
|
|
: Kross::Api::Class<QtObject>(name.isEmpty() ? TQString(object->name()) : name)
|
|
, m_object(object)
|
|
{
|
|
// Walk through the signals and slots the TQObject has
|
|
// and attach them as events to this QtObject.
|
|
|
|
TQStrList slotnames = m_object->tqmetaObject()->slotNames(false);
|
|
for(char* c = slotnames.first(); c; c = slotnames.next()) {
|
|
TQCString s = c;
|
|
addChild(s, new EventSlot(s, object, s) );
|
|
}
|
|
|
|
TQStrList signalnames = m_object->tqmetaObject()->signalNames(false);
|
|
for(char* c = signalnames.first(); c; c = signalnames.next()) {
|
|
TQCString s = c;
|
|
addChild(s, new EventSignal(s, object, s) );
|
|
}
|
|
|
|
// Add functions to wrap TQObject methods into callable
|
|
// Kross objects.
|
|
|
|
addFunction("propertyNames", &QtObject::propertyNames);
|
|
addFunction("hasProperty", &QtObject::hasProperty);
|
|
addFunction("getProperty", &QtObject::getProperty);
|
|
addFunction("setProperty", &QtObject::setProperty);
|
|
|
|
addFunction("slotNames", &QtObject::slotNames);
|
|
addFunction("hasSlot", &QtObject::hasSlot);
|
|
addFunction("slot", &QtObject::callSlot);
|
|
|
|
addFunction("signalNames", &QtObject::signalNames);
|
|
addFunction("hasSignal", &QtObject::hasSignal);
|
|
addFunction("signal", &QtObject::emitSignal);
|
|
|
|
addFunction("connect", &QtObject::connectSignal);
|
|
addFunction("disconnect", &QtObject::disconnectSignal);
|
|
}
|
|
|
|
QtObject::~QtObject()
|
|
{
|
|
}
|
|
|
|
const TQString QtObject::getClassName() const
|
|
{
|
|
return "Kross::Api::QtObject";
|
|
}
|
|
|
|
TQObject* QtObject::getObject()
|
|
{
|
|
return m_object;
|
|
}
|
|
|
|
TQUObject* QtObject::toTQUObject(const TQString& signature, List::Ptr arguments)
|
|
{
|
|
int startpos = signature.find("(");
|
|
int endpos = signature.findRev(")");
|
|
if(startpos < 0 || startpos > endpos)
|
|
throw Exception::Ptr( new Exception(TQString("Invalid TQt signal or slot signature '%1'").tqarg(signature)) );
|
|
|
|
//TQString sig = signature.left(startpos);
|
|
TQString params = signature.mid(startpos + 1, endpos - startpos - 1);
|
|
TQStringList paramlist = TQStringList::split(",", params); // this will fail on something like myslot(TQMap<TQString,TQString> arg), but we don't care jet.
|
|
uint paramcount = paramlist.size();
|
|
|
|
// The first item in the TQUObject-array is for the returnvalue
|
|
// while everything >=1 are the passed parameters.
|
|
TQUObject* uo = new TQUObject[ paramcount + 1 ];
|
|
uo[0] = TQUObject(); // empty placeholder for the returnvalue.
|
|
|
|
//TQString t;
|
|
//for(int j=0; j<argcount; j++) t += "'" + Variant::toString(arguments->item(j)) + "' ";
|
|
//krossdebug( TQString("1 ---------------------: (%1) %2").tqarg(argcount).tqarg(t) );
|
|
|
|
// Fill parameters.
|
|
uint argcount = arguments ? arguments->count() : 0;
|
|
for(uint i = 0; i < paramcount; i++) {
|
|
if(paramlist[i].find(TQSTRING_OBJECT_NAME_STRING) >= 0) {
|
|
const TQString s = (argcount > i) ? Variant::toString(arguments->item(i)) : TQString();
|
|
//krossdebug(TQString("EventSlot::toTQUObject s=%1").tqarg(s));
|
|
static_TQUType_TQString.set( &(uo[i + 1]), s );
|
|
}
|
|
//TODO handle int, long, char*, TQStringList, etc.
|
|
else {
|
|
throw Exception::Ptr( new Exception(TQString("Unknown TQt signal or slot argument '%1' in signature '%2'.").tqarg(paramlist[i]).tqarg(signature)) );
|
|
}
|
|
}
|
|
|
|
return uo;
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::propertyNames(Kross::Api::List::Ptr)
|
|
{
|
|
return new Kross::Api::Variant(
|
|
TQStringList::fromStrList(m_object->tqmetaObject()->propertyNames(false)));
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::hasProperty(Kross::Api::List::Ptr args)
|
|
{
|
|
return new Kross::Api::Variant(
|
|
m_object->tqmetaObject()->findProperty(Kross::Api::Variant::toString(args->item(0)).latin1(), false));
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::getProperty(Kross::Api::List::Ptr args)
|
|
{
|
|
TQVariant variant = m_object->property(Kross::Api::Variant::toString(args->item(0)).latin1());
|
|
if(variant.type() == TQVariant::Invalid)
|
|
return 0;
|
|
return new Kross::Api::Variant(variant);
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::setProperty(Kross::Api::List::Ptr args)
|
|
{
|
|
return new Kross::Api::Variant(
|
|
m_object->setProperty(
|
|
Kross::Api::Variant::toString(args->item(0)).latin1(),
|
|
Kross::Api::Variant::toVariant(args->item(1))
|
|
));
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::slotNames(Kross::Api::List::Ptr)
|
|
{
|
|
return new Kross::Api::Variant(
|
|
TQStringList::fromStrList(m_object->tqmetaObject()->slotNames(false)));
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::hasSlot(Kross::Api::List::Ptr args)
|
|
{
|
|
return new Kross::Api::Variant(
|
|
bool(m_object->tqmetaObject()->slotNames(false).find(
|
|
Kross::Api::Variant::toString(args->item(0)).latin1()
|
|
) != -1));
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::callSlot(Kross::Api::List::Ptr args)
|
|
{
|
|
//TODO just call the child event ?!
|
|
TQString name = Kross::Api::Variant::toString(args->item(0));
|
|
int slotid = m_object->tqmetaObject()->findSlot(name.latin1(), false);
|
|
if(slotid < 0)
|
|
throw Exception::Ptr( new Exception(TQString("No such slot '%1'.").tqarg(name)) );
|
|
|
|
TQUObject* uo = QtObject::toTQUObject(name, args);
|
|
m_object->qt_invoke(slotid, uo);
|
|
delete [] uo;
|
|
|
|
return new Variant( TQVariant(true,0) );
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::signalNames(Kross::Api::List::Ptr)
|
|
{
|
|
return new Kross::Api::Variant(
|
|
TQStringList::fromStrList(m_object->tqmetaObject()->signalNames(false)));
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::hasSignal(Kross::Api::List::Ptr args)
|
|
{
|
|
return new Kross::Api::Variant(
|
|
bool(m_object->tqmetaObject()->signalNames(false).find(
|
|
Kross::Api::Variant::toString(args->item(0)).latin1()
|
|
) != -1));
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::emitSignal(Kross::Api::List::Ptr args)
|
|
{
|
|
TQString name = Kross::Api::Variant::toString(args->item(0));
|
|
int signalid = m_object->tqmetaObject()->findSignal(name.latin1(), false);
|
|
if(signalid < 0)
|
|
throw Exception::Ptr( new Exception(TQString("No such signal '%1'.").tqarg(name)) );
|
|
m_object->qt_invoke(signalid, 0); //TODO convert Kross::Api::List::Ptr => TQUObject*
|
|
return 0;
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::connectSignal(Kross::Api::List::Ptr args)
|
|
{
|
|
TQString signalname = Kross::Api::Variant::toString(args->item(0));
|
|
TQString signalsignatur = TQString("2%1").tqarg(signalname);
|
|
const char* signalsig = signalsignatur.latin1();
|
|
|
|
QtObject* obj = Kross::Api::Object::fromObject<Kross::Api::QtObject>(args->item(1));
|
|
TQObject* o = obj->getObject();
|
|
if(! o)
|
|
throw Exception::Ptr( new Exception(TQString("No such TQObject receiver in '%1'.").tqarg(obj->getName())) );
|
|
|
|
TQString slotname = Kross::Api::Variant::toString(args->item(2));
|
|
TQString slotsignatur = TQString("1%1").tqarg(slotname);
|
|
const char* slotsig = slotsignatur.latin1();
|
|
|
|
return new Kross::Api::Variant(
|
|
TQObject::connect(m_object, signalsig, o, slotsig));
|
|
}
|
|
|
|
Kross::Api::Object::Ptr QtObject::disconnectSignal(Kross::Api::List::Ptr)
|
|
{
|
|
//TODO
|
|
return 0;
|
|
}
|
|
|