2010-01-05 18:48 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

* utils/hbmk2/hbmk2.pt_BR.po * utils/hbmk2/hbmk2.hu_HU.po * utils/hbmk2/hbmk2.prg + Added support for C++ input files. Now C++ files will be compiled in a separate pass where native C++ compiler is used, which means that C++ compilation mode is now enforced by using .cpp extension. This also means that it's now possible to build mixed mode projects with both C and C++ input files. Enable with option: -hbcppmm (cmdline) or hbcppmm=yes (in .hbc files) NOTE: Suggestions for better names are welcome. In general, this feature makes -cpp option unnecessary, its only purpose now is to override default mode. ; Please test. * utils/hbmk2/hbmk2.prg - Deleted support for link-related macros in C compilation phase, these weren't used anymore inside current hbmk2, so it seems safe, but it's possible nevertheless that it will cause regressions in some exotic use cases. * utils/hbmk2/hbmk2.prg ! Fixed parsing -warn option on the commandline and .hbm/.hbp files. [TOMERGE 2.0] * contrib/hbqt/generator/hbmk.hbm ! Deleted xhb lib. It's not required and was probably added for "outdebug" stuff. * contrib/hbqt/hbqt.hbc * contrib/hbqt/hbqts.hbc * contrib/gtqtc/gtqtcs.hbc * contrib/gtqtc/gtqtc.hbc + Added hbcppmm=yes option. This will force C++ memory allocation functions to be overridden by Harbour mm functions. * src/vm/fm.c - Deleted C++ memory allocation functions. This feature now lives inside hbmk2, and it now doesn't require whole Harbour to be built in C++ mode. * contrib/hbqt/* * Regenerated.
2010-01-05 18:04:12 +00:00
parent 2ab6d95353
commit 1cf66dcc83
270 changed files with 759 additions and 822 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,50 @@
   past entries belonging to author(s): Viktor Szakats.
 */

+2010-01-05 18:48 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * utils/hbmk2/hbmk2.pt_BR.po
+  * utils/hbmk2/hbmk2.hu_HU.po
+  * utils/hbmk2/hbmk2.prg
+    + Added support for C++ input files. Now C++ files will be compiled
+      in a separate pass where native C++ compiler is used, which
+      means that C++ compilation mode is now enforced by using .cpp
+      extension. This also means that it's now possible to build
+      mixed mode projects with both C and C++ input files.
+      Enable with option: -hbcppmm (cmdline) or hbcppmm=yes (in .hbc files)
+         NOTE: Suggestions for better names are welcome.
+      In general, this feature makes -cpp option unnecessary, its
+      only purpose now is to override default mode.
+    ; Please test.
+
+  * utils/hbmk2/hbmk2.prg
+    - Deleted support for link-related macros in C compilation phase,
+      these weren't used anymore inside current hbmk2, so it seems safe,
+      but it's possible nevertheless that it will cause regressions in
+      some exotic use cases.
+
+  * utils/hbmk2/hbmk2.prg
+    ! Fixed parsing -warn option on the commandline and .hbm/.hbp files.
+      [TOMERGE 2.0]
+
+  * contrib/hbqt/generator/hbmk.hbm
+    ! Deleted xhb lib. It's not required and was probably added for
+      "outdebug" stuff.
+
+  * contrib/hbqt/hbqt.hbc
+  * contrib/hbqt/hbqts.hbc
+  * contrib/gtqtc/gtqtcs.hbc
+  * contrib/gtqtc/gtqtc.hbc
+    + Added hbcppmm=yes option. This will force C++ memory allocation
+      functions to be overridden by Harbour mm functions.
+
+  * src/vm/fm.c
+    - Deleted C++ memory allocation functions. This feature now
+      lives inside hbmk2, and it now doesn't require whole Harbour
+      to be built in C++ mode.
+
+  * contrib/hbqt/*
+    * Regenerated.
+
 2010-01-05 14:54 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
  * contrib/hbct/dummy.c
    + Added dummy stubs for all CT functions which are not yet
--- a/harbour/contrib/gtqtc/gtqtc.hbc
+++ b/harbour/contrib/gtqtc/gtqtc.hbc
@@ -11,5 +11,8 @@ libs=QtCore4 QtGui4 QtNetwork4 QtWebKit4
 {darwin}libs=/Library/Frameworks/QtNetwork.framework/QtNetwork
 {darwin}libs=/Library/Frameworks/QtWebKit.framework/QtWebKit
 {allgcc}libs=supc++
+
+hbcppmm=yes
+
 gui=yes
 gt=gtqtc
--- a/harbour/contrib/gtqtc/gtqtcs.hbc
+++ b/harbour/contrib/gtqtc/gtqtcs.hbc
@@ -6,5 +6,8 @@

 libs=QtCore QtGui QtNetwork QtWebKit
 {allgcc}libs=supc++
+
+hbcppmm=yes
+
 gui=yes
 gt=gtqtcs
--- a/harbour/contrib/hbqt/generator/hbmk.hbm
+++ b/harbour/contrib/hbqt/generator/hbmk.hbm
@@ -2,4 +2,4 @@
 # $Id$
 #

-w3 -es2 -lxhb
+-w3 -es2
--- a/harbour/contrib/hbqt/hbqt.hbc
+++ b/harbour/contrib/hbqt/hbqt.hbc
@@ -19,5 +19,7 @@ libs=hbqtcore hbqtgui hbqtnetwork
 {darwin}libs=QtUiTools
 {allgcc}libs=supc++

+hbcppmm=yes
+
 gui=yes
 gt=gtnul
--- a/harbour/contrib/hbqt/hbqts.hbc
+++ b/harbour/contrib/hbqt/hbqts.hbc
@@ -14,5 +14,7 @@ libs=hbqtcores hbqtguis hbqtnetworks hbqtwebkits
 {allwin}libs=psapi
 {allgcc}libs=supc++

+hbcppmm=yes
+
 gui=yes
 gt=gtnul
--- a/harbour/contrib/hbqt/qtcore/TQAbstractItemModel.prg
+++ b/harbour/contrib/hbqt/qtcore/TQAbstractItemModel.prg
@@ -106,8 +106,7 @@ CREATE CLASS QAbstractItemModel INHERIT HbQtObjectHandler, QObject
 METHOD QAbstractItemModel:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractItemModel( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQAbstractListModel.prg
+++ b/harbour/contrib/hbqt/qtcore/TQAbstractListModel.prg
@@ -75,8 +75,7 @@ CREATE CLASS QAbstractListModel INHERIT HbQtObjectHandler, QAbstractItemModel
 METHOD QAbstractListModel:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractListModel( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQAbstractTableModel.prg
+++ b/harbour/contrib/hbqt/qtcore/TQAbstractTableModel.prg
@@ -75,8 +75,7 @@ CREATE CLASS QAbstractTableModel INHERIT HbQtObjectHandler, QAbstractItemModel
 METHOD QAbstractTableModel:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractTableModel( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQBitArray.prg
+++ b/harbour/contrib/hbqt/qtcore/TQBitArray.prg
@@ -90,8 +90,7 @@ CREATE CLASS QBitArray INHERIT HbQtObjectHandler
 METHOD QBitArray:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QBitArray( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQByteArray.prg
+++ b/harbour/contrib/hbqt/qtcore/TQByteArray.prg
@@ -171,8 +171,7 @@ CREATE CLASS QByteArray INHERIT HbQtObjectHandler
 METHOD QByteArray:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QByteArray( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQCoreApplication.prg
+++ b/harbour/contrib/hbqt/qtcore/TQCoreApplication.prg
@@ -114,8 +114,7 @@ CREATE CLASS QCoreApplication INHERIT HbQtObjectHandler, QObject
 METHOD QCoreApplication:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QCoreApplication( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQDataStream.prg
+++ b/harbour/contrib/hbqt/qtcore/TQDataStream.prg
@@ -87,8 +87,7 @@ CREATE CLASS QDataStream INHERIT HbQtObjectHandler
 METHOD QDataStream:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDataStream( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQDate.prg
+++ b/harbour/contrib/hbqt/qtcore/TQDate.prg
@@ -93,8 +93,7 @@ CREATE CLASS QDate INHERIT HbQtObjectHandler
 METHOD QDate:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDate( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQDateTime.prg
+++ b/harbour/contrib/hbqt/qtcore/TQDateTime.prg
@@ -100,8 +100,7 @@ CREATE CLASS QDateTime INHERIT HbQtObjectHandler
 METHOD QDateTime:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDateTime( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQDir.prg
+++ b/harbour/contrib/hbqt/qtcore/TQDir.prg
@@ -126,8 +126,7 @@ CREATE CLASS QDir INHERIT HbQtObjectHandler
 METHOD QDir:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDir( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQEvent.prg
+++ b/harbour/contrib/hbqt/qtcore/TQEvent.prg
@@ -81,8 +81,7 @@ CREATE CLASS QEvent INHERIT HbQtObjectHandler
 METHOD QEvent:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QEvent( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQEventLoop.prg
+++ b/harbour/contrib/hbqt/qtcore/TQEventLoop.prg
@@ -80,8 +80,7 @@ CREATE CLASS QEventLoop INHERIT HbQtObjectHandler, QObject
 METHOD QEventLoop:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QEventLoop( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQFile.prg
+++ b/harbour/contrib/hbqt/qtcore/TQFile.prg
@@ -108,8 +108,7 @@ CREATE CLASS QFile INHERIT HbQtObjectHandler, QIODevice
 METHOD QFile:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QFile( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQFileInfo.prg
+++ b/harbour/contrib/hbqt/qtcore/TQFileInfo.prg
@@ -118,8 +118,7 @@ CREATE CLASS QFileInfo INHERIT HbQtObjectHandler
 METHOD QFileInfo:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QFileInfo( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQIODevice.prg
+++ b/harbour/contrib/hbqt/qtcore/TQIODevice.prg
@@ -107,8 +107,7 @@ CREATE CLASS QIODevice INHERIT HbQtObjectHandler, QObject
 METHOD QIODevice:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QIODevice( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQLatin1Char.prg
+++ b/harbour/contrib/hbqt/qtcore/TQLatin1Char.prg
@@ -76,8 +76,7 @@ CREATE CLASS QLatin1Char INHERIT HbQtObjectHandler
 METHOD QLatin1Char:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QLatin1Char( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQLatin1String.prg
+++ b/harbour/contrib/hbqt/qtcore/TQLatin1String.prg
@@ -75,8 +75,7 @@ CREATE CLASS QLatin1String INHERIT HbQtObjectHandler
 METHOD QLatin1String:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QLatin1String( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQLine.prg
+++ b/harbour/contrib/hbqt/qtcore/TQLine.prg
@@ -91,8 +91,7 @@ CREATE CLASS QLine INHERIT HbQtObjectHandler
 METHOD QLine:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QLine( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQLineF.prg
+++ b/harbour/contrib/hbqt/qtcore/TQLineF.prg
@@ -101,8 +101,7 @@ CREATE CLASS QLineF INHERIT HbQtObjectHandler
 METHOD QLineF:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QLineF( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQList.prg
+++ b/harbour/contrib/hbqt/qtcore/TQList.prg
@@ -114,8 +114,7 @@ CREATE CLASS QList INHERIT HbQtObjectHandler
 METHOD QList:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QList( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQLocale.prg
+++ b/harbour/contrib/hbqt/qtcore/TQLocale.prg
@@ -122,8 +122,7 @@ CREATE CLASS QLocale INHERIT HbQtObjectHandler
 METHOD QLocale:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QLocale( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQMimeData.prg
+++ b/harbour/contrib/hbqt/qtcore/TQMimeData.prg
@@ -93,8 +93,7 @@ CREATE CLASS QMimeData INHERIT HbQtObjectHandler, QObject
 METHOD QMimeData:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QMimeData( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQModelIndex.prg
+++ b/harbour/contrib/hbqt/qtcore/TQModelIndex.prg
@@ -85,8 +85,7 @@ CREATE CLASS QModelIndex INHERIT HbQtObjectHandler
 METHOD QModelIndex:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QModelIndex( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQObject.prg
+++ b/harbour/contrib/hbqt/qtcore/TQObject.prg
@@ -103,8 +103,7 @@ CREATE CLASS QObject INHERIT HbQtObjectHandler
 METHOD QObject:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QObject( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQPoint.prg
+++ b/harbour/contrib/hbqt/qtcore/TQPoint.prg
@@ -82,8 +82,7 @@ CREATE CLASS QPoint INHERIT HbQtObjectHandler
 METHOD QPoint:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QPoint( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQPointF.prg
+++ b/harbour/contrib/hbqt/qtcore/TQPointF.prg
@@ -82,8 +82,7 @@ CREATE CLASS QPointF INHERIT HbQtObjectHandler
 METHOD QPointF:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QPointF( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQProcess.prg
+++ b/harbour/contrib/hbqt/qtcore/TQProcess.prg
@@ -107,8 +107,7 @@ CREATE CLASS QProcess INHERIT HbQtObjectHandler, QIODevice
 METHOD QProcess:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QProcess( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQRect.prg
+++ b/harbour/contrib/hbqt/qtcore/TQRect.prg
@@ -133,8 +133,7 @@ CREATE CLASS QRect INHERIT HbQtObjectHandler
 METHOD QRect:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QRect( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQRectF.prg
+++ b/harbour/contrib/hbqt/qtcore/TQRectF.prg
@@ -134,8 +134,7 @@ CREATE CLASS QRectF INHERIT HbQtObjectHandler
 METHOD QRectF:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QRectF( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQRegExp.prg
+++ b/harbour/contrib/hbqt/qtcore/TQRegExp.prg
@@ -93,8 +93,7 @@ CREATE CLASS QRegExp INHERIT HbQtObjectHandler
 METHOD QRegExp:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QRegExp( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQResource.prg
+++ b/harbour/contrib/hbqt/qtcore/TQResource.prg
@@ -86,8 +86,7 @@ CREATE CLASS QResource INHERIT HbQtObjectHandler
 METHOD QResource:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QResource( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQSettings.prg
+++ b/harbour/contrib/hbqt/qtcore/TQSettings.prg
@@ -102,8 +102,7 @@ CREATE CLASS QSettings INHERIT HbQtObjectHandler, QObject
 METHOD QSettings:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QSettings( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQSignalMapper.prg
+++ b/harbour/contrib/hbqt/qtcore/TQSignalMapper.prg
@@ -85,8 +85,7 @@ CREATE CLASS QSignalMapper INHERIT HbQtObjectHandler, QObject
 METHOD QSignalMapper:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QSignalMapper( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQSize.prg
+++ b/harbour/contrib/hbqt/qtcore/TQSize.prg
@@ -88,8 +88,7 @@ CREATE CLASS QSize INHERIT HbQtObjectHandler
 METHOD QSize:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QSize( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQSizeF.prg
+++ b/harbour/contrib/hbqt/qtcore/TQSizeF.prg
@@ -89,8 +89,7 @@ CREATE CLASS QSizeF INHERIT HbQtObjectHandler
 METHOD QSizeF:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QSizeF( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQStringList.prg
+++ b/harbour/contrib/hbqt/qtcore/TQStringList.prg
@@ -109,8 +109,7 @@ CREATE CLASS QStringList INHERIT HbQtObjectHandler, QList
 METHOD QStringList:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QStringList( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQTextBoundaryFinder.prg
+++ b/harbour/contrib/hbqt/qtcore/TQTextBoundaryFinder.prg
@@ -85,8 +85,7 @@ CREATE CLASS QTextBoundaryFinder INHERIT HbQtObjectHandler
 METHOD QTextBoundaryFinder:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QTextBoundaryFinder( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQTextCodec.prg
+++ b/harbour/contrib/hbqt/qtcore/TQTextCodec.prg
@@ -94,8 +94,7 @@ CREATE CLASS QTextCodec INHERIT HbQtObjectHandler
 METHOD QTextCodec:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QTextCodec( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQTextDecoder.prg
+++ b/harbour/contrib/hbqt/qtcore/TQTextDecoder.prg
@@ -75,8 +75,7 @@ CREATE CLASS QTextDecoder INHERIT HbQtObjectHandler
 METHOD QTextDecoder:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QTextDecoder( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQTextEncoder.prg
+++ b/harbour/contrib/hbqt/qtcore/TQTextEncoder.prg
@@ -75,8 +75,7 @@ CREATE CLASS QTextEncoder INHERIT HbQtObjectHandler
 METHOD QTextEncoder:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QTextEncoder( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQTextStream.prg
+++ b/harbour/contrib/hbqt/qtcore/TQTextStream.prg
@@ -110,8 +110,7 @@ CREATE CLASS QTextStream INHERIT HbQtObjectHandler
 METHOD QTextStream:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QTextStream( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQThread.prg
+++ b/harbour/contrib/hbqt/qtcore/TQThread.prg
@@ -88,8 +88,7 @@ CREATE CLASS QThread INHERIT HbQtObjectHandler, QObject
 METHOD QThread:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QThread( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQTime.prg
+++ b/harbour/contrib/hbqt/qtcore/TQTime.prg
@@ -94,8 +94,7 @@ CREATE CLASS QTime INHERIT HbQtObjectHandler
 METHOD QTime:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QTime( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQTimer.prg
+++ b/harbour/contrib/hbqt/qtcore/TQTimer.prg
@@ -84,8 +84,7 @@ CREATE CLASS QTimer INHERIT HbQtObjectHandler, QObject
 METHOD QTimer:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QTimer( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQTranslator.prg
+++ b/harbour/contrib/hbqt/qtcore/TQTranslator.prg
@@ -78,8 +78,7 @@ CREATE CLASS QTranslator INHERIT HbQtObjectHandler, QObject
 METHOD QTranslator:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QTranslator( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQUiLoader.prg
+++ b/harbour/contrib/hbqt/qtcore/TQUiLoader.prg
@@ -88,8 +88,7 @@ CREATE CLASS QUiLoader INHERIT HbQtObjectHandler, QObject
 METHOD QUiLoader:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QUiLoader( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQUrl.prg
+++ b/harbour/contrib/hbqt/qtcore/TQUrl.prg
@@ -143,8 +143,7 @@ CREATE CLASS QUrl INHERIT HbQtObjectHandler, QWidget
 METHOD QUrl:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QUrl( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtcore/TQVariant.prg
+++ b/harbour/contrib/hbqt/qtcore/TQVariant.prg
@@ -110,8 +110,7 @@ CREATE CLASS QVariant INHERIT HbQtObjectHandler
 METHOD QVariant:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QVariant( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAbstractButton.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAbstractButton.prg
@@ -100,8 +100,7 @@ CREATE CLASS QAbstractButton INHERIT HbQtObjectHandler, QWidget
 METHOD QAbstractButton:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractButton( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAbstractItemDelegate.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAbstractItemDelegate.prg
@@ -81,8 +81,7 @@ CREATE CLASS QAbstractItemDelegate INHERIT HbQtObjectHandler, QObject
 METHOD QAbstractItemDelegate:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractItemDelegate( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAbstractItemView.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAbstractItemView.prg
@@ -137,8 +137,7 @@ CREATE CLASS QAbstractItemView INHERIT HbQtObjectHandler, QAbstractScrollArea
 METHOD QAbstractItemView:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractItemView( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAbstractPrintDialog.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAbstractPrintDialog.prg
@@ -84,8 +84,7 @@ CREATE CLASS QAbstractPrintDialog INHERIT HbQtObjectHandler, QDialog
 METHOD QAbstractPrintDialog:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractPrintDialog( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAbstractProxyModel.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAbstractProxyModel.prg
@@ -80,8 +80,7 @@ CREATE CLASS QAbstractProxyModel INHERIT HbQtObjectHandler, QAbstractItemModel
 METHOD QAbstractProxyModel:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractProxyModel( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAbstractScrollArea.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAbstractScrollArea.prg
@@ -88,8 +88,7 @@ CREATE CLASS QAbstractScrollArea INHERIT HbQtObjectHandler, QFrame
 METHOD QAbstractScrollArea:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractScrollArea( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAbstractSlider.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAbstractSlider.prg
@@ -98,8 +98,7 @@ CREATE CLASS QAbstractSlider INHERIT HbQtObjectHandler, QWidget
 METHOD QAbstractSlider:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractSlider( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAbstractSpinBox.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAbstractSpinBox.prg
@@ -100,8 +100,7 @@ CREATE CLASS QAbstractSpinBox INHERIT HbQtObjectHandler, QWidget
 METHOD QAbstractSpinBox:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractSpinBox( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAbstractTextDocumentLayout.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAbstractTextDocumentLayout.prg
@@ -85,8 +85,7 @@ CREATE CLASS QAbstractTextDocumentLayout INHERIT HbQtObjectHandler, QObject
 METHOD QAbstractTextDocumentLayout:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAbstractTextDocumentLayout( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQAction.prg
+++ b/harbour/contrib/hbqt/qtgui/TQAction.prg
@@ -122,8 +122,7 @@ CREATE CLASS QAction INHERIT HbQtObjectHandler, QObject
 METHOD QAction:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QAction( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQActionGroup.prg
+++ b/harbour/contrib/hbqt/qtgui/TQActionGroup.prg
@@ -86,8 +86,7 @@ CREATE CLASS QActionGroup INHERIT HbQtObjectHandler, QObject
 METHOD QActionGroup:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QActionGroup( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQApplication.prg
+++ b/harbour/contrib/hbqt/qtgui/TQApplication.prg
@@ -150,8 +150,7 @@ CREATE CLASS QApplication INHERIT HbQtObjectHandler, QCoreApplication
 METHOD QApplication:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QApplication( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQBitmap.prg
+++ b/harbour/contrib/hbqt/qtgui/TQBitmap.prg
@@ -78,8 +78,7 @@ CREATE CLASS QBitmap INHERIT HbQtObjectHandler, QPixmap
 METHOD QBitmap:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QBitmap( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQBoxLayout.prg
+++ b/harbour/contrib/hbqt/qtgui/TQBoxLayout.prg
@@ -94,8 +94,7 @@ CREATE CLASS QBoxLayout INHERIT HbQtObjectHandler, QLayout
 METHOD QBoxLayout:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QBoxLayout( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQBrush.prg
+++ b/harbour/contrib/hbqt/qtgui/TQBrush.prg
@@ -88,8 +88,7 @@ CREATE CLASS QBrush INHERIT HbQtObjectHandler
 METHOD QBrush:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QBrush( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQButtonGroup.prg
+++ b/harbour/contrib/hbqt/qtgui/TQButtonGroup.prg
@@ -84,8 +84,7 @@ CREATE CLASS QButtonGroup INHERIT HbQtObjectHandler, QObject
 METHOD QButtonGroup:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QButtonGroup( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQCalendarWidget.prg
+++ b/harbour/contrib/hbqt/qtgui/TQCalendarWidget.prg
@@ -112,8 +112,7 @@ CREATE CLASS QCalendarWidget INHERIT HbQtObjectHandler, QWidget
 METHOD QCalendarWidget:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QCalendarWidget( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQCheckBox.prg
+++ b/harbour/contrib/hbqt/qtgui/TQCheckBox.prg
@@ -78,8 +78,7 @@ CREATE CLASS QCheckBox INHERIT HbQtObjectHandler, QAbstractButton
 METHOD QCheckBox:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QCheckBox( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQClipboard.prg
+++ b/harbour/contrib/hbqt/qtgui/TQClipboard.prg
@@ -88,8 +88,7 @@ CREATE CLASS QClipboard INHERIT HbQtObjectHandler, QObject
 METHOD QClipboard:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QClipboard( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQColor.prg
+++ b/harbour/contrib/hbqt/qtgui/TQColor.prg
@@ -139,8 +139,7 @@ CREATE CLASS QColor INHERIT HbQtObjectHandler
 METHOD QColor:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QColor( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQColorDialog.prg
+++ b/harbour/contrib/hbqt/qtgui/TQColorDialog.prg
@@ -89,8 +89,7 @@ CREATE CLASS QColorDialog INHERIT HbQtObjectHandler, QDialog
 METHOD QColorDialog:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QColorDialog( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQComboBox.prg
+++ b/harbour/contrib/hbqt/qtgui/TQComboBox.prg
@@ -133,8 +133,7 @@ CREATE CLASS QComboBox INHERIT HbQtObjectHandler, QWidget
 METHOD QComboBox:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QComboBox( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQCommandLinkButton.prg
+++ b/harbour/contrib/hbqt/qtgui/TQCommandLinkButton.prg
@@ -76,8 +76,7 @@ CREATE CLASS QCommandLinkButton INHERIT HbQtObjectHandler, QPushButton
 METHOD QCommandLinkButton:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QCommandLinkButton( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQCommonStyle.prg
+++ b/harbour/contrib/hbqt/qtgui/TQCommonStyle.prg
@@ -74,8 +74,7 @@ CREATE CLASS QCommonStyle INHERIT HbQtObjectHandler, QStyle
 METHOD QCommonStyle:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QCommonStyle( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQCompleter.prg
+++ b/harbour/contrib/hbqt/qtgui/TQCompleter.prg
@@ -103,8 +103,7 @@ CREATE CLASS QCompleter INHERIT HbQtObjectHandler, QObject
 METHOD QCompleter:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QCompleter( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQConicalGradient.prg
+++ b/harbour/contrib/hbqt/qtgui/TQConicalGradient.prg
@@ -79,8 +79,7 @@ CREATE CLASS QConicalGradient INHERIT HbQtObjectHandler, QGradient
 METHOD QConicalGradient:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QConicalGradient( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQContextMenuEvent.prg
+++ b/harbour/contrib/hbqt/qtgui/TQContextMenuEvent.prg
@@ -81,8 +81,7 @@ CREATE CLASS QContextMenuEvent INHERIT HbQtObjectHandler, QInputEvent
 METHOD QContextMenuEvent:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QContextMenuEvent( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQCursor.prg
+++ b/harbour/contrib/hbqt/qtgui/TQCursor.prg
@@ -83,8 +83,7 @@ CREATE CLASS QCursor INHERIT HbQtObjectHandler
 METHOD QCursor:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QCursor( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDateEdit.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDateEdit.prg
@@ -74,8 +74,7 @@ CREATE CLASS QDateEdit INHERIT HbQtObjectHandler, QDateTimeEdit
 METHOD QDateEdit:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDateEdit( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDateTimeEdit.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDateTimeEdit.prg
@@ -118,8 +118,7 @@ CREATE CLASS QDateTimeEdit INHERIT HbQtObjectHandler, QAbstractSpinBox
 METHOD QDateTimeEdit:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDateTimeEdit( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDesktopWidget.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDesktopWidget.prg
@@ -86,8 +86,7 @@ CREATE CLASS QDesktopWidget INHERIT HbQtObjectHandler, QWidget
 METHOD QDesktopWidget:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDesktopWidget( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDial.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDial.prg
@@ -81,8 +81,7 @@ CREATE CLASS QDial INHERIT HbQtObjectHandler, QAbstractSlider
 METHOD QDial:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDial( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDialog.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDialog.prg
@@ -84,8 +84,7 @@ CREATE CLASS QDialog INHERIT HbQtObjectHandler, QWidget
 METHOD QDialog:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDialog( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDirModel.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDirModel.prg
@@ -111,8 +111,7 @@ CREATE CLASS QDirModel INHERIT HbQtObjectHandler, QAbstractItemModel
 METHOD QDirModel:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDirModel( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDockWidget.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDockWidget.prg
@@ -86,8 +86,7 @@ CREATE CLASS QDockWidget INHERIT HbQtObjectHandler, QWidget
 METHOD QDockWidget:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDockWidget( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDoubleSpinBox.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDoubleSpinBox.prg
@@ -92,8 +92,7 @@ CREATE CLASS QDoubleSpinBox INHERIT HbQtObjectHandler, QAbstractSpinBox
 METHOD QDoubleSpinBox:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDoubleSpinBox( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDragEnterEvent.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDragEnterEvent.prg
@@ -74,8 +74,7 @@ CREATE CLASS QDragEnterEvent INHERIT HbQtObjectHandler, QDragMoveEvent
 METHOD QDragEnterEvent:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDragEnterEvent( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDragLeaveEvent.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDragLeaveEvent.prg
@@ -74,8 +74,7 @@ CREATE CLASS QDragLeaveEvent INHERIT HbQtObjectHandler, QEvent
 METHOD QDragLeaveEvent:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDragLeaveEvent( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDragMoveEvent.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDragMoveEvent.prg
@@ -79,8 +79,7 @@ CREATE CLASS QDragMoveEvent INHERIT HbQtObjectHandler, QDropEvent
 METHOD QDragMoveEvent:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDragMoveEvent( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQDropEvent.prg
+++ b/harbour/contrib/hbqt/qtgui/TQDropEvent.prg
@@ -84,8 +84,7 @@ CREATE CLASS QDropEvent INHERIT HbQtObjectHandler, QEvent
 METHOD QDropEvent:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QDropEvent( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQErrorMessage.prg
+++ b/harbour/contrib/hbqt/qtgui/TQErrorMessage.prg
@@ -76,8 +76,7 @@ CREATE CLASS QErrorMessage INHERIT HbQtObjectHandler, QDialog
 METHOD QErrorMessage:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QErrorMessage( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQFileDialog.prg
+++ b/harbour/contrib/hbqt/qtgui/TQFileDialog.prg
@@ -119,8 +119,7 @@ CREATE CLASS QFileDialog INHERIT HbQtObjectHandler, QDialog
 METHOD QFileDialog:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QFileDialog( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQFileIconProvider.prg
+++ b/harbour/contrib/hbqt/qtgui/TQFileIconProvider.prg
@@ -77,8 +77,7 @@ CREATE CLASS QFileIconProvider INHERIT HbQtObjectHandler
 METHOD QFileIconProvider:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QFileIconProvider( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQFileSystemModel.prg
+++ b/harbour/contrib/hbqt/qtgui/TQFileSystemModel.prg
@@ -103,8 +103,7 @@ CREATE CLASS QFileSystemModel INHERIT HbQtObjectHandler, QAbstractItemModel
 METHOD QFileSystemModel:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QFileSystemModel( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQFocusEvent.prg
+++ b/harbour/contrib/hbqt/qtgui/TQFocusEvent.prg
@@ -77,8 +77,7 @@ CREATE CLASS QFocusEvent INHERIT HbQtObjectHandler, QEvent
 METHOD QFocusEvent:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QFocusEvent( ... )
   RETURN Self
--- a/harbour/contrib/hbqt/qtgui/TQFocusFrame.prg
+++ b/harbour/contrib/hbqt/qtgui/TQFocusFrame.prg
@@ -76,8 +76,7 @@ CREATE CLASS QFocusFrame INHERIT HbQtObjectHandler, QWidget
 METHOD QFocusFrame:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
-      p := hbqt_ptr( p )
-      hb_pvalue( p:__enumIndex(), p )
+      hb_pvalue( p:__enumIndex(), hbqt_ptr( p ) )
   NEXT
   ::pPtr := Qt_QFocusFrame( ... )
   RETURN Self
--- a/Show More
+++ b/Show More