/*******************************************************************************
* *
* * Filename : newfolderdialog . cpp
* * Created on : 30 January , 2005
* * Copyright : ( c ) 2005 Till Adam
* * Email : adam @ 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 .
* *
* * In addition , as a special exception , the copyright holders give
* * permission to link the code of this program with any edition of
* * the TQt library by Trolltech AS , Norway ( or with modified versions
* * of TQt that use the same license as TQt ) , and distribute linked
* * combinations including the two . You must obey the GNU General
* * Public License in all respects for all of the code used other than
* * TQt . If you modify this file , you may extend this exception to
* * your version of the file , but you are not obligated to do so . If
* * you do not wish to do so , delete this exception statement from
* * your version .
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
# include <tqvariant.h>
# include <tqpushbutton.h>
# include <tqlabel.h>
# include <tqlineedit.h>
# include <tqcombobox.h>
# include <tqlayout.h>
# include <tqtooltip.h>
# include <tqwhatsthis.h>
# include <tqregexp.h>
# include <klocale.h>
# include <kdialogbase.h>
# include <kmessagebox.h>
# include "folderutil.h"
# include "newfolderdialog.h"
# include "kmfolder.h"
# include "folderstorage.h"
# include "kmfolderimap.h"
# include "kmfoldercachedimap.h"
# include "kmfoldermgr.h"
# include "kmfolderdir.h"
# include "folderstorage.h"
# include "kmailicalifaceimpl.h"
# include "kmacctimap.h"
# include "kmacctcachedimap.h"
using namespace KMail ;
NewFolderDialog : : NewFolderDialog ( TQWidget * parent , KMFolder * folder )
: KDialogBase ( parent , " new_folder_dialog " , false , i18n ( " New Folder " ) ,
KDialogBase : : Ok | KDialogBase : : Cancel ,
KDialogBase : : Ok , true ) ,
mFormatComboBox ( 0 ) ,
mContentsComboBox ( 0 ) ,
mNamespacesComboBox ( 0 ) ,
mFolder ( folder )
{
setWFlags ( getWFlags ( ) | WDestructiveClose ) ;
if ( mFolder ) {
setCaption ( i18n ( " New Subfolder of %1 " ) . arg ( mFolder - > prettyURL ( ) ) ) ;
}
TQWidget * privateLayoutWidget = new TQWidget ( this , " mTopLevelLayout " ) ;
privateLayoutWidget - > setGeometry ( TQRect ( 10 , 10 , 260 , 80 ) ) ;
setMainWidget ( privateLayoutWidget ) ;
mTopLevelLayout = new TQVBoxLayout ( privateLayoutWidget , 0 , spacingHint ( ) ,
" mTopLevelLayout " ) ;
mNameHBox = new TQHBoxLayout ( 0 , 0 , 6 , " mNameHBox " ) ;
mNameLabel = new TQLabel ( privateLayoutWidget , " mNameLabel " ) ;
mNameLabel - > setText ( i18n ( " &Name: " ) ) ;
mNameHBox - > addWidget ( mNameLabel ) ;
mNameLineEdit = new TQLineEdit ( privateLayoutWidget , " mNameLineEdit " ) ;
mNameLabel - > setBuddy ( mNameLineEdit ) ;
TQWhatsThis : : add ( mNameLineEdit , i18n ( " Enter a name for the new folder. " ) ) ;
mNameLineEdit - > setFocus ( ) ;
mNameHBox - > addWidget ( mNameLineEdit ) ;
mTopLevelLayout - > addLayout ( mNameHBox ) ;
connect ( mNameLineEdit , TQT_SIGNAL ( textChanged ( const TQString & ) ) , this , TQT_SLOT ( slotFolderNameChanged ( const TQString & ) ) ) ;
if ( ! mFolder | |
( mFolder - > folderType ( ) ! = KMFolderTypeImap & &
mFolder - > folderType ( ) ! = KMFolderTypeCachedImap ) ) {
mFormatHBox = new TQHBoxLayout ( 0 , 0 , 6 , " mFormatHBox " ) ;
mMailboxFormatLabel = new TQLabel ( privateLayoutWidget , " mMailboxFormatLabel " ) ;
mMailboxFormatLabel - > setText ( i18n ( " Mailbox &format: " ) ) ;
mFormatHBox - > addWidget ( mMailboxFormatLabel ) ;
mFormatComboBox = new TQComboBox ( false , privateLayoutWidget , " mFormatComboBox " ) ;
mMailboxFormatLabel - > setBuddy ( mFormatComboBox ) ;
TQWhatsThis : : add ( mFormatComboBox , i18n ( " Select whether you want to store the messages in this folder as one file per message (maildir) or as one big file (mbox). KMail uses maildir by default and this only needs to be changed in rare circumstances. If you are unsure, leave this option as-is. " ) ) ;
mFormatComboBox - > insertItem ( " mbox " , 0 ) ;
mFormatComboBox - > insertItem ( " maildir " , 1 ) ;
// does the below make any sense?
// mFormatComboBox->insertItem("search", 2);
{
TDEConfig * config = KMKernel : : config ( ) ;
TDEConfigGroupSaver saver ( config , " General " ) ;
int type = config - > readNumEntry ( " default-mailbox-format " , 1 ) ;
if ( type < 0 | | type > 1 ) type = 1 ;
mFormatComboBox - > setCurrentItem ( type ) ;
}
mFormatHBox - > addWidget ( mFormatComboBox ) ;
mTopLevelLayout - > addLayout ( mFormatHBox ) ;
}
// --- contents -----
if ( kmkernel - > iCalIface ( ) . isEnabled ( ) & &
mFolder & & mFolder - > folderType ( ) ! = KMFolderTypeImap ) {
mContentsHBox = new TQHBoxLayout ( 0 , 0 , 6 , " mContentsHBox " ) ;
mContentsLabel = new TQLabel ( privateLayoutWidget , " mContentsLabel " ) ;
mContentsLabel - > setText ( i18n ( " Folder &contains: " ) ) ;
mContentsHBox - > addWidget ( mContentsLabel ) ;
mContentsComboBox = new TQComboBox ( false , privateLayoutWidget , " mContentsComboBox " ) ;
mContentsLabel - > setBuddy ( mContentsComboBox ) ;
TQWhatsThis : : add ( mContentsComboBox , i18n ( " Select whether you want the new folder to be used for mail storage of for storage of groupware items such as tasks or notes. The default is mail. If you are unsure, leave this option as-is. " ) ) ;
mContentsComboBox - > insertItem ( i18n ( " Mail " ) ) ;
mContentsComboBox - > insertItem ( i18n ( " Calendar " ) ) ;
mContentsComboBox - > insertItem ( i18n ( " Contacts " ) ) ;
mContentsComboBox - > insertItem ( i18n ( " Notes " ) ) ;
mContentsComboBox - > insertItem ( i18n ( " Tasks " ) ) ;
mContentsComboBox - > insertItem ( i18n ( " Journal " ) ) ;
if ( mFolder ) // inherit contents type from papa
mContentsComboBox - > setCurrentItem ( mFolder - > storage ( ) - > contentsType ( ) ) ;
mContentsHBox - > addWidget ( mContentsComboBox ) ;
mTopLevelLayout - > addLayout ( mContentsHBox ) ;
}
if ( mFolder & &
( mFolder - > folderType ( ) = = KMFolderTypeImap | |
mFolder - > folderType ( ) = = KMFolderTypeCachedImap ) ) {
bool rootFolder = false ;
TQStringList namespaces ;
if ( mFolder - > folderType ( ) = = KMFolderTypeImap ) {
ImapAccountBase * ai = static_cast < KMFolderImap * > ( mFolder - > storage ( ) ) - > account ( ) ;
if ( mFolder - > storage ( ) = = ai - > rootFolder ( ) ) {
rootFolder = true ;
namespaces = ai - > namespaces ( ) [ ImapAccountBase : : PersonalNS ] ;
}
}
if ( mFolder - > folderType ( ) = = KMFolderTypeCachedImap ) {
ImapAccountBase * ai = static_cast < KMFolderCachedImap * > ( mFolder - > storage ( ) ) - > account ( ) ;
if ( ai & & mFolder - > storage ( ) = = ai - > rootFolder ( ) ) {
rootFolder = true ;
namespaces = ai - > namespaces ( ) [ ImapAccountBase : : PersonalNS ] ;
}
}
if ( rootFolder & & namespaces . count ( ) > 1 ) {
mNamespacesHBox = new TQHBoxLayout ( 0 , 0 , 6 , " mNamespaceHBox " ) ;
mNamespacesLabel = new TQLabel ( privateLayoutWidget , " mNamespacesLabel " ) ;
mNamespacesLabel - > setText ( i18n ( " Namespace for &folder: " ) ) ;
mNamespacesHBox - > addWidget ( mNamespacesLabel ) ;
mNamespacesComboBox = new TQComboBox ( false , privateLayoutWidget , " mNamespacesComboBox " ) ;
mNamespacesLabel - > setBuddy ( mNamespacesComboBox ) ;
TQWhatsThis : : add ( mNamespacesComboBox , i18n ( " Select the personal namespace the folder should be created in. " ) ) ;
mNamespacesComboBox - > insertStringList ( namespaces ) ;
mNamespacesHBox - > addWidget ( mNamespacesComboBox ) ;
mTopLevelLayout - > addLayout ( mNamespacesHBox ) ;
} else {
mNamespacesComboBox = 0 ;
}
}
resize ( TQSize ( 282 , 108 ) . expandedTo ( minimumSizeHint ( ) ) ) ;
clearWState ( WState_Polished ) ;
slotFolderNameChanged ( mNameLineEdit - > text ( ) ) ;
}
void NewFolderDialog : : slotFolderNameChanged ( const TQString & _text )
{
enableButtonOK ( ! _text . isEmpty ( ) ) ;
}
void NewFolderDialog : : slotOk ( )
{
const TQString fldName = mNameLineEdit - > text ( ) ;
if ( fldName . isEmpty ( ) ) {
KMessageBox : : error ( this , i18n ( " Please specify a name for the new folder. " ) ,
i18n ( " No Name Specified " ) ) ;
return ;
}
TQString msg ;
if ( mFolder & & ! mFolder - > isValidName ( fldName , msg ) ) {
KMessageBox : : error ( this , msg ) ;
return ;
}
// default parent is Top Level local folders
KMFolderDir * selectedFolderDir = & ( kmkernel - > folderMgr ( ) - > dir ( ) ) ;
// we got a parent, let's use that
if ( mFolder )
selectedFolderDir = mFolder - > createChildFolder ( ) ;
// check if the folder already exists
if ( selectedFolderDir - > hasNamedFolder ( fldName )
& & ( ! ( mFolder
& & ( selectedFolderDir = = mFolder - > parent ( ) )
& & ( mFolder - > storage ( ) - > name ( ) = = fldName ) ) ) )
{
const TQString message = i18n ( " <qt>Failed to create folder <b>%1</b>, folder already exists.</qt> " ) . arg ( fldName ) ;
KMessageBox : : error ( this , message ) ;
return ;
}
/* Ok, obvious errors caught, let's try creating it for real. */
const TQString message = i18n ( " <qt>Failed to create folder <b>%1</b>. "
" </qt> " ) . arg ( fldName ) ;
TQString namespaceName ;
if ( mNamespacesComboBox ) {
namespaceName = mNamespacesComboBox - > currentText ( ) ;
}
KMFolderType folderType = KMFolderTypeUnknown ;
if ( mFormatComboBox & & mFormatComboBox - > currentItem ( ) = = 1 )
folderType = KMFolderTypeMaildir ;
else if ( mFormatComboBox )
folderType = KMFolderTypeMbox ;
KMFolder * newFolder = KMail : : FolderUtil : : createSubFolder ( mFolder , selectedFolderDir , fldName ,
namespaceName , folderType ) ;
if ( ! newFolder ) {
KMessageBox : : error ( this , message ) ;
return ;
}
// Set type field
if ( kmkernel - > iCalIface ( ) . isEnabled ( ) & & mContentsComboBox ) {
KMail : : FolderContentsType type =
static_cast < KMail : : FolderContentsType > ( mContentsComboBox - > currentItem ( ) ) ;
newFolder - > storage ( ) - > setContentsType ( type ) ;
newFolder - > storage ( ) - > writeConfig ( ) ; // connected slots will read it
}
KDialogBase : : slotOk ( ) ;
}
# include "newfolderdialog.moc"