From fcc7bc4f4443754f23123cca34c664070ecda00f Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Sat, 19 Dec 2009 00:06:22 +0000 Subject: [PATCH] * [ Regenerated Sources ] --- harbour/contrib/hbqt/qtcore/TQLine.prg | 9 ++++++++- harbour/contrib/hbqt/qtcore/TQPoint.prg | 9 ++++++++- harbour/contrib/hbqt/qtcore/TQPointF.prg | 9 ++++++++- harbour/contrib/hbqt/qtcore/TQRect.prg | 9 ++++++++- harbour/contrib/hbqt/qtcore/TQRectF.prg | 9 ++++++++- harbour/contrib/hbqt/qtcore/TQSize.prg | 9 ++++++++- harbour/contrib/hbqt/qtcore/TQSizeF.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQBitmap.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQBrush.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQColor.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQCursor.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQFont.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQFontMetrics.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQFontMetricsF.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQIcon.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQImage.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQLinearGradient.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQPalette.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQPen.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQPicture.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQPixmap.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQRadialGradient.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQRegion.prg | 9 ++++++++- harbour/contrib/hbqt/qtgui/TQTextCursor.prg | 9 ++++++++- 24 files changed, 192 insertions(+), 24 deletions(-) diff --git a/harbour/contrib/hbqt/qtcore/TQLine.prg b/harbour/contrib/hbqt/qtcore/TQLine.prg index 54dcad65fa..252f1ba4ef 100644 --- a/harbour/contrib/hbqt/qtcore/TQLine.prg +++ b/harbour/contrib/hbqt/qtcore/TQLine.prg @@ -93,8 +93,15 @@ CREATE CLASS QLine /*----------------------------------------------------------------------*/ METHOD QLine:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QLine( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QLine(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtcore/TQPoint.prg b/harbour/contrib/hbqt/qtcore/TQPoint.prg index 993b0a9148..95820a674e 100644 --- a/harbour/contrib/hbqt/qtcore/TQPoint.prg +++ b/harbour/contrib/hbqt/qtcore/TQPoint.prg @@ -84,8 +84,15 @@ CREATE CLASS QPoint /*----------------------------------------------------------------------*/ METHOD QPoint:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QPoint( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QPoint(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtcore/TQPointF.prg b/harbour/contrib/hbqt/qtcore/TQPointF.prg index 7530a1edb9..6c0686703a 100644 --- a/harbour/contrib/hbqt/qtcore/TQPointF.prg +++ b/harbour/contrib/hbqt/qtcore/TQPointF.prg @@ -84,8 +84,15 @@ CREATE CLASS QPointF /*----------------------------------------------------------------------*/ METHOD QPointF:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QPointF( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QPointF(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtcore/TQRect.prg b/harbour/contrib/hbqt/qtcore/TQRect.prg index cbba6d934d..00d8ee8eda 100644 --- a/harbour/contrib/hbqt/qtcore/TQRect.prg +++ b/harbour/contrib/hbqt/qtcore/TQRect.prg @@ -135,8 +135,15 @@ CREATE CLASS QRect /*----------------------------------------------------------------------*/ METHOD QRect:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QRect( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QRect(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtcore/TQRectF.prg b/harbour/contrib/hbqt/qtcore/TQRectF.prg index ea750f9263..88a8d1b35b 100644 --- a/harbour/contrib/hbqt/qtcore/TQRectF.prg +++ b/harbour/contrib/hbqt/qtcore/TQRectF.prg @@ -136,8 +136,15 @@ CREATE CLASS QRectF /*----------------------------------------------------------------------*/ METHOD QRectF:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QRectF( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QRectF(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtcore/TQSize.prg b/harbour/contrib/hbqt/qtcore/TQSize.prg index 9ca384376a..497b441991 100644 --- a/harbour/contrib/hbqt/qtcore/TQSize.prg +++ b/harbour/contrib/hbqt/qtcore/TQSize.prg @@ -90,8 +90,15 @@ CREATE CLASS QSize /*----------------------------------------------------------------------*/ METHOD QSize:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QSize( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QSize(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtcore/TQSizeF.prg b/harbour/contrib/hbqt/qtcore/TQSizeF.prg index 04011996b4..dca6579a6e 100644 --- a/harbour/contrib/hbqt/qtcore/TQSizeF.prg +++ b/harbour/contrib/hbqt/qtcore/TQSizeF.prg @@ -91,8 +91,15 @@ CREATE CLASS QSizeF /*----------------------------------------------------------------------*/ METHOD QSizeF:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QSizeF( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QSizeF(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQBitmap.prg b/harbour/contrib/hbqt/qtgui/TQBitmap.prg index 898d3cbeb6..a626795bf4 100644 --- a/harbour/contrib/hbqt/qtgui/TQBitmap.prg +++ b/harbour/contrib/hbqt/qtgui/TQBitmap.prg @@ -80,8 +80,15 @@ CREATE CLASS QBitmap INHERIT QPixmap /*----------------------------------------------------------------------*/ METHOD QBitmap:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QBitmap( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QBitmap(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQBrush.prg b/harbour/contrib/hbqt/qtgui/TQBrush.prg index 84e24c0e70..ae1a871304 100644 --- a/harbour/contrib/hbqt/qtgui/TQBrush.prg +++ b/harbour/contrib/hbqt/qtgui/TQBrush.prg @@ -90,8 +90,15 @@ CREATE CLASS QBrush /*----------------------------------------------------------------------*/ METHOD QBrush:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QBrush( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QBrush(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQColor.prg b/harbour/contrib/hbqt/qtgui/TQColor.prg index 8d10a54cd3..b25fb5a42e 100644 --- a/harbour/contrib/hbqt/qtgui/TQColor.prg +++ b/harbour/contrib/hbqt/qtgui/TQColor.prg @@ -141,8 +141,15 @@ CREATE CLASS QColor /*----------------------------------------------------------------------*/ METHOD QColor:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QColor( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QColor(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQCursor.prg b/harbour/contrib/hbqt/qtgui/TQCursor.prg index 86960144a2..14de884db4 100644 --- a/harbour/contrib/hbqt/qtgui/TQCursor.prg +++ b/harbour/contrib/hbqt/qtgui/TQCursor.prg @@ -85,8 +85,15 @@ CREATE CLASS QCursor /*----------------------------------------------------------------------*/ METHOD QCursor:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QCursor( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QCursor(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQFont.prg b/harbour/contrib/hbqt/qtgui/TQFont.prg index 9c03c5b25f..28876bc2f3 100644 --- a/harbour/contrib/hbqt/qtgui/TQFont.prg +++ b/harbour/contrib/hbqt/qtgui/TQFont.prg @@ -134,8 +134,15 @@ CREATE CLASS QFont /*----------------------------------------------------------------------*/ METHOD QFont:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QFont( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QFont(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQFontMetrics.prg b/harbour/contrib/hbqt/qtgui/TQFontMetrics.prg index c84b90990f..2647296473 100644 --- a/harbour/contrib/hbqt/qtgui/TQFontMetrics.prg +++ b/harbour/contrib/hbqt/qtgui/TQFontMetrics.prg @@ -102,8 +102,15 @@ CREATE CLASS QFontMetrics /*----------------------------------------------------------------------*/ METHOD QFontMetrics:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QFontMetrics( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QFontMetrics(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQFontMetricsF.prg b/harbour/contrib/hbqt/qtgui/TQFontMetricsF.prg index 5deffe3396..1f1a46c087 100644 --- a/harbour/contrib/hbqt/qtgui/TQFontMetricsF.prg +++ b/harbour/contrib/hbqt/qtgui/TQFontMetricsF.prg @@ -101,8 +101,15 @@ CREATE CLASS QFontMetricsF /*----------------------------------------------------------------------*/ METHOD QFontMetricsF:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QFontMetricsF( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QFontMetricsF(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQIcon.prg b/harbour/contrib/hbqt/qtgui/TQIcon.prg index 0ab4ed0fbd..b41004815b 100644 --- a/harbour/contrib/hbqt/qtgui/TQIcon.prg +++ b/harbour/contrib/hbqt/qtgui/TQIcon.prg @@ -86,8 +86,15 @@ CREATE CLASS QIcon /*----------------------------------------------------------------------*/ METHOD QIcon:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QIcon( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QIcon(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQImage.prg b/harbour/contrib/hbqt/qtgui/TQImage.prg index cc27a9b94b..d9217c27ae 100644 --- a/harbour/contrib/hbqt/qtgui/TQImage.prg +++ b/harbour/contrib/hbqt/qtgui/TQImage.prg @@ -136,8 +136,15 @@ CREATE CLASS QImage /*----------------------------------------------------------------------*/ METHOD QImage:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QImage( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QImage(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQLinearGradient.prg b/harbour/contrib/hbqt/qtgui/TQLinearGradient.prg index b224e0e96d..2fde75583a 100644 --- a/harbour/contrib/hbqt/qtgui/TQLinearGradient.prg +++ b/harbour/contrib/hbqt/qtgui/TQLinearGradient.prg @@ -82,8 +82,15 @@ CREATE CLASS QLinearGradient INHERIT QGradient /*----------------------------------------------------------------------*/ METHOD QLinearGradient:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QLinearGradient( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QLinearGradient(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQPalette.prg b/harbour/contrib/hbqt/qtgui/TQPalette.prg index ae0c4d2af8..d0930fbc40 100644 --- a/harbour/contrib/hbqt/qtgui/TQPalette.prg +++ b/harbour/contrib/hbqt/qtgui/TQPalette.prg @@ -111,8 +111,15 @@ CREATE CLASS QPalette /*----------------------------------------------------------------------*/ METHOD QPalette:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QPalette( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QPalette(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQPen.prg b/harbour/contrib/hbqt/qtgui/TQPen.prg index 58970c4485..f98cb9b549 100644 --- a/harbour/contrib/hbqt/qtgui/TQPen.prg +++ b/harbour/contrib/hbqt/qtgui/TQPen.prg @@ -97,8 +97,15 @@ CREATE CLASS QPen /*----------------------------------------------------------------------*/ METHOD QPen:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QPen( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QPen(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQPicture.prg b/harbour/contrib/hbqt/qtgui/TQPicture.prg index fe8f2f1c8d..d3e43d4b76 100644 --- a/harbour/contrib/hbqt/qtgui/TQPicture.prg +++ b/harbour/contrib/hbqt/qtgui/TQPicture.prg @@ -87,8 +87,15 @@ CREATE CLASS QPicture INHERIT QPaintDevice /*----------------------------------------------------------------------*/ METHOD QPicture:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QPicture( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QPicture(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQPixmap.prg b/harbour/contrib/hbqt/qtgui/TQPixmap.prg index bc8e601cc0..20ef8676c8 100644 --- a/harbour/contrib/hbqt/qtgui/TQPixmap.prg +++ b/harbour/contrib/hbqt/qtgui/TQPixmap.prg @@ -116,8 +116,15 @@ CREATE CLASS QPixmap INHERIT QPaintDevice /*----------------------------------------------------------------------*/ METHOD QPixmap:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QPixmap( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QPixmap(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQRadialGradient.prg b/harbour/contrib/hbqt/qtgui/TQRadialGradient.prg index 05667c7063..d0801e94e1 100644 --- a/harbour/contrib/hbqt/qtgui/TQRadialGradient.prg +++ b/harbour/contrib/hbqt/qtgui/TQRadialGradient.prg @@ -84,8 +84,15 @@ CREATE CLASS QRadialGradient INHERIT QGradient /*----------------------------------------------------------------------*/ METHOD QRadialGradient:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QRadialGradient( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QRadialGradient(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQRegion.prg b/harbour/contrib/hbqt/qtgui/TQRegion.prg index dc662d3e53..7c1c514bfe 100644 --- a/harbour/contrib/hbqt/qtgui/TQRegion.prg +++ b/harbour/contrib/hbqt/qtgui/TQRegion.prg @@ -94,8 +94,15 @@ CREATE CLASS QRegion /*----------------------------------------------------------------------*/ METHOD QRegion:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QRegion( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QRegion(), aP ) RETURN Self diff --git a/harbour/contrib/hbqt/qtgui/TQTextCursor.prg b/harbour/contrib/hbqt/qtgui/TQTextCursor.prg index 12c1438c55..14bb5022d2 100644 --- a/harbour/contrib/hbqt/qtgui/TQTextCursor.prg +++ b/harbour/contrib/hbqt/qtgui/TQTextCursor.prg @@ -136,8 +136,15 @@ CREATE CLASS QTextCursor /*----------------------------------------------------------------------*/ METHOD QTextCursor:new( ... ) + LOCAL p, aP := hb_aParams() - ::pPtr := Qt_QTextCursor( ... ) + IF len( aP ) > 0 + FOR EACH p IN aP + p := hbqt_ptr( p ) + NEXT + ENDIF + + ::pPtr := hb_ExecFromArray( @Qt_QTextCursor(), aP ) RETURN Self