blob: d09d97932df8d6eb85ab61505bde10d4285a32ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
/***************************************************************************
* Copyright (C) 2002 by Bernd Gehrmann *
* bernd@tdevelop.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 <tqcheckbox.h>
#include <tqlineedit.h>
#include "domutil.h"
PerlConfigWidget::PerlConfigWidget(TQDomDocument &projectDom,
TQWidget *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"
|
