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.
2712 lines
77 KiB
2712 lines
77 KiB
/****************************************************************************
|
|
**
|
|
** Implementation of TQObject class
|
|
**
|
|
** Created : 930418
|
|
**
|
|
** Copyright (C) 1992-2008 Trolltech ASA. All rights reserved.
|
|
**
|
|
** This file is part of the kernel module of the TQt GUI Toolkit.
|
|
**
|
|
** This file may be used under the terms of the GNU General
|
|
** Public License versions 2.0 or 3.0 as published by the Free
|
|
** Software Foundation and appearing in the files LICENSE.GPL2
|
|
** and LICENSE.GPL3 included in the packaging of this file.
|
|
** Alternatively you may (at your option) use any later version
|
|
** of the GNU General Public License if such license has been
|
|
** publicly approved by Trolltech ASA (or its successors, if any)
|
|
** and the KDE Free TQt Foundation.
|
|
**
|
|
** Please review the following information to ensure GNU General
|
|
** Public Licensing requirements will be met:
|
|
** http://trolltech.com/products/qt/licenses/licensing/opensource/.
|
|
** If you are unsure which license is appropriate for your use, please
|
|
** review the following information:
|
|
** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
|
|
** or contact the sales department at sales@trolltech.com.
|
|
**
|
|
** This file may be used under the terms of the Q Public License as
|
|
** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
|
|
** included in the packaging of this file. Licensees holding valid TQt
|
|
** Commercial licenses may use this file in accordance with the TQt
|
|
** Commercial License Agreement provided with the Software.
|
|
**
|
|
** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
|
|
** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
|
|
** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
|
|
** herein.
|
|
**
|
|
**********************************************************************/
|
|
|
|
#include "ntqvariant.h"
|
|
#include "ntqapplication.h"
|
|
#include "ntqobject.h"
|
|
#include "ntqobjectlist.h"
|
|
#include "ntqsignalslotimp.h"
|
|
#include "ntqregexp.h"
|
|
#include "ntqmetaobject.h"
|
|
#include <private/qucom_p.h>
|
|
#include "qucomextra_p.h"
|
|
#include "ntqptrvector.h"
|
|
|
|
#ifdef QT_THREAD_SUPPORT
|
|
#include <ntqmutex.h>
|
|
#include <private/qmutexpool_p.h>
|
|
#endif
|
|
|
|
#include <ctype.h>
|
|
|
|
|
|
#ifndef QT_NO_USERDATA
|
|
class TQObjectPrivate : public TQPtrVector<TQObjectUserData>
|
|
{
|
|
public:
|
|
TQObjectPrivate( uint s ) : TQPtrVector<TQObjectUserData>(s){ setAutoDelete( TRUE ); }
|
|
};
|
|
#else
|
|
class TQObjectPrivate {
|
|
}
|
|
#endif
|
|
|
|
class TQSenderObjectList : public TQObjectList, public TQShared
|
|
{
|
|
public:
|
|
TQSenderObjectList() : currentSender( 0 ) { }
|
|
TQObject *currentSender;
|
|
};
|
|
|
|
/*!
|
|
\class TQt ntqnamespace.h
|
|
|
|
\brief The TQt class is a namespace for miscellaneous identifiers
|
|
that need to be global-like.
|
|
|
|
\ingroup misc
|
|
|
|
Normally, you can ignore this class. TQObject and a few other
|
|
classes inherit it, so all the identifiers in the TQt namespace are
|
|
normally usable without qualification.
|
|
|
|
However, you may occasionally need to say \c TQt::black instead of
|
|
just \c black, particularly in static utility functions (such as
|
|
many class factories).
|
|
|
|
*/
|
|
|
|
/*!
|
|
\enum TQt::Orientation
|
|
|
|
This type is used to signify an object's orientation.
|
|
|
|
\value Horizontal
|
|
\value Vertical
|
|
|
|
Orientation is used with TQScrollBar for example.
|
|
*/
|
|
|
|
|
|
/*!
|
|
\class TQObject ntqobject.h
|
|
\brief The TQObject class is the base class of all TQt objects.
|
|
|
|
\ingroup objectmodel
|
|
\mainclass
|
|
\reentrant
|
|
|
|
TQObject is the heart of the \link object.html TQt object model.
|
|
\endlink The central feature in this model is a very powerful
|
|
mechanism for seamless object communication called \link
|
|
signalsandslots.html signals and slots \endlink. You can
|
|
connect a signal to a slot with connect() and destroy the
|
|
connection with disconnect(). To avoid never ending notification
|
|
loops you can temporarily block signals with blockSignals(). The
|
|
protected functions connectNotify() and disconnectNotify() make it
|
|
possible to track connections.
|
|
|
|
TQObjects organize themselves in object trees. When you create a
|
|
TQObject with another object as parent, the object will
|
|
automatically do an insertChild() on the parent and thus show up
|
|
in the parent's children() list. The parent takes ownership of the
|
|
object i.e. it will automatically delete its children in its
|
|
destructor. You can look for an object by name and optionally type
|
|
using child() or queryList(), and get the list of tree roots using
|
|
objectTrees().
|
|
|
|
Every object has an object name() and can report its className()
|
|
and whether it inherits() another class in the TQObject inheritance
|
|
hierarchy.
|
|
|
|
When an object is deleted, it emits a destroyed() signal. You can
|
|
catch this signal to avoid dangling references to TQObjects. The
|
|
TQGuardedPtr class provides an elegant way to use this feature.
|
|
|
|
TQObjects can receive events through event() and filter the events
|
|
of other objects. See installEventFilter() and eventFilter() for
|
|
details. A convenience handler, childEvent(), can be reimplemented
|
|
to catch child events.
|
|
|
|
Last but not least, TQObject provides the basic timer support in
|
|
TQt; see TQTimer for high-level support for timers.
|
|
|
|
Notice that the TQ_OBJECT macro is mandatory for any object that
|
|
implements signals, slots or properties. You also need to run the
|
|
\link moc.html moc program (Meta Object Compiler) \endlink on the
|
|
source file. We strongly recommend the use of this macro in \e all
|
|
subclasses of TQObject regardless of whether or not they actually
|
|
use signals, slots and properties, since failure to do so may lead
|
|
certain functions to exhibit undefined behaviour.
|
|
|
|
All TQt widgets inherit TQObject. The convenience function
|
|
isWidgetType() returns whether an object is actually a widget. It
|
|
is much faster than inherits( "TQWidget" ).
|
|
|
|
Some TQObject functions, e.g. children(), objectTrees() and
|
|
queryList() return a TQObjectList. A TQObjectList is a TQPtrList of
|
|
TQObjects. TQObjectLists support the same operations as TQPtrLists
|
|
and have an iterator class, TQObjectListIt.
|
|
*/
|
|
|
|
|
|
//
|
|
// Remove white space from SIGNAL and SLOT names.
|
|
// Internal for TQObject::connect() and TQObject::disconnect()
|
|
//
|
|
|
|
static inline bool isIdentChar( char x )
|
|
{ // Avoid bug in isalnum
|
|
return x == '_' || (x >= '0' && x <= '9') ||
|
|
(x >= 'a' && x <= 'z') || (x >= 'A' && x <= 'Z');
|
|
}
|
|
|
|
static inline bool isSpace( char x )
|
|
{
|
|
#if defined(Q_CC_BOR)
|
|
/*
|
|
Borland C++ 4.5 has a weird isspace() bug.
|
|
isspace() usually works, but not here.
|
|
This implementation is sufficient for our internal use: rmWS()
|
|
*/
|
|
return (uchar) x <= 32;
|
|
#else
|
|
return isspace( (uchar) x );
|
|
#endif
|
|
}
|
|
|
|
static TQCString qt_rmWS( const char *s )
|
|
{
|
|
TQCString result( tqstrlen(s)+1 );
|
|
char *d = result.data();
|
|
char last = 0;
|
|
while( *s && isSpace(*s) ) // skip leading space
|
|
s++;
|
|
while ( *s ) {
|
|
while ( *s && !isSpace(*s) )
|
|
last = *d++ = *s++;
|
|
while ( *s && isSpace(*s) )
|
|
s++;
|
|
if ( *s && isIdentChar(*s) && isIdentChar(last) )
|
|
last = *d++ = ' ';
|
|
}
|
|
*d = '\0';
|
|
result.truncate( (int)(d - result.data()) );
|
|
int void_pos = result.find("(void)");
|
|
if ( void_pos >= 0 )
|
|
result.remove( void_pos+1, (uint)strlen("void") );
|
|
return result;
|
|
}
|
|
|
|
|
|
// Event functions, implemented in qapplication_xxx.cpp
|
|
|
|
int qStartTimer( int interval, TQObject *obj );
|
|
bool qKillTimer( int id );
|
|
bool qKillTimer( TQObject *obj );
|
|
|
|
static void removeObjFromList( TQObjectList *objList, const TQObject *obj,
|
|
bool single=FALSE )
|
|
{
|
|
if ( !objList )
|
|
return;
|
|
int index = objList->findRef( obj );
|
|
while ( index >= 0 ) {
|
|
objList->remove();
|
|
if ( single )
|
|
return;
|
|
index = objList->findNextRef( obj );
|
|
}
|
|
}
|
|
|
|
|
|
/*!
|
|
\relates TQObject
|
|
|
|
Returns a pointer to the object named \a name that inherits \a
|
|
type and with a given \a parent.
|
|
|
|
Returns 0 if there is no such child.
|
|
|
|
\code
|
|
TQListBox *c = (TQListBox *) tqt_find_obj_child( myWidget, "TQListBox",
|
|
"my list box" );
|
|
if ( c )
|
|
c->insertItem( "another string" );
|
|
\endcode
|
|
*/
|
|
|
|
void *tqt_find_obj_child( TQObject *parent, const char *type, const char *name )
|
|
{
|
|
const TQObjectList *list = parent->children();
|
|
if ( list ) {
|
|
TQObjectListIt it( *list );
|
|
TQObject *obj;
|
|
while ( (obj = it.current()) ) {
|
|
++it;
|
|
if ( qstrcmp(name,obj->name()) == 0 &&
|
|
obj->inherits(type) )
|
|
return obj;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
|
|
#ifndef QT_NO_PRELIMINARY_SIGNAL_SPY
|
|
/*
|
|
Preliminary signal spy
|
|
*/
|
|
Q_EXPORT TQObject* tqt_preliminary_signal_spy = 0;
|
|
static TQObject* qt_spy_signal_sender = 0;
|
|
|
|
static void qt_spy_signal( TQObject* sender, int signal, TQUObject* o )
|
|
{
|
|
TQMetaObject* mo = sender->metaObject();
|
|
while ( mo && signal - mo->signalOffset() < 0 )
|
|
mo = mo->superClass();
|
|
if ( !mo )
|
|
return;
|
|
const TQMetaData* sigData = mo->signal( signal - mo->signalOffset() );
|
|
if ( !sigData )
|
|
return;
|
|
TQCString s;
|
|
mo = sender->metaObject();
|
|
while ( mo ) {
|
|
s.sprintf( "%s_%s", mo->className(), sigData->name );
|
|
int slot = tqt_preliminary_signal_spy->metaObject()->findSlot( s, TRUE );
|
|
if ( slot >= 0 ) {
|
|
#ifdef QT_THREAD_SUPPORT
|
|
// protect access to qt_spy_signal_sender
|
|
void * const address = &qt_spy_signal_sender;
|
|
TQMutexLocker locker( tqt_global_mutexpool ?
|
|
tqt_global_mutexpool->get( address ) : 0 );
|
|
#endif // QT_THREAD_SUPPORT
|
|
|
|
TQObject* old_sender = qt_spy_signal_sender;
|
|
qt_spy_signal_sender = sender;
|
|
tqt_preliminary_signal_spy->tqt_invoke( slot, o );
|
|
qt_spy_signal_sender = old_sender;
|
|
break;
|
|
}
|
|
mo = mo->superClass();
|
|
}
|
|
}
|
|
|
|
/*
|
|
End Preliminary signal spy
|
|
*/
|
|
#endif // QT_NO_PRELIMINARY_SIGNAL_SPY
|
|
|
|
static TQObjectList* object_trees = 0;
|
|
|
|
#ifdef QT_THREAD_SUPPORT
|
|
static TQMutex *obj_trees_mutex = 0;
|
|
#endif
|
|
|
|
static void cleanup_object_trees()
|
|
{
|
|
delete object_trees;
|
|
object_trees = 0;
|
|
#ifdef QT_THREAD_SUPPORT
|
|
delete obj_trees_mutex;
|
|
obj_trees_mutex = 0;
|
|
#endif
|
|
}
|
|
|
|
static void ensure_object_trees()
|
|
{
|
|
object_trees = new TQObjectList;
|
|
tqAddPostRoutine( cleanup_object_trees );
|
|
}
|
|
|
|
static void insert_tree( TQObject* obj )
|
|
{
|
|
#ifdef QT_THREAD_SUPPORT
|
|
if ( !obj_trees_mutex )
|
|
obj_trees_mutex = new TQMutex();
|
|
TQMutexLocker locker( obj_trees_mutex );
|
|
#endif
|
|
if ( !object_trees )
|
|
ensure_object_trees();
|
|
object_trees->insert(0, obj );
|
|
}
|
|
|
|
static void remove_tree( TQObject* obj )
|
|
{
|
|
if ( object_trees ) {
|
|
#ifdef QT_THREAD_SUPPORT
|
|
TQMutexLocker locker( obj_trees_mutex );
|
|
#endif
|
|
object_trees->removeRef( obj );
|
|
}
|
|
}
|
|
|
|
/*! \internal
|
|
TQt compatibility function
|
|
*/
|
|
TQObjectList TQObject::childrenListObject() {
|
|
if (children()) return *(children());
|
|
else return TQObjectList();
|
|
}
|
|
|
|
/*! \internal
|
|
TQt compatibility function
|
|
*/
|
|
const TQObjectList TQObject::childrenListObject() const {
|
|
if (children()) return *(children());
|
|
else return TQObjectList();
|
|
}
|
|
|
|
/*! \internal
|
|
TQt compatibility function
|
|
*/
|
|
const TQObjectList TQObject::objectTreesListObject() {
|
|
if (objectTrees()) return *(objectTrees());
|
|
else return TQObjectList();
|
|
}
|
|
|
|
|
|
/*****************************************************************************
|
|
TQObject member functions
|
|
*****************************************************************************/
|
|
|
|
/*!
|
|
Constructs an object called \a name with parent object, \a parent.
|
|
|
|
The parent of an object may be viewed as the object's owner. For
|
|
instance, a \link TQDialog dialog box\endlink is the parent of the
|
|
"OK" and "Cancel" buttons it contains.
|
|
|
|
The destructor of a parent object destroys all child objects.
|
|
|
|
Setting \a parent to 0 constructs an object with no parent. If the
|
|
object is a widget, it will become a top-level window.
|
|
|
|
The object name is some text that can be used to identify a
|
|
TQObject. It's particularly useful in conjunction with \link
|
|
designer-manual.book <i>TQt Designer</i>\endlink. You can find an
|
|
object by name (and type) using child(). To find several objects
|
|
use queryList().
|
|
|
|
\sa parent(), name(), child(), queryList()
|
|
*/
|
|
|
|
TQObject::TQObject( TQObject *parent, const char *name )
|
|
:
|
|
isSignal( FALSE ), // assume not a signal object
|
|
isWidget( FALSE ), // assume not a widget object
|
|
pendTimer( FALSE ), // no timers yet
|
|
blockSig( FALSE ), // not blocking signals
|
|
wasDeleted( FALSE ), // double-delete catcher
|
|
isTree( FALSE ), // no tree yet
|
|
objname( name ? tqstrdup(name) : 0 ), // set object name
|
|
parentObj( 0 ), // no parent yet. It is set by insertChild()
|
|
childObjects( 0 ), // no children yet
|
|
connections( 0 ), // no connections yet
|
|
senderObjects( 0 ), // no signals connected yet
|
|
eventFilters( 0 ), // no filters installed
|
|
postedEvents( 0 ), // no events posted
|
|
d( 0 )
|
|
{
|
|
if ( !metaObj ) // will create object dict
|
|
(void) staticMetaObject();
|
|
|
|
if ( parent ) { // add object to parent
|
|
parent->insertChild( this );
|
|
} else {
|
|
insert_tree( this );
|
|
isTree = TRUE;
|
|
}
|
|
}
|
|
|
|
|
|
/*!
|
|
Destroys the object, deleting all its child objects.
|
|
|
|
All signals to and from the object are automatically disconnected.
|
|
|
|
\warning All child objects are deleted. If any of these objects
|
|
are on the stack or global, sooner or later your program will
|
|
crash. We do not recommend holding pointers to child objects from
|
|
outside the parent. If you still do, the TQObject::destroyed()
|
|
signal gives you an opportunity to detect when an object is
|
|
destroyed.
|
|
|
|
\warning Deleting a TQObject while pending events are waiting to be
|
|
delivered can cause a crash. You must not delete the TQObject
|
|
directly from a thread that is not the GUI thread. Use the
|
|
TQObject::deleteLater() method instead, which will cause the event
|
|
loop to delete the object after all pending events have been
|
|
delivered to the object.
|
|
*/
|
|
|
|
TQObject::~TQObject()
|
|
{
|
|
if ( wasDeleted ) {
|
|
#if defined(QT_DEBUG)
|
|
tqWarning( "Double TQObject deletion detected." );
|
|
#endif
|
|
return;
|
|
}
|
|
wasDeleted = 1;
|
|
blockSig = 0; // unblock signals to keep TQGuardedPtr happy
|
|
emit destroyed( this );
|
|
emit destroyed();
|
|
if ( objname )
|
|
delete [] (char*)objname;
|
|
objname = 0;
|
|
if ( pendTimer ) // might be pending timers
|
|
qKillTimer( this );
|
|
TQApplication::removePostedEvents( this );
|
|
if ( isTree ) {
|
|
remove_tree( this ); // remove from global root list
|
|
isTree = FALSE;
|
|
}
|
|
if ( parentObj ) // remove it from parent object
|
|
parentObj->removeChild( this );
|
|
register TQObject *obj;
|
|
if ( senderObjects ) { // disconnect from senders
|
|
TQSenderObjectList *tmp = senderObjects;
|
|
senderObjects = 0;
|
|
obj = tmp->first();
|
|
while ( obj ) { // for all senders...
|
|
obj->disconnect( this );
|
|
obj = tmp->next();
|
|
}
|
|
if ( tmp->deref() )
|
|
delete tmp;
|
|
}
|
|
if ( connections ) { // disconnect receivers
|
|
for ( int i = 0; i < (int) connections->size(); i++ ) {
|
|
TQConnectionList* clist = (*connections)[i]; // for each signal...
|
|
if ( !clist )
|
|
continue;
|
|
register TQConnection *c;
|
|
TQConnectionListIt cit(*clist);
|
|
while( (c=cit.current()) ) { // for each connected slot...
|
|
++cit;
|
|
if ( (obj=c->object()) )
|
|
removeObjFromList( obj->senderObjects, this );
|
|
}
|
|
}
|
|
delete connections;
|
|
connections = 0;
|
|
}
|
|
if ( eventFilters ) {
|
|
delete eventFilters;
|
|
eventFilters = 0;
|
|
}
|
|
if ( childObjects ) { // delete children objects
|
|
TQObjectListIt it(*childObjects);
|
|
while ( (obj=it.current()) ) {
|
|
++it;
|
|
obj->parentObj = 0;
|
|
childObjects->removeRef( obj );
|
|
delete obj;
|
|
}
|
|
delete childObjects;
|
|
}
|
|
|
|
delete d;
|
|
}
|
|
|
|
|
|
/*!
|
|
\fn TQMetaObject *TQObject::metaObject() const
|
|
|
|
Returns a pointer to the meta object of this object.
|
|
|
|
A meta object contains information about a class that inherits
|
|
TQObject, e.g. class name, superclass name, properties, signals and
|
|
slots. Every class that contains the TQ_OBJECT macro will also have
|
|
a meta object.
|
|
|
|
The meta object information is required by the signal/slot
|
|
connection mechanism and the property system. The functions isA()
|
|
and inherits() also make use of the meta object.
|
|
*/
|
|
|
|
/*!
|
|
\fn const char *TQObject::className() const
|
|
|
|
Returns the class name of this object.
|
|
|
|
This function is generated by the \link metaobjects.html Meta
|
|
Object Compiler. \endlink
|
|
|
|
\warning This function will return the wrong name if the class
|
|
definition lacks the TQ_OBJECT macro.
|
|
|
|
\sa name(), inherits(), isA(), isWidgetType()
|
|
*/
|
|
|
|
/*!
|
|
Returns TRUE if this object is an instance of the class \a clname;
|
|
otherwise returns FALSE.
|
|
|
|
Example:
|
|
\code
|
|
TQTimer *t = new TQTimer; // TQTimer inherits TQObject
|
|
t->isA( "TQTimer" ); // returns TRUE
|
|
t->isA( "TQObject" ); // returns FALSE
|
|
\endcode
|
|
|
|
\sa inherits() metaObject()
|
|
*/
|
|
|
|
bool TQObject::isA( const char *clname ) const
|
|
{
|
|
return qstrcmp( clname, className() ) == 0;
|
|
}
|
|
|
|
/*!
|
|
Returns TRUE if this object is an instance of a class that
|
|
inherits \a clname, and \a clname inherits TQObject; otherwise
|
|
returns FALSE.
|
|
|
|
A class is considered to inherit itself.
|
|
|
|
Example:
|
|
\code
|
|
TQTimer *t = new TQTimer; // TQTimer inherits TQObject
|
|
t->inherits( "TQTimer" ); // returns TRUE
|
|
t->inherits( "TQObject" ); // returns TRUE
|
|
t->inherits( "TQButton" ); // returns FALSE
|
|
|
|
// TQScrollBar inherits TQWidget and TQRangeControl
|
|
TQScrollBar *s = new TQScrollBar( 0 );
|
|
s->inherits( "TQWidget" ); // returns TRUE
|
|
s->inherits( "TQRangeControl" ); // returns FALSE
|
|
\endcode
|
|
|
|
(\l TQRangeControl is not a TQObject.)
|
|
|
|
\sa isA(), metaObject()
|
|
*/
|
|
|
|
bool TQObject::inherits( const char *clname ) const
|
|
{
|
|
return metaObject()->inherits( clname );
|
|
}
|
|
|
|
/*!
|
|
\internal
|
|
|
|
Returns TRUE if \a object inherits \a superClass within
|
|
the meta object inheritance chain; otherwise returns FALSE.
|
|
|
|
\sa inherits()
|
|
*/
|
|
void *tqt_inheritedBy( TQMetaObject *superClass, const TQObject *object )
|
|
{
|
|
if (!object)
|
|
return 0;
|
|
register TQMetaObject *mo = object->metaObject();
|
|
while (mo) {
|
|
if (mo == superClass)
|
|
return (void*)object;
|
|
mo = mo->superClass();
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/*!
|
|
\property TQObject::name
|
|
|
|
\brief the name of this object
|
|
|
|
You can find an object by name (and type) using child(). You can
|
|
find a set of objects with queryList().
|
|
|
|
The object name is set by the constructor or by the setName()
|
|
function. The object name is not very useful in the current
|
|
version of TQt, but will become increasingly important in the
|
|
future.
|
|
|
|
If the object does not have a name, the name() function returns
|
|
"unnamed", so printf() (used in tqDebug()) will not be asked to
|
|
output a null pointer. If you want a null pointer to be returned
|
|
for unnamed objects, you can call name( 0 ).
|
|
|
|
\code
|
|
tqDebug( "MyClass::setPrecision(): (%s) invalid precision %f",
|
|
name(), newPrecision );
|
|
\endcode
|
|
|
|
\sa className(), child(), queryList()
|
|
*/
|
|
|
|
const char * TQObject::name() const
|
|
{
|
|
// If you change the name here, the builder will be broken
|
|
return objname ? objname : "unnamed";
|
|
}
|
|
|
|
/*!
|
|
Sets the object's name to \a name.
|
|
*/
|
|
void TQObject::setName( const char *name )
|
|
{
|
|
if ( objname )
|
|
delete [] (char*) objname;
|
|
objname = name ? tqstrdup(name) : 0;
|
|
}
|
|
|
|
/*!
|
|
\overload
|
|
|
|
Returns the name of this object, or \a defaultName if the object
|
|
does not have a name.
|
|
*/
|
|
|
|
const char * TQObject::name( const char * defaultName ) const
|
|
{
|
|
return objname ? objname : defaultName;
|
|
}
|
|
|
|
|
|
/*!
|
|
Searches the children and optionally grandchildren of this object,
|
|
and returns a child that is called \a objName that inherits \a
|
|
inheritsClass. If \a inheritsClass is 0 (the default), any class
|
|
matches.
|
|
|
|
If \a recursiveSearch is TRUE (the default), child() performs a
|
|
depth-first search of the object's children.
|
|
|
|
If there is no such object, this function returns 0. If there are
|
|
more than one, the first one found is retured; if you need all of
|
|
them, use queryList().
|
|
*/
|
|
TQObject* TQObject::child( const char *objName, const char *inheritsClass,
|
|
bool recursiveSearch )
|
|
{
|
|
const TQObjectList *list = children();
|
|
if ( !list )
|
|
return 0;
|
|
|
|
bool onlyWidgets = ( inheritsClass && qstrcmp( inheritsClass, "TQWidget" ) == 0 );
|
|
TQObjectListIt it( *list );
|
|
TQObject *obj;
|
|
while ( ( obj = it.current() ) ) {
|
|
++it;
|
|
if ( onlyWidgets ) {
|
|
if ( obj->isWidgetType() && ( !objName || qstrcmp( objName, obj->name() ) == 0 ) )
|
|
break;
|
|
} else if ( ( !inheritsClass || obj->inherits(inheritsClass) ) && ( !objName || qstrcmp( objName, obj->name() ) == 0 ) )
|
|
break;
|
|
if ( recursiveSearch && (obj = obj->child( objName, inheritsClass, recursiveSearch ) ) )
|
|
break;
|
|
}
|
|
return obj;
|
|
}
|
|
|
|
/*!
|
|
\fn bool TQObject::isWidgetType() const
|
|
|
|
Returns TRUE if the object is a widget; otherwise returns FALSE.
|
|
|
|
Calling this function is equivalent to calling
|
|
inherits("TQWidget"), except that it is much faster.
|
|
*/
|
|
|
|
/*!
|
|
\fn bool TQObject::highPriority() const
|
|
|
|
Returns TRUE if the object is a high-priority object, or FALSE if
|
|
it is a standard-priority object.
|
|
|
|
High-priority objects are placed first in TQObject's list of
|
|
children on the assumption that they will be referenced very
|
|
often.
|
|
*/
|
|
|
|
|
|
/*!
|
|
This virtual function receives events to an object and should
|
|
return TRUE if the event \a e was recognized and processed.
|
|
|
|
The event() function can be reimplemented to customize the
|
|
behavior of an object.
|
|
|
|
\sa installEventFilter(), timerEvent(), TQApplication::sendEvent(),
|
|
TQApplication::postEvent(), TQWidget::event()
|
|
*/
|
|
|
|
bool TQObject::event( TQEvent *e )
|
|
{
|
|
#if defined(QT_CHECK_NULL)
|
|
if ( e == 0 )
|
|
tqWarning( "TQObject::event: Null events are not permitted" );
|
|
#endif
|
|
if ( eventFilters ) { // try filters
|
|
if ( activate_filters(e) ) // stopped by a filter
|
|
return TRUE;
|
|
}
|
|
|
|
switch ( e->type() ) {
|
|
case TQEvent::Timer:
|
|
timerEvent( (TQTimerEvent*)e );
|
|
return TRUE;
|
|
|
|
case TQEvent::ChildInserted:
|
|
case TQEvent::ChildRemoved:
|
|
childEvent( (TQChildEvent*)e );
|
|
return TRUE;
|
|
|
|
case TQEvent::DeferredDelete:
|
|
delete this;
|
|
return TRUE;
|
|
|
|
default:
|
|
if ( e->type() >= TQEvent::User ) {
|
|
customEvent( (TQCustomEvent*) e );
|
|
return TRUE;
|
|
}
|
|
break;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
/*!
|
|
This event handler can be reimplemented in a subclass to receive
|
|
timer events for the object.
|
|
|
|
TQTimer provides a higher-level interface to the timer
|
|
functionality, and also more general information about timers.
|
|
|
|
\sa startTimer(), killTimer(), killTimers(), event()
|
|
*/
|
|
|
|
void TQObject::timerEvent( TQTimerEvent * )
|
|
{
|
|
}
|
|
|
|
|
|
/*!
|
|
This event handler can be reimplemented in a subclass to receive
|
|
child events.
|
|
|
|
Child events are sent to objects when children are inserted or
|
|
removed.
|
|
|
|
Note that events with TQEvent::type() \c TQEvent::ChildInserted are
|
|
posted (with \l{TQApplication::postEvent()}) to make sure that the
|
|
child's construction is completed before this function is called.
|
|
|
|
If a child is removed immediately after it is inserted, the \c
|
|
ChildInserted event may be suppressed, but the \c ChildRemoved
|
|
event will always be sent. In such cases it is possible that there
|
|
will be a \c ChildRemoved event without a corresponding \c
|
|
ChildInserted event.
|
|
|
|
If you change state based on \c ChildInserted events, call
|
|
TQWidget::constPolish(), or do
|
|
\code
|
|
TQApplication::sendPostedEvents( this, TQEvent::ChildInserted );
|
|
\endcode
|
|
in functions that depend on the state. One notable example is
|
|
TQWidget::sizeHint().
|
|
|
|
\sa event(), TQChildEvent
|
|
*/
|
|
|
|
void TQObject::childEvent( TQChildEvent * )
|
|
{
|
|
}
|
|
|
|
/*!
|
|
This event handler can be reimplemented in a subclass to receive
|
|
custom events. Custom events are user-defined events with a type
|
|
value at least as large as the "User" item of the \l TQEvent::Type
|
|
enum, and is typically a TQCustomEvent or TQCustomEvent subclass.
|
|
|
|
\sa event(), TQCustomEvent
|
|
*/
|
|
void TQObject::customEvent( TQCustomEvent * )
|
|
{
|
|
}
|
|
|
|
|
|
|
|
/*!
|
|
Filters events if this object has been installed as an event
|
|
filter for the \a watched object.
|
|
|
|
In your reimplementation of this function, if you want to filter
|
|
the event \a e, out, i.e. stop it being handled further, return
|
|
TRUE; otherwise return FALSE.
|
|
|
|
Example:
|
|
\code
|
|
class MyMainWindow : public TQMainWindow
|
|
{
|
|
public:
|
|
MyMainWindow( TQWidget *parent = 0, const char *name = 0 );
|
|
|
|
protected:
|
|
bool eventFilter( TQObject *obj, TQEvent *ev );
|
|
|
|
private:
|
|
TQTextEdit *textEdit;
|
|
};
|
|
|
|
MyMainWindow::MyMainWindow( TQWidget *parent, const char *name )
|
|
: TQMainWindow( parent, name )
|
|
{
|
|
textEdit = new TQTextEdit( this );
|
|
setCentralWidget( textEdit );
|
|
textEdit->installEventFilter( this );
|
|
}
|
|
|
|
bool MyMainWindow::eventFilter( TQObject *obj, TQEvent *ev )
|
|
{
|
|
if ( obj == textEdit ) {
|
|
if ( e->type() == TQEvent::KeyPress ) {
|
|
TQKeyEvent *k = (TQKeyEvent*)ev;
|
|
tqDebug( "Ate key press %d", k->key() );
|
|
return TRUE;
|
|
} else {
|
|
return FALSE;
|
|
}
|
|
} else {
|
|
// pass the event on to the parent class
|
|
return TQMainWindow::eventFilter( obj, ev );
|
|
}
|
|
}
|
|
\endcode
|
|
|
|
Notice in the example above that unhandled events are passed to
|
|
the base class's eventFilter() function, since the base class
|
|
might have reimplemented eventFilter() for its own internal
|
|
purposes.
|
|
|
|
\warning If you delete the receiver object in this function, be
|
|
sure to return TRUE. Otherwise, TQt will forward the event to the
|
|
deleted object and the program might crash.
|
|
|
|
\sa installEventFilter()
|
|
*/
|
|
|
|
bool TQObject::eventFilter( TQObject * /* watched */, TQEvent * /* e */ )
|
|
{
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
/*!
|
|
\internal
|
|
Activates all event filters for this object.
|
|
This function is normally called from TQObject::event() or TQWidget::event().
|
|
*/
|
|
|
|
bool TQObject::activate_filters( TQEvent *e )
|
|
{
|
|
if ( !eventFilters ) // no event filter
|
|
return FALSE;
|
|
TQObjectListIt it( *eventFilters );
|
|
register TQObject *obj = it.current();
|
|
while ( obj ) { // send to all filters
|
|
++it; // until one returns TRUE
|
|
if ( obj->eventFilter(this,e) ) {
|
|
return TRUE;
|
|
}
|
|
obj = it.current();
|
|
}
|
|
return FALSE; // don't do anything with it
|
|
}
|
|
|
|
|
|
/*!
|
|
\fn bool TQObject::signalsBlocked() const
|
|
|
|
Returns TRUE if signals are blocked; otherwise returns FALSE.
|
|
|
|
Signals are not blocked by default.
|
|
|
|
\sa blockSignals()
|
|
*/
|
|
|
|
/*!
|
|
Blocks signals if \a block is TRUE, or unblocks signals if \a
|
|
block is FALSE.
|
|
|
|
Emitted signals disappear into hyperspace if signals are blocked.
|
|
Note that the destroyed() signals will be emitted even if the signals
|
|
for this object have been blocked.
|
|
*/
|
|
|
|
void TQObject::blockSignals( bool block )
|
|
{
|
|
blockSig = block;
|
|
}
|
|
|
|
|
|
//
|
|
// The timer flag hasTimer is set when startTimer is called.
|
|
// It is not reset when killing the timer because more than
|
|
// one timer might be active.
|
|
//
|
|
|
|
/*!
|
|
Starts a timer and returns a timer identifier, or returns zero if
|
|
it could not start a timer.
|
|
|
|
A timer event will occur every \a interval milliseconds until
|
|
killTimer() or killTimers() is called. If \a interval is 0, then
|
|
the timer event occurs once every time there are no more window
|
|
system events to process.
|
|
|
|
The virtual timerEvent() function is called with the TQTimerEvent
|
|
event parameter class when a timer event occurs. Reimplement this
|
|
function to get timer events.
|
|
|
|
If multiple timers are running, the TQTimerEvent::timerId() can be
|
|
used to find out which timer was activated.
|
|
|
|
Example:
|
|
\code
|
|
class MyObject : public TQObject
|
|
{
|
|
TQ_OBJECT
|
|
public:
|
|
MyObject( TQObject *parent = 0, const char *name = 0 );
|
|
|
|
protected:
|
|
void timerEvent( TQTimerEvent * );
|
|
};
|
|
|
|
MyObject::MyObject( TQObject *parent, const char *name )
|
|
: TQObject( parent, name )
|
|
{
|
|
startTimer( 50 ); // 50-millisecond timer
|
|
startTimer( 1000 ); // 1-second timer
|
|
startTimer( 60000 ); // 1-minute timer
|
|
}
|
|
|
|
void MyObject::timerEvent( TQTimerEvent *e )
|
|
{
|
|
tqDebug( "timer event, id %d", e->timerId() );
|
|
}
|
|
\endcode
|
|
|
|
Note that TQTimer's accuracy depends on the underlying operating
|
|
system and hardware. Most platforms support an accuracy of 20 ms;
|
|
some provide more. If TQt is unable to deliver the requested
|
|
number of timer clicks, it will silently discard some.
|
|
|
|
The TQTimer class provides a high-level programming interface with
|
|
one-shot timers and timer signals instead of events.
|
|
|
|
\sa timerEvent(), killTimer(), killTimers(), TQEventLoop::awake(),
|
|
TQEventLoop::aboutToBlock()
|
|
*/
|
|
|
|
int TQObject::startTimer( int interval )
|
|
{
|
|
pendTimer = TRUE; // set timer flag
|
|
return qStartTimer( interval, (TQObject *)this );
|
|
}
|
|
|
|
/*!
|
|
Kills the timer with timer identifier, \a id.
|
|
|
|
The timer identifier is returned by startTimer() when a timer
|
|
event is started.
|
|
|
|
\sa timerEvent(), startTimer(), killTimers()
|
|
*/
|
|
|
|
void TQObject::killTimer( int id )
|
|
{
|
|
qKillTimer( id );
|
|
}
|
|
|
|
/*!
|
|
Kills all timers that this object has started.
|
|
|
|
\warning Using this function can cause hard-to-find bugs: it kills
|
|
timers started by sub- and superclasses as well as those started
|
|
by you, which is often not what you want. We recommend using a
|
|
TQTimer or perhaps killTimer().
|
|
|
|
\sa timerEvent(), startTimer(), killTimer()
|
|
*/
|
|
|
|
void TQObject::killTimers()
|
|
{
|
|
qKillTimer( this );
|
|
}
|
|
|
|
static void objSearch( TQObjectList *result,
|
|
TQObjectList *list,
|
|
const char *inheritsClass,
|
|
bool onlyWidgets,
|
|
const char *objName,
|
|
TQRegExp *rx,
|
|
bool recurse )
|
|
{
|
|
if ( !list || list->isEmpty() ) // nothing to search
|
|
return;
|
|
TQObject *obj = list->first();
|
|
while ( obj ) {
|
|
bool ok = TRUE;
|
|
if ( onlyWidgets )
|
|
ok = obj->isWidgetType();
|
|
else if ( inheritsClass && !obj->inherits(inheritsClass) )
|
|
ok = FALSE;
|
|
if ( ok ) {
|
|
if ( objName )
|
|
ok = ( qstrcmp(objName,obj->name()) == 0 );
|
|
#ifndef QT_NO_REGEXP
|
|
else if ( rx )
|
|
ok = ( rx->search(TQString::fromLatin1(obj->name())) != -1 );
|
|
#endif
|
|
}
|
|
if ( ok ) // match!
|
|
result->append( obj );
|
|
if ( recurse && obj->children() )
|
|
objSearch( result, (TQObjectList *)obj->children(), inheritsClass,
|
|
onlyWidgets, objName, rx, recurse );
|
|
obj = list->next();
|
|
}
|
|
}
|
|
|
|
/*!
|
|
\fn TQObject *TQObject::parent() const
|
|
|
|
Returns a pointer to the parent object.
|
|
|
|
\sa children()
|
|
*/
|
|
|
|
/*!
|
|
\fn const TQObjectList *TQObject::children() const
|
|
|
|
Returns a list of child objects, or 0 if this object has no
|
|
children.
|
|
|
|
The TQObjectList class is defined in the \c ntqobjectlist.h header
|
|
file.
|
|
|
|
The first child added is the \link TQPtrList::first() first\endlink
|
|
object in the list and the last child added is the \link
|
|
TQPtrList::last() last\endlink object in the list, i.e. new
|
|
children are appended at the end.
|
|
|
|
Note that the list order changes when TQWidget children are \link
|
|
TQWidget::raise() raised\endlink or \link TQWidget::lower()
|
|
lowered.\endlink A widget that is raised becomes the last object
|
|
in the list, and a widget that is lowered becomes the first object
|
|
in the list.
|
|
|
|
\sa child(), queryList(), parent(), insertChild(), removeChild()
|
|
*/
|
|
|
|
|
|
/*!
|
|
Returns a pointer to the list of all object trees (their root
|
|
objects), or 0 if there are no objects.
|
|
|
|
The TQObjectList class is defined in the \c ntqobjectlist.h header
|
|
file.
|
|
|
|
The most recent root object created is the \link TQPtrList::first()
|
|
first\endlink object in the list and the first root object added
|
|
is the \link TQPtrList::last() last\endlink object in the list.
|
|
|
|
\sa children(), parent(), insertChild(), removeChild()
|
|
*/
|
|
const TQObjectList *TQObject::objectTrees()
|
|
{
|
|
return object_trees;
|
|
}
|
|
|
|
|
|
/*!
|
|
Searches the children and optionally grandchildren of this object,
|
|
and returns a list of those objects that are named or that match
|
|
\a objName and inherit \a inheritsClass. If \a inheritsClass is 0
|
|
(the default), all classes match. If \a objName is 0 (the
|
|
default), all object names match.
|
|
|
|
If \a regexpMatch is TRUE (the default), \a objName is a regular
|
|
expression that the objects's names must match. The syntax is that
|
|
of a TQRegExp. If \a regexpMatch is FALSE, \a objName is a string
|
|
and object names must match it exactly.
|
|
|
|
Note that \a inheritsClass uses single inheritance from TQObject,
|
|
the way inherits() does. According to inherits(), TQMenuBar
|
|
inherits TQWidget but not TQMenuData. This does not quite match
|
|
reality, but is the best that can be done on the wide variety of
|
|
compilers TQt supports.
|
|
|
|
Finally, if \a recursiveSearch is TRUE (the default), queryList()
|
|
searches \e{n}th-generation as well as first-generation children.
|
|
|
|
If all this seems a bit complex for your needs, the simpler
|
|
child() function may be what you want.
|
|
|
|
This somewhat contrived example disables all the buttons in this
|
|
window:
|
|
\code
|
|
TQObjectList *l = topLevelWidget()->queryList( "TQButton" );
|
|
TQObjectListIt it( *l ); // iterate over the buttons
|
|
TQObject *obj;
|
|
|
|
while ( (obj = it.current()) != 0 ) {
|
|
// for each found object...
|
|
++it;
|
|
((TQButton*)obj)->setEnabled( FALSE );
|
|
}
|
|
delete l; // delete the list, not the objects
|
|
\endcode
|
|
|
|
The TQObjectList class is defined in the \c ntqobjectlist.h header
|
|
file.
|
|
|
|
\warning Delete the list as soon you have finished using it. The
|
|
list contains pointers that may become invalid at almost any time
|
|
without notice (as soon as the user closes a window you may have
|
|
dangling pointers, for example).
|
|
|
|
\sa child() children(), parent(), inherits(), name(), TQRegExp
|
|
*/
|
|
|
|
TQObjectList *TQObject::queryList( const char *inheritsClass,
|
|
const char *objName,
|
|
bool regexpMatch,
|
|
bool recursiveSearch ) const
|
|
{
|
|
TQObjectList *list = new TQObjectList;
|
|
TQ_CHECK_PTR( list );
|
|
bool onlyWidgets = ( inheritsClass && qstrcmp(inheritsClass, "TQWidget") == 0 );
|
|
#ifndef QT_NO_REGEXP
|
|
if ( regexpMatch && objName ) { // regexp matching
|
|
TQRegExp rx(TQString::fromLatin1(objName));
|
|
objSearch( list, (TQObjectList *)children(), inheritsClass, onlyWidgets,
|
|
0, &rx, recursiveSearch );
|
|
} else
|
|
#endif
|
|
{
|
|
objSearch( list, (TQObjectList *)children(), inheritsClass, onlyWidgets,
|
|
objName, 0, recursiveSearch );
|
|
}
|
|
return list;
|
|
}
|
|
|
|
/*! \internal
|
|
|
|
Returns a list of objects/slot pairs that are connected to the
|
|
\a signal, or 0 if nothing is connected to it.
|
|
*/
|
|
|
|
TQConnectionList *TQObject::receivers( const char* signal ) const
|
|
{
|
|
if ( connections && signal ) {
|
|
if ( *signal == '2' ) { // tag == 2, i.e. signal
|
|
TQCString s = qt_rmWS( signal+1 );
|
|
return receivers( metaObject()->findSignal( (const char*)s, TRUE ) );
|
|
} else {
|
|
return receivers( metaObject()->findSignal(signal, TRUE ) );
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/*! \internal
|
|
|
|
Returns a list of objects/slot pairs that are connected to the
|
|
signal, or 0 if nothing is connected to it.
|
|
*/
|
|
|
|
TQConnectionList *TQObject::receivers( int signal ) const
|
|
{
|
|
#ifndef QT_NO_PRELIMINARY_SIGNAL_SPY
|
|
if ( tqt_preliminary_signal_spy && signal >= 0 ) {
|
|
if ( !connections ) {
|
|
TQObject* that = (TQObject*) this;
|
|
that->connections = new TQSignalVec( signal+1 );
|
|
that->connections->setAutoDelete( TRUE );
|
|
}
|
|
if ( !connections->at( signal ) ) {
|
|
TQConnectionList* clist = new TQConnectionList;
|
|
clist->setAutoDelete( TRUE );
|
|
connections->insert( signal, clist );
|
|
return clist;
|
|
}
|
|
}
|
|
#endif
|
|
if ( connections && signal >= 0 )
|
|
return connections->at( signal );
|
|
return 0;
|
|
}
|
|
|
|
|
|
/*!
|
|
Inserts an object \a obj into the list of child objects.
|
|
|
|
\warning This function cannot be used to make one widget the child
|
|
widget of another widget. Child widgets can only be created by
|
|
setting the parent widget in the constructor or by calling
|
|
TQWidget::reparent().
|
|
|
|
\sa removeChild(), TQWidget::reparent()
|
|
*/
|
|
|
|
void TQObject::insertChild( TQObject *obj )
|
|
{
|
|
if ( obj->isTree ) {
|
|
remove_tree( obj );
|
|
obj->isTree = FALSE;
|
|
}
|
|
if ( obj->parentObj && obj->parentObj != this ) {
|
|
#if defined(QT_CHECK_STATE)
|
|
if ( obj->parentObj != this && obj->isWidgetType() )
|
|
tqWarning( "TQObject::insertChild: Cannot reparent a widget, "
|
|
"use TQWidget::reparent() instead" );
|
|
#endif
|
|
obj->parentObj->removeChild( obj );
|
|
}
|
|
|
|
if ( !childObjects ) {
|
|
childObjects = new TQObjectList;
|
|
TQ_CHECK_PTR( childObjects );
|
|
} else if ( obj->parentObj == this ) {
|
|
#if defined(QT_CHECK_STATE)
|
|
tqWarning( "TQObject::insertChild: Object %s::%s already in list",
|
|
obj->className(), obj->name( "unnamed" ) );
|
|
#endif
|
|
return;
|
|
}
|
|
obj->parentObj = this;
|
|
childObjects->append( obj );
|
|
|
|
TQChildEvent *e = new TQChildEvent( TQEvent::ChildInserted, obj );
|
|
TQApplication::postEvent( this, e );
|
|
}
|
|
|
|
/*!
|
|
Removes the child object \a obj from the list of children.
|
|
|
|
\warning This function will not remove a child widget from the
|
|
screen. It will only remove it from the parent widget's list of
|
|
children.
|
|
|
|
\sa insertChild(), TQWidget::reparent()
|
|
*/
|
|
|
|
void TQObject::removeChild( TQObject *obj )
|
|
{
|
|
if ( childObjects && childObjects->removeRef(obj) ) {
|
|
obj->parentObj = 0;
|
|
if ( !obj->wasDeleted ) {
|
|
insert_tree( obj ); // it's a root object now
|
|
obj->isTree = TRUE;
|
|
}
|
|
if ( childObjects->isEmpty() ) {
|
|
delete childObjects; // last child removed
|
|
childObjects = 0; // reset children list
|
|
}
|
|
|
|
// remove events must be sent, not posted!!!
|
|
TQChildEvent ce( TQEvent::ChildRemoved, obj );
|
|
TQApplication::sendEvent( this, &ce );
|
|
}
|
|
}
|
|
|
|
|
|
/*!
|
|
\fn void TQObject::installEventFilter( const TQObject *filterObj )
|
|
|
|
Installs an event filter \a filterObj on this object. For example:
|
|
\code
|
|
monitoredObj->installEventFilter( filterObj );
|
|
\endcode
|
|
|
|
An event filter is an object that receives all events that are
|
|
sent to this object. The filter can either stop the event or
|
|
forward it to this object. The event filter \a filterObj receives
|
|
events via its eventFilter() function. The eventFilter() function
|
|
must return TRUE if the event should be filtered, (i.e. stopped);
|
|
otherwise it must return FALSE.
|
|
|
|
If multiple event filters are installed on a single object, the
|
|
filter that was installed last is activated first.
|
|
|
|
Here's a \c KeyPressEater class that eats the key presses of its
|
|
monitored objects:
|
|
\code
|
|
class KeyPressEater : public TQObject
|
|
{
|
|
...
|
|
protected:
|
|
bool eventFilter( TQObject *o, TQEvent *e );
|
|
};
|
|
|
|
bool KeyPressEater::eventFilter( TQObject *o, TQEvent *e )
|
|
{
|
|
if ( e->type() == TQEvent::KeyPress ) {
|
|
// special processing for key press
|
|
TQKeyEvent *k = (TQKeyEvent *)e;
|
|
tqDebug( "Ate key press %d", k->key() );
|
|
return TRUE; // eat event
|
|
} else {
|
|
// standard event processing
|
|
return FALSE;
|
|
}
|
|
}
|
|
\endcode
|
|
|
|
And here's how to install it on two widgets:
|
|
\code
|
|
KeyPressEater *keyPressEater = new KeyPressEater( this );
|
|
TQPushButton *pushButton = new TQPushButton( this );
|
|
TQListView *listView = new TQListView( this );
|
|
|
|
pushButton->installEventFilter( keyPressEater );
|
|
listView->installEventFilter( keyPressEater );
|
|
\endcode
|
|
|
|
The TQAccel class, for example, uses this technique to intercept
|
|
accelerator key presses.
|
|
|
|
\warning If you delete the receiver object in your eventFilter()
|
|
function, be sure to return TRUE. If you return FALSE, TQt sends
|
|
the event to the deleted object and the program will crash.
|
|
|
|
\sa removeEventFilter(), eventFilter(), event()
|
|
*/
|
|
|
|
void TQObject::installEventFilter( const TQObject *obj )
|
|
{
|
|
if ( !obj )
|
|
return;
|
|
if ( eventFilters ) {
|
|
int c = eventFilters->findRef( obj );
|
|
if ( c >= 0 )
|
|
eventFilters->take( c );
|
|
disconnect( obj, SIGNAL(destroyed(TQObject*)),
|
|
this, SLOT(cleanupEventFilter(TQObject*)) );
|
|
} else {
|
|
eventFilters = new TQObjectList;
|
|
TQ_CHECK_PTR( eventFilters );
|
|
}
|
|
eventFilters->insert( 0, obj );
|
|
connect( obj, SIGNAL(destroyed(TQObject*)), this, SLOT(cleanupEventFilter(TQObject*)) );
|
|
}
|
|
|
|
/*!
|
|
Removes an event filter object \a obj from this object. The
|
|
request is ignored if such an event filter has not been installed.
|
|
|
|
All event filters for this object are automatically removed when
|
|
this object is destroyed.
|
|
|
|
It is always safe to remove an event filter, even during event
|
|
filter activation (i.e. from the eventFilter() function).
|
|
|
|
\sa installEventFilter(), eventFilter(), event()
|
|
*/
|
|
|
|
void TQObject::removeEventFilter( const TQObject *obj )
|
|
{
|
|
if ( eventFilters && eventFilters->removeRef(obj) ) {
|
|
if ( eventFilters->isEmpty() ) { // last event filter removed
|
|
delete eventFilters;
|
|
eventFilters = 0; // reset event filter list
|
|
}
|
|
disconnect( obj, SIGNAL(destroyed(TQObject*)),
|
|
this, SLOT(cleanupEventFilter(TQObject*)) );
|
|
}
|
|
}
|
|
|
|
|
|
/*****************************************************************************
|
|
Signal connection management
|
|
*****************************************************************************/
|
|
|
|
#if defined(QT_CHECK_RANGE)
|
|
|
|
static bool check_signal_macro( const TQObject *sender, const char *signal,
|
|
const char *func, const char *op )
|
|
{
|
|
int sigcode = (int)(*signal) - '0';
|
|
if ( sigcode != TQSIGNAL_CODE ) {
|
|
if ( sigcode == TQSLOT_CODE )
|
|
tqWarning( "TQObject::%s: Attempt to %s non-signal %s::%s",
|
|
func, op, sender->className(), signal+1 );
|
|
else
|
|
tqWarning( "TQObject::%s: Use the SIGNAL macro to %s %s::%s",
|
|
func, op, sender->className(), signal );
|
|
return FALSE;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
static bool check_member_code( int code, const TQObject *object,
|
|
const char *member, const char *func )
|
|
{
|
|
if ( code != TQSLOT_CODE && code != TQSIGNAL_CODE ) {
|
|
tqWarning( "TQObject::%s: Use the SLOT or SIGNAL macro to "
|
|
"%s %s::%s", func, func, object->className(), member );
|
|
return FALSE;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
static void err_member_notfound( int code, const TQObject *object,
|
|
const char *member, const char *func )
|
|
{
|
|
const char *type = 0;
|
|
switch ( code ) {
|
|
case TQSLOT_CODE: type = "slot"; break;
|
|
case TQSIGNAL_CODE: type = "signal"; break;
|
|
}
|
|
if ( strchr(member,')') == 0 ) // common typing mistake
|
|
tqWarning( "TQObject::%s: Parentheses expected, %s %s::%s",
|
|
func, type, object->className(), member );
|
|
else
|
|
tqWarning( "TQObject::%s: No such %s %s::%s",
|
|
func, type, object->className(), member );
|
|
}
|
|
|
|
|
|
static void err_info_about_objects( const char * func,
|
|
const TQObject * sender,
|
|
const TQObject * receiver )
|
|
{
|
|
const char * a = sender->name(), * b = receiver->name();
|
|
if ( a )
|
|
tqWarning( "TQObject::%s: (sender name: '%s')", func, a );
|
|
if ( b )
|
|
tqWarning( "TQObject::%s: (receiver name: '%s')", func, b );
|
|
}
|
|
|
|
static void err_info_about_candidates( int code,
|
|
const TQMetaObject* mo,
|
|
const char* member,
|
|
const char *func )
|
|
{
|
|
if ( strstr(member,"const char*") ) {
|
|
// porting help
|
|
TQCString newname = member;
|
|
int p;
|
|
while ( (p=newname.find("const char*")) >= 0 ) {
|
|
newname.replace(p, 11, "const TQString&");
|
|
}
|
|
const TQMetaData *rm = 0;
|
|
switch ( code ) {
|
|
case TQSLOT_CODE:
|
|
rm = mo->slot( mo->findSlot( newname, TRUE ), TRUE );
|
|
break;
|
|
case TQSIGNAL_CODE:
|
|
rm = mo->signal( mo->findSignal( newname, TRUE ), TRUE );
|
|
break;
|
|
}
|
|
if ( rm ) {
|
|
tqWarning("TQObject::%s: Candidate: %s", func, newname.data());
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
#endif // QT_CHECK_RANGE
|
|
|
|
|
|
/*!
|
|
Returns a pointer to the object that sent the signal, if called in
|
|
a slot activated by a signal; otherwise it returns 0. The pointer
|
|
is valid only during the execution of the slot that calls this
|
|
function.
|
|
|
|
The pointer returned by this function becomes invalid if the
|
|
sender is destroyed, or if the slot is disconnected from the
|
|
sender's signal.
|
|
|
|
\warning This function violates the object-oriented principle of
|
|
modularity. However, getting access to the sender might be useful
|
|
when many signals are connected to a single slot. The sender is
|
|
undefined if the slot is called as a normal C++ function.
|
|
*/
|
|
|
|
const TQObject *TQObject::sender()
|
|
{
|
|
#ifndef QT_NO_PRELIMINARY_SIGNAL_SPY
|
|
if ( this == tqt_preliminary_signal_spy ) {
|
|
# ifdef QT_THREAD_SUPPORT
|
|
// protect access to qt_spy_signal_sender
|
|
void * const address = &qt_spy_signal_sender;
|
|
TQMutexLocker locker( tqt_global_mutexpool ?
|
|
tqt_global_mutexpool->get( address ) : 0 );
|
|
# endif // QT_THREAD_SUPPORT
|
|
return qt_spy_signal_sender;
|
|
}
|
|
#endif
|
|
if ( senderObjects &&
|
|
senderObjects->currentSender &&
|
|
/*
|
|
* currentSender may be a dangling pointer in case the object
|
|
* it was pointing to was destructed from inside a slot. Thus
|
|
* verify it still is contained inside the senderObjects list
|
|
* which gets cleaned on both destruction and disconnect.
|
|
*/
|
|
|
|
senderObjects->findRef( senderObjects->currentSender ) != -1 )
|
|
return senderObjects->currentSender;
|
|
return 0;
|
|
}
|
|
|
|
|
|
/*!
|
|
\fn void TQObject::connectNotify( const char *signal )
|
|
|
|
This virtual function is called when something has been connected
|
|
to \a signal in this object.
|
|
|
|
\warning This function violates the object-oriented principle of
|
|
modularity. However, it might be useful when you need to perform
|
|
expensive initialization only if something is connected to a
|
|
signal.
|
|
|
|
\sa connect(), disconnectNotify()
|
|
*/
|
|
|
|
void TQObject::connectNotify( const char * )
|
|
{
|
|
}
|
|
|
|
/*!
|
|
\fn void TQObject::disconnectNotify( const char *signal )
|
|
|
|
This virtual function is called when something has been
|
|
disconnected from \a signal in this object.
|
|
|
|
\warning This function violates the object-oriented principle of
|
|
modularity. However, it might be useful for optimizing access to
|
|
expensive resources.
|
|
|
|
\sa disconnect(), connectNotify()
|
|
*/
|
|
|
|
void TQObject::disconnectNotify( const char * )
|
|
{
|
|
}
|
|
|
|
|
|
/*!
|
|
\fn bool TQObject::checkConnectArgs( const char *signal, const TQObject *receiver, const char *member )
|
|
|
|
Returns TRUE if the \a signal and the \a member arguments are
|
|
compatible; otherwise returns FALSE. (The \a receiver argument is
|
|
currently ignored.)
|
|
|
|
\warning We recommend that you use the default implementation and
|
|
do not reimplement this function.
|
|
|
|
\omit
|
|
TRUE: "signal(<anything>)", "member()"
|
|
TRUE: "signal(a,b,c)", "member(a,b,c)"
|
|
TRUE: "signal(a,b,c)", "member(a,b)", "member(a)" etc.
|
|
FALSE: "signal(const a)", "member(a)"
|
|
FALSE: "signal(a)", "member(const a)"
|
|
FALSE: "signal(a)", "member(b)"
|
|
FALSE: "signal(a)", "member(a,b)"
|
|
\endomit
|
|
*/
|
|
|
|
bool TQObject::checkConnectArgs( const char *signal,
|
|
const TQObject *,
|
|
const char *member )
|
|
{
|
|
const char *s1 = signal;
|
|
const char *s2 = member;
|
|
while ( *s1++ != '(' ) { } // scan to first '('
|
|
while ( *s2++ != '(' ) { }
|
|
if ( *s2 == ')' || qstrcmp(s1,s2) == 0 ) // member has no args or
|
|
return TRUE; // exact match
|
|
int s1len = tqstrlen(s1);
|
|
int s2len = tqstrlen(s2);
|
|
if ( s2len < s1len && tqstrncmp(s1,s2,s2len-1)==0 && s1[s2len-1]==',' )
|
|
return TRUE; // member has less args
|
|
return FALSE;
|
|
}
|
|
|
|
/*!
|
|
Normlizes the signal or slot definition \a signalSlot by removing
|
|
unnecessary whitespace.
|
|
*/
|
|
|
|
TQCString TQObject::normalizeSignalSlot( const char *signalSlot )
|
|
{
|
|
if ( !signalSlot )
|
|
return TQCString();
|
|
return qt_rmWS( signalSlot );
|
|
}
|
|
|
|
|
|
|
|
/*!
|
|
\overload bool TQObject::connect( const TQObject *sender, const char *signal, const char *member ) const
|
|
|
|
Connects \a signal from the \a sender object to this object's \a
|
|
member.
|
|
|
|
Equivalent to: \c{TQObject::connect(sender, signal, this, member)}.
|
|
|
|
\sa disconnect()
|
|
*/
|
|
|
|
/*!
|
|
Connects \a signal from the \a sender object to \a member in object
|
|
\a receiver, and returns TRUE if the connection succeeds; otherwise
|
|
returns FALSE.
|
|
|
|
You must use the SIGNAL() and SLOT() macros when specifying the \a signal
|
|
and the \a member, for example:
|
|
\code
|
|
TQLabel *label = new TQLabel;
|
|
TQScrollBar *scroll = new TQScrollBar;
|
|
TQObject::connect( scroll, SIGNAL(valueChanged(int)),
|
|
label, SLOT(setNum(int)) );
|
|
\endcode
|
|
|
|
This example ensures that the label always displays the current
|
|
scroll bar value. Note that the signal and slots parameters must not
|
|
contain any variable names, only the type. E.g. the following would
|
|
not work and return FALSE:
|
|
TQObject::connect( scroll, SIGNAL(valueChanged(int v)),
|
|
label, SLOT(setNum(int v)) );
|
|
|
|
A signal can also be connected to another signal:
|
|
|
|
\code
|
|
class MyWidget : public TQWidget
|
|
{
|
|
TQ_OBJECT
|
|
public:
|
|
MyWidget();
|
|
|
|
signals:
|
|
void myUsefulSignal();
|
|
|
|
private:
|
|
TQPushButton *aButton;
|
|
};
|
|
|
|
MyWidget::MyWidget()
|
|
{
|
|
aButton = new TQPushButton( this );
|
|
connect( aButton, SIGNAL(clicked()), SIGNAL(myUsefulSignal()) );
|
|
}
|
|
\endcode
|
|
|
|
In this example, the MyWidget constructor relays a signal from a
|
|
private member variable, and makes it available under a name that
|
|
relates to MyWidget.
|
|
|
|
A signal can be connected to many slots and signals. Many signals
|
|
can be connected to one slot.
|
|
|
|
If a signal is connected to several slots, the slots are activated
|
|
in an arbitrary order when the signal is emitted.
|
|
|
|
The function returns TRUE if it successfully connects the signal
|
|
to the slot. It will return FALSE if it cannot create the
|
|
connection, for example, if TQObject is unable to verify the
|
|
existence of either \a signal or \a member, or if their signatures
|
|
aren't compatible.
|
|
|
|
A signal is emitted for \e{every} connection you make, so if you
|
|
duplicate a connection, two signals will be emitted. You can
|
|
always break a connection using \c{disconnect()}.
|
|
|
|
\sa disconnect()
|
|
*/
|
|
|
|
bool TQObject::connect( const TQObject *sender, const char *signal,
|
|
const TQObject *receiver, const char *member )
|
|
{
|
|
#if defined(QT_CHECK_NULL)
|
|
if ( sender == 0 || receiver == 0 || signal == 0 || member == 0 ) {
|
|
tqWarning( "TQObject::connect: Cannot connect %s::%s to %s::%s",
|
|
sender ? sender->className() : "(null)",
|
|
signal ? signal+1 : "(null)",
|
|
receiver ? receiver->className() : "(null)",
|
|
member ? member+1 : "(null)" );
|
|
return FALSE;
|
|
}
|
|
#endif
|
|
TQMetaObject *smeta = sender->metaObject();
|
|
|
|
#if defined(QT_CHECK_RANGE)
|
|
if ( !check_signal_macro( sender, signal, "connect", "bind" ) )
|
|
return FALSE;
|
|
#endif
|
|
TQCString nw_signal(signal); // Assume already normalized
|
|
++signal; // skip member type code
|
|
|
|
int signal_index = smeta->findSignal( signal, TRUE );
|
|
if ( signal_index < 0 ) { // normalize and retry
|
|
nw_signal = qt_rmWS( signal-1 ); // remove whitespace
|
|
signal = nw_signal.data()+1; // skip member type code
|
|
signal_index = smeta->findSignal( signal, TRUE );
|
|
}
|
|
|
|
if ( signal_index < 0 ) { // no such signal
|
|
#if defined(QT_CHECK_RANGE)
|
|
err_member_notfound( TQSIGNAL_CODE, sender, signal, "connect" );
|
|
err_info_about_candidates( TQSIGNAL_CODE, smeta, signal, "connect" );
|
|
err_info_about_objects( "connect", sender, receiver );
|
|
#endif
|
|
return FALSE;
|
|
}
|
|
const TQMetaData *sm = smeta->signal( signal_index, TRUE );
|
|
signal = sm->name; // use name from meta object
|
|
|
|
int membcode = member[0] - '0'; // get member code
|
|
|
|
TQObject *s = (TQObject *)sender; // we need to change them
|
|
TQObject *r = (TQObject *)receiver; // internally
|
|
|
|
#if defined(QT_CHECK_RANGE)
|
|
if ( !check_member_code( membcode, r, member, "connect" ) )
|
|
return FALSE;
|
|
#endif
|
|
member++; // skip code
|
|
|
|
TQCString nw_member ;
|
|
TQMetaObject *rmeta = r->metaObject();
|
|
int member_index = -1;
|
|
switch ( membcode ) { // get receiver member
|
|
case TQSLOT_CODE:
|
|
member_index = rmeta->findSlot( member, TRUE );
|
|
if ( member_index < 0 ) { // normalize and retry
|
|
nw_member = qt_rmWS(member); // remove whitespace
|
|
member = nw_member;
|
|
member_index = rmeta->findSlot( member, TRUE );
|
|
}
|
|
break;
|
|
case TQSIGNAL_CODE:
|
|
member_index = rmeta->findSignal( member, TRUE );
|
|
if ( member_index < 0 ) { // normalize and retry
|
|
nw_member = qt_rmWS(member); // remove whitespace
|
|
member = nw_member;
|
|
member_index = rmeta->findSignal( member, TRUE );
|
|
}
|
|
break;
|
|
}
|
|
if ( member_index < 0 ) {
|
|
#if defined(QT_CHECK_RANGE)
|
|
err_member_notfound( membcode, r, member, "connect" );
|
|
err_info_about_candidates( membcode, rmeta, member, "connect" );
|
|
err_info_about_objects( "connect", sender, receiver );
|
|
#endif
|
|
return FALSE;
|
|
}
|
|
#if defined(QT_CHECK_RANGE)
|
|
if ( !s->checkConnectArgs(signal,receiver,member) ) {
|
|
tqWarning( "TQObject::connect: Incompatible sender/receiver arguments"
|
|
"\n\t%s::%s --> %s::%s",
|
|
s->className(), signal,
|
|
r->className(), member );
|
|
return FALSE;
|
|
} else {
|
|
const TQMetaData *rm = membcode == TQSLOT_CODE ?
|
|
rmeta->slot( member_index, TRUE ) :
|
|
rmeta->signal( member_index, TRUE );
|
|
if ( rm ) {
|
|
int si = 0;
|
|
int ri = 0;
|
|
while ( si < sm->method->count && ri < rm->method->count ) {
|
|
if ( sm->method->parameters[si].inOut == TQUParameter::Out )
|
|
si++;
|
|
else if ( rm->method->parameters[ri].inOut == TQUParameter::Out )
|
|
ri++;
|
|
else if ( !TQUType::isEqual( sm->method->parameters[si++].type,
|
|
rm->method->parameters[ri++].type ) ) {
|
|
if ( ( TQUType::isEqual( sm->method->parameters[si-1].type, &static_QUType_ptr )
|
|
&& TQUType::isEqual( rm->method->parameters[ri-1].type, &static_QUType_varptr ) )
|
|
|| ( TQUType::isEqual( sm->method->parameters[si-1].type, &static_QUType_varptr )
|
|
&& TQUType::isEqual( rm->method->parameters[ri-1].type, &static_QUType_ptr ) ) )
|
|
continue; // varptr got introduced in 3.1 and is binary compatible with ptr
|
|
tqWarning( "TQObject::connect: Incompatible sender/receiver marshalling"
|
|
"\n\t%s::%s --> %s::%s",
|
|
s->className(), signal,
|
|
r->className(), member );
|
|
return FALSE;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
connectInternal( sender, signal_index, receiver, membcode, member_index );
|
|
s->connectNotify( nw_signal );
|
|
return TRUE;
|
|
}
|
|
|
|
/*! \internal */
|
|
|
|
void TQObject::connectInternal( const TQObject *sender, int signal_index, const TQObject *receiver,
|
|
int membcode, int member_index )
|
|
{
|
|
TQObject *s = (TQObject*)sender;
|
|
TQObject *r = (TQObject*)receiver;
|
|
|
|
if ( !s->connections ) { // create connections lookup table
|
|
s->connections = new TQSignalVec( signal_index+1 );
|
|
TQ_CHECK_PTR( s->connections );
|
|
s->connections->setAutoDelete( TRUE );
|
|
}
|
|
|
|
TQConnectionList *clist = s->connections->at( signal_index );
|
|
if ( !clist ) { // create receiver list
|
|
clist = new TQConnectionList;
|
|
TQ_CHECK_PTR( clist );
|
|
clist->setAutoDelete( TRUE );
|
|
s->connections->insert( signal_index, clist );
|
|
}
|
|
|
|
TQMetaObject *rmeta = r->metaObject();
|
|
const TQMetaData *rm = 0;
|
|
|
|
switch ( membcode ) { // get receiver member
|
|
case TQSLOT_CODE:
|
|
rm = rmeta->slot( member_index, TRUE );
|
|
break;
|
|
case TQSIGNAL_CODE:
|
|
rm = rmeta->signal( member_index, TRUE );
|
|
break;
|
|
}
|
|
|
|
TQConnection *c = new TQConnection( r, member_index, rm ? rm->name : "qt_invoke", membcode );
|
|
TQ_CHECK_PTR( c );
|
|
clist->append( c );
|
|
if ( !r->senderObjects ) // create list of senders
|
|
r->senderObjects = new TQSenderObjectList;
|
|
r->senderObjects->append( s ); // add sender to list
|
|
}
|
|
|
|
|
|
/*!
|
|
\overload bool TQObject::disconnect( const char *signal, const TQObject *receiver, const char *member )
|
|
|
|
Disconnects \a signal from \a member of \a receiver.
|
|
|
|
A signal-slot connection is removed when either of the objects
|
|
involved are destroyed.
|
|
*/
|
|
|
|
/*!
|
|
\overload bool TQObject::disconnect( const TQObject *receiver, const char *member )
|
|
|
|
Disconnects all signals in this object from \a receiver's \a
|
|
member.
|
|
|
|
A signal-slot connection is removed when either of the objects
|
|
involved are destroyed.
|
|
*/
|
|
|
|
/*!
|
|
Disconnects \a signal in object \a sender from \a member in object
|
|
\a receiver.
|
|
|
|
A signal-slot connection is removed when either of the objects
|
|
involved are destroyed.
|
|
|
|
disconnect() is typically used in three ways, as the following
|
|
examples demonstrate.
|
|
\list 1
|
|
\i Disconnect everything connected to an object's signals:
|
|
\code
|
|
disconnect( myObject, 0, 0, 0 );
|
|
\endcode
|
|
equivalent to the non-static overloaded function
|
|
\code
|
|
myObject->disconnect();
|
|
\endcode
|
|
\i Disconnect everything connected to a specific signal:
|
|
\code
|
|
disconnect( myObject, SIGNAL(mySignal()), 0, 0 );
|
|
\endcode
|
|
equivalent to the non-static overloaded function
|
|
\code
|
|
myObject->disconnect( SIGNAL(mySignal()) );
|
|
\endcode
|
|
\i Disconnect a specific receiver:
|
|
\code
|
|
disconnect( myObject, 0, myReceiver, 0 );
|
|
\endcode
|
|
equivalent to the non-static overloaded function
|
|
\code
|
|
myObject->disconnect( myReceiver );
|
|
\endcode
|
|
\endlist
|
|
|
|
0 may be used as a wildcard, meaning "any signal", "any receiving
|
|
object", or "any slot in the receiving object", respectively.
|
|
|
|
The \a sender may never be 0. (You cannot disconnect signals from
|
|
more than one object in a single call.)
|
|
|
|
If \a signal is 0, it disconnects \a receiver and \a member from
|
|
any signal. If not, only the specified signal is disconnected.
|
|
|
|
If \a receiver is 0, it disconnects anything connected to \a
|
|
signal. If not, slots in objects other than \a receiver are not
|
|
disconnected.
|
|
|
|
If \a member is 0, it disconnects anything that is connected to \a
|
|
receiver. If not, only slots named \a member will be disconnected,
|
|
and all other slots are left alone. The \a member must be 0 if \a
|
|
receiver is left out, so you cannot disconnect a
|
|
specifically-named slot on all objects.
|
|
|
|
\sa connect()
|
|
*/
|
|
|
|
bool TQObject::disconnect( const TQObject *sender, const char *signal,
|
|
const TQObject *receiver, const char *member )
|
|
{
|
|
#if defined(QT_CHECK_NULL)
|
|
if ( sender == 0 || (receiver == 0 && member != 0) ) {
|
|
tqWarning( "TQObject::disconnect: Unexpected null parameter" );
|
|
return FALSE;
|
|
}
|
|
#endif
|
|
if ( !sender->connections ) // no connected signals
|
|
return FALSE;
|
|
TQObject *s = (TQObject *)sender;
|
|
TQObject *r = (TQObject *)receiver;
|
|
int member_index = -1;
|
|
int membcode = -1;
|
|
TQCString nw_member;
|
|
if ( member ) {
|
|
membcode = member[0] - '0';
|
|
#if defined(QT_CHECK_RANGE)
|
|
if ( !check_member_code( membcode, r, member, "disconnect" ) )
|
|
return FALSE;
|
|
#endif
|
|
++member;
|
|
TQMetaObject *rmeta = r->metaObject();
|
|
|
|
switch ( membcode ) { // get receiver member
|
|
case TQSLOT_CODE:
|
|
member_index = rmeta->findSlot( member, TRUE );
|
|
if ( member_index < 0 ) { // normalize and retry
|
|
nw_member = qt_rmWS(member); // remove whitespace
|
|
member = nw_member;
|
|
member_index = rmeta->findSlot( member, TRUE );
|
|
}
|
|
break;
|
|
case TQSIGNAL_CODE:
|
|
member_index = rmeta->findSignal( member, TRUE );
|
|
if ( member_index < 0 ) { // normalize and retry
|
|
nw_member = qt_rmWS(member); // remove whitespace
|
|
member = nw_member;
|
|
member_index = rmeta->findSignal( member, TRUE );
|
|
}
|
|
break;
|
|
}
|
|
if ( member_index < 0 ) { // no such member
|
|
#if defined(QT_CHECK_RANGE)
|
|
err_member_notfound( membcode, r, member, "disconnect" );
|
|
err_info_about_candidates( membcode, rmeta, member, "connect" );
|
|
err_info_about_objects( "disconnect", sender, receiver );
|
|
#endif
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
if ( signal == 0 ) { // any/all signals
|
|
if ( disconnectInternal( s, -1, r, membcode, member_index ) )
|
|
s->disconnectNotify( 0 );
|
|
else
|
|
return FALSE;
|
|
} else { // specific signal
|
|
#if defined(QT_CHECK_RANGE)
|
|
if ( !check_signal_macro( s, signal, "disconnect", "unbind" ) )
|
|
return FALSE;
|
|
#endif
|
|
TQCString nw_signal(signal); // Assume already normalized
|
|
++signal; // skip member type code
|
|
|
|
TQMetaObject *smeta = s->metaObject();
|
|
if ( !smeta ) // no meta object
|
|
return FALSE;
|
|
int signal_index = smeta->findSignal( signal, TRUE );
|
|
if ( signal_index < 0 ) { // normalize and retry
|
|
nw_signal = qt_rmWS( signal-1 ); // remove whitespace
|
|
signal = nw_signal.data()+1; // skip member type code
|
|
signal_index = smeta->findSignal( signal, TRUE );
|
|
}
|
|
if ( signal_index < 0 ) {
|
|
#if defined(QT_CHECK_RANGE)
|
|
tqWarning( "TQObject::disconnect: No such signal %s::%s",
|
|
s->className(), signal );
|
|
#endif
|
|
return FALSE;
|
|
}
|
|
|
|
/* compatibility and safety: If a receiver has several slots
|
|
* with the same name, disconnect them all*/
|
|
bool res = FALSE;
|
|
if ( membcode == TQSLOT_CODE && r ) {
|
|
TQMetaObject * rmeta = r->metaObject();
|
|
do {
|
|
int mi = rmeta->findSlot( member );
|
|
if ( mi != -1 )
|
|
res |= disconnectInternal( s, signal_index, r, membcode, mi );
|
|
} while ( (rmeta = rmeta->superClass()) );
|
|
} else {
|
|
res = disconnectInternal( s, signal_index, r, membcode, member_index );
|
|
}
|
|
if ( res )
|
|
s->disconnectNotify( nw_signal );
|
|
return res;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
/*! \internal */
|
|
|
|
bool TQObject::disconnectInternal( const TQObject *sender, int signal_index,
|
|
const TQObject *receiver, int membcode, int member_index )
|
|
{
|
|
TQObject *s = (TQObject*)sender;
|
|
TQObject *r = (TQObject*)receiver;
|
|
|
|
if ( !s->connections )
|
|
return FALSE;
|
|
|
|
bool success = FALSE;
|
|
TQConnectionList *clist;
|
|
register TQConnection *c;
|
|
if ( signal_index == -1 ) {
|
|
for ( int i = 0; i < (int) s->connections->size(); i++ ) {
|
|
clist = (*s->connections)[i]; // for all signals...
|
|
if ( !clist )
|
|
continue;
|
|
c = clist->first();
|
|
while ( c ) { // for all receivers...
|
|
if ( r == 0 ) { // remove all receivers
|
|
removeObjFromList( c->object()->senderObjects, s );
|
|
success = TRUE;
|
|
c = clist->next();
|
|
} else if ( r == c->object() &&
|
|
( (member_index == -1) ||
|
|
((member_index == c->member()) && (c->memberType() == membcode)) ) ) {
|
|
removeObjFromList( c->object()->senderObjects, s, TRUE );
|
|
success = TRUE;
|
|
clist->remove();
|
|
c = clist->current();
|
|
} else {
|
|
c = clist->next();
|
|
}
|
|
}
|
|
if ( r == 0 ) // disconnect all receivers
|
|
s->connections->insert( i, 0 );
|
|
}
|
|
} else {
|
|
clist = s->connections->at( signal_index );
|
|
if ( !clist )
|
|
return FALSE;
|
|
|
|
c = clist->first();
|
|
while ( c ) { // for all receivers...
|
|
if ( r == 0 ) { // remove all receivers
|
|
removeObjFromList( c->object()->senderObjects, s, TRUE );
|
|
success = TRUE;
|
|
c = clist->next();
|
|
} else if ( r == c->object() &&
|
|
( (member_index == -1) ||
|
|
((member_index == c->member()) && (c->memberType() == membcode)) ) ) {
|
|
removeObjFromList( c->object()->senderObjects, s, TRUE );
|
|
success = TRUE;
|
|
clist->remove();
|
|
c = clist->current();
|
|
} else {
|
|
c = clist->next();
|
|
}
|
|
}
|
|
if ( r == 0 ) // disconnect all receivers
|
|
s->connections->insert( signal_index, 0 );
|
|
}
|
|
return success;
|
|
}
|
|
|
|
/*!
|
|
\fn TQObject::destroyed()
|
|
|
|
This signal is emitted when the object is being destroyed.
|
|
|
|
Note that the signal is emitted by the TQObject destructor, so
|
|
the object's virtual table is already degenerated at this point,
|
|
and it is not safe to call any functions on the object emitting
|
|
the signal. This signal can not be blocked.
|
|
|
|
All the objects's children are destroyed immediately after this
|
|
signal is emitted.
|
|
*/
|
|
|
|
/*!
|
|
\overload TQObject::destroyed( TQObject* obj)
|
|
|
|
This signal is emitted immediately before the object \a obj is
|
|
destroyed, and can not be blocked.
|
|
|
|
All the objects's children are destroyed immediately after this
|
|
signal is emitted.
|
|
*/
|
|
|
|
/*!
|
|
Performs a deferred deletion of this object.
|
|
|
|
Instead of an immediate deletion this function schedules a
|
|
deferred delete event for processing when TQt returns to the main
|
|
event loop.
|
|
*/
|
|
void TQObject::deleteLater()
|
|
{
|
|
TQApplication::postEvent( this, new TQEvent( TQEvent::DeferredDelete) );
|
|
}
|
|
|
|
/*!
|
|
This slot is connected to the destroyed() signal of other objects
|
|
that have installed event filters on this object. When the other
|
|
object, \a obj, is destroyed, we want to remove its event filter.
|
|
*/
|
|
|
|
void TQObject::cleanupEventFilter(TQObject* obj)
|
|
{
|
|
removeEventFilter( obj );
|
|
}
|
|
|
|
|
|
/*!
|
|
\fn TQString TQObject::tr( const char *sourceText, const char * comment )
|
|
\reentrant
|
|
|
|
Returns a translated version of \a sourceText, or \a sourceText
|
|
itself if there is no appropriate translated version. The
|
|
translation context is TQObject with \a comment (0 by default).
|
|
All TQObject subclasses using the TQ_OBJECT macro automatically have
|
|
a reimplementation of this function with the subclass name as
|
|
context.
|
|
|
|
\warning This method is reentrant only if all translators are
|
|
installed \e before calling this method. Installing or removing
|
|
translators while performing translations is not supported. Doing
|
|
so will probably result in crashes or other undesirable behavior.
|
|
|
|
\sa trUtf8() TQApplication::translate()
|
|
\link i18n.html Internationalization with TQt\endlink
|
|
*/
|
|
|
|
/*!
|
|
\fn TQString TQObject::trUtf8( const char *sourceText,
|
|
const char *comment )
|
|
\reentrant
|
|
|
|
Returns a translated version of \a sourceText, or
|
|
TQString::fromUtf8(\a sourceText) if there is no appropriate
|
|
version. It is otherwise identical to tr(\a sourceText, \a
|
|
comment).
|
|
|
|
\warning This method is reentrant only if all translators are
|
|
installed \e before calling this method. Installing or removing
|
|
translators while performing translations is not supported. Doing
|
|
so will probably result in crashes or other undesirable behavior.
|
|
|
|
\sa tr() TQApplication::translate()
|
|
*/
|
|
|
|
static TQMetaObjectCleanUp cleanUp_TQt = TQMetaObjectCleanUp( "TQObject", &TQObject::staticMetaObject );
|
|
|
|
TQMetaObject* TQObject::staticTQtMetaObject()
|
|
{
|
|
static TQMetaObject* qtMetaObject = 0;
|
|
if ( qtMetaObject )
|
|
return qtMetaObject;
|
|
|
|
#ifndef QT_NO_PROPERTIES
|
|
static const TQMetaEnum::Item enum_0[] = {
|
|
{ "AlignLeft", (int) TQt::AlignLeft },
|
|
{ "AlignRight", (int) TQt::AlignRight },
|
|
{ "AlignHCenter", (int) TQt::AlignHCenter },
|
|
{ "AlignTop", (int) TQt::AlignTop },
|
|
{ "AlignBottom", (int) TQt::AlignBottom },
|
|
{ "AlignVCenter", (int) TQt::AlignVCenter },
|
|
{ "AlignCenter", (int) TQt::AlignCenter },
|
|
{ "AlignAuto", (int) TQt::AlignAuto },
|
|
{ "AlignJustify", (int) TQt::AlignJustify },
|
|
{ "WordBreak", (int) TQt::WordBreak }
|
|
};
|
|
|
|
static const TQMetaEnum::Item enum_1[] = {
|
|
{ "Horizontal", (int) TQt::Horizontal },
|
|
{ "Vertical", (int) TQt::Vertical }
|
|
};
|
|
|
|
static const TQMetaEnum::Item enum_2[] = {
|
|
{ "PlainText", (int) TQt::PlainText },
|
|
{ "RichText", (int) TQt::RichText },
|
|
{ "AutoText", (int) TQt::AutoText },
|
|
{ "LogText", (int) TQt::LogText }
|
|
};
|
|
|
|
static const TQMetaEnum::Item enum_3[] = {
|
|
{ "NoBackground", (int) TQt::NoBackground },
|
|
{ "PaletteForeground", (int) TQt::PaletteForeground },
|
|
{ "PaletteButton", (int) TQt::PaletteButton },
|
|
{ "PaletteLight", (int) TQt::PaletteLight },
|
|
{ "PaletteMidlight", (int) TQt::PaletteMidlight },
|
|
{ "PaletteDark", (int) TQt::PaletteDark },
|
|
{ "PaletteMid", (int) TQt::PaletteMid },
|
|
{ "PaletteText", (int) TQt::PaletteText },
|
|
{ "PaletteBrightText", (int) TQt::PaletteBrightText },
|
|
{ "PaletteBase", (int) TQt::PaletteBase },
|
|
{ "PaletteBackground", (int) TQt::PaletteBackground },
|
|
{ "PaletteShadow", (int) TQt::PaletteShadow },
|
|
{ "PaletteHighlight", (int) TQt::PaletteHighlight },
|
|
{ "PaletteHighlightedText", (int) TQt::PaletteHighlightedText },
|
|
{ "PaletteButtonText", (int) TQt::PaletteButtonText },
|
|
{ "PaletteLink", (int) TQt::PaletteLink },
|
|
{ "PaletteLinkVisited", (int) TQt::PaletteLinkVisited }
|
|
};
|
|
|
|
static const TQMetaEnum::Item enum_4[] = {
|
|
{ "TextDate", (int) TQt::TextDate },
|
|
{ "ISODate", (int) TQt::ISODate },
|
|
{ "LocalDate", (int) TQt::LocalDate }
|
|
};
|
|
|
|
|
|
static const TQMetaEnum enum_tbl[] = {
|
|
{ "Alignment", 10, enum_0, TRUE },
|
|
{ "Orientation", 2, enum_1, FALSE },
|
|
{ "TextFormat", 4, enum_2, FALSE },
|
|
{ "BackgroundMode", 17, enum_3, FALSE },
|
|
{ "DateFormat", 3, enum_4, FALSE }
|
|
};
|
|
#endif
|
|
|
|
qtMetaObject = new TQMetaObject( "TQt", 0,
|
|
0, 0,
|
|
0, 0,
|
|
#ifndef QT_NO_PROPERTIES
|
|
0, 0,
|
|
enum_tbl, 5,
|
|
#endif
|
|
0, 0 );
|
|
cleanUp_TQt.setMetaObject( qtMetaObject );
|
|
|
|
return qtMetaObject;
|
|
}
|
|
|
|
/*!
|
|
\internal
|
|
|
|
Signal activation with the most frequently used parameter/argument
|
|
types. All other combinations are generated by the meta object
|
|
compiler.
|
|
*/
|
|
void TQObject::activate_signal( int signal )
|
|
{
|
|
#ifndef QT_NO_PRELIMINARY_SIGNAL_SPY
|
|
if ( tqt_preliminary_signal_spy ) {
|
|
if ( !signalsBlocked() && signal >= 0 &&
|
|
( !connections || !connections->at( signal ) ) ) {
|
|
TQUObject o[1];
|
|
qt_spy_signal( this, signal, o );
|
|
return;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
if ( !connections || signalsBlocked() || signal < 0 )
|
|
return;
|
|
TQConnectionList *clist = connections->at( signal );
|
|
if ( !clist )
|
|
return;
|
|
TQUObject o[1];
|
|
activate_signal( clist, o );
|
|
}
|
|
|
|
/*! \internal */
|
|
|
|
void TQObject::activate_signal( TQConnectionList *clist, TQUObject *o )
|
|
{
|
|
if ( !clist )
|
|
return;
|
|
|
|
#ifndef QT_NO_PRELIMINARY_SIGNAL_SPY
|
|
if ( tqt_preliminary_signal_spy )
|
|
qt_spy_signal( this, connections->findRef( clist), o );
|
|
#endif
|
|
|
|
TQObject *object;
|
|
TQSenderObjectList* sol;
|
|
TQObject* oldSender = 0;
|
|
TQConnection *c;
|
|
if ( clist->count() == 1 ) { // save iterator
|
|
c = clist->first();
|
|
object = c->object();
|
|
sol = object->senderObjects;
|
|
if ( sol ) {
|
|
oldSender = sol->currentSender;
|
|
sol->ref();
|
|
sol->currentSender = this;
|
|
}
|
|
if ( c->memberType() == TQSIGNAL_CODE )
|
|
object->tqt_emit( c->member(), o );
|
|
else
|
|
object->tqt_invoke( c->member(), o );
|
|
if ( sol ) {
|
|
sol->currentSender = oldSender;
|
|
if ( sol->deref() )
|
|
delete sol;
|
|
}
|
|
} else {
|
|
TQConnection *cd = 0;
|
|
TQConnectionListIt it(*clist);
|
|
while ( (c=it.current()) ) {
|
|
++it;
|
|
if ( c == cd )
|
|
continue;
|
|
cd = c;
|
|
object = c->object();
|
|
sol = object->senderObjects;
|
|
if ( sol ) {
|
|
oldSender = sol->currentSender;
|
|
sol->ref();
|
|
sol->currentSender = this;
|
|
}
|
|
if ( c->memberType() == TQSIGNAL_CODE )
|
|
object->tqt_emit( c->member(), o );
|
|
else
|
|
object->tqt_invoke( c->member(), o );
|
|
if (sol ) {
|
|
sol->currentSender = oldSender;
|
|
if ( sol->deref() )
|
|
delete sol;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/*!
|
|
\overload void TQObject::activate_signal( int signal, int )
|
|
*/
|
|
|
|
/*!
|
|
\overload void TQObject::activate_signal( int signal, double )
|
|
*/
|
|
|
|
/*!
|
|
\overload void TQObject::activate_signal( int signal, TQString )
|
|
*/
|
|
|
|
/*!
|
|
\fn void TQObject::activate_signal_bool( int signal, bool )
|
|
\internal
|
|
|
|
Like the above functions, but since bool is sometimes
|
|
only a typedef it cannot be a simple overload.
|
|
*/
|
|
|
|
#ifndef QT_NO_PRELIMINARY_SIGNAL_SPY
|
|
#define ACTIVATE_SIGNAL_WITH_PARAM(FNAME,TYPE) \
|
|
void TQObject::FNAME( int signal, TYPE param ) \
|
|
{ \
|
|
if ( tqt_preliminary_signal_spy ) { \
|
|
if ( !signalsBlocked() && signal >= 0 && \
|
|
( !connections || !connections->at( signal ) ) ) { \
|
|
TQUObject o[2]; \
|
|
static_QUType_##TYPE.set( o+1, param ); \
|
|
qt_spy_signal( this, signal, o ); \
|
|
return; \
|
|
} \
|
|
} \
|
|
if ( !connections || signalsBlocked() || signal < 0 ) \
|
|
return; \
|
|
TQConnectionList *clist = connections->at( signal ); \
|
|
if ( !clist ) \
|
|
return; \
|
|
TQUObject o[2]; \
|
|
static_QUType_##TYPE.set( o+1, param ); \
|
|
activate_signal( clist, o ); \
|
|
}
|
|
#else
|
|
#define ACTIVATE_SIGNAL_WITH_PARAM(FNAME,TYPE) \
|
|
void TQObject::FNAME( int signal, TYPE param ) \
|
|
{ \
|
|
if ( !connections || signalsBlocked() || signal < 0 ) \
|
|
return; \
|
|
TQConnectionList *clist = connections->at( signal ); \
|
|
if ( !clist ) \
|
|
return; \
|
|
TQUObject o[2]; \
|
|
static_QUType_##TYPE.set( o+1, param ); \
|
|
activate_signal( clist, o ); \
|
|
}
|
|
|
|
#endif
|
|
// We don't want to duplicate too much text so...
|
|
|
|
ACTIVATE_SIGNAL_WITH_PARAM( activate_signal, int )
|
|
ACTIVATE_SIGNAL_WITH_PARAM( activate_signal, double )
|
|
ACTIVATE_SIGNAL_WITH_PARAM( activate_signal, TQString )
|
|
ACTIVATE_SIGNAL_WITH_PARAM( activate_signal_bool, bool )
|
|
|
|
|
|
/*****************************************************************************
|
|
TQObject debugging output routines.
|
|
*****************************************************************************/
|
|
|
|
static void dumpRecursive( int level, TQObject *object )
|
|
{
|
|
#if defined(QT_DEBUG)
|
|
if ( object ) {
|
|
TQString buf;
|
|
buf.fill( '\t', level/2 );
|
|
if ( level % 2 )
|
|
buf += " ";
|
|
const char *name = object->name();
|
|
TQString flags="";
|
|
if ( tqApp->focusWidget() == object )
|
|
flags += 'F';
|
|
if ( object->isWidgetType() ) {
|
|
TQWidget * w = (TQWidget *)object;
|
|
if ( w->isVisible() ) {
|
|
TQString t( "<%1,%2,%3,%4>" );
|
|
flags += t.arg(w->x()).arg(w->y()).arg(w->width()).arg(w->height());
|
|
} else {
|
|
flags += 'I';
|
|
}
|
|
}
|
|
tqDebug( "%s%s::%s %s", (const char*)buf, object->className(), name,
|
|
flags.latin1() );
|
|
if ( object->children() ) {
|
|
TQObjectListIt it(*object->children());
|
|
TQObject * c;
|
|
while ( (c=it.current()) != 0 ) {
|
|
++it;
|
|
dumpRecursive( level+1, c );
|
|
}
|
|
}
|
|
}
|
|
#else
|
|
Q_UNUSED( level )
|
|
Q_UNUSED( object )
|
|
#endif
|
|
}
|
|
|
|
/*!
|
|
Dumps a tree of children to the debug output.
|
|
|
|
This function is useful for debugging, but does nothing if the
|
|
library has been compiled in release mode (i.e. without debugging
|
|
information).
|
|
*/
|
|
|
|
void TQObject::dumpObjectTree()
|
|
{
|
|
dumpRecursive( 0, this );
|
|
}
|
|
|
|
/*!
|
|
Dumps information about signal connections, etc. for this object
|
|
to the debug output.
|
|
|
|
This function is useful for debugging, but does nothing if the
|
|
library has been compiled in release mode (i.e. without debugging
|
|
information).
|
|
*/
|
|
|
|
void TQObject::dumpObjectInfo()
|
|
{
|
|
#if defined(QT_DEBUG)
|
|
tqDebug( "OBJECT %s::%s", className(), name( "unnamed" ) );
|
|
int n = 0;
|
|
tqDebug( " SIGNALS OUT" );
|
|
if ( connections ) {
|
|
TQConnectionList *clist;
|
|
for ( uint i = 0; i < connections->size(); i++ ) {
|
|
if ( ( clist = connections->at( i ) ) ) {
|
|
tqDebug( "\t%s", metaObject()->signal( i, TRUE )->name );
|
|
n++;
|
|
register TQConnection *c;
|
|
TQConnectionListIt cit(*clist);
|
|
while ( (c=cit.current()) ) {
|
|
++cit;
|
|
tqDebug( "\t --> %s::%s %s", c->object()->className(),
|
|
c->object()->name( "unnamed" ), c->memberName() );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if ( n == 0 )
|
|
tqDebug( "\t<None>" );
|
|
|
|
tqDebug( " SIGNALS IN" );
|
|
n = 0;
|
|
if ( senderObjects ) {
|
|
TQObject *sender = senderObjects->first();
|
|
while ( sender ) {
|
|
tqDebug( "\t%s::%s",
|
|
sender->className(), sender->name( "unnamed" ) );
|
|
n++;
|
|
sender = senderObjects->next();
|
|
}
|
|
}
|
|
if ( n == 0 )
|
|
tqDebug( "\t<None>" );
|
|
#endif
|
|
}
|
|
|
|
#ifndef QT_NO_PROPERTIES
|
|
|
|
/*!
|
|
Sets the value of the object's \a name property to \a value.
|
|
|
|
Returns TRUE if the operation was successful; otherwise returns
|
|
FALSE.
|
|
|
|
Information about all available properties is provided through the
|
|
metaObject().
|
|
|
|
\sa property(), metaObject(), TQMetaObject::propertyNames(), TQMetaObject::property()
|
|
*/
|
|
bool TQObject::setProperty( const char *name, const TQVariant& value )
|
|
{
|
|
if ( !value.isValid() )
|
|
return FALSE;
|
|
|
|
TQVariant v = value;
|
|
|
|
TQMetaObject* meta = metaObject();
|
|
if ( !meta )
|
|
return FALSE;
|
|
int id = meta->findProperty( name, TRUE );
|
|
const TQMetaProperty* p = meta->property( id, TRUE );
|
|
if ( !p || !p->isValid() || !p->writable() ) {
|
|
tqWarning( "%s::setProperty( \"%s\", value ) failed: property invalid, read-only or does not exist",
|
|
className(), name );
|
|
return FALSE;
|
|
}
|
|
|
|
if ( p->isEnumType() ) {
|
|
if ( v.type() == TQVariant::String || v.type() == TQVariant::CString ) {
|
|
if ( p->isSetType() ) {
|
|
TQString s = value.toString();
|
|
// TQStrList does not support split, use TQStringList for that.
|
|
TQStringList l = TQStringList::split( '|', s );
|
|
TQStrList keys;
|
|
for ( TQStringList::Iterator it = l.begin(); it != l.end(); ++it )
|
|
keys.append( (*it).stripWhiteSpace().latin1() );
|
|
v = TQVariant( p->keysToValue( keys ) );
|
|
} else {
|
|
v = TQVariant( p->keyToValue( value.toCString().data() ) );
|
|
}
|
|
} else if ( v.type() != TQVariant::Int && v.type() != TQVariant::UInt ) {
|
|
return FALSE;
|
|
}
|
|
return tqt_property( id, 0, &v );
|
|
}
|
|
|
|
TQVariant::Type type = (TQVariant::Type)(p->flags >> 24);
|
|
if ( type == TQVariant::Invalid )
|
|
type = TQVariant::nameToType( p->type() );
|
|
if ( type != TQVariant::Invalid && !v.canCast( type ) )
|
|
return FALSE;
|
|
return tqt_property( id, 0, &v );
|
|
}
|
|
|
|
/*!
|
|
Returns the value of the object's \a name property.
|
|
|
|
If no such property exists, the returned variant is invalid.
|
|
|
|
Information about all available properties are provided through
|
|
the metaObject().
|
|
|
|
\sa setProperty(), TQVariant::isValid(), metaObject(),
|
|
TQMetaObject::propertyNames(), TQMetaObject::property()
|
|
*/
|
|
TQVariant TQObject::property( const char *name ) const
|
|
{
|
|
TQVariant v;
|
|
TQMetaObject* meta = metaObject();
|
|
if ( !meta )
|
|
return v;
|
|
int id = meta->findProperty( name, TRUE );
|
|
const TQMetaProperty* p = meta->property( id, TRUE );
|
|
if ( !p || !p->isValid() ) {
|
|
tqWarning( "%s::property( \"%s\" ) failed: property invalid or does not exist",
|
|
className(), name );
|
|
return v;
|
|
}
|
|
TQObject* that = (TQObject*) this; // moc ensures constness for the tqt_property call
|
|
that->tqt_property( id, 1, &v );
|
|
return v;
|
|
}
|
|
|
|
#endif // QT_NO_PROPERTIES
|
|
|
|
#ifndef QT_NO_USERDATA
|
|
/*!\internal
|
|
*/
|
|
uint TQObject::registerUserData()
|
|
{
|
|
static int user_data_registration = 0;
|
|
return user_data_registration++;
|
|
}
|
|
|
|
/*!\internal
|
|
*/
|
|
TQObjectUserData::~TQObjectUserData()
|
|
{
|
|
}
|
|
|
|
/*!\internal
|
|
*/
|
|
void TQObject::setUserData( uint id, TQObjectUserData* data)
|
|
{
|
|
if ( !d )
|
|
d = new TQObjectPrivate( id+1 );
|
|
if ( id >= d->size() )
|
|
d->resize( id+1 );
|
|
d->insert( id, data );
|
|
}
|
|
|
|
/*!\internal
|
|
*/
|
|
TQObjectUserData* TQObject::userData( uint id ) const
|
|
{
|
|
if ( d && id < d->size() )
|
|
return d->at( id );
|
|
return 0;
|
|
}
|
|
|
|
#endif // QT_NO_USERDATA
|