← Back to branch summary

~ubuntu-branches/debian/sid/kdevelop/sid

« back to all changes in this revision

Viewing changes to languages/perl/perlconfigwidget.cpp

  • Committer: Bazaar Package Importer
  • Author(s): Jeremy Lainé
  • Date: 2010-05-05 07:21:55 UTC
  • mfrom: (1.2.3 upstream) (5.1.2 squeeze)
  • Revision ID: james.westby@ubuntu.com-20100505072155-h78lx19pu04sbhtn
Tags: 4:4.0.0-2
http://bugs.debian.org/579947
http://bugs.debian.org/481832
http://bugs.debian.org/562410
http://bugs.debian.org/546961
* Upload to unstable (Closes: #579947, #481832).
* Acknowledge obsolete NMU fixes (Closes: #562410, #546961).

Show diffs side-by-side

added added

removed removed

Lines of Context:
languages/perl/perlconfigwidget.cpp
1
 
/***************************************************************************
2
 
 *   Copyright (C) 2002 by Bernd Gehrmann                                  *
3
 
 *   bernd@kdevelop.org                                                    *
4
 
 *                                                                         *
5
 
 *   This program is free software; you can redistribute it and/or modify  *
6
 
 *   it under the terms of the GNU General Public License as published by  *
7
 
 *   the Free Software Foundation; either version 2 of the License, or     *
8
 
 *   (at your option) any later version.                                   *
9
 
 *                                                                         *
10
 
 ***************************************************************************/
11
 
 
12
 
#include "perlconfigwidget.h"
13
 
 
14
 
#include <qcheckbox.h>
15
 
#include <qlineedit.h>
16
 
#include "domutil.h"
17
 
 
18
 
 
19
 
PerlConfigWidget::PerlConfigWidget(QDomDocument &projectDom,
20
 
                                       QWidget *parent, const char *name)
21
 
    : PerlConfigWidgetBase(parent, name), dom(projectDom)
22
 
{
23
 
    interpreter_edit->setText(DomUtil::readEntry(dom, "/kdevperlsupport/run/interpreter"));
24
 
    terminal_box->setChecked(DomUtil::readBoolEntry(dom, "/kdevperlsupport/run/terminal"));
25
 
}
26
 
 
27
 
 
28
 
PerlConfigWidget::~PerlConfigWidget()
29
 
{}
30
 
 
31
 
 
32
 
void PerlConfigWidget::accept()
33
 
{
34
 
    DomUtil::writeEntry(dom, "/kdevperlsupport/run/interpreter", interpreter_edit->text());
35
 
    DomUtil::writeBoolEntry(dom, "/kdevperlsupport/run/terminal", terminal_box->isChecked());
36
 
}
37
 
 
38
 
#include "perlconfigwidget.moc"