1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
/*
This file is part of KDE Kontact.
Copyright (c) 2001 Matthias Hoelzer-Kluepfel <[email protected]>
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 *tqparent, const char *name) // ## parentWidget
: KParts::ReadOnlyPart(tqparent, 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"
|
