summaryrefslogtreecommitdiffstats
path: root/src/kernel/qobject.cpp
diff options
context:
space:
mode:
authorTimothy Pearson <kb9vqf@pearsoncomputing.net>2011-11-08 12:31:36 -0600
committerTimothy Pearson <kb9vqf@pearsoncomputing.net>2011-11-08 12:31:36 -0600
commitd796c9dd933ab96ec83b9a634feedd5d32e1ba3f (patch)
tree6e3dcca4f77e20ec8966c666aac7c35bd4704053 /src/kernel/qobject.cpp
downloadtqt3-d796c9dd933ab96ec83b9a634feedd5d32e1ba3f.tar.gz
tqt3-d796c9dd933ab96ec83b9a634feedd5d32e1ba3f.zip
Test conversion to TQt3 from Qt3 8c6fc1f8e35fd264dd01c582ca5e7549b32ab731
Diffstat (limited to 'src/kernel/qobject.cpp')
-rw-r--r--src/kernel/qobject.cpp2711
1 files changed, 2711 insertions, 0 deletions
diff --git a/src/kernel/qobject.cpp b/src/kernel/qobject.cpp
new file mode 100644
index 000000000..242a35e69
--- /dev/null
+++ b/src/kernel/qobject.cpp
@@ -0,0 +1,2711 @@
+/****************************************************************************
+**
+** 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 retquirements 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 "qvariant.h"
+#include "qapplication.h"
+#include "qobject.h"
+#include "qobjectlist.h"
+#include "qsignalslotimp.h"
+#include "qregexp.h"
+#include "qmetaobject.h"
+#include <private/qucom_p.h>
+#include "qucomextra_p.h"
+#include "qptrvector.h"
+
+#ifdef QT_THREAD_SUPPORT
+#include <qmutex.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 qnamespace.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 qobject.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 Q_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( qstrlen(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 *) qt_find_obj_child( myWidget, "TQListBox",
+ "my list box" );
+ if ( c )
+ c->insertItem( "another string" );
+ \endcode
+*/
+
+void *qt_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* qt_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 = qt_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( qt_global_mutexpool ?
+ qt_global_mutexpool->get( address ) : 0 );
+#endif // QT_THREAD_SUPPORT
+
+ TQObject* old_sender = qt_spy_signal_sender;
+ qt_spy_signal_sender = sender;
+ qt_preliminary_signal_spy->qt_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;
+ qAddPostRoutine( 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 ? qstrdup(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)
+ qWarning( "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 Q_OBJECT macro will also have
+ a meta object.
+
+ The meta object information is retquired 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 Q_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 *qt_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 qDebug()) 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
+ qDebug( "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 ? qstrdup(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 )
+ qWarning( "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;
+ qDebug( "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
+ {
+ Q_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 )
+ {
+ qDebug( "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 qobjectlist.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 qobjectlist.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 tquite 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 qobjectlist.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;
+ Q_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 ( qt_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() )
+ qWarning( "TQObject::insertChild: Cannot reparent a widget, "
+ "use TQWidget::reparent() instead" );
+#endif
+ obj->parentObj->removeChild( obj );
+ }
+
+ if ( !childObjects ) {
+ childObjects = new TQObjectList;
+ Q_CHECK_PTR( childObjects );
+ } else if ( obj->parentObj == this ) {
+#if defined(QT_CHECK_STATE)
+ qWarning( "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;
+ qDebug( "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;
+ Q_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 )
+ qWarning( "TQObject::%s: Attempt to %s non-signal %s::%s",
+ func, op, sender->className(), signal+1 );
+ else
+ qWarning( "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 ) {
+ qWarning( "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
+ qWarning( "TQObject::%s: Parentheses expected, %s %s::%s",
+ func, type, object->className(), member );
+ else
+ qWarning( "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 )
+ qWarning( "TQObject::%s: (sender name: '%s')", func, a );
+ if ( b )
+ qWarning( "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 ) {
+ qWarning("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 == qt_preliminary_signal_spy ) {
+# ifdef QT_THREAD_SUPPORT
+ // protect access to qt_spy_signal_sender
+ void * const address = &qt_spy_signal_sender;
+ TQMutexLocker locker( qt_global_mutexpool ?
+ qt_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 = qstrlen(s1);
+ int s2len = qstrlen(s2);
+ if ( s2len < s1len && qstrncmp(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
+ {
+ Q_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 ) {
+ qWarning( "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) ) {
+ qWarning( "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
+ qWarning( "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 );
+ Q_CHECK_PTR( s->connections );
+ s->connections->setAutoDelete( TRUE );
+ }
+
+ TQConnectionList *clist = s->connections->at( signal_index );
+ if ( !clist ) { // create receiver list
+ clist = new TQConnectionList;
+ Q_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 );
+ Q_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) ) {
+ qWarning( "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)
+ qWarning( "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 Q_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 ( qt_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 ( qt_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->qt_emit( c->member(), o );
+ else
+ object->qt_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->qt_emit( c->member(), o );
+ else
+ object->qt_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 ( qt_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 ( qApp->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';
+ }
+ }
+ qDebug( "%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)
+ qDebug( "OBJECT %s::%s", className(), name( "unnamed" ) );
+ int n = 0;
+ qDebug( " SIGNALS OUT" );
+ if ( connections ) {
+ TQConnectionList *clist;
+ for ( uint i = 0; i < connections->size(); i++ ) {
+ if ( ( clist = connections->at( i ) ) ) {
+ qDebug( "\t%s", metaObject()->signal( i, TRUE )->name );
+ n++;
+ register TQConnection *c;
+ TQConnectionListIt cit(*clist);
+ while ( (c=cit.current()) ) {
+ ++cit;
+ qDebug( "\t --> %s::%s %s", c->object()->className(),
+ c->object()->name( "unnamed" ), c->memberName() );
+ }
+ }
+ }
+ }
+ if ( n == 0 )
+ qDebug( "\t<None>" );
+
+ qDebug( " SIGNALS IN" );
+ n = 0;
+ if ( senderObjects ) {
+ TQObject *sender = senderObjects->first();
+ while ( sender ) {
+ qDebug( "\t%s::%s",
+ sender->className(), sender->name( "unnamed" ) );
+ n++;
+ sender = senderObjects->next();
+ }
+ }
+ if ( n == 0 )
+ qDebug( "\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() ) {
+ qWarning( "%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 qt_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 qt_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() ) {
+ qWarning( "%s::property( \"%s\" ) failed: property invalid or does not exist",
+ className(), name );
+ return v;
+ }
+ TQObject* that = (TQObject*) this; // moc ensures constness for the qt_property call
+ that->qt_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