TQt4 convert kdesdk

This enables compilation under both Qt3 and Qt4


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdesdk@1236185 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 7 insertions, 7 deletions

diff --git a/umbrello/umbrello/codegenerators/pascalwriter.cpp b/umbrello/umbrello/codegenerators/pascalwriter.cpp
index 766ea6df..2a42bef7 100644
--- a/umbrello/umbrello/codegenerators/pascalwriter.cpp
+++ b/umbrello/umbrello/codegenerators/pascalwriter.cpp
@@ -129,7 +129,7 @@ void PascalWriter::writeClass(UMLClassifier *c) {
     const bool isClass = !c->isInterface();
     TQString classname = cleanName(c->getName());
     TQString fileName = qualifiedName(c).lower();
-    fileName.replace('.', '-');
+    fileName.tqreplace('.', '-');
 
     //find an appropriate name for our file
     fileName = overwritableName(c, fileName, ".pas");
@@ -151,8 +151,8 @@ void PascalWriter::writeClass(UMLClassifier *c) {
     TQString str;
     str = getHeadingFile(".pas");
     if (!str.isEmpty()) {
-        str.replace(TQRegExp("%filename%"), fileName);
-        str.replace(TQRegExp("%filepath%"), file.name());
+        str.tqreplace(TQRegExp("%filename%"), fileName);
+        str.tqreplace(TQRegExp("%filepath%"), file.name());
         pas << str << endl;
     }
 
@@ -244,8 +244,8 @@ void PascalWriter::writeClass(UMLClassifier *c) {
     pas << getIndent() << classname << " = object";
     if (!superclasses.isEmpty()) {
         // FIXME: Multiple inheritance is not yet supported
-        UMLClassifier* parent = superclasses.first();
-        pas << "(" << qualifiedName(parent) << ")";
+        UMLClassifier* tqparent = superclasses.first();
+        pas << "(" << qualifiedName(tqparent) << ")";
     }
     pas << m_endl;
 
@@ -382,7 +382,7 @@ TQStringList PascalWriter::defaultDatatypes() {
     l.append("Longint");
     l.append("LongBool");
     l.append("Longword");
-    l.append("QWord");
+    l.append("TQWord");
     l.append("Real");
     l.append("Shortint");
     l.append("ShortString");
@@ -434,7 +434,7 @@ const TQStringList PascalWriter::reservedKeywords() const {
         keywords.append( "class" );
         keywords.append( "const" );
         keywords.append( "constructor" );
-        keywords.append( "contains" );
+        keywords.append( "tqcontains" );
         keywords.append( "default" );
         keywords.append( "deprecated" );
         keywords.append( "destructor" );