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.
70 lines
2.4 KiB
70 lines
2.4 KiB
/***************************************************************************
|
|
* Copyright (C) 2002 by Bernd Gehrmann *
|
|
* bernd@kdevelop.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 "scriptoptionswidget.h"
|
|
|
|
#include <tqcheckbox.h>
|
|
#include <klineedit.h>
|
|
#include <tqradiobutton.h>
|
|
#include <tqtabwidget.h>
|
|
#include "domutil.h"
|
|
#include "tdevlanguagesupport.h"
|
|
|
|
|
|
ScriptOptionsWidget::ScriptOptionsWidget(TDevPlugin *part,
|
|
TQWidget *parent, const char *name)
|
|
: ScriptOptionsWidgetBase(parent, name)
|
|
{
|
|
m_part = part;
|
|
|
|
TQDomDocument &dom = *m_part->projectDom();
|
|
|
|
TQString includepatterns
|
|
= DomUtil::readEntry(dom, "/kdevscriptproject/general/includepatterns");
|
|
|
|
if (includepatterns.isNull() && part->languageSupport()){
|
|
TQStringList includepatternList;
|
|
KMimeType::List list = part->languageSupport()->mimeTypes();
|
|
KMimeType::List::Iterator it = list.begin();
|
|
while( it != list.end() ){
|
|
includepatternList += (*it)->patterns();
|
|
++it;
|
|
}
|
|
includepatterns = includepatternList.join( "," );
|
|
}
|
|
|
|
TQString excludepatterns
|
|
= DomUtil::readEntry(dom, "/kdevscriptproject/general/excludepatterns");
|
|
if (excludepatterns.isNull())
|
|
excludepatterns = "*~";
|
|
|
|
includepatterns_edit->setText(includepatterns);
|
|
excludepatterns_edit->setText(excludepatterns);
|
|
}
|
|
|
|
|
|
ScriptOptionsWidget::~ScriptOptionsWidget()
|
|
{}
|
|
|
|
|
|
void ScriptOptionsWidget::accept()
|
|
{
|
|
TQDomDocument &dom = *m_part->projectDom();
|
|
|
|
TQString includepatterns = includepatterns_edit->text();
|
|
TQString excludepatterns = excludepatterns_edit->text();
|
|
|
|
DomUtil::writeEntry(dom, "/kdevscriptproject/general/includepatterns", includepatterns);
|
|
DomUtil::writeEntry(dom, "/kdevscriptproject/general/excludepatterns", excludepatterns);
|
|
}
|
|
|
|
#include "scriptoptionswidget.moc"
|