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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
/* Copyright (C) 2003 Oliver Kellogg
* okellogg@users.sourceforge.net
*
* 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 <tqlayout.h>
#include <tqlabel.h>
#include <tqlineedit.h>
#include <tqcombobox.h>
#include <kurlrequester.h>
#include <kdebug.h>
#include <tdeconfig.h>
#include "kdevcompileroptions.h"
#include "service.h"
#include "adaproject_part.h"
#include "adaglobaloptionsdlg.h"
AdaGlobalOptionsDlg::AdaGlobalOptionsDlg(AdaProjectPart *part, TQWidget* parent, const char* name, WFlags fl)
:AdaProjectOptionsDlgBase(parent,name,fl), m_part(part)
{
delete config_label;
delete config_combo;
delete addconfig_button;
delete removeconfig_button;
delete compiler_label;
delete configuration_layout;
delete configuration_line;
delete exec_label;
delete exec_edit;
delete mainSourceLabel;
delete mainSourceUrl;
delete defaultopts_button;
offers = KTrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'Ada'");
ServiceComboBox::insertStringList(compiler_box, offers, &service_names, &service_execs);
if (offers.isEmpty())
options_button->setEnabled(false);
currentCompiler = TQString();
/*kdDebug() << ServiceComboBox::defaultCompiler() << endl;
kdDebug() << ServiceComboBox::itemForText(ServiceComboBox::defaultCompiler(), service_names) << endl;
kdDebug() << compiler_box->text(ServiceComboBox::itemForText(ServiceComboBox::defaultCompiler(), service_names)) << endl;
*/
ServiceComboBox::setCurrentText(compiler_box, ServiceComboBox::defaultCompiler(), service_names);
compiler_box_activated(compiler_box->currentText());
}
AdaGlobalOptionsDlg::~AdaGlobalOptionsDlg()
{
}
void AdaGlobalOptionsDlg::optionsButtonClicked()
{
TQString name = ServiceComboBox::currentText(compiler_box, service_names);
KDevCompilerOptions *plugin = m_part->createCompilerOptions(name);
if (plugin) {
TQString flags = plugin->exec(this, options_edit->text());
options_edit->setText(flags);
delete plugin;
}
}
void AdaGlobalOptionsDlg::compiler_box_activated(const TQString& text)
{
kdDebug() << "text changed from " << currentCompiler << " to " << text << endl;
if (currentCompiler == text)
return;
if (!currentCompiler.isEmpty())
saveCompilerOpts(currentCompiler);
currentCompiler = text;
readCompilerOpts(currentCompiler);
}
void AdaGlobalOptionsDlg::accept()
{
saveCompilerOpts(currentCompiler);
saveConfigCache();
}
void AdaGlobalOptionsDlg::saveCompilerOpts( TQString compiler )
{
configCache[compiler] = options_edit->text();
}
void AdaGlobalOptionsDlg::readCompilerOpts( TQString compiler )
{
TQString settings = configCache[compiler];
if (settings.isEmpty())
{
TDEConfig *config = TDEGlobal::config();
config->setGroup("Ada Compiler");
settings = config->readPathEntry(compiler);
}
options_edit->setText(settings);
}
void AdaGlobalOptionsDlg::readConfigCache( )
{
/* TDEConfig *config = TDEGlobal::config();
config->setGroup("Ada Compiler");
TQMap<TQString, TQString> settings = config->entryMap("Ada Compiler");
*/
}
void AdaGlobalOptionsDlg::saveConfigCache( )
{
TDEConfig *config = TDEGlobal::config();
config->setGroup("Ada Compiler");
for (TQMap<TQString, TQString>::iterator it = configCache.begin(); it != configCache.end(); ++it)
{
config->writeEntry(it.key(), it.data());
}
}
#include "adaglobaloptionsdlg.moc"
|
