diff options
Diffstat (limited to 'languages/perl/perlconfigwidget.cpp')
| -rw-r--r-- | languages/perl/perlconfigwidget.cpp | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/languages/perl/perlconfigwidget.cpp b/languages/perl/perlconfigwidget.cpp new file mode 100644 index 00000000..475ed8af --- /dev/null +++ b/languages/perl/perlconfigwidget.cpp @@ -0,0 +1,38 @@ +/*************************************************************************** + * 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 "perlconfigwidget.h" + +#include <qcheckbox.h> +#include <qlineedit.h> +#include "domutil.h" + + +PerlConfigWidget::PerlConfigWidget(QDomDocument &projectDom, + QWidget *parent, const char *name) + : PerlConfigWidgetBase(parent, name), dom(projectDom) +{ + interpreter_edit->setText(DomUtil::readEntry(dom, "/kdevperlsupport/run/interpreter")); + terminal_box->setChecked(DomUtil::readBoolEntry(dom, "/kdevperlsupport/run/terminal")); +} + + +PerlConfigWidget::~PerlConfigWidget() +{} + + +void PerlConfigWidget::accept() +{ + DomUtil::writeEntry(dom, "/kdevperlsupport/run/interpreter", interpreter_edit->text()); + DomUtil::writeBoolEntry(dom, "/kdevperlsupport/run/terminal", terminal_box->isChecked()); +} + +#include "perlconfigwidget.moc" |