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.
tqt3/src/kernel/qobject.cpp

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