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.
482 lines
14 KiB
482 lines
14 KiB
/*
|
|
Copyright (C) 2001,2002 Carsten Pfeiffer <pfeiffer@kde.org>
|
|
Copyright (C) 2001 Michael Jarrett <michaelj@corel.com>
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License version 2 as published by the Free Software Foundation.
|
|
|
|
This library 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
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public License
|
|
along with this library; see the file COPYING.LIB. If not, write to
|
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
Boston, MA 02110-1301, USA.
|
|
*/
|
|
|
|
#include <tqdir.h>
|
|
#include <tqlayout.h>
|
|
#include <tqpopupmenu.h>
|
|
#include <tqstringlist.h>
|
|
#include <tqvaluestack.h>
|
|
|
|
#include <tdeactionclasses.h>
|
|
#include <tdeapplication.h>
|
|
#include <kcombobox.h>
|
|
#include <tdeconfig.h>
|
|
#include <tdefiledialog.h>
|
|
#include <tdefilespeedbar.h>
|
|
#include <tdeglobalsettings.h>
|
|
#include <kiconloader.h>
|
|
#include <tdelocale.h>
|
|
#include <kprotocolinfo.h>
|
|
#include <tderecentdirs.h>
|
|
#include <kshell.h>
|
|
#include <kurl.h>
|
|
#include <kurlcompletion.h>
|
|
#include <kurlpixmapprovider.h>
|
|
#include <kinputdialog.h>
|
|
#include <tdeio/netaccess.h>
|
|
#include <tdeio/renamedlg.h>
|
|
#include <tdemessagebox.h>
|
|
|
|
#include "tdefiletreeview.h"
|
|
#include "kdirselectdialog.h"
|
|
|
|
// ### add mutator for treeview!
|
|
|
|
class KDirSelectDialog::KDirSelectDialogPrivate
|
|
{
|
|
public:
|
|
KDirSelectDialogPrivate()
|
|
{
|
|
urlCombo = 0L;
|
|
branch = 0L;
|
|
comboLocked = false;
|
|
}
|
|
|
|
KFileSpeedBar *speedBar;
|
|
KHistoryCombo *urlCombo;
|
|
KFileTreeBranch *branch;
|
|
TQString recentDirClass;
|
|
KURL startURL;
|
|
TQValueStack<KURL> dirsToList;
|
|
|
|
bool comboLocked : 1;
|
|
};
|
|
|
|
static KURL rootUrl(const KURL &url)
|
|
{
|
|
KURL root = url;
|
|
root.setPath( "/" );
|
|
|
|
if (!kapp->authorizeURLAction("list", KURL(), root))
|
|
{
|
|
root = KURL::fromPathOrURL( TQDir::homeDirPath() );
|
|
if (!kapp->authorizeURLAction("list", KURL(), root))
|
|
{
|
|
root = url;
|
|
}
|
|
}
|
|
return root;
|
|
}
|
|
|
|
KDirSelectDialog::KDirSelectDialog(const TQString &startDir, bool localOnly,
|
|
TQWidget *parent, const char *name,
|
|
bool modal)
|
|
: KDialogBase( parent, name, modal, i18n("Select Folder"),
|
|
Ok|Cancel|User1, Ok, false,
|
|
KGuiItem( i18n("New Folder..."), "folder-new" ) ),
|
|
m_localOnly( localOnly )
|
|
{
|
|
d = new KDirSelectDialogPrivate;
|
|
d->branch = 0L;
|
|
|
|
TQFrame *page = makeMainWidget();
|
|
TQHBoxLayout *hlay = new TQHBoxLayout( page, 0, spacingHint() );
|
|
m_mainLayout = new TQVBoxLayout();
|
|
d->speedBar = new KFileSpeedBar( page, "speedbar" );
|
|
connect( d->speedBar, TQ_SIGNAL( activated( const KURL& )),
|
|
TQ_SLOT( setCurrentURL( const KURL& )) );
|
|
hlay->addWidget( d->speedBar, 0 );
|
|
hlay->addLayout( m_mainLayout, 1 );
|
|
|
|
// Create dir list
|
|
m_treeView = new KFileTreeView( page );
|
|
m_treeView->addColumn( i18n("Folders") );
|
|
m_treeView->setColumnWidthMode( 0, TQListView::Maximum );
|
|
m_treeView->setResizeMode( TQListView::AllColumns );
|
|
|
|
d->urlCombo = new KHistoryCombo( page, "url combo" );
|
|
d->urlCombo->setTrapReturnKey( true );
|
|
d->urlCombo->setPixmapProvider( new KURLPixmapProvider() );
|
|
KURLCompletion *comp = new KURLCompletion();
|
|
comp->setMode( KURLCompletion::DirCompletion );
|
|
d->urlCombo->setCompletionObject( comp, true );
|
|
d->urlCombo->setAutoDeleteCompletionObject( true );
|
|
d->urlCombo->setDuplicatesEnabled( false );
|
|
connect( d->urlCombo, TQ_SIGNAL( textChanged( const TQString& ) ),
|
|
TQ_SLOT( slotComboTextChanged( const TQString& ) ));
|
|
|
|
m_contextMenu = new TQPopupMenu( this );
|
|
TDEAction* newFolder = new TDEAction( i18n("New Folder..."), "folder-new", 0, this, TQ_SLOT( slotMkdir() ), this);
|
|
newFolder->plug(m_contextMenu);
|
|
m_contextMenu->insertSeparator();
|
|
m_showHiddenFolders = new TDEToggleAction ( i18n( "Show Hidden Folders" ), 0, this,
|
|
TQ_SLOT( slotShowHiddenFoldersToggled() ), this);
|
|
m_showHiddenFolders->plug(m_contextMenu);
|
|
|
|
d->startURL = KFileDialog::getStartURL( startDir, d->recentDirClass );
|
|
if ( localOnly && !d->startURL.isLocalFile() )
|
|
{
|
|
d->startURL = KURL();
|
|
TQString docPath = TDEGlobalSettings::documentPath();
|
|
if (TQDir(docPath).exists())
|
|
d->startURL.setPath( docPath );
|
|
else
|
|
d->startURL.setPath( TQDir::homeDirPath() );
|
|
}
|
|
|
|
KURL root = rootUrl(d->startURL);
|
|
|
|
m_startDir = d->startURL.url();
|
|
|
|
d->branch = createBranch( root );
|
|
|
|
readConfig( TDEGlobal::config(), "DirSelect Dialog" );
|
|
|
|
m_mainLayout->addWidget( m_treeView, 1 );
|
|
m_mainLayout->addWidget( d->urlCombo, 0 );
|
|
|
|
connect( m_treeView, TQ_SIGNAL( currentChanged( TQListViewItem * )),
|
|
TQ_SLOT( slotCurrentChanged() ));
|
|
connect( m_treeView, TQ_SIGNAL( contextMenu( TDEListView *, TQListViewItem *, const TQPoint & )),
|
|
TQ_SLOT( slotContextMenu( TDEListView *, TQListViewItem *, const TQPoint & )));
|
|
|
|
connect( d->urlCombo, TQ_SIGNAL( activated( const TQString& )),
|
|
TQ_SLOT( slotURLActivated( const TQString& )));
|
|
connect( d->urlCombo, TQ_SIGNAL( returnPressed( const TQString& )),
|
|
TQ_SLOT( slotURLActivated( const TQString& )));
|
|
|
|
setCurrentURL( d->startURL );
|
|
}
|
|
|
|
|
|
KDirSelectDialog::~KDirSelectDialog()
|
|
{
|
|
delete d;
|
|
}
|
|
|
|
void KDirSelectDialog::setCurrentURL( const KURL& url )
|
|
{
|
|
if ( !url.isValid() )
|
|
return;
|
|
|
|
KURL root = rootUrl(url);
|
|
|
|
d->startURL = url;
|
|
if ( !d->branch ||
|
|
url.protocol() != d->branch->url().protocol() ||
|
|
url.host() != d->branch->url().host() )
|
|
{
|
|
if ( d->branch )
|
|
{
|
|
// removing the root-item causes the currentChanged() signal to be
|
|
// emitted, but we don't want to update the location-combo yet.
|
|
d->comboLocked = true;
|
|
view()->removeBranch( d->branch );
|
|
d->comboLocked = false;
|
|
}
|
|
|
|
d->branch = createBranch( root );
|
|
}
|
|
|
|
d->branch->disconnect( TQ_SIGNAL( populateFinished( KFileTreeViewItem * )),
|
|
this, TQ_SLOT( slotNextDirToList( KFileTreeViewItem *)));
|
|
connect( d->branch, TQ_SIGNAL( populateFinished( KFileTreeViewItem * )),
|
|
TQ_SLOT( slotNextDirToList( KFileTreeViewItem * ) ));
|
|
|
|
KURL dirToList = root;
|
|
d->dirsToList.clear();
|
|
TQString path = url.path(+1);
|
|
int pos = path.length();
|
|
|
|
if ( path.isEmpty() ) // e.g. ftp://host.com/ -> just list the root dir
|
|
d->dirsToList.push( root );
|
|
|
|
else
|
|
{
|
|
while ( pos > 0 )
|
|
{
|
|
pos = path.findRev( '/', pos -1 );
|
|
if ( pos >= 0 )
|
|
{
|
|
dirToList.setPath( path.left( pos +1 ) );
|
|
d->dirsToList.push( dirToList );
|
|
// tqDebug( "List: %s", dirToList.url().latin1());
|
|
}
|
|
}
|
|
}
|
|
|
|
if ( !d->dirsToList.isEmpty() )
|
|
openNextDir( d->branch->root() );
|
|
}
|
|
|
|
void KDirSelectDialog::openNextDir( KFileTreeViewItem * /*parent*/ )
|
|
{
|
|
if ( !d->branch )
|
|
return;
|
|
|
|
KURL url = d->dirsToList.pop();
|
|
|
|
KFileTreeViewItem *item = view()->findItem( d->branch, url.path().mid(1));
|
|
if ( item )
|
|
{
|
|
if ( !item->isOpen() )
|
|
item->setOpen( true );
|
|
else // already open -> go to next one
|
|
slotNextDirToList( item );
|
|
}
|
|
// else
|
|
// tqDebug("###### openNextDir: item not found!");
|
|
}
|
|
|
|
void KDirSelectDialog::slotNextDirToList( KFileTreeViewItem *item )
|
|
{
|
|
// scroll to make item the topmost item
|
|
view()->ensureItemVisible( item );
|
|
TQRect r = view()->itemRect( item );
|
|
if ( r.isValid() )
|
|
{
|
|
int x, y;
|
|
view()->viewportToContents( view()->contentsX(), r.y(), x, y );
|
|
view()->setContentsPos( x, y );
|
|
}
|
|
|
|
if ( !d->dirsToList.isEmpty() )
|
|
openNextDir( item );
|
|
else
|
|
{
|
|
d->branch->disconnect( TQ_SIGNAL( populateFinished( KFileTreeViewItem * )),
|
|
this, TQ_SLOT( slotNextDirToList( KFileTreeViewItem *)));
|
|
view()->setCurrentItem( item );
|
|
item->setSelected( true );
|
|
}
|
|
}
|
|
|
|
void KDirSelectDialog::readConfig( TDEConfig *config, const TQString& group )
|
|
{
|
|
d->urlCombo->clear();
|
|
|
|
TDEConfigGroup conf( config, group );
|
|
d->urlCombo->setHistoryItems( conf.readPathListEntry( "History Items" ));
|
|
|
|
TQSize defaultSize( 400, 450 );
|
|
resize( conf.readSizeEntry( "DirSelectDialog Size", &defaultSize ));
|
|
}
|
|
|
|
void KDirSelectDialog::saveConfig( TDEConfig *config, const TQString& group )
|
|
{
|
|
TDEConfigGroup conf( config, group );
|
|
conf.writePathEntry( "History Items", d->urlCombo->historyItems(), ',',
|
|
true, true);
|
|
conf.writeEntry( "DirSelectDialog Size", size(), true, true );
|
|
|
|
d->speedBar->save( config );
|
|
|
|
config->sync();
|
|
}
|
|
|
|
void KDirSelectDialog::slotUser1()
|
|
{
|
|
slotMkdir();
|
|
}
|
|
|
|
void KDirSelectDialog::accept()
|
|
{
|
|
KFileTreeViewItem *item = m_treeView->currentKFileTreeViewItem();
|
|
if ( !item )
|
|
return;
|
|
|
|
if ( !d->recentDirClass.isEmpty() )
|
|
{
|
|
KURL dir = item->url();
|
|
if ( !item->isDir() )
|
|
dir = dir.upURL();
|
|
|
|
TDERecentDirs::add(d->recentDirClass, dir.url());
|
|
}
|
|
|
|
d->urlCombo->addToHistory( item->url().prettyURL() );
|
|
KFileDialog::setStartDir( url() );
|
|
|
|
KDialogBase::accept();
|
|
saveConfig( TDEGlobal::config(), "DirSelect Dialog" );
|
|
}
|
|
|
|
|
|
KURL KDirSelectDialog::url() const
|
|
{
|
|
return m_treeView->currentURL();
|
|
}
|
|
|
|
void KDirSelectDialog::slotCurrentChanged()
|
|
{
|
|
if ( d->comboLocked )
|
|
return;
|
|
|
|
KFileTreeViewItem *current = view()->currentKFileTreeViewItem();
|
|
KURL u = current ? current->url() : (d->branch ? d->branch->rootUrl() : KURL());
|
|
|
|
if ( u.isValid() )
|
|
{
|
|
if ( u.isLocalFile() )
|
|
d->urlCombo->setEditText( u.path() );
|
|
|
|
else // remote url
|
|
d->urlCombo->setEditText( u.prettyURL() );
|
|
}
|
|
else
|
|
d->urlCombo->setEditText( TQString::null );
|
|
}
|
|
|
|
void KDirSelectDialog::slotURLActivated( const TQString& text )
|
|
{
|
|
if ( text.isEmpty() )
|
|
return;
|
|
|
|
KURL url = KURL::fromPathOrURL( text );
|
|
d->urlCombo->addToHistory( url.prettyURL() );
|
|
|
|
if ( localOnly() && !url.isLocalFile() )
|
|
return; // ### messagebox
|
|
|
|
KURL oldURL = m_treeView->currentURL();
|
|
if ( oldURL.isEmpty() )
|
|
oldURL = KURL::fromPathOrURL( m_startDir );
|
|
|
|
setCurrentURL( url );
|
|
}
|
|
|
|
KFileTreeBranch * KDirSelectDialog::createBranch( const KURL& url )
|
|
{
|
|
TQString title = url.isLocalFile() ? url.path() : url.prettyURL();
|
|
KFileTreeBranch *branch = view()->addBranch( url, title, m_showHiddenFolders->isChecked() );
|
|
branch->setChildRecurse( false );
|
|
view()->setDirOnlyMode( branch, true );
|
|
|
|
return branch;
|
|
}
|
|
|
|
void KDirSelectDialog::slotComboTextChanged( const TQString& text )
|
|
{
|
|
if ( d->branch )
|
|
{
|
|
KURL url = KURL::fromPathOrURL( KShell::tildeExpand( text ) );
|
|
KFileTreeViewItem *item = d->branch->findTVIByURL( url );
|
|
if ( item )
|
|
{
|
|
view()->setCurrentItem( item );
|
|
view()->setSelected( item, true );
|
|
view()->ensureItemVisible( item );
|
|
return;
|
|
}
|
|
}
|
|
|
|
TQListViewItem *item = view()->currentItem();
|
|
if ( item )
|
|
{
|
|
item->setSelected( false );
|
|
// 2002/12/27, deselected item is not repainted, so force it
|
|
item->repaint();
|
|
}
|
|
}
|
|
|
|
void KDirSelectDialog::slotContextMenu( TDEListView *, TQListViewItem *, const TQPoint& pos )
|
|
{
|
|
m_contextMenu->popup( pos );
|
|
}
|
|
|
|
void KDirSelectDialog::slotMkdir()
|
|
{
|
|
bool ok;
|
|
TQString where = url().pathOrURL();
|
|
TQString name = i18n( "New Folder" );
|
|
if ( url().isLocalFile() && TQFileInfo( url().path(+1) + name ).exists() )
|
|
name = TDEIO::RenameDlg::suggestName( url(), name );
|
|
|
|
TQString directory = TDEIO::encodeFileName( KInputDialog::getText( i18n( "New Folder" ),
|
|
i18n( "Create new folder in:\n%1" ).arg( where ),
|
|
name, &ok, this));
|
|
if (!ok)
|
|
return;
|
|
|
|
bool selectDirectory = true;
|
|
bool writeOk = false;
|
|
bool exists = false;
|
|
KURL folderurl( url() );
|
|
|
|
TQStringList dirs = TQStringList::split( TQDir::separator(), directory );
|
|
TQStringList::ConstIterator it = dirs.begin();
|
|
|
|
for ( ; it != dirs.end(); ++it )
|
|
{
|
|
folderurl.addPath( *it );
|
|
exists = TDEIO::NetAccess::exists( folderurl, false, 0 );
|
|
writeOk = !exists && TDEIO::NetAccess::mkdir( folderurl, topLevelWidget() );
|
|
}
|
|
|
|
if ( exists ) // url was already existant
|
|
{
|
|
TQString which = folderurl.isLocalFile() ? folderurl.path() : folderurl.prettyURL();
|
|
KMessageBox::sorry(this, i18n("A file or folder named %1 already exists.").arg(which));
|
|
selectDirectory = false;
|
|
}
|
|
else if ( !writeOk ) {
|
|
KMessageBox::sorry(this, i18n("You do not have permission to create that folder." ));
|
|
}
|
|
else if ( selectDirectory ) {
|
|
setCurrentURL( folderurl );
|
|
}
|
|
}
|
|
|
|
void KDirSelectDialog::slotShowHiddenFoldersToggled()
|
|
{
|
|
KURL currentURL = url();
|
|
|
|
d->comboLocked = true;
|
|
view()->removeBranch( d->branch );
|
|
d->comboLocked = false;
|
|
|
|
KURL root = rootUrl(d->startURL);
|
|
d->branch = createBranch( root );
|
|
|
|
setCurrentURL( currentURL );
|
|
}
|
|
|
|
// static
|
|
KURL KDirSelectDialog::selectDirectory( const TQString& startDir,
|
|
bool localOnly,
|
|
TQWidget *parent,
|
|
const TQString& caption)
|
|
{
|
|
KDirSelectDialog myDialog( startDir, localOnly, parent,
|
|
"kdirselect dialog", true );
|
|
|
|
if ( !caption.isNull() )
|
|
myDialog.setCaption( caption );
|
|
|
|
if ( myDialog.exec() == TQDialog::Accepted )
|
|
return TDEIO::NetAccess::mostLocalURL(myDialog.url(),parent);
|
|
else
|
|
return KURL();
|
|
}
|
|
|
|
void KDirSelectDialog::virtual_hook( int id, void* data )
|
|
{ KDialogBase::virtual_hook( id, data ); }
|
|
|
|
#include "kdirselectdialog.moc"
|