From f52b723f7ad038d53ed4505f9dddc574c9815ac3 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 10 Mar 2011 09:01:54 +0000 Subject: [PATCH] 2011-03-10 09:59 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbqt/hbmk2_qt.hbs ! Fix to prev. ; QUESTION: What is the reason that the constructor code is manually written for each class, instead of being automatically generated? Can it be also autogenerated? --- harbour/ChangeLog | 8 ++++++++ harbour/contrib/hbqt/hbmk2_qt.hbs | 4 +++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a668f2877a..518f64ce0b 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,14 @@ The license applies to all entries newer than 2009-04-28. */ +2011-03-10 09:59 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * contrib/hbqt/hbmk2_qt.hbs + ! Fix to prev. + ; QUESTION: What is the reason that the constructor code + is manually written for each class, instead of + being automatically generated? + Can it be also autogenerated? + 2011-03-10 07:53 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbgs/hbgs.hbp + Added autodetection path [Tamas Tevesz] diff --git a/harbour/contrib/hbqt/hbmk2_qt.hbs b/harbour/contrib/hbqt/hbmk2_qt.hbs index dfcc614d52..18faf7942d 100644 --- a/harbour/contrib/hbqt/hbmk2_qt.hbs +++ b/harbour/contrib/hbqt/hbmk2_qt.hbs @@ -1644,7 +1644,9 @@ METHOD HbQtSource:getConstructor( nClsType ) IF "__HB_RETPTRGC__(" $ ::new_[ i ] s := ::new_[ i ] s := RTrim( strtran( s, "__HB_RETPTRGC__(", "pObj =" ) ) - s := RTrim( strtran( s, ");" ) ) + ";" + IF ");" $ s + s := RTrim( strtran( s, ");" ) ) + ";" + ENDIF s := strtran( s, "( " + ::cQtObject + "* )" ) aadd( aLine, s ) ELSE