You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdepim/kontact/plugins/test/test_part.cpp

118 lines
3.4 KiB

/*
This file is part of KDE Kontact.
Copyright (c) 2001 Matthias Hoelzer-Kluepfel <mhk@kde.org>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
As a special exception, permission is given to link this program
with any edition of TQt, and distribute the resulting executable,
without including the source code for TQt in the source distribution.
*/
#include "test_part.h"
#include "kaddressbookiface_stub.h"
#include <tqtextedit.h>
#include <tqcombobox.h>
#include "sidebarextension.h"
#include <kmessagebox.h>
#include <klocale.h>
#include <kaction.h>
#include <kapplication.h>
#include <kdebug.h>
#include <dcopclient.h>
#include <kdcopservicestarter.h>
#include <ktrader.h>
#include <kservice.h>
TestPart::TestPart(TQObject *parent, const char *name) // ## parentWidget
: KParts::ReadOnlyPart(parent, name)
{
setInstance( new KInstance("testpart") ); // ## memleak
m_edit = new TQTextEdit;
setWidget(m_edit);
setXMLFile("testpartui.rc");
new KAction( "new contact (test)", 0, this, TQT_SLOT( newContact() ), actionCollection(), "test_deleteevent" );
m_kab_stub = 0L;
new KParts::SideBarExtension(new TQComboBox(this), this, "sbe");
kapp->dcopClient()->setNotifications( true );
connect( kapp->dcopClient(), TQT_SIGNAL( applicationRemoved( const TQCString&)),
this, TQT_SLOT( unregisteredFromDCOP( const TQCString& )) );
}
TestPart::~TestPart()
{
kapp->dcopClient()->setNotifications( false );
delete m_kab_stub;
}
void TestPart::newContact()
{
if ( !connectToAddressBook() )
return;
kdDebug(5602) << "Calling newContact" << endl;
m_kab_stub->newContact();
// If critical call: test that it worked ok
if ( !m_kab_stub->ok() ) {
kdDebug(5602) << "Communication problem - ERROR" << endl;
// TODO handle the error
}
}
bool TestPart::connectToAddressBook()
{
if ( !m_kab_stub )
{
TQString error;
TQCString dcopService;
int result = KDCOPServiceStarter::self()->findServiceFor( "DCOP/AddressBook", TQString(), TQString(), &error, &dcopService );
if ( result != 0 ) {
// You might want to show "error" (if not empty) here, using e.g. KMessageBox
return false;
}
// TODO document the required named for the dcop interfaces e.g. "CalendarIface".
TQCString dcopObjectId = "KAddressBookIface";
m_kab_stub = new KAddressBookIface_stub(kapp->dcopClient(), dcopService, dcopObjectId);
}
return m_kab_stub != 0L;
}
void TestPart::unregisteredFromDCOP( const TQCString& appId )
{
if ( m_kab_stub && m_kab_stub->app() == appId )
{
// Delete the stub so that the next time we need the addressbook,
// we'll know that we need to start a new one.
delete m_kab_stub;
m_kab_stub = 0L;
}
}
bool TestPart::openFile()
{
m_edit->setText(m_file);
return true;
}
#include "test_part.moc"