From 998ebd2e683e45140493910f76e692e96887b5d2 Mon Sep 17 00:00:00 2001
From: Darrell Anderson <humanreadable@yahoo.com>
Date: Wed, 4 Jul 2012 16:46:19 -0500
Subject: Fix help files, kdevelop->tdevelop branding, fix startup.

---
 buildtools/pascal/pascalglobaloptionsdlg.cpp  | 2 +-
 buildtools/pascal/pascalproject_part.cpp      | 6 +++---
 buildtools/pascal/pascalprojectoptionsdlg.cpp | 6 +++---
 buildtools/pascal/service.cpp                 | 4 ++--
 4 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'buildtools/pascal')

diff --git a/buildtools/pascal/pascalglobaloptionsdlg.cpp b/buildtools/pascal/pascalglobaloptionsdlg.cpp
index a88e901c..79fe9167 100644
--- a/buildtools/pascal/pascalglobaloptionsdlg.cpp
+++ b/buildtools/pascal/pascalglobaloptionsdlg.cpp
@@ -40,7 +40,7 @@ PascalGlobalOptionsDlg::PascalGlobalOptionsDlg(PascalProjectPart *part, TQWidget
     delete defaultopts_button;
 
 
-    offers = KTrader::self()->query("KDevelop/CompilerOptions", "[X-KDevelop-Language] == 'Pascal'");
+    offers = KTrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'Pascal'");
 
     ServiceComboBox::insertStringList(compiler_box, offers, &service_names, &service_execs);
 
diff --git a/buildtools/pascal/pascalproject_part.cpp b/buildtools/pascal/pascalproject_part.cpp
index 6ab3bd27..c0d53c89 100644
--- a/buildtools/pascal/pascalproject_part.cpp
+++ b/buildtools/pascal/pascalproject_part.cpp
@@ -417,10 +417,10 @@ void PascalProjectPart::loadProjectConfig( )
 
     if (m_compilerExec.isEmpty())
     {
-        KTrader::OfferList offers = KTrader::self()->query("KDevelop/CompilerOptions", "[X-KDevelop-Language] == 'Pascal'");
+        KTrader::OfferList offers = KTrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'Pascal'");
         TQValueList<KService::Ptr>::ConstIterator it;
         for (it = offers.begin(); it != offers.end(); ++it) {
-            if ((*it)->property("X-KDevelop-Default").toBool()) {
+            if ((*it)->property("X-TDevelop-Default").toBool()) {
                 m_compilerExec = (*it)->exec();
                 break;
             }
@@ -453,7 +453,7 @@ KDevCompilerOptions *PascalProjectPart::createCompilerOptions(const TQString &na
     }
 
     TQStringList args;
-    TQVariant prop = service->property("X-KDevelop-Args");
+    TQVariant prop = service->property("X-TDevelop-Args");
     if (prop.isValid())
         args = TQStringList::split(" ", prop.toString());
 
diff --git a/buildtools/pascal/pascalprojectoptionsdlg.cpp b/buildtools/pascal/pascalprojectoptionsdlg.cpp
index 2b882466..33e3f88c 100644
--- a/buildtools/pascal/pascalprojectoptionsdlg.cpp
+++ b/buildtools/pascal/pascalprojectoptionsdlg.cpp
@@ -31,7 +31,7 @@ PascalProjectOptionsDlg::PascalProjectOptionsDlg(PascalProjectPart *part, TQWidg
 {
     config_combo->setValidator(new TQRegExpValidator(TQRegExp("^\\D.*"), TQT_TQOBJECT(this)));
 
-    offers = KTrader::self()->query("KDevelop/CompilerOptions", "[X-KDevelop-Language] == 'Pascal'");
+    offers = KTrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'Pascal'");
 
     ServiceComboBox::insertStringList(compiler_box, offers, &service_names, &service_execs);
 
@@ -108,10 +108,10 @@ void PascalProjectOptionsDlg::readConfig( TQString config )
 
     if (compiler.isEmpty())
     {
-        offers = KTrader::self()->query("KDevelop/CompilerOptions", "[X-KDevelop-Language] == 'Pascal'");
+        offers = KTrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'Pascal'");
         TQValueList<KService::Ptr>::ConstIterator it;
         for (it = offers.begin(); it != offers.end(); ++it) {
-            if ((*it)->property("X-KDevelop-Default").toBool()) {
+            if ((*it)->property("X-TDevelop-Default").toBool()) {
                 compiler = (*it)->name();
                 kdDebug() << "compiler is " << compiler << endl;
                 break;
diff --git a/buildtools/pascal/service.cpp b/buildtools/pascal/service.cpp
index 0179fac8..15b607ff 100644
--- a/buildtools/pascal/service.cpp
+++ b/buildtools/pascal/service.cpp
@@ -66,10 +66,10 @@ int ServiceComboBox::itemForText(const TQString &str, const TQStringList &names)
 
 TQString ServiceComboBox::defaultCompiler()
 {
-    KTrader::OfferList offers = KTrader::self()->query("KDevelop/CompilerOptions", "[X-KDevelop-Language] == 'Pascal'");
+    KTrader::OfferList offers = KTrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'Pascal'");
     TQValueList<KService::Ptr>::ConstIterator it;
     for (it = offers.begin(); it != offers.end(); ++it) {
-        if ((*it)->property("X-KDevelop-Default").toBool()) {
+        if ((*it)->property("X-TDevelop-Default").toBool()) {
             return (*it)->name();;
         }
     }
-- 
cgit v1.2.1