/* * Copyright (C) 2000 by Matthias Kalle Dalheimer <kalle@kde.org> * 2004 by Olivier Goffart <ogoffart @ tiscalinet.be> * * Licensed under the Artistic License. */ #include "kdcopwindow.h" #include "kdcoplistview.h" #include <dcopclient.h> #include <tdelocale.h> #include <kdatastream.h> #include <kstdaction.h> #include <tdeaction.h> #include <tdeapplication.h> #include <tdemessagebox.h> #include <kdialog.h> #include <tdeglobal.h> #include <kiconloader.h> #include <klineedit.h> #include <keditlistbox.h> #include <tdelistbox.h> #include <kdialogbase.h> #include <tdestdaccel.h> #include <kcolorbutton.h> #include <tdelistviewsearchline.h> #include <tqtimer.h> #include <tqwidgetstack.h> #include <tqlabel.h> #include <tqsplitter.h> #include <tqlayout.h> #include <tqcheckbox.h> #include <tqlineedit.h> #include <tqvalidator.h> #include <tqpushbutton.h> #include <tqkeycode.h> #include <tqpixmap.h> #include <tqcursor.h> #include <tqsize.h> #include <tqrect.h> #include <tqclipboard.h> #include <tqdatetime.h> #include <dcopref.h> #include <tqvbox.h> #include <tqimage.h> #include <tqheader.h> #include <kdebug.h> #include <kkeydialog.h> #include <stdio.h> #include <kstatusbar.h> #include <kurl.h> #include <kurlrequester.h> class DCOPBrowserApplicationItem; class DCOPBrowserInterfaceItem; class DCOPBrowserFunctionItem; //------------------------------ class KMultiIntEdit : public TQVBox { public: KMultiIntEdit(TQWidget *parent , const char * name=0) : TQVBox(parent,name) {} void addField(int key, const TQString & caption ) { TQHBox *l=new TQHBox(this); new TQLabel(caption + ": ", l); KLineEdit* e = new KLineEdit( l ); m_widgets.insert(key, e ) ; e->setValidator( new TQIntValidator( TQT_TQOBJECT(e) ) ); } int field(int key) { KLineEdit *e=m_widgets[key]; if(!e) return 0; return e->text().toInt(); } private: TQMap<int,KLineEdit*> m_widgets; }; //------------------------------ DCOPBrowserItem::DCOPBrowserItem (TQListView * parent, DCOPBrowserItem::Type type) : TQListViewItem(parent), type_(type) { } DCOPBrowserItem::DCOPBrowserItem (TQListViewItem * parent, DCOPBrowserItem::Type type) : TQListViewItem(parent), type_(type) { } DCOPBrowserItem::Type DCOPBrowserItem::type() const { return type_; } // ------------------------------------------------------------------------ DCOPBrowserApplicationItem::DCOPBrowserApplicationItem (TQListView * parent, const TQCString & app) : DCOPBrowserItem(parent, Application), app_(app) { setExpandable(true); setText(0, TQString::fromUtf8(app_)); setPixmap(0, TDEGlobal::iconLoader()->loadIcon( TQString::fromLatin1( "exec" ), TDEIcon::Small )); /* Get the icon: we use the icon from a mainwindow in that class. a lot of applications has a app-mainwindow#1 object, but others can still have a main window with another name. In that case, we search for a main window with the qt object. * Why don't search with qt dirrectly? simply because some application that have a 'mainwindow#1' doesn't have a qt object. And, for reason i don't know, some application return stanges result. Some konqueror instance are returning konqueror-mainwindow#3 while only the #1 exists, I already seen the same problem with konsole * All calls are async to don't block the GUI if the clients does not reply immediatly */ TQRegExp rx( "([^\\-]+)"); // remove the possible processus id rx.search(app_); // konqueror-123 => konqueror-mainwindow#1 TQString mainWindowName= rx.cap(1) + "-mainwindow#1" ; TQByteArray data; int callId=kapp->dcopClient()->callAsync( app_, mainWindowName.utf8(), "icon()", data, this, TQT_SLOT(retreiveIcon(int, const TQCString&, const TQByteArray&))); if(!callId) { //maybe there is another mainwindow registered with another name. TQByteArray data; TQDataStream arg(data, IO_WriteOnly); arg << TQCString( "MainWindow" ); kapp->dcopClient()->callAsync( app_, "qt", "find(TQCString)", data, this, TQT_SLOT(slotGotWindowName(int, const TQCString&, const TQByteArray& ))); } } void DCOPBrowserApplicationItem::setOpen(bool o) { DCOPBrowserItem::setOpen(o); if (0 == firstChild()) populate(); } void DCOPBrowserApplicationItem::populate() { TDEApplication::setOverrideCursor(tqwaitCursor); bool ok = false; bool isDefault = false; QCStringList objs = kapp->dcopClient()->remoteObjects(app_, &ok); for (QCStringList::ConstIterator it = objs.begin(); it != objs.end(); ++it) { if (*it == "default") { isDefault = true; continue; } new DCOPBrowserInterfaceItem(this, app_, *it, isDefault); isDefault = false; } TDEApplication::restoreOverrideCursor(); } void DCOPBrowserApplicationItem::slotGotWindowName(int /*callId*/, const TQCString& /*replyType*/, const TQByteArray &replyData) { TQDataStream reply(replyData, IO_ReadOnly); QCStringList mainswindows; reply >> mainswindows; TQStringList sl=TQStringList::split("/",mainswindows.first() ); if(sl.count() >= 1) { TQString mainWindowName=sl[1]; if(!mainWindowName.isEmpty()) { TQByteArray data; kapp->dcopClient()->callAsync( app_, mainWindowName.utf8(), "icon()", data, this, TQT_SLOT(retreiveIcon(int, const TQCString&, const TQByteArray&))); } } } void DCOPBrowserApplicationItem::retreiveIcon(int /*callId*/,const TQCString& /*replyType*/, const TQByteArray &replyData) { TQDataStream reply(replyData, IO_ReadOnly); TQPixmap returnQPixmap; reply >> returnQPixmap; if(!returnQPixmap.isNull()) setPixmap(0, TQPixmap(TQImage(returnQPixmap.convertToImage()).smoothScale(16,16)) ); else kdDebug() << "Unable to retreive the icon" << endl; } // ------------------------------------------------------------------------ DCOPBrowserInterfaceItem::DCOPBrowserInterfaceItem ( DCOPBrowserApplicationItem * parent, const TQCString & app, const TQCString & object, bool def ) : DCOPBrowserItem(parent, Interface), app_(app), object_(object) { setExpandable(true); if (def) setText(0, i18n("%1 (default)").arg(TQString::fromUtf8(object_))); else setText(0, TQString::fromUtf8(object_)); } void DCOPBrowserInterfaceItem::setOpen(bool o) { DCOPBrowserItem::setOpen(o); if (0 == firstChild()) populate(); } void DCOPBrowserInterfaceItem::populate() { TDEApplication::setOverrideCursor(tqwaitCursor); bool ok = false; QCStringList funcs = kapp->dcopClient()->remoteFunctions(app_, object_, &ok); for (QCStringList::ConstIterator it = funcs.begin(); it != funcs.end(); ++it) if ((*it) != "QCStringList functions()") new DCOPBrowserFunctionItem(this, app_, object_, *it); TDEApplication::restoreOverrideCursor(); } // ------------------------------------------------------------------------ DCOPBrowserFunctionItem::DCOPBrowserFunctionItem ( DCOPBrowserInterfaceItem * parent, const TQCString & app, const TQCString & object, const TQCString & function ) : DCOPBrowserItem(parent, Function), app_(app), object_(object), function_(function) { setExpandable(false); setText(0, TQString::fromUtf8(function_)); } void DCOPBrowserFunctionItem::setOpen(bool o) { DCOPBrowserItem::setOpen(o); } // ------------------------------------------------------------------------ KDCOPWindow::KDCOPWindow(TQWidget *parent, const char * name) : TDEMainWindow(parent, name) { dcopClient = kapp->dcopClient(); dcopClient->attach(); resize( 377, 480 ); statusBar()->message(i18n("Welcome to the TDE DCOP browser")); mainView = new kdcopview(this, "KDCOP"); mainView->kListViewSearchLine1->setListView( mainView->lv ); setCentralWidget(mainView); mainView->lv->addColumn(i18n("Application")); mainView->lv->header()->setStretchEnabled(true, 0); // mainView->lv->addColumn(i18n("Interface")); // mainView->lv->addColumn(i18n("Function")); mainView->lv->setDragAutoScroll( FALSE ); mainView->lv->setRootIsDecorated( TRUE ); connect ( mainView->lv, TQT_SIGNAL(doubleClicked(TQListViewItem *)), TQT_SLOT(slotCallFunction(TQListViewItem *)) ); connect ( mainView->lv, TQT_SIGNAL(currentChanged(TQListViewItem *)), TQT_SLOT(slotCurrentChanged(TQListViewItem *)) ); // set up the actions KStdAction::quit( TQT_TQOBJECT(this), TQT_SLOT( close() ), actionCollection() ); KStdAction::copy( TQT_TQOBJECT(this), TQT_SLOT( slotCopy()), actionCollection() ); KStdAction::keyBindings( guiFactory(), TQT_SLOT( configureShortcuts() ), actionCollection() ); (void) new TDEAction( i18n( "&Reload" ), "reload", TDEStdAccel::shortcut(TDEStdAccel::Reload), TQT_TQOBJECT(this), TQT_SLOT( slotReload() ), actionCollection(), "reload" ); exeaction = new TDEAction ( i18n("&Execute"), "exec", CTRL + Key_E, TQT_TQOBJECT(this), TQT_SLOT(slotCallFunction()), actionCollection(), "execute" ); exeaction->setEnabled(false); exeaction->setToolTip(i18n("Execute the selected DCOP call.")); langmode = new TDESelectAction ( i18n("Language Mode"), CTRL + Key_M, TQT_TQOBJECT(this), TQT_SLOT(slotMode()), actionCollection(), "langmode"); langmode->setEditable(false); langmode->setItems(TQStringList::split(",", "Shell,C++,Python")); langmode->setToolTip(i18n("Set the current language export.")); langmode->setCurrentItem(0); slotMode(); connect ( dcopClient, TQT_SIGNAL(applicationRegistered(const TQCString &)), TQT_SLOT(slotApplicationRegistered(const TQCString &)) ); connect ( dcopClient, TQT_SIGNAL(applicationRemoved(const TQCString &)), TQT_SLOT(slotApplicationUnregistered(const TQCString &)) ); dcopClient->setNotifications(true); createGUI(); setCaption(i18n("DCOP Browser")); mainView->lb_replyData->hide(); TQTimer::singleShot(0, this, TQT_SLOT(slotFillApplications())); } void KDCOPWindow::slotCurrentChanged( TQListViewItem* i ) { DCOPBrowserItem* item = (DCOPBrowserItem*)i; if( item->type() == DCOPBrowserItem::Function ) exeaction->setEnabled( true ); else exeaction->setEnabled( false ); } void KDCOPWindow::slotCallFunction() { slotCallFunction( mainView->lv->currentItem() ); } void KDCOPWindow::slotReload() { slotFillApplications(); } void KDCOPWindow::slotCallFunction( TQListViewItem* it ) { if(it == 0) return; DCOPBrowserItem * item = static_cast<DCOPBrowserItem *>(it); if (item->type() != DCOPBrowserItem::Function) return; DCOPBrowserFunctionItem * fitem = static_cast<DCOPBrowserFunctionItem *>(item); TQString unNormalisedSignature = TQString::fromUtf8(fitem->function()); TQString normalisedSignature; TQStringList types; TQStringList names; if (!getParameters(unNormalisedSignature, normalisedSignature, types, names)) { KMessageBox::error (this, i18n("No parameters found."), i18n("DCOP Browser Error")); return; } TQByteArray data; TQByteArray replyData; TQCString replyType; TQDataStream arg(data, IO_WriteOnly); KDialogBase mydialog( this, "KDCOP Parameter Entry", true, TQString::null, KDialogBase::Ok|KDialogBase::Cancel, KDialogBase::Ok, true ); mydialog.setCaption ( i18n("Call Function %1").arg( static_cast<const char *>(fitem->function()) ) ); TQFrame *frame = mydialog.makeMainWidget(); TQLabel* h1 = new TQLabel( i18n( "Name" ), frame ); TQLabel* h2 = new TQLabel( i18n( "Type" ), frame ); TQLabel* h3 = new TQLabel( i18n( "Value" ), frame ); TQGridLayout* grid = new TQGridLayout( frame, types.count() + 2, 3, 0, KDialog::spacingHint() ); grid->addWidget( h1, 0, 0 ); grid->addWidget( h2, 0, 1 ); grid->addWidget( h3, 0, 2 ); // Build up a dialog for parameter entry if there are any parameters. if (types.count()) { int i = 0; TQPtrList<TQWidget> wl; for (TQStringList::ConstIterator it = types.begin(); it != types.end(); ++it) { i++; const TQString type = *it; const TQString name = i-1 < (int)names.count() ? names[i-1] : TQString::null; if( type == "int" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "int", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); e->setValidator( new TQIntValidator( TQT_TQOBJECT(e) ) ); } else if ( type == "unsigned" || type == "uint" || type == "unsigned int" || type == "TQ_UINT32" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "unsigned int", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); TQIntValidator* iv = new TQIntValidator( TQT_TQOBJECT(e) ); iv->setBottom( 0 ); e->setValidator( iv ); } else if ( type == "long" || type == "long int" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "long", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); e->setValidator( new TQIntValidator( TQT_TQOBJECT(e) ) ); } else if ( type == "ulong" || type == "unsigned long" || type == "unsigned long int" || type == "TQ_UINT64" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "unsigned long", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); e->setValidator( new TQIntValidator( TQT_TQOBJECT(e) ) ); } else if ( type == "short" || type == "short int" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "long", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); e->setValidator( new TQIntValidator( TQT_TQOBJECT(e) ) ); } else if ( type == "ushort" || type == "unsigned short" || type == "unsigned short int" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "unsigned short", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); e->setValidator( new TQIntValidator( TQT_TQOBJECT(e) ) ); } else if ( type == "float" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "float", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); e->setValidator( new TQDoubleValidator( TQT_TQOBJECT(e) ) ); } else if ( type == "double" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "double", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); e->setValidator( new TQDoubleValidator( TQT_TQOBJECT(e) ) ); } else if ( type == "bool" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "bool", frame ); grid->addWidget( l, i, 1 ); TQCheckBox* c = new TQCheckBox( frame ); grid->addWidget( c, i, 2 ); wl.append( c ); } else if ( type == "TQString" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "TQString", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); } else if ( type == "TQCString" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "TQString", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); } else if ( type == "TQStringList" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "TQStringList", frame ); grid->addWidget( l, i, 1 ); KEditListBox* e = new KEditListBox ( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); } else if ( type == "TQValueList<TQCString>" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "TQValueList<TQCString>", frame ); grid->addWidget( l, i, 1 ); KEditListBox* e = new KEditListBox ( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); } else if ( type == "KURL" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "KURL", frame ); grid->addWidget( l, i, 1 ); KLineEdit* e = new KLineEdit( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); } else if ( type == "TQColor" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "TQColor", frame ); grid->addWidget( l, i, 1 ); KColorButton* e = new KColorButton( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); } else if ( type == "TQSize" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "TQSize", frame ); grid->addWidget( l, i, 1 ); KMultiIntEdit* e = new KMultiIntEdit( frame ); e->addField( 1, i18n("Width") ); e->addField( 2, i18n("Height") ); grid->addWidget( e, i, 2 ); wl.append( e ); } else if ( type == "TQPoint" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "TQPoint", frame ); grid->addWidget( l, i, 1 ); KMultiIntEdit* e = new KMultiIntEdit( frame ); e->addField( 1, i18n("X") ); e->addField( 2, i18n("Y") ); grid->addWidget( e, i, 2 ); wl.append( e ); } else if ( type == "TQRect" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "TQRect", frame ); grid->addWidget( l, i, 1 ); KMultiIntEdit* e = new KMultiIntEdit( frame ); e->addField( 1, i18n("Left") ); e->addField( 2, i18n("Top") ); e->addField( 3, i18n("Width") ); e->addField( 4, i18n("Height") ); grid->addWidget( e, i, 2 ); wl.append( e ); } else if( type == "TQPixmap" ) { TQLabel* n = new TQLabel( name, frame ); grid->addWidget( n, i, 0 ); TQLabel* l = new TQLabel( "TQPixmap", frame ); grid->addWidget( l, i, 1 ); KURLRequester* e = new KURLRequester( frame ); grid->addWidget( e, i, 2 ); wl.append( e ); } else { KMessageBox::sorry(this, i18n("Cannot handle datatype %1").arg(type)); return; } } if (!wl.isEmpty()) wl.at(0)->setFocus(); i++; int ret = mydialog.exec(); if (TQDialog::Accepted != ret) return; // extract the arguments i = 0; for (TQStringList::ConstIterator it = types.begin(); it != types.end(); ++it) { TQString type = *it; if ( type == "int" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << e->text().toInt(); } else if ( type == "unsigned" || type == "uint" || type == "unsigned int" || type == "TQ_UINT32" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << e->text().toUInt(); } else if( type == "long" || type == "long int" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << e->text().toLong(); } else if( type == "ulong" || type == "unsigned long" || type == "unsigned long int" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << e->text().toULong(); } else if( type == "short" || type == "short int" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << e->text().toShort(); } else if( type == "ushort" || type == "unsigned short" || type == "unsigned short int" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << e->text().toUShort(); } else if ( type == "TQ_UINT64" ) { KLineEdit* e = ( KLineEdit* )wl.at( i ); arg << e->text().toULongLong(); } else if( type == "float" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << e->text().toFloat(); } else if( type == "double" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << e->text().toDouble(); } else if( type == "bool" ) { TQCheckBox* c = (TQCheckBox*)wl.at( i ); arg << c->isChecked(); } else if( type == "TQCString" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << TQCString( e->text().local8Bit() ); } else if( type == "TQString" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << e->text(); } else if( type == "TQStringList" ) { KEditListBox* e = (KEditListBox*)wl.at( i ); arg << e->items(); } else if( type == "TQValueList<TQCString>" ) { KEditListBox* e = (KEditListBox*)wl.at( i ); for (int i = 0; i < e->count(); i++) arg << TQCString( e->text(i).local8Bit() ); } else if( type == "KURL" ) { KLineEdit* e = (KLineEdit*)wl.at( i ); arg << KURL( e->text() ); } else if( type == "TQColor" ) { KColorButton* e = (KColorButton*)wl.at( i ); arg << e->color(); } else if( type == "TQSize" ) { KMultiIntEdit* e = (KMultiIntEdit*)wl.at( i ); arg << TQSize(e->field(1) , e->field(2)) ; } else if( type == "TQPoint" ) { KMultiIntEdit* e = (KMultiIntEdit*)wl.at( i ); arg << TQPoint(e->field(1) , e->field(2)) ; } else if( type == "TQRect" ) { KMultiIntEdit* e = (KMultiIntEdit*)wl.at( i ); arg << TQRect(e->field(1) , e->field(2) , e->field(3) , e->field(4)) ; } else if( type == "TQPixmap" ) { KURLRequester* e= (KURLRequester*)wl.at( i ); arg << TQPixmap(e->url()); } else { KMessageBox::sorry(this, i18n("Cannot handle datatype %1").arg(type)); return; } i++; } } DCOPRef( fitem->app(), "MainApplication-Interface" ).call( "updateUserTimestamp", kapp->userTimestamp()); // Now do the DCOP call bool callOk = dcopClient->call ( fitem->app(), fitem->object(), normalisedSignature.utf8(), data, replyType, replyData ); if (!callOk) { kdDebug() << "call failed( " << fitem->app().data() << ", " << fitem->object().data() << ", " << normalisedSignature << " )" << endl; statusBar()->message(i18n("DCOP call failed")); TQString msg = i18n("<p>DCOP call failed.</p>%1"); bool appRegistered = dcopClient->isApplicationRegistered(fitem->app()); if (appRegistered) { msg = msg.arg ( i18n ( "<p>Application is still registered with DCOP;" " I do not know why this call failed.</p>" ) ); } else { msg = msg.arg ( i18n ( "<p>The application appears to have unregistered with DCOP.</p>" ) ); } KMessageBox::information(this, msg); } else { TQString coolSignature = TQString::fromUtf8(fitem->app()) + "." + TQString::fromUtf8(fitem->object()) + "." + normalisedSignature ; statusBar()->message(i18n("DCOP call %1 executed").arg(coolSignature)); if (replyType != "void" && replyType != "ASYNC" && !replyType.isEmpty() ) { TQDataStream reply(replyData, IO_ReadOnly); if (demarshal(replyType, reply, mainView->lb_replyData)) { mainView->l_replyType->setText ( i18n("<strong>%1</strong>") .arg(TQString::fromUtf8(replyType)) ); mainView->lb_replyData->show(); } else { mainView->l_replyType->setText(i18n("Unknown type %1.").arg(TQString::fromUtf8(replyType))); mainView->lb_replyData->hide(); } } else { mainView->l_replyType->setText(i18n("No returned values")); mainView->lb_replyData->hide(); } } } void KDCOPWindow::slotFillApplications() { TDEApplication::setOverrideCursor(tqwaitCursor); QCStringList apps = dcopClient->registeredApplications(); TQCString appId = dcopClient->appId(); mainView->lv->clear(); for (QCStringList::ConstIterator it = apps.begin(); it != apps.end(); ++it) { if ((*it) != appId && (*it).left(9) != "anonymous") { new DCOPBrowserApplicationItem(mainView->lv, *it); } } TDEApplication::restoreOverrideCursor(); } bool KDCOPWindow::demarshal ( TQCString & replyType, TQDataStream & reply, TQListBox *theList ) { TQStringList ret; TQPixmap pret; bool isValid = true; theList->clear(); ret.clear(); if ( replyType == "TQVariant" ) { // read data type from stream TQ_INT32 type; reply >> type; // change replyType to real typename replyType = TQVariant::typeToName( (TQVariant::Type)type ); // demarshal data with a recursive call return demarshal(replyType, reply, theList); } else if ( replyType == "int" ) { int i; reply >> i; ret << TQString::number(i); } else if ( replyType == "uint" || replyType == "unsigned int" || replyType == "TQ_UINT32" ) { uint i; reply >> i; ret << TQString::number(i); } else if ( replyType == "long" || replyType == "long int" ) { long l; reply >> l; ret << TQString::number(l); } else if ( replyType == "ulong" || replyType == "unsigned long" || replyType == "unsigned long int" ) { ulong l; reply >> l; ret << TQString::number(l); } else if ( replyType == "TQ_UINT64" ) { TQ_UINT64 i; reply >> i; ret << TQString::number(i); } else if ( replyType == "float" ) { float f; reply >> f; ret << TQString::number(f); } else if ( replyType == "double" ) { double d; reply >> d; ret << TQString::number(d); } else if (replyType == "bool") { bool b; reply >> b; ret << (b ? TQString::fromUtf8("true") : TQString::fromUtf8("false")); } else if (replyType == "TQString") { TQString s; reply >> s; ret << s; } else if (replyType == "TQStringList") { reply >> ret; } else if (replyType == "TQCString") { TQCString r; reply >> r; ret << TQString::fromUtf8(r); } else if (replyType == "QCStringList") { QCStringList lst; reply >> lst; for (QCStringList::ConstIterator it(lst.begin()); it != lst.end(); ++it) ret << *it; } else if (replyType == "KURL") { KURL r; reply >> r; ret << r.prettyURL(); } else if (replyType == "TQSize") { TQSize r; reply >> r; ret << TQString::number(r.width()) + "x" + TQString::number(r.height()); } else if (replyType == "TQPoint") { TQPoint r; reply >> r; ret << "(" + TQString::number(r.x()) + "," + TQString::number(r.y()) + ")"; } else if (replyType == "TQRect") { TQRect r; reply >> r; ret << TQString::number(r.x()) + "x" + TQString::number(r.y()) + "+" + TQString::number(r.height()) + "+" + TQString::number(r.width()); } else if (replyType == "TQFont") { TQFont r; reply >> r; ret << r.rawName(); } else if (replyType == "TQCursor") { TQCursor r; reply >> r; //theList->insertItem(r, 1); ret << "Cursor #" + TQString::number(r.shape()); } else if (replyType == "TQPixmap") { TQPixmap r; reply >> r; theList->insertItem(r, 1); } else if (replyType == "TQColor") { TQColor r; reply >> r; TQString color = r.name(); TQPixmap p(15,15); p.fill(r); theList->insertItem(p,color, 1); } else if (replyType == "TQDateTime") { TQDateTime r; reply >> r; ret << r.toString(); } else if (replyType == "TQDate") { TQDate r; reply >> r; ret << r.toString(); } else if (replyType == "TQTime") { TQTime r; reply >> r; ret << r.toString(); } else if (replyType == "DCOPRef") { DCOPRef r; reply >> r; if (!r.app().isEmpty() && !r.obj().isEmpty()) ret << TQString("DCOPRef(%1, %2)").arg(static_cast<const char *>(r.app()), static_cast<const char *>(r.obj())); } else { ret << i18n("Do not know how to demarshal %1").arg(TQString::fromUtf8(replyType)); isValid = false; } if (!ret.isEmpty()) theList->insertStringList(ret); return isValid; } void KDCOPWindow::slotApplicationRegistered(const TQCString & appName) { TQListViewItemIterator it(mainView->lv); for (; it.current(); ++it) { DCOPBrowserApplicationItem * item = static_cast<DCOPBrowserApplicationItem *>(it.current()); if (item->app() == appName) return; } TQCString appId = dcopClient->appId(); if (appName != appId && appName.left(9) != "anonymous") { new DCOPBrowserApplicationItem(mainView->lv, appName); } } void KDCOPWindow::slotApplicationUnregistered(const TQCString & appName) { TQListViewItemIterator it(mainView->lv); for (; it.current(); ++it) { DCOPBrowserApplicationItem * item = static_cast<DCOPBrowserApplicationItem *>(it.current()); if (item->app() == appName) { delete item; return; } } } bool KDCOPWindow::getParameters ( const TQString & _unNormalisedSignature, TQString & normalisedSignature, TQStringList & types, TQStringList & names ) { TQString unNormalisedSignature(_unNormalisedSignature); int s = unNormalisedSignature.find(' '); if ( s < 0 ) s = 0; else s++; unNormalisedSignature = unNormalisedSignature.mid(s); int left = unNormalisedSignature.find('('); int right = unNormalisedSignature.findRev(')'); if (-1 == left) { // Fucked up function signature. return false; } TQStringList intTypes; intTypes << "int" << "unsigned" << "long" << "bool" ; if (left > 0 && left + 1 < right - 1) { types = TQStringList::split (',', unNormalisedSignature.mid(left + 1, right - left - 1)); for (TQStringList::Iterator it = types.begin(); it != types.end(); ++it) { (*it) = (*it).simplifyWhiteSpace(); int s = (*it).findRev(' '); if (-1 != s && !intTypes.contains((*it).mid(s + 1))) { names.append((*it).mid(s + 1)); (*it) = (*it).left(s); } } } normalisedSignature = unNormalisedSignature.left(left) + "(" + types.join(",") + ")"; return true; } void KDCOPWindow::slotCopy() { // Copy pixmap and text to the clipboard from the // below list view. If there is nothing selected from // the below menu then tell the tree to copy its current // selection as text. TQClipboard *clipboard = TQApplication::clipboard(); if (mainView->lb_replyData->count()!= 0) { //if (!mainView->lb_replyData->pixmap(mainView->lb_replyData->currentItem())->isNull()) //{ kdDebug() << "Is pixmap" << endl; // TQPixmap p; // p = *mainView->lb_replyData->pixmap(mainView->lb_replyData->currentItem()); // clipboard->setPixmap(p); //} TQString t = mainView->lb_replyData->text(mainView->lb_replyData->currentItem()); if (!t.isNull()) clipboard->setText(t); } } void KDCOPWindow::slotMode() { kdDebug () << "Going to mode " << langmode->currentText() << endl; // Tell lv what the current mode is here... mainView->lv->setMode(langmode->currentText()); } #include "kdcopwindow.moc"