/***************************************************************************
project . cpp - description
- - - - - - - - - - - - - - - - - - -
begin : Thu Mar 16 2000
copyright : ( C ) 2000 by Yacovlev Alexander & Dmitry Poplavsky < pdima @ mail . univ . kiev . ua >
( C ) 2001 - 2005 by Andras Mantia < amantia @ 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 . *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
# include "project.h"
// unix includes
# include <time.h>
# include <unistd.h>
// include QT files
# include <tqcheckbox.h>
# include <tqlabel.h>
# include <tqlayout.h>
// include files for KDE
# include <tdeactionclasses.h>
# include <tdeapplication.h>
# include <kcharsets.h>
# include <kdirwatch.h>
# include <tdeio/netaccess.h>
# include <klineedit.h>
# include <tdelocale.h>
# include <tdemainwindow.h>
# include <tdemessagebox.h>
# include <tdeparts/componentfactory.h>
# include <kprogress.h>
# include <kstringhandler.h>
# include <kurlrequester.h>
# include <kurlrequesterdlg.h>
# include <tdetexteditor/markinterface.h>
# include <tdetexteditor/viewcursorinterface.h>
// application headers
# include "copyto.h"
# include "document.h"
# include "dtds.h"
# include "dtdselectdialog.h"
# include "eventconfigurationdlg.h"
# include "qextfileinfo.h"
# include "quantacommon.h"
# include "projectprivate.h"
# include "projectupload.h"
# include "projectoptions.h"
# include "rescanprj.h"
# include "resource.h"
# include "teammembersdlg.h"
# include "uploadprofilespage.h"
# include "viewmanager.h"
# include "qpevents.h"
extern TQString simpleMemberStr ;
extern TQString taskLeaderStr ;
extern TQString teamLeaderStr ;
extern TQString subprojectLeaderStr ;
Project : : Project ( TDEMainWindow * parent )
: TQObject ( )
{
d = new ProjectPrivate ( this ) ;
connect ( d , TQT_SIGNAL ( eventHappened ( const TQString & , const TQString & , const TQString & ) ) , this , TQT_SIGNAL ( eventHappened ( const TQString & , const TQString & , const TQString & ) ) ) ;
d - > m_mainWindow = parent ;
d - > m_uploadDialog = 0L ;
keepPasswd = true ;
d - > initActions ( parent - > actionCollection ( ) ) ;
}
Project : : ~ Project ( )
{
delete d ;
d = 0 ;
}
TQStringList Project : : fileNameList ( )
{
TQStringList list ;
ProjectList : : Iterator it ( d - > m_projectFiles ) ;
for ( ; it . current ( ) ; + + it ) {
if ( ! it . current ( ) - > fileName ( false ) . isEmpty ( ) )
list . append ( it . current ( ) - > url ( ) ) ;
}
list . sort ( ) ;
return list ;
}
KURL : : List Project : : files ( )
{
KURL : : List list ;
ProjectList : : Iterator it ( d - > m_projectFiles ) ;
for ( ; it . current ( ) ; + + it ) {
if ( ! it . current ( ) - > fileName ( false ) . isEmpty ( ) )
list . append ( ( * it . current ( ) ) ) ;
}
return list ;
}
void Project : : insertFile ( const KURL & nameURL , bool repaint )
{
if ( d - > excludeRx . exactMatch ( nameURL . path ( ) ) )
return ;
KURL url = nameURL ;
if ( ! d - > baseURL . isParentOf ( url ) )
{
KURLRequesterDlg * urlRequesterDlg = new KURLRequesterDlg ( d - > baseURL . prettyURL ( ) , d - > m_mainWindow , " " ) ;
urlRequesterDlg - > setCaption ( i18n ( " %1: Copy to Project " ) . arg ( nameURL . prettyURL ( 0 , KURL : : StripFileProtocol ) ) ) ;
urlRequesterDlg - > urlRequester ( ) - > setMode ( KFile : : Directory | KFile : : ExistingOnly ) ;
urlRequesterDlg - > exec ( ) ;
KURL destination = urlRequesterDlg - > selectedURL ( ) ;
if ( destination . isLocalFile ( ) )
{
TQDir dir ( destination . path ( ) ) ;
destination . setPath ( dir . canonicalPath ( ) ) ;
}
delete urlRequesterDlg ;
if ( ! destination . isEmpty ( ) )
{
CopyTo * dlg = new CopyTo ( d - > baseURL ) ;
connect ( dlg , TQT_SIGNAL ( deleteDialog ( CopyTo * ) ) , d ,
TQT_SLOT ( slotDeleteCopytoDlg ( CopyTo * ) ) ) ;
url = dlg - > copy ( nameURL , destination ) ;
}
else // Copy canceled, addition aborted
{
return ;
}
}
TQDomElement el ;
while ( d - > baseURL . isParentOf ( url ) )
{
if ( ! d - > m_projectFiles . contains ( url ) )
{
el = d - > dom . createElement ( " item " ) ;
el . setAttribute ( " url " , QuantaCommon : : qUrl ( QExtFileInfo : : toRelative ( url , d - > baseURL ) ) ) ;
d - > dom . firstChild ( ) . firstChild ( ) . appendChild ( el ) ;
KURL u = url . upURL ( ) ;
ProjectURL * parentURL = d - > m_projectFiles . find ( u ) ;
int uploadStatus = 1 ;
if ( parentURL )
uploadStatus = parentURL - > uploadStatus ;
d - > m_projectFiles . insert ( new ProjectURL ( url , " " , uploadStatus , false , el ) ) ;
}
url . setPath ( url . directory ( false ) ) ;
}
emit eventHappened ( " after_project_add " , url . url ( ) , TQString ( ) ) ;
setModified ( ) ;
if ( repaint )
{
emit reloadTree ( & ( d - > m_projectFiles ) , false , TQStringList ( ) ) ;
emit newStatus ( ) ;
}
}
void Project : : readConfig ( TDEConfig * config )
{
d - > config = config ;
config - > setGroup ( " General Options " ) ;
int maxRecentItems = config - > readNumEntry ( " Recent Files Limit " , 32 ) ;
d - > m_projectRecent - > setMaxItems ( maxRecentItems ) ;
config - > setGroup ( " Projects " ) ;
d - > m_projectRecent - > loadEntries ( config , " RecentProjects " ) ;
}
void Project : : loadLastProject ( bool reload )
{
d - > config - > setGroup ( " Projects " ) ;
TQStringList projectList = QuantaCommon : : readPathListEntry ( d - > config , " OpenProjects " ) ;
TQStringList tempList = QuantaCommon : : readPathListEntry ( d - > config , " ProjectTempFiles " ) ;
TQStringList sessionTempList = QuantaCommon : : readPathListEntry ( d - > config , " ProjectSessionTempFiles " ) ;
// remove all local open projects because project and temp file are the same
for ( uint i = 0 ; i < projectList . count ( ) ; + + i )
{
if ( KURL : : fromPathOrURL ( projectList [ i ] ) . isLocalFile ( ) )
{
projectList . remove ( projectList . at ( i ) ) ;
TQStringList : : Iterator it = tempList . at ( i ) ;
if ( it ! = tempList . end ( ) )
tempList . remove ( it ) ;
TQStringList : : Iterator it2 = sessionTempList . at ( i ) ;
if ( it2 ! = sessionTempList . end ( ) )
sessionTempList . remove ( it2 ) ;
- - i ;
}
}
TQString urlPath ;
KURL url ;
// have we still a project left ?
while ( projectList . count ( ) > 0 )
{
urlPath = projectList [ 0 ] ;
QuantaCommon : : setUrl ( url , urlPath ) ;
TQString tempPath = tempList [ 0 ] ;
TQString sessionTempPath = sessionTempList [ 0 ] ;
// test if the remote project is available
if ( TDEIO : : NetAccess : : exists ( url , false , d - > m_mainWindow ) )
{
KURL tempURL = KURL ( ) . fromPathOrURL ( tempPath ) ;
if ( TDEIO : : NetAccess : : exists ( tempURL , false , d - > m_mainWindow ) & &
KMessageBox : : questionYesNo ( d - > m_mainWindow , i18n ( " <qt>Found a backup for project <b>%1</b>.<br> Do you want to open it?</qt> " ) . arg ( url . prettyURL ( ) ) , i18n ( " Open Project Backup " ) , KStdGuiItem : : open ( ) , i18n ( " Do Not Open " ) )
= = KMessageBox : : Yes )
{
d - > m_tmpProjectFile = tempPath ;
d - > m_tmpSessionFile = sessionTempPath ;
d - > loadProjectFromTemp ( url , d - > m_tmpProjectFile , d - > m_tmpSessionFile ) ;
// the lists might have changed
d - > config - > writePathEntry ( " OpenProjects " , projectList ) ;
d - > config - > writePathEntry ( " ProjectTempFiles " , tempList ) ;
d - > config - > writePathEntry ( " ProjectSessionTempFiles " , sessionTempList ) ;
d - > config - > sync ( ) ;
return ;
}
}
projectList . remove ( projectList . at ( 0 ) ) ;
tempList . remove ( tempList . at ( 0 ) ) ;
sessionTempList . remove ( sessionTempList . at ( 0 ) ) ;
}
// the lists might have changed
d - > config - > writePathEntry ( " OpenProjects " , projectList ) ;
d - > config - > writePathEntry ( " ProjectTempFiles " , tempList ) ;
// now we look for the last project
urlPath = QuantaCommon : : readPathEntry ( d - > config , " Last Project " ) ;
QuantaCommon : : setUrl ( url , urlPath ) ;
if ( reload & & ( ! urlPath . isEmpty ( ) & & url . isValid ( ) ) )
{
if ( ! d - > loadProject ( url ) )
{
d - > config - > deleteEntry ( " Last Project " ) ;
}
}
d - > config - > sync ( ) ;
}
///////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////
// SLOTS implementation
//
void Project : : slotOpenProject ( const KURL & url )
{
kdDebug ( 24000 ) < < " Open recent project: " < < url < < endl ;
if ( ! url . isEmpty ( ) )
{
if ( ! QExtFileInfo : : exists ( url , true , d - > m_mainWindow ) )
{
emit hideSplash ( ) ;
if ( KMessageBox : : questionYesNo ( d - > m_mainWindow ,
i18n ( " <qt>The file <b>%1</b> does not exist.<br> Do you want to remove it from the list?</qt> " ) . arg ( url . prettyURL ( 0 , KURL : : StripFileProtocol ) ) , TQString ( ) , KStdGuiItem : : del ( ) , i18n ( " Keep " ) )
= = KMessageBox : : Yes )
{
d - > m_projectRecent - > removeURL ( url ) ;
} else
d - > m_projectRecent - > setCurrentItem ( 0 ) ;
} else
{
d - > loadProject ( url ) ;
emit eventHappened ( " after_project_open " , url . url ( ) , TQString ( ) ) ;
}
}
}
// slot for insert file
void Project : : slotInsertFile ( const KURL & url )
{
insertFile ( url , true ) ;
}
void Project : : slotAddDirectory ( const KURL & p_dirURL , bool showDlg )
{
KURL dirURL = p_dirURL ;
if ( hasProject ( ) & & ! dirURL . isEmpty ( ) )
{
dirURL . adjustPath ( 1 ) ;
if ( ! d - > baseURL . isParentOf ( dirURL ) )
{
KURL destination = d - > baseURL ;
if ( showDlg )
{
KURLRequesterDlg * urlRequesterDlg = new KURLRequesterDlg ( d - > baseURL . prettyURL ( ) , d - > m_mainWindow , " " ) ;
urlRequesterDlg - > setCaption ( i18n ( " %1: Copy to Project " ) . arg ( dirURL . prettyURL ( 0 , KURL : : StripFileProtocol ) ) ) ;
urlRequesterDlg - > urlRequester ( ) - > setMode ( KFile : : Directory | KFile : : ExistingOnly ) ;
urlRequesterDlg - > exec ( ) ;
destination = urlRequesterDlg - > selectedURL ( ) ;
delete urlRequesterDlg ;
}
if ( ( showDlg = = false ) | |
( ! destination . isEmpty ( ) ) )
{
CopyTo * dlg = new CopyTo ( d - > baseURL ) ;
connect ( dlg , TQT_SIGNAL ( addFilesToProject ( const KURL : : List & ) ) ,
TQT_SLOT ( slotInsertFilesAfterCopying ( const KURL : : List & ) ) ) ;
connect ( dlg , TQT_SIGNAL ( deleteDialog ( CopyTo * ) ) , d ,
TQT_SLOT ( slotDeleteCopytoDlg ( CopyTo * ) ) ) ;
//if ( rdir.right(1) == "/" ) rdir.remove( rdir.length()-1,1);
dirURL = dlg - > copy ( dirURL , destination ) ;
return ;
}
else
{
return ;
}
}
d - > insertFiles ( dirURL , " * " ) ;
//And again, insert now directly the directory name into the project.
//It's important if rdir doesn't contain any files or subdirectories.
d - > insertFiles ( dirURL ) ;
emit reloadTree ( & ( d - > m_projectFiles ) , false , TQStringList ( ) ) ;
}
}
void Project : : slotInsertFilesAfterCopying ( const KURL : : List & a_urlList )
{
KURL : : List : : ConstIterator it ;
KURL url ;
for ( it = a_urlList . begin ( ) ; it ! = a_urlList . end ( ) ; + + it )
{
url = * it ;
//url.adjustPath(1);
d - > insertFiles ( url , " * " ) ;
}
emit reloadTree ( & ( d - > m_projectFiles ) , false , TQStringList ( ) ) ;
}
//rename the elements in the project dom tree
void Project : : slotRenamed ( const KURL & oldURL , const KURL & newURL )
{
if ( oldURL = = newURL ) // just in case
return ;
// remove the target if already there
// TODO: check if this is correct because it removes a folder but not the content?
d - > m_projectFiles . removeFromListAndXML ( newURL ) ;
emit statusMsg ( i18n ( " Renaming files... " ) ) ;
progressBar - > setTotalSteps ( d - > m_projectFiles . count ( ) ) ;
progressBar - > setValue ( 0 ) ;
progressBar - > setTextEnabled ( true ) ;
TQDomElement el ;
bool isFolder = oldURL . fileName ( false ) . isEmpty ( ) ;
ProjectList : : Iterator it ( d - > m_projectFiles ) ;
for ( ; it . current ( ) ; + + it )
{
ProjectURL * curUrl = it . current ( ) ;
if ( oldURL = = * curUrl | | ( isFolder & & oldURL . isParentOf ( * curUrl ) ) )
{
curUrl - > setPath ( curUrl - > path ( ) . replace ( oldURL . path ( ) , newURL . path ( ) ) ) ;
el = curUrl - > domElement ;
el . setAttribute ( " url " , d - > m_projectFiles . toRelative ( * curUrl ) . path ( ) ) ;
// el.setAttribute("upload_time", "");
d - > m_modified = true ;
if ( ! isFolder )
break ;
}
progressBar - > advance ( 1 ) ;
}
progressBar - > setTotalSteps ( 1 ) ;
progressBar - > setValue ( 0 ) ;
progressBar - > setTextEnabled ( false ) ;
emit statusMsg ( TQString ( ) ) ;
if ( d - > m_modified )
setModified ( ) ; // there happens more than setting the flag !
emit reloadTree ( & ( d - > m_projectFiles ) , false , TQStringList ( ) ) ;
emit newStatus ( ) ;
}
void Project : : slotRemove ( const KURL & urlToRemove )
{
emit statusMsg ( i18n ( " Removing files... " ) ) ;
progressBar - > setTotalSteps ( d - > m_projectFiles . count ( ) ) ;
progressBar - > setValue ( 0 ) ;
progressBar - > setTextEnabled ( true ) ;
KURL url ;
bool isFolder = d - > m_projectFiles . isFolder ( urlToRemove ) ;
ProjectList projectFiles = d - > m_projectFiles ;
ProjectList : : Iterator it ( projectFiles ) ;
for ( ; it . current ( ) ; + + it )
{
url = * ( it . current ( ) ) ;
if ( urlToRemove = = url | | ( isFolder & & urlToRemove . isParentOf ( url ) ) )
{
d - > m_projectFiles . removeFromListAndXML ( url ) ;
d - > m_modified = true ;
emit eventHappened ( " after_project_remove " , url . url ( ) , TQString ( ) ) ;
if ( ! isFolder )
break ;
}
progressBar - > advance ( 1 ) ;
}
progressBar - > setTotalSteps ( 1 ) ;
progressBar - > setValue ( 0 ) ;
progressBar - > setTextEnabled ( false ) ;
emit statusMsg ( TQString ( ) ) ;
if ( d - > m_modified )
setModified ( ) ; // there happens more than setting the flag !
emit reloadTree ( & ( d - > m_projectFiles ) , false , TQStringList ( ) ) ;
emit newStatus ( ) ;
TQString urlPath = QExtFileInfo : : toRelative ( urlToRemove , d - > baseURL ) . path ( ) ;
TQString nice = urlPath ;
nice = KStringHandler : : lsqueeze ( nice , 60 ) ;
if ( KMessageBox : : warningContinueCancel ( d - > m_mainWindow , i18n ( " <qt>Do you want to remove <br><b>%1</b><br> from the server(s) as well?</qt> " ) . arg ( nice ) , i18n ( " Remove From Server " ) , KStdGuiItem : : remove ( ) , " RemoveFromServer " ) = = KMessageBox : : Continue )
{
TQDomNode profilesNode = d - > m_sessionDom . firstChild ( ) . firstChild ( ) . namedItem ( " uploadprofiles " ) ;
TQDomNodeList profileList = profilesNode . toElement ( ) . elementsByTagName ( " profile " ) ;
TQDomElement e ;
TQString s ;
for ( uint i = 0 ; i < profileList . count ( ) ; i + + )
{
e = profileList . item ( i ) . toElement ( ) ;
TQString path = e . attribute ( " remote_path " , " " ) ;
if ( ! path . startsWith ( " / " ) )
path . prepend ( " / " ) ;
KURL baseUrl ;
baseUrl . setProtocol ( e . attribute ( " remote_protocol " , " ftp " ) ) ;
baseUrl . setPort ( e . attribute ( " remote_port " , " " ) . toInt ( ) ) ;
baseUrl . setHost ( e . attribute ( " remote_host " , " " ) ) ;
baseUrl . setPath ( path ) ;
baseUrl . setUser ( e . attribute ( " user " , " " ) ) ;
TQString passwd = password ( e . attribute ( " remote_protocol " ) + " :// " + e . attribute ( " user " ) + " @ " + e . attribute ( " remote_host " ) ) ;
baseUrl . setPass ( passwd ) ;
baseUrl . addPath ( urlPath ) ;
TDEIO : : NetAccess : : del ( baseUrl , d - > m_mainWindow ) ;
}
}
}
void Project : : slotOptions ( )
{
KURL url ;
KDialogBase optionsDlg ( KDialogBase : : Tabbed , WStyle_DialogBorder , d - > m_mainWindow , " project_options " , true , i18n ( " Project Settings " ) , KDialogBase : : Ok | KDialogBase : : Cancel ) ;
// optionsDlg.setMainWidget(&optionsPage);
//add the main options page
TQFrame * page = optionsDlg . addPage ( i18n ( " Options " ) ) ;
ProjectOptions optionsPage ( page ) ;
TQVBoxLayout * topLayout = new TQVBoxLayout ( page , 0 , KDialog : : spacingHint ( ) ) ;
topLayout - > addWidget ( & optionsPage ) ;
optionsPage . linePrjName - > setText ( d - > projectName ) ;
url = QExtFileInfo : : toRelative ( d - > templateURL , d - > baseURL ) ;
optionsPage . linePrjTmpl - > setText ( QuantaCommon : : qUrl ( url ) ) ;
url = QExtFileInfo : : toRelative ( d - > toolbarURL , d - > baseURL ) ;
optionsPage . linePrjToolbar - > setText ( QuantaCommon : : qUrl ( url ) ) ;
optionsPage . lineAuthor - > setText ( d - > author ) ;
optionsPage . lineEmail - > setText ( d - > email ) ;
// Signals to handle debugger settings
connect ( optionsPage . buttonDebuggerOptions , TQT_SIGNAL ( clicked ( ) ) ,
d , TQT_SLOT ( slotDebuggerOptions ( ) ) ) ;
connect ( optionsPage . comboDebuggerClient , TQT_SIGNAL ( activated ( const TQString & ) ) ,
d , TQT_SLOT ( slotDebuggerChanged ( const TQString & ) ) ) ;
// Debuggers Combo
TDETrader : : OfferList offers = TDETrader : : self ( ) - > query ( " Quanta/Debugger " ) ;
TDETrader : : OfferList : : ConstIterator iterDbg ;
optionsPage . comboDebuggerClient - > clear ( ) ;
optionsPage . comboDebuggerClient - > insertItem ( i18n ( " No Debugger " ) ) ;
int idxDbg = 0 ;
d - > m_debuggerClientEdit = d - > debuggerClient ;
optionsPage . buttonDebuggerOptions - > setEnabled ( false ) ;
for ( iterDbg = offers . begin ( ) ; iterDbg ! = offers . end ( ) ; + + iterDbg )
{
KService : : Ptr service = * iterDbg ;
optionsPage . comboDebuggerClient - > insertItem ( service - > name ( ) ) ;
idxDbg + + ;
if ( d - > debuggerClient = = service - > name ( ) )
{
optionsPage . comboDebuggerClient - > setCurrentItem ( idxDbg ) ;
optionsPage . buttonDebuggerOptions - > setEnabled ( true ) ;
}
}
optionsPage . checkDebuggerPersistentBreakpoints - > setChecked ( d - > m_debuggerPersistentBreakpoints ) ;
optionsPage . checkDebuggerPersistentWatches - > setChecked ( d - > m_debuggerPersistentWatches ) ;
TQString excludeStr ;
for ( uint i = 0 ; i < d - > excludeList . count ( ) ; i + + )
{
excludeStr . append ( d - > excludeList [ i ] ) ;
excludeStr . append ( " ; " ) ;
}
optionsPage . lineExclude - > setText ( excludeStr ) ;
optionsPage . checkCvsignore - > setChecked ( d - > m_excludeCvsignore ) ;
optionsPage . linePrefix - > setText ( d - > previewPrefix . prettyURL ( ) ) ;
TQStringList lst = DTDs : : ref ( ) - > nickNameList ( true ) ;
uint pos = 0 ;
for ( uint i = 0 ; i < lst . count ( ) ; i + + )
{
optionsPage . dtdCombo - > insertItem ( lst [ i ] ) ;
if ( lst [ i ] = = DTDs : : ref ( ) - > getDTDNickNameFromName ( d - > m_defaultDTD ) )
pos = i ;
}
optionsPage . dtdCombo - > setCurrentItem ( pos ) ;
TQStringList availableEncodingNames ( TDEGlobal : : charsets ( ) - > availableEncodingNames ( ) ) ;
optionsPage . encodingCombo - > insertStringList ( availableEncodingNames ) ;
TQStringList : : ConstIterator iter ;
int iIndex = - 1 ;
for ( iter = availableEncodingNames . begin ( ) ; iter ! = availableEncodingNames . end ( ) ; + + iter )
{
+ + iIndex ;
if ( ( * iter ) . lower ( ) = = d - > m_defaultEncoding . lower ( ) )
{
optionsPage . encodingCombo - > setCurrentItem ( iIndex ) ;
break ;
}
}
TQStringList list = d - > projectViewList ( ) ;
TQString defaultView = d - > dom . firstChild ( ) . firstChild ( ) . namedItem ( " autoload " ) . toElement ( ) . attribute ( " projectview " ) ;
if ( list . count ( ) > 0 )
{
optionsPage . viewCombo - > insertStringList ( list ) ;
for ( uint i = 0 ; i < list . count ( ) ; i + + )
{
if ( list [ i ] = = defaultView )
{
optionsPage . viewCombo - > setCurrentItem ( i ) ;
break ;
}
}
} else
{
optionsPage . viewCombo - > insertItem ( i18n ( " No view was saved yet. " ) ) ;
optionsPage . viewCombo - > setEnabled ( false ) ;
}
optionsPage . checkPrefix - > setChecked ( d - > usePreviewPrefix ) ;
optionsPage . checkPersistentBookmarks - > setChecked ( d - > m_persistentBookmarks ) ;
//add upload profiles page
page = optionsDlg . addPage ( i18n ( " Up&load Profiles " ) ) ;
UploadProfilesPage uploadProfilesPage ( page ) ;
topLayout = new TQVBoxLayout ( page , 0 , KDialog : : spacingHint ( ) ) ;
topLayout - > addWidget ( & uploadProfilesPage ) ;
TQDomElement uploadEl = d - > m_sessionDom . firstChild ( ) . firstChild ( ) . namedItem ( " uploadprofiles " ) . toElement ( ) ;
uploadProfilesPage . profileLabel - > setText ( uploadEl . attribute ( " defaultProfile " ) ) ;
uploadProfilesPage . checkShowUploadTreeviews - > setChecked ( d - > m_showUploadTreeviews ) ;
//add the team members page
page = optionsDlg . addPage ( i18n ( " Team Configuration " ) ) ;
TeamMembersDlg membersPage ( page ) ;
topLayout = new TQVBoxLayout ( page , 0 , KDialog : : spacingHint ( ) ) ;
topLayout - > addWidget ( & membersPage ) ;
TQListViewItem * item ;
if ( ! teamLeader ( ) . name . isEmpty ( ) )
{
TeamMember member = teamLeader ( ) ;
item = new TQListViewItem ( membersPage . membersListView , member . name , member . nickName , member . email , i18n ( " Team Leader " ) , member . task ) ;
membersPage . membersListView - > insertItem ( item ) ;
}
for ( TQMap < TQString , TeamMember > : : ConstIterator it = d - > m_subprojectLeaders . constBegin ( ) ; it ! = d - > m_subprojectLeaders . constEnd ( ) ; + + it )
{
TeamMember member = it . data ( ) ;
item = new TQListViewItem ( membersPage . membersListView , member . name , member . nickName , member . email , i18n ( " Subproject Leader " ) , member . task , it . key ( ) ) ;
}
for ( TQMap < TQString , TeamMember > : : ConstIterator it = d - > m_taskLeaders . constBegin ( ) ; it ! = d - > m_taskLeaders . constEnd ( ) ; + + it )
{
TeamMember member = it . data ( ) ;
item = new TQListViewItem ( membersPage . membersListView , member . name , member . nickName , member . email , i18n ( " Task Leader " ) , it . key ( ) ) ;
}
for ( TQValueList < TeamMember > : : ConstIterator it = d - > m_simpleMembers . constBegin ( ) ; it ! = d - > m_simpleMembers . constEnd ( ) ; + + it )
{
TeamMember member = * it ;
item = new TQListViewItem ( membersPage . membersListView , member . name , member . nickName , member . email , i18n ( " Simple Member " ) , member . task ) ;
}
membersPage . mailingListEdit - > setText ( d - > m_mailingList ) ;
membersPage . setYourself ( d - > m_yourself ) ;
//add the event configuration page
page = optionsDlg . addPage ( i18n ( " Event Configuration " ) ) ;
EventConfigurationDlg eventsPage ( d - > m_mainWindow - > actionCollection ( ) , page ) ;
topLayout = new TQVBoxLayout ( page , 0 , KDialog : : spacingHint ( ) ) ;
topLayout - > addWidget ( & eventsPage ) ;
eventsPage . initEvents ( d - > m_events ) ;
eventsPage . enableEventsBox - > setChecked ( d - > m_eventsEnabled ) ;
if ( optionsDlg . exec ( ) )
{
d - > projectName = optionsPage . linePrjName - > text ( ) ;
d - > author = optionsPage . lineAuthor - > text ( ) ;
d - > email = optionsPage . lineEmail - > text ( ) ;
// Debugger
d - > debuggerClient = optionsPage . comboDebuggerClient - > currentText ( ) ;
d - > m_debuggerPersistentBreakpoints = optionsPage . checkDebuggerPersistentBreakpoints - > isChecked ( ) ;
d - > m_debuggerPersistentWatches = optionsPage . checkDebuggerPersistentWatches - > isChecked ( ) ;
d - > m_defaultDTD = DTDs : : ref ( ) - > getDTDNameFromNickName ( optionsPage . dtdCombo - > currentText ( ) ) . lower ( ) ;
d - > m_defaultEncoding = optionsPage . encodingCombo - > currentText ( ) ;
QuantaCommon : : setUrl ( d - > templateURL , optionsPage . linePrjTmpl - > text ( ) ) ;
d - > templateURL . adjustPath ( 1 ) ;
d - > templateURL = QExtFileInfo : : toAbsolute ( d - > templateURL , d - > baseURL ) ;
if ( ! QExtFileInfo : : createDir ( d - > templateURL , d - > m_mainWindow ) )
{
QuantaCommon : : dirCreationError ( d - > m_mainWindow , d - > templateURL ) ;
}
QuantaCommon : : setUrl ( d - > toolbarURL , optionsPage . linePrjToolbar - > text ( ) ) ;
d - > toolbarURL . adjustPath ( 1 ) ;
d - > toolbarURL = QExtFileInfo : : toAbsolute ( d - > toolbarURL , d - > baseURL ) ;
if ( ! QExtFileInfo : : createDir ( d - > toolbarURL , d - > m_mainWindow ) )
{
QuantaCommon : : dirCreationError ( d - > m_mainWindow , d - > toolbarURL ) ;
}
d - > previewPrefix = KURL : : fromPathOrURL ( optionsPage . linePrefix - > text ( ) ) ;
d - > usePreviewPrefix = optionsPage . checkPrefix - > isChecked ( ) ;
d - > m_persistentBookmarks = optionsPage . checkPersistentBookmarks - > isChecked ( ) ;
TQDomNode projectNode = d - > dom . firstChild ( ) . firstChild ( ) ;
TQDomElement el ;
el = projectNode . toElement ( ) ;
el . setAttribute ( " name " , d - > projectName ) ;
el . setAttribute ( " encoding " , d - > m_defaultEncoding ) ;
el = d - > m_sessionDom . firstChild ( ) . firstChild ( ) . toElement ( ) ;
el . setAttribute ( " previewPrefix " , d - > previewPrefix . url ( ) ) ;
el . setAttribute ( " usePreviewPrefix " , d - > usePreviewPrefix ) ;
el . setAttribute ( " usePersistentBookmarks " , d - > m_persistentBookmarks ) ;
el = projectNode . namedItem ( " author " ) . toElement ( ) ;
if ( ! el . isNull ( ) )
el . parentNode ( ) . removeChild ( el ) ;
el = d - > dom . createElement ( " author " ) ;
projectNode . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( d - > author ) ) ;
el = projectNode . namedItem ( " email " ) . toElement ( ) ;
if ( ! el . isNull ( ) )
el . parentNode ( ) . removeChild ( el ) ;
el = d - > dom . createElement ( " email " ) ;
projectNode . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( d - > email ) ) ;
// Debugger
el = projectNode . namedItem ( " debuggerclient " ) . toElement ( ) ;
if ( ! el . isNull ( ) )
el . parentNode ( ) . removeChild ( el ) ;
el = d - > dom . createElement ( " debuggerclient " ) ;
projectNode . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( d - > debuggerClient ) ) ;
el . setAttribute ( " persistentBreakpoints " , d - > m_debuggerPersistentBreakpoints ) ;
el . setAttribute ( " persistentWatches " , d - > m_debuggerPersistentWatches ) ;
d - > m_excludeCvsignore = optionsPage . checkCvsignore - > isChecked ( ) ;
excludeStr = optionsPage . lineExclude - > text ( ) ;
el = projectNode . namedItem ( " exclude " ) . toElement ( ) ;
if ( ! el . isNull ( ) )
el . parentNode ( ) . removeChild ( el ) ;
el = d - > dom . createElement ( " exclude " ) ;
if ( d - > m_excludeCvsignore )
el . setAttribute ( " cvsignore " , " true " ) ;
else
el . setAttribute ( " cvsignore " , " false " ) ;
projectNode . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( excludeStr ) ) ;
el = projectNode . namedItem ( " defaultDTD " ) . toElement ( ) ;
if ( el . isNull ( ) )
{
el = d - > dom . createElement ( " defaultDTD " ) ;
projectNode . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( d - > m_defaultDTD ) ) ;
}
else
{
el . firstChild ( ) . setNodeValue ( d - > m_defaultDTD ) ;
}
el = projectNode . namedItem ( " templates " ) . toElement ( ) ;
url = QExtFileInfo : : toRelative ( d - > templateURL , d - > baseURL ) ;
if ( el . isNull ( ) )
{
el = d - > dom . createElement ( " templates " ) ;
projectNode . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( QuantaCommon : : qUrl ( url ) ) ) ;
}
else
{
el . firstChild ( ) . setNodeValue ( QuantaCommon : : qUrl ( url ) ) ;
}
url = QExtFileInfo : : toRelative ( d - > toolbarURL , d - > baseURL ) ;
el = projectNode . namedItem ( " toolbars " ) . toElement ( ) ;
if ( el . isNull ( ) )
{
el = d - > dom . createElement ( " toolbars " ) ;
projectNode . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( QuantaCommon : : qUrl ( url ) ) ) ;
}
else
{
el . firstChild ( ) . setNodeValue ( QuantaCommon : : qUrl ( url ) ) ;
}
if ( optionsPage . viewCombo - > isEnabled ( ) )
{
defaultView = optionsPage . viewCombo - > currentText ( ) ;
el = projectNode . namedItem ( " autoload " ) . toElement ( ) ;
if ( el . isNull ( ) )
{
el = d - > dom . createElement ( " autoload " ) ;
el . setAttribute ( " projectview " , defaultView ) ;
projectNode . appendChild ( el ) ;
} else
{
el . setAttribute ( " projectview " , defaultView ) ;
}
}
uploadEl . setAttribute ( " showtreeviews " , uploadProfilesPage . checkShowUploadTreeviews - > isChecked ( ) ? " true " : " false " ) ;
TQDomNode teamNode = projectNode . namedItem ( " teamdata " ) ;
if ( ! teamNode . isNull ( ) )
projectNode . removeChild ( teamNode ) ;
teamNode = d - > dom . createElement ( " teamdata " ) ;
TQDomNode taskLeadersNode = d - > dom . createElement ( " taskleaders " ) ;
teamNode . appendChild ( taskLeadersNode ) ;
TQDomNode subLeadersNode = d - > dom . createElement ( " subprojectleaders " ) ;
teamNode . appendChild ( subLeadersNode ) ;
TQListViewItemIterator it ( membersPage . membersListView ) ;
TQListViewItem * item ;
TQStringList savedSubprojects ;
while ( it . current ( ) )
{
item = it . current ( ) ;
TQString role = item - > text ( 3 ) ;
if ( role = = i18n ( teamLeaderStr . utf8 ( ) ) )
{
TQDomElement leaderEl = d - > dom . createElement ( " leader " ) ;
teamNode . appendChild ( leaderEl ) ;
el = d - > dom . createElement ( " name " ) ;
leaderEl . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( item - > text ( 0 ) ) ) ;
el = d - > dom . createElement ( " nickName " ) ;
leaderEl . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( item - > text ( 1 ) ) ) ;
el = d - > dom . createElement ( " email " ) ;
leaderEl . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( item - > text ( 2 ) ) ) ;
} else
if ( role = = i18n ( subprojectLeaderStr . utf8 ( ) ) )
{
TQString prjName = item - > text ( 5 ) ;
savedSubprojects . append ( prjName ) ;
TQDomElement subEl = d - > dom . createElement ( " subproject " ) ;
for ( uint i = 0 ; i < d - > m_subprojects . count ( ) ; i + + )
{
if ( d - > m_subprojects [ i ] . name = = prjName )
{
subEl . setAttribute ( " location " , d - > m_subprojects [ i ] . location ) ;
break ;
}
}
subEl . setAttribute ( " name " , prjName ) ;
subLeadersNode . appendChild ( subEl ) ;
el = d - > dom . createElement ( " subprojectleader " ) ;
el . setAttribute ( " name " , item - > text ( 0 ) ) ;
el . setAttribute ( " nickName " , item - > text ( 1 ) ) ;
el . setAttribute ( " email " , item - > text ( 2 ) ) ;
subEl . appendChild ( el ) ;
} else
if ( role = = i18n ( taskLeaderStr . utf8 ( ) ) )
{
el = d - > dom . createElement ( " projecttask " ) ;
el . setAttribute ( " tasklead " , item - > text ( 0 ) ) ;
el . setAttribute ( " nickName " , item - > text ( 1 ) ) ;
el . setAttribute ( " email " , item - > text ( 2 ) ) ;
el . setAttribute ( " task " , item - > text ( 4 ) ) ;
taskLeadersNode . appendChild ( el ) ;
} else
if ( role = = i18n ( simpleMemberStr . utf8 ( ) ) )
{
TQDomElement memberEl = d - > dom . createElement ( " member " ) ;
memberEl . setAttribute ( " task " , item - > text ( 4 ) ) ;
teamNode . appendChild ( memberEl ) ;
el = d - > dom . createElement ( " name " ) ;
memberEl . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( item - > text ( 0 ) ) ) ;
el = d - > dom . createElement ( " nickName " ) ;
memberEl . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( item - > text ( 1 ) ) ) ;
el = d - > dom . createElement ( " email " ) ;
memberEl . appendChild ( el ) ;
el . appendChild ( d - > dom . createTextNode ( item - > text ( 2 ) ) ) ;
}
+ + it ;
}
//subprojects without a leader
for ( uint i = 0 ; i < d - > m_subprojects . count ( ) ; i + + )
{
if ( ! savedSubprojects . contains ( d - > m_subprojects [ i ] . name ) )
{
el = d - > dom . createElement ( " subproject " ) ;
el . setAttribute ( " name " , d - > m_subprojects [ i ] . name ) ;
el . setAttribute ( " location " , d - > m_subprojects [ i ] . location ) ;
}
}
el = d - > dom . createElement ( " mailinglist " ) ;
el . setAttribute ( " address " , membersPage . mailingListEdit - > text ( ) ) ;
teamNode . appendChild ( el ) ;
projectNode . appendChild ( teamNode ) ;
teamNode = d - > m_sessionDom . firstChild ( ) . namedItem ( " teamdata " ) ;
if ( ! teamNode . isNull ( ) )
d - > m_sessionDom . firstChild ( ) . removeChild ( teamNode ) ;
d - > m_yourself = membersPage . yourself ( ) ;
el = d - > m_sessionDom . createElement ( " teamdata " ) ;
el . setAttribute ( " yourself " , d - > m_yourself ) ;
d - > m_sessionDom . firstChild ( ) . appendChild ( el ) ;
eventsPage . saveEvents ( d - > dom ) ;
d - > m_eventsEnabled = eventsPage . enableEventsBox - > isChecked ( ) ;
projectNode . toElement ( ) . setAttribute ( " enableEvents " , d - > m_eventsEnabled ? " true " : " false " ) ;
setModified ( ) ;
d - > loadProjectXML ( ) ;
}
}
void Project : : slotUpload ( )
{
if ( ! ViewManager : : ref ( ) - > saveAll ( ) )
return ;
if ( ! d - > m_uploadDialog )
{
d - > m_uploadDialog = new ProjectUpload ( KURL ( ) , " " , false , false , false , i18n ( " Upload project items... " ) . ascii ( ) ) ;
connect ( d - > m_uploadDialog , TQT_SIGNAL ( eventHappened ( const TQString & , const TQString & , const TQString & ) ) , this , TQT_SIGNAL ( eventHappened ( const TQString & , const TQString & , const TQString & ) ) ) ;
d - > m_uploadDialog - > show ( ) ;
} else
d - > m_uploadDialog - > raise ( ) ;
}
void Project : : slotUploadURL ( const KURL & urlToUpload , const TQString & profileName , bool quickUpload , bool markOnly )
{
if ( ! ViewManager : : ref ( ) - > saveAll ( ) )
return ;
KURL url = QExtFileInfo : : toRelative ( urlToUpload , d - > baseURL ) ;
if ( ! d - > m_uploadDialog )
{
d - > m_uploadDialog = new ProjectUpload ( url , profileName , false , quickUpload , markOnly , i18n ( " Upload project items... " ) . ascii ( ) ) ;
connect ( d - > m_uploadDialog , TQT_SIGNAL ( eventHappened ( const TQString & , const TQString & , const TQString & ) ) , this , TQT_SIGNAL ( eventHappened ( const TQString & , const TQString & , const TQString & ) ) ) ;
d - > m_uploadDialog - > show ( ) ;
} else
d - > m_uploadDialog - > raise ( ) ;
}
void Project : : slotGetMessages ( const TQString & data )
{
emit messages ( data ) ;
}
void Project : : slotRescanPrjDir ( )
{
RescanPrj * dlg = new RescanPrj ( d - > m_projectFiles , d - > baseURL , d - > excludeRx ,
d - > m_mainWindow , i18n ( " New Files in Project's Folder " ) . ascii ( ) ) ;
if ( dlg - > exec ( ) )
{
d - > insertFiles ( dlg - > files ( ) ) ;
setModified ( ) ;
emit reloadTree ( & ( d - > m_projectFiles ) , false , TQStringList ( ) ) ;
}
delete dlg ;
}
/** Returns the relative url with the prefix inserted. */
KURL Project : : urlWithPrefix ( const KURL & url )
{
KURL returnUrl = url ;
if ( d - > usePreviewPrefix )
{
KURL tempUrl = QExtFileInfo : : toRelative ( url , d - > baseURL ) ;
if ( ! tempUrl . path ( ) . startsWith ( " / " ) )
{
returnUrl = d - > previewPrefix ;
returnUrl . setPath ( d - > previewPrefix . path ( 1 ) + tempUrl . path ( ) ) ;
}
}
return returnUrl ;
}
/*Returns true if url is already in the project.*/
bool Project : : contains ( const KURL & url )
{
if ( d - > m_projectFiles . isEmpty ( ) )
d - > m_projectFiles . readFromXML ( d - > dom , d - > baseURL , d - > templateURL , d - > excludeRx ) ;
return d - > m_projectFiles . contains ( url ) ;
}
void Project : : slotFileDescChanged ( const KURL & url , const TQString & desc )
{
ProjectURL * proUrl = d - > m_projectFiles . find ( url ) ;
if ( ! proUrl )
return ;
TQDomElement el = proUrl - > domElement ;
el . setAttribute ( " desc " , desc ) ;
proUrl - > fileDesc = desc ;
setModified ( ) ;
}
void Project : : slotUploadStatusChanged ( const KURL & url , int status )
{
if ( ! d - > m_projectFiles . contains ( url ) )
return ;
TQDomElement el ;
TQString urlStr = url . url ( ) ;
ProjectList : : Iterator it ( d - > m_projectFiles ) ;
for ( ; it . current ( ) ; + + it )
{
if ( it . currentKey ( ) . startsWith ( urlStr ) | | it . currentKey ( ) + " / " = = urlStr )
{
it . current ( ) - > uploadStatus = status ;
el = it . current ( ) - > domElement ;
el . setAttribute ( " uploadstatus " , status ) ;
}
}
setModified ( ) ;
}
void Project : : slotChangeDocumentFolderStatus ( const KURL & url , bool status )
{
ProjectURL * proUrl = d - > m_projectFiles . find ( url ) ;
if ( ! proUrl )
return ;
TQDomElement el = proUrl - > domElement ;
el . setAttribute ( " documentFolder " , ( status ? " true " : " false " ) ) ;
proUrl - > documentFolder = status ;
setModified ( ) ;
}
/** Returns the project's base URL if it exists, the HOME dir if there is no project and no opened document (or the current opened document was not saved yet), and the base URL of the opened document, if it is saved somewhere. */
KURL Project : : projectBaseURL ( )
{
KURL result ;
if ( hasProject ( ) )
{
result = d - > baseURL ;
} else
{
Document * w = ViewManager : : ref ( ) - > activeDocument ( ) ;
if ( ! w | | w - > isUntitled ( ) )
{
result = QExtFileInfo : : home ( ) ;
} else
{
result = QExtFileInfo : : path ( w - > url ( ) ) ;
}
}
return result ;
}
void Project : : savePassword ( const TQString & entry , const TQString & passwd , bool store )
{
d - > m_passwdList [ entry ] = passwd ;
TDEConfig * config = kapp - > config ( ) ;
config - > setGroup ( " Projects " ) ;
if ( store )
{
config - > writeEntry ( d - > projectName + " | " + entry , KStringHandler : : obscure ( passwd ) ) ;
//config->writeEntry(projectName + " | " + entry, passwd);
}
else
{
config - > deleteEntry ( d - > projectName + " | " + entry ) ;
}
config - > sync ( ) ;
}
TQString Project : : password ( const TQString & entry )
{
if ( d - > m_passwdList . contains ( entry ) )
return d - > m_passwdList [ entry ] ;
else
{
TDEConfig * config = kapp - > config ( ) ;
config - > setGroup ( " Projects " ) ;
TQString passwd = KStringHandler : : obscure ( config - > readEntry ( d - > projectName + " | " + entry , " " ) ) ;
// TQString passwd = config->readEntry(d->projectName + " | " + entry,"");
return passwd ;
}
}
bool Project : : passwordSaved ( const TQString & entry )
{
TDEConfig * config = kapp - > config ( ) ;
config - > setGroup ( " Projects " ) ;
TQString passwd = KStringHandler : : obscure ( config - > readEntry ( d - > projectName + " | " + entry , " " ) ) ;
// TQString passwd = config->readEntry(d->projectName + " | " + entry,"");
return ! passwd . isEmpty ( ) ;
}
KURL Project : : documentFolderForURL ( const KURL & url )
{
KURL docFolderURL = d - > baseURL ;
ProjectList : : Iterator it ( d - > m_projectFiles ) ;
for ( ; it . current ( ) ; + + it ) {
if ( it . current ( ) - > documentFolder & & it . current ( ) - > isParentOf ( url )
& & docFolderURL . isParentOf ( * ( it . current ( ) ) ) )
{
docFolderURL = * ( it . current ( ) ) ;
}
}
return docFolderURL ;
}
void Project : : slotReloadProjectDocs ( )
{
delete d - > m_dirWatch ;
d - > m_dirWatch = new KDirWatch ( this ) ;
connect ( d - > m_dirWatch , TQT_SIGNAL ( dirty ( const TQString & ) ) , TQT_SIGNAL ( reloadProjectDocs ( ) ) ) ;
connect ( d - > m_dirWatch , TQT_SIGNAL ( deleted ( const TQString & ) ) , TQT_SIGNAL ( reloadProjectDocs ( ) ) ) ;
if ( d - > baseURL . isLocalFile ( ) )
d - > m_dirWatch - > addDir ( d - > baseURL . path ( ) + " /doc " ) ;
KURL url ;
TQString path ;
ProjectList : : Iterator it ( d - > m_projectFiles ) ;
for ( ; it . current ( ) ; + + it ) {
url = * ( it . current ( ) ) ;
path = d - > m_projectFiles . toRelative ( url ) . path ( ) ;
if ( path . startsWith ( " doc/ " ) & & path . endsWith ( " /index.html " ) )
{
emit addProjectDoc ( url ) ;
if ( url . isLocalFile ( ) )
d - > m_dirWatch - > addFile ( url . path ( ) ) ;
}
}
}
bool Project : : hasProject ( )
{
return ! d - > projectName . isNull ( ) ;
}
TQString Project : : projectName ( )
{
return d - > projectName ;
}
const TQString & Project : : defaultDTD ( )
{
return d - > m_defaultDTD ;
}
const TQString & Project : : defaultEncoding ( )
{
return d - > m_defaultEncoding ;
}
KURL Project : : toolbarURL ( )
{
return d - > toolbarURL ;
}
KURL Project : : templateURL ( )
{
return d - > templateURL ;
}
TQString Project : : email ( )
{
return d - > email ;
}
TQDomDocument * Project : : dom ( )
{
return & d - > dom ;
}
TQDomDocument * Project : : sessionDom ( )
{
return & d - > m_sessionDom ;
}
TQString Project : : debuggerClient ( )
{
return d - > debuggerClient ;
}
bool Project : : debuggerPersistentBreakpoints ( )
{
return d - > m_debuggerPersistentBreakpoints ;
}
bool Project : : debuggerPersistentWatches ( )
{
return d - > m_debuggerPersistentWatches ;
}
void Project : : setModified ( bool b )
{
d - > m_modified = b ;
if ( b )
d - > saveProject ( ) ;
}
EventActions * Project : : events ( )
{
if ( hasProject ( ) )
return d - > m_events ;
else
return 0L ;
}
TQString Project : : yourself ( )
{
return d - > m_yourself ;
}
TQStringList Project : : yourRoles ( )
{
TQStringList roles ;
if ( d - > m_yourself . isEmpty ( ) )
return roles ;
TQString yourNick = d - > m_yourself . lower ( ) ;
if ( d - > m_teamLeader . nickName . lower ( ) = = yourNick )
roles + = " team leader " ;
TQValueList < SubProject > : : ConstIterator end = d - > m_subprojects . constEnd ( ) ;
for ( TQValueList < SubProject > : : ConstIterator it = d - > m_subprojects . constBegin ( ) ; it ! = end ; + + it )
{
if ( subprojectLeader ( ( * it ) . name ) . nickName . lower ( ) = = yourNick )
roles + = " subproject leader: " + ( * it ) . name . lower ( ) ;
}
for ( TQMap < TQString , TeamMember > : : ConstIterator it = d - > m_taskLeaders . constBegin ( ) ; it ! = d - > m_taskLeaders . constEnd ( ) ; + + it )
{
if ( it . data ( ) . nickName . lower ( ) = = yourNick )
roles + = " task leader: " + it . key ( ) . lower ( ) ;
}
return roles ;
}
TeamMember Project : : teamLeader ( )
{
return d - > m_teamLeader ;
}
TeamMember Project : : subprojectLeader ( const TQString & name )
{
if ( d - > m_subprojectLeaders . contains ( name ) )
return d - > m_subprojectLeaders [ name ] ;
else
return TeamMember ( ) ;
}
TeamMember Project : : taskLeader ( const TQString & name )
{
if ( d - > m_taskLeaders . contains ( name ) )
return d - > m_taskLeaders [ name ] ;
else
return TeamMember ( ) ;
}
TQValueList < TeamMember > Project : : simpleMembers ( )
{
return d - > m_simpleMembers ;
}
TQString Project : : mailingList ( )
{
return d - > m_mailingList ;
}
TQValueList < SubProject > * Project : : subprojects ( )
{
return & d - > m_subprojects ;
}
TQStringList Project : : tasks ( )
{
TQStringList result ;
for ( TQMap < TQString , TeamMember > : : ConstIterator it = d - > m_taskLeaders . constBegin ( ) ; it ! = d - > m_taskLeaders . constEnd ( ) ; + + it )
{
result < < it . key ( ) ;
}
return result ;
}
TQMap < TQString , TeamMember > Project : : allMembers ( )
{
TQMap < TQString , TeamMember > members ;
for ( TQValueList < TeamMember > : : ConstIterator it = d - > m_simpleMembers . constBegin ( ) ; it ! = d - > m_simpleMembers . constEnd ( ) ; + + it )
{
members [ ( * it ) . name ] = * it ;
}
if ( ! d - > m_teamLeader . name . isEmpty ( ) )
members [ d - > m_teamLeader . name ] = d - > m_teamLeader ;
for ( TQMap < TQString , TeamMember > : : ConstIterator it = d - > m_subprojectLeaders . constBegin ( ) ; it ! = d - > m_subprojectLeaders . constEnd ( ) ; + + it )
{
members [ it . data ( ) . name ] = it . data ( ) ;
}
for ( TQMap < TQString , TeamMember > : : ConstIterator it = d - > m_taskLeaders . constBegin ( ) ; it ! = d - > m_taskLeaders . constEnd ( ) ; + + it )
{
members [ it . data ( ) . name ] = it . data ( ) ;
}
return members ;
}
void Project : : urlMoved ( const KURL & srcURL , const KURL & destURL )
{
emit eventHappened ( " after_file_move " , srcURL . url ( ) , destURL . url ( ) ) ;
}
bool Project : : queryClose ( )
{
bool canExit = true ;
if ( hasProject ( ) )
{
emit eventHappened ( " before_project_close " , d - > baseURL . url ( ) , TQString ( ) ) ;
d - > config - > setGroup ( " Projects " ) ;
KURL url = d - > projectURL . url ( ) ;
url . setPass ( " " ) ;
d - > config - > writePathEntry ( " Last Project " , url . url ( ) ) ;
canExit = d - > uploadProjectFile ( ) ;
if ( ! canExit )
{
if ( KMessageBox : : warningContinueCancel ( d - > m_mainWindow , i18n ( " Saving of project failed. Do you want to continue with exit (might cause data loss)? " ) , i18n ( " Project Saving Error " ) , KStdGuiItem : : quit ( ) ) = = KMessageBox : : Continue )
canExit = true ;
}
if ( canExit )
{
emit eventHappened ( " after_project_close " , d - > baseURL . url ( ) , TQString ( ) ) ;
// empty dom tree
d - > dom . clear ( ) ;
d - > m_sessionDom . clear ( ) ;
d - > m_events - > clear ( ) ;
d - > init ( ) ;
newProjectLoaded ( d - > projectName , d - > baseURL , d - > templateURL ) ;
reloadTree ( & ( d - > m_projectFiles ) , true , TQStringList ( ) ) ;
d - > adjustActions ( ) ;
d - > m_projectRecent - > setCurrentItem ( - 1 ) ;
newStatus ( ) ;
// kapp->processEvents(TQEventLoop::ExcludeUserInput | TQEventLoop::ExcludeSocketNotifiers);
}
}
return canExit ;
}
bool Project : : eventsEnabled ( )
{
return d - > m_eventsEnabled ;
}
void Project : : slotShowProjectToolbar ( bool show )
{
if ( d - > m_mainWindow & & d - > m_mainWindow - > factory ( ) )
{
TQWidget * w = d - > m_mainWindow - > factory ( ) - > container ( " project_toolbar " , d - > m_mainWindow ) ;
if ( w )
{
if ( show & & m_projectToolbarVisible )
w - > setShown ( true ) ;
else
if ( ! show )
{
m_projectToolbarVisible = w - > isShown ( ) ;
w - > setShown ( false ) ;
}
}
}
}
void Project : : loadBookmarks ( const KURL & url , KTextEditor : : MarkInterface * markIf )
{
if ( ! markIf | | ! hasProject ( ) | | ! contains ( url ) | | ! d - > m_persistentBookmarks )
return ;
TQDomNodeList nl = d - > dom . elementsByTagName ( " item " ) ;
TQDomElement el ;
KURL u = QExtFileInfo : : toRelative ( url , d - > baseURL ) ;
for ( uint i = 0 ; i < nl . count ( ) ; i + + )
{
el = nl . item ( i ) . toElement ( ) ;
if ( el . attribute ( " url " ) = = QuantaCommon : : qUrl ( u ) )
{
TQString markListStr = el . attribute ( " bookmarks " ) ;
TQStringList markList = TQStringList : : split ( " , " , markListStr ) ;
for ( uint j = 0 ; j < markList . count ( ) ; j + + )
{
int line = markList [ j ] . toInt ( ) ;
markIf - > setMark ( line , KTextEditor : : MarkInterface : : Bookmark ) ;
}
break ;
}
}
}
void Project : : saveBookmarks ( const KURL & url , KTextEditor : : MarkInterface * markIf )
{
if ( ! markIf | | ! hasProject ( ) | | ! contains ( url ) | | ! d - > m_persistentBookmarks )
return ;
TQStringList markList ;
TQPtrList < KTextEditor : : Mark > marks = markIf - > marks ( ) ;
for ( uint i = 0 ; i < marks . count ( ) ; i + + )
{
KTextEditor : : Mark * mark = marks . at ( i ) ;
if ( mark - > type = = KTextEditor : : MarkInterface : : Bookmark )
markList < < TQString ( " %1 " ) . arg ( mark - > line ) ;
}
TQDomNodeList nl = d - > dom . elementsByTagName ( " item " ) ;
TQDomElement el ;
KURL u = QExtFileInfo : : toRelative ( url , d - > baseURL ) ;
for ( uint i = 0 ; i < nl . count ( ) ; i + + )
{
el = nl . item ( i ) . toElement ( ) ;
if ( el . attribute ( " url " ) = = QuantaCommon : : qUrl ( u ) )
{
el . setAttribute ( " bookmarks " , markList . join ( " , " ) ) ;
break ;
}
}
}
void Project : : loadCursorPosition ( const KURL & url , KTextEditor : : ViewCursorInterface * viewCursorIf )
{
if ( ! viewCursorIf | | ! hasProject ( ) | | ! contains ( url ) )
return ;
TQDomNodeList nl = d - > m_sessionDom . elementsByTagName ( " item " ) ;
TQDomElement el ;
KURL u = QExtFileInfo : : toRelative ( url , d - > baseURL ) ;
for ( uint i = 0 ; i < nl . count ( ) ; i + + )
{
el = nl . item ( i ) . toElement ( ) ;
if ( el . attribute ( " url " ) = = QuantaCommon : : qUrl ( u ) )
{
TQString s = el . attribute ( " line " ) ;
uint line , col ;
bool ok ;
line = s . toUInt ( & ok , 10 ) ;
if ( ok )
{
s = el . attribute ( " column " ) ;
col = s . toUInt ( & ok , 10 ) ;
if ( ok )
viewCursorIf - > setCursorPositionReal ( line , col ) ;
}
}
KURL u2 = d - > baseURL ;
QuantaCommon : : setUrl ( u2 , el . attribute ( " url " ) ) ;
if ( ! contains ( u2 ) )
{
el . parentNode ( ) . removeChild ( el ) ;
}
}
}
void Project : : saveCursorPosition ( const KURL & url , KTextEditor : : ViewCursorInterface * viewCursorIf )
{
if ( ! viewCursorIf | | ! hasProject ( ) | | ! contains ( url ) )
return ;
TQDomNodeList nl = d - > m_sessionDom . elementsByTagName ( " item " ) ;
TQDomElement el ;
KURL u = QExtFileInfo : : toRelative ( url , d - > baseURL ) ;
uint line , col ;
viewCursorIf - > cursorPosition ( & line , & col ) ;
bool found = false ;
for ( uint i = 0 ; i < nl . count ( ) ; i + + )
{
el = nl . item ( i ) . toElement ( ) ;
if ( el . attribute ( " url " ) = = QuantaCommon : : qUrl ( u ) )
{
el . setAttribute ( " line " , line ) ;
el . setAttribute ( " column " , col ) ;
found = true ;
break ;
}
}
if ( ! found )
{
el = d - > m_sessionDom . createElement ( " item " ) ;
el . setAttribute ( " column " , col ) ;
el . setAttribute ( " line " , line ) ;
el . setAttribute ( " url " , QuantaCommon : : qUrl ( u ) ) ;
TQDomNode no = d - > m_sessionDom . firstChild ( ) . firstChild ( ) . namedItem ( " itemcursorpositions " ) ;
no . appendChild ( el ) ;
}
}
# include "project.moc"