path: root/src/kernel/qobject.cpp

/****************************************************************************
**
** 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 [email protected].
**
** 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