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.
123 lines
3.5 KiB
123 lines
3.5 KiB
/* This file is part of the KDE project
|
|
Copyright (C) 2003 Alexander Dymo <cloudtemple@mksat.net>
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
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 <tqlistbox.h>
|
|
#include <kurlrequester.h>
|
|
|
|
#include "subclassesdlg.h"
|
|
#include "subclassesdlg.moc"
|
|
SubclassesDlg::SubclassesDlg(TQString form, DomUtil::PairList &config, TQString projectDir, TQWidget* tqparent, const char* name, bool modal, WFlags fl)
|
|
: SubclassesDlgBase(tqparent,name, modal,fl), m_form(form), m_config(config), m_projectDir(projectDir)
|
|
{
|
|
subclass_url->setEnabled(false);
|
|
|
|
DomUtil::PairList::iterator it;
|
|
for ( it = config.begin(); it != config.end(); ++it )
|
|
{
|
|
if ((*it).second == form)
|
|
subclasses_box->insertItem(projectDir + (*it).first);
|
|
}
|
|
}
|
|
|
|
SubclassesDlg::~SubclassesDlg()
|
|
{
|
|
}
|
|
|
|
/*$SPECIALIZATION$*/
|
|
void SubclassesDlg::accept()
|
|
{
|
|
TQPtrList<DomUtil::Pair> pairsToRemove;
|
|
|
|
DomUtil::PairList::iterator it;
|
|
for ( it = m_config.begin(); it != m_config.end(); ++it )
|
|
{
|
|
if ((*it).second == m_form)
|
|
{
|
|
pairsToRemove.append(&(*it));
|
|
}
|
|
}
|
|
|
|
DomUtil::Pair *pair;
|
|
for ( pair = pairsToRemove.first(); pair; pair = pairsToRemove.next() )
|
|
{
|
|
m_config.remove(*pair);
|
|
}
|
|
|
|
for (int i = 0; i < (int)subclasses_box->count(); ++i)
|
|
{
|
|
m_config << DomUtil::Pair(subclasses_box->text(i).remove(0,m_projectDir.length()), m_form);
|
|
}
|
|
|
|
SubclassesDlgBase::accept();
|
|
}
|
|
|
|
|
|
void SubclassesDlg::newRelation()
|
|
{
|
|
subclasses_box->setFocus();
|
|
subclasses_box->insertItem("");
|
|
subclasses_box->setCurrentItem(subclasses_box->count()-1);
|
|
subclass_url->setEnabled(true);
|
|
subclass_url->setURL("");
|
|
subclass_url->setFocus();
|
|
}
|
|
|
|
void SubclassesDlg::removeRelation()
|
|
{
|
|
if (subclasses_box->currentItem() > -1)
|
|
{
|
|
TQListBoxItem *item = subclasses_box->item(subclasses_box->currentItem());
|
|
int itemIdx = subclasses_box->currentItem();
|
|
|
|
if (item->prev())
|
|
{
|
|
subclasses_box->setCurrentItem(item->prev());
|
|
subclass_url->setURL(item->prev()->text());
|
|
}
|
|
else if (item->next())
|
|
{
|
|
subclasses_box->setCurrentItem(item->next());
|
|
subclass_url->setURL(item->next()->text());
|
|
}
|
|
else
|
|
{
|
|
subclass_url->setEnabled(false);
|
|
subclass_url->setURL("");
|
|
}
|
|
subclasses_box->removeItem(itemIdx);
|
|
}
|
|
}
|
|
|
|
void SubclassesDlg::changeCurrentURL(const TQString &str)
|
|
{
|
|
if ( subclasses_box->currentItem() > -1 )
|
|
{
|
|
subclasses_box->changeItem(str, subclasses_box->currentItem());
|
|
}
|
|
}
|
|
|
|
void SubclassesDlg::currentRelationChanged( TQListBoxItem * item )
|
|
{
|
|
if (item)
|
|
{
|
|
subclass_url->setEnabled(true);
|
|
subclass_url->setURL(item->text());
|
|
}
|
|
}
|
|
|