From c954c7fa613fb992caccf7020089a24e40d7f3a8 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Tue, 7 Jul 2009 14:49:51 +0000 Subject: [PATCH] 2009-07-07 07:46 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/contrib/hbqt/generator/hbqtgen.prg ! METHOD New( ... ) ::pPtr := Qt_Q*( ... ) RETURN Self * harbour/contrib/hbqt/TQBrush.prg * harbour/contrib/hbqt/TQColor.prg * harbour/contrib/hbqt/TQCursor.prg * harbour/contrib/hbqt/TQFont.prg * harbour/contrib/hbqt/TQIcon.prg * harbour/contrib/hbqt/TQPalette.prg * harbour/contrib/hbqt/TQPen.prg * harbour/contrib/hbqt/TQSize.prg ! Result of above change. --- harbour/ChangeLog | 16 +++++++ harbour/contrib/hbqt/TQBrush.prg | 40 +---------------- harbour/contrib/hbqt/TQColor.prg | 40 +---------------- harbour/contrib/hbqt/TQCursor.prg | 40 +---------------- harbour/contrib/hbqt/TQFont.prg | 40 +---------------- harbour/contrib/hbqt/TQIcon.prg | 40 +---------------- harbour/contrib/hbqt/TQPalette.prg | 40 +---------------- harbour/contrib/hbqt/TQPen.prg | 40 +---------------- harbour/contrib/hbqt/TQSize.prg | 40 +---------------- harbour/contrib/hbqt/generator/hbqtgen.prg | 52 +++------------------- 10 files changed, 30 insertions(+), 358 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index af28354cd7..a78fd9f2ba 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,22 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-07-07 07:46 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * harbour/contrib/hbqt/generator/hbqtgen.prg + ! METHOD New( ... ) + ::pPtr := Qt_Q*( ... ) + RETURN Self + + * harbour/contrib/hbqt/TQBrush.prg + * harbour/contrib/hbqt/TQColor.prg + * harbour/contrib/hbqt/TQCursor.prg + * harbour/contrib/hbqt/TQFont.prg + * harbour/contrib/hbqt/TQIcon.prg + * harbour/contrib/hbqt/TQPalette.prg + * harbour/contrib/hbqt/TQPen.prg + * harbour/contrib/hbqt/TQSize.prg + ! Result of above change. + 2009-07-07 15:15 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/rtl/diskspac.c * added iTODO warning in OW Linux builds diff --git a/harbour/contrib/hbqt/TQBrush.prg b/harbour/contrib/hbqt/TQBrush.prg index ec6ba9aafe..5131f5cab7 100644 --- a/harbour/contrib/hbqt/TQBrush.prg +++ b/harbour/contrib/hbqt/TQBrush.prg @@ -83,46 +83,8 @@ CREATE CLASS QBrush /*----------------------------------------------------------------------*/ METHOD New( ... ) CLASS QBrush - LOCAL aP, nParams - aP := hb_aParams() - nParams := len( aP ) - - DO CASE - CASE nParams == 0 - ::pPtr := Qt_QBrush() - - CASE nParams == 1 - ::pPtr := Qt_QBrush( aP[ 1 ] ) - - CASE nParams == 2 - ::pPtr := Qt_QBrush( aP[ 1 ], aP[ 2 ] ) - - CASE nParams == 3 - ::pPtr := Qt_QBrush( aP[ 1 ], aP[ 2 ], aP[ 3 ] ) - - CASE nParams == 4 - ::pPtr := Qt_QBrush( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ] ) - - CASE nParams == 5 - ::pPtr := Qt_QBrush( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ] ) - - CASE nParams == 6 - ::pPtr := Qt_QBrush( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ] ) - - CASE nParams == 7 - ::pPtr := Qt_QBrush( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ] ) - - CASE nParams == 8 - ::pPtr := Qt_QBrush( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ] ) - - CASE nParams == 9 - ::pPtr := Qt_QBrush( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ] ) - - CASE nParams ==10 - ::pPtr := Qt_QBrush( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ], aP[10 ] ) - - ENDCASE + ::pPtr := Qt_QBrush( ... ) RETURN Self diff --git a/harbour/contrib/hbqt/TQColor.prg b/harbour/contrib/hbqt/TQColor.prg index 78d912f253..9f7248a5a1 100644 --- a/harbour/contrib/hbqt/TQColor.prg +++ b/harbour/contrib/hbqt/TQColor.prg @@ -134,46 +134,8 @@ CREATE CLASS QColor /*----------------------------------------------------------------------*/ METHOD New( ... ) CLASS QColor - LOCAL aP, nParams - aP := hb_aParams() - nParams := len( aP ) - - DO CASE - CASE nParams == 0 - ::pPtr := Qt_QColor() - - CASE nParams == 1 - ::pPtr := Qt_QColor( aP[ 1 ] ) - - CASE nParams == 2 - ::pPtr := Qt_QColor( aP[ 1 ], aP[ 2 ] ) - - CASE nParams == 3 - ::pPtr := Qt_QColor( aP[ 1 ], aP[ 2 ], aP[ 3 ] ) - - CASE nParams == 4 - ::pPtr := Qt_QColor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ] ) - - CASE nParams == 5 - ::pPtr := Qt_QColor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ] ) - - CASE nParams == 6 - ::pPtr := Qt_QColor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ] ) - - CASE nParams == 7 - ::pPtr := Qt_QColor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ] ) - - CASE nParams == 8 - ::pPtr := Qt_QColor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ] ) - - CASE nParams == 9 - ::pPtr := Qt_QColor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ] ) - - CASE nParams ==10 - ::pPtr := Qt_QColor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ], aP[10 ] ) - - ENDCASE + ::pPtr := Qt_QColor( ... ) RETURN Self diff --git a/harbour/contrib/hbqt/TQCursor.prg b/harbour/contrib/hbqt/TQCursor.prg index 0bdeb2fcb4..cda4dcb721 100644 --- a/harbour/contrib/hbqt/TQCursor.prg +++ b/harbour/contrib/hbqt/TQCursor.prg @@ -78,46 +78,8 @@ CREATE CLASS QCursor /*----------------------------------------------------------------------*/ METHOD New( ... ) CLASS QCursor - LOCAL aP, nParams - aP := hb_aParams() - nParams := len( aP ) - - DO CASE - CASE nParams == 0 - ::pPtr := Qt_QCursor() - - CASE nParams == 1 - ::pPtr := Qt_QCursor( aP[ 1 ] ) - - CASE nParams == 2 - ::pPtr := Qt_QCursor( aP[ 1 ], aP[ 2 ] ) - - CASE nParams == 3 - ::pPtr := Qt_QCursor( aP[ 1 ], aP[ 2 ], aP[ 3 ] ) - - CASE nParams == 4 - ::pPtr := Qt_QCursor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ] ) - - CASE nParams == 5 - ::pPtr := Qt_QCursor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ] ) - - CASE nParams == 6 - ::pPtr := Qt_QCursor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ] ) - - CASE nParams == 7 - ::pPtr := Qt_QCursor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ] ) - - CASE nParams == 8 - ::pPtr := Qt_QCursor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ] ) - - CASE nParams == 9 - ::pPtr := Qt_QCursor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ] ) - - CASE nParams ==10 - ::pPtr := Qt_QCursor( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ], aP[10 ] ) - - ENDCASE + ::pPtr := Qt_QCursor( ... ) RETURN Self diff --git a/harbour/contrib/hbqt/TQFont.prg b/harbour/contrib/hbqt/TQFont.prg index 6361ccd416..b6387142b9 100644 --- a/harbour/contrib/hbqt/TQFont.prg +++ b/harbour/contrib/hbqt/TQFont.prg @@ -127,46 +127,8 @@ CREATE CLASS QFont /*----------------------------------------------------------------------*/ METHOD New( ... ) CLASS QFont - LOCAL aP, nParams - aP := hb_aParams() - nParams := len( aP ) - - DO CASE - CASE nParams == 0 - ::pPtr := Qt_QFont() - - CASE nParams == 1 - ::pPtr := Qt_QFont( aP[ 1 ] ) - - CASE nParams == 2 - ::pPtr := Qt_QFont( aP[ 1 ], aP[ 2 ] ) - - CASE nParams == 3 - ::pPtr := Qt_QFont( aP[ 1 ], aP[ 2 ], aP[ 3 ] ) - - CASE nParams == 4 - ::pPtr := Qt_QFont( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ] ) - - CASE nParams == 5 - ::pPtr := Qt_QFont( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ] ) - - CASE nParams == 6 - ::pPtr := Qt_QFont( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ] ) - - CASE nParams == 7 - ::pPtr := Qt_QFont( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ] ) - - CASE nParams == 8 - ::pPtr := Qt_QFont( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ] ) - - CASE nParams == 9 - ::pPtr := Qt_QFont( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ] ) - - CASE nParams ==10 - ::pPtr := Qt_QFont( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ], aP[10 ] ) - - ENDCASE + ::pPtr := Qt_QFont( ... ) RETURN Self diff --git a/harbour/contrib/hbqt/TQIcon.prg b/harbour/contrib/hbqt/TQIcon.prg index f958c96db3..bc07e1cc51 100644 --- a/harbour/contrib/hbqt/TQIcon.prg +++ b/harbour/contrib/hbqt/TQIcon.prg @@ -79,46 +79,8 @@ CREATE CLASS QIcon /*----------------------------------------------------------------------*/ METHOD New( ... ) CLASS QIcon - LOCAL aP, nParams - aP := hb_aParams() - nParams := len( aP ) - - DO CASE - CASE nParams == 0 - ::pPtr := Qt_QIcon() - - CASE nParams == 1 - ::pPtr := Qt_QIcon( aP[ 1 ] ) - - CASE nParams == 2 - ::pPtr := Qt_QIcon( aP[ 1 ], aP[ 2 ] ) - - CASE nParams == 3 - ::pPtr := Qt_QIcon( aP[ 1 ], aP[ 2 ], aP[ 3 ] ) - - CASE nParams == 4 - ::pPtr := Qt_QIcon( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ] ) - - CASE nParams == 5 - ::pPtr := Qt_QIcon( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ] ) - - CASE nParams == 6 - ::pPtr := Qt_QIcon( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ] ) - - CASE nParams == 7 - ::pPtr := Qt_QIcon( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ] ) - - CASE nParams == 8 - ::pPtr := Qt_QIcon( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ] ) - - CASE nParams == 9 - ::pPtr := Qt_QIcon( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ] ) - - CASE nParams ==10 - ::pPtr := Qt_QIcon( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ], aP[10 ] ) - - ENDCASE + ::pPtr := Qt_QIcon( ... ) RETURN Self diff --git a/harbour/contrib/hbqt/TQPalette.prg b/harbour/contrib/hbqt/TQPalette.prg index f2503eb561..e06c4c285c 100644 --- a/harbour/contrib/hbqt/TQPalette.prg +++ b/harbour/contrib/hbqt/TQPalette.prg @@ -104,46 +104,8 @@ CREATE CLASS QPalette /*----------------------------------------------------------------------*/ METHOD New( ... ) CLASS QPalette - LOCAL aP, nParams - aP := hb_aParams() - nParams := len( aP ) - - DO CASE - CASE nParams == 0 - ::pPtr := Qt_QPalette() - - CASE nParams == 1 - ::pPtr := Qt_QPalette( aP[ 1 ] ) - - CASE nParams == 2 - ::pPtr := Qt_QPalette( aP[ 1 ], aP[ 2 ] ) - - CASE nParams == 3 - ::pPtr := Qt_QPalette( aP[ 1 ], aP[ 2 ], aP[ 3 ] ) - - CASE nParams == 4 - ::pPtr := Qt_QPalette( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ] ) - - CASE nParams == 5 - ::pPtr := Qt_QPalette( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ] ) - - CASE nParams == 6 - ::pPtr := Qt_QPalette( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ] ) - - CASE nParams == 7 - ::pPtr := Qt_QPalette( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ] ) - - CASE nParams == 8 - ::pPtr := Qt_QPalette( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ] ) - - CASE nParams == 9 - ::pPtr := Qt_QPalette( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ] ) - - CASE nParams ==10 - ::pPtr := Qt_QPalette( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ], aP[10 ] ) - - ENDCASE + ::pPtr := Qt_QPalette( ... ) RETURN Self diff --git a/harbour/contrib/hbqt/TQPen.prg b/harbour/contrib/hbqt/TQPen.prg index 576d773b6a..ecba28b0cf 100644 --- a/harbour/contrib/hbqt/TQPen.prg +++ b/harbour/contrib/hbqt/TQPen.prg @@ -90,46 +90,8 @@ CREATE CLASS QPen /*----------------------------------------------------------------------*/ METHOD New( ... ) CLASS QPen - LOCAL aP, nParams - aP := hb_aParams() - nParams := len( aP ) - - DO CASE - CASE nParams == 0 - ::pPtr := Qt_QPen() - - CASE nParams == 1 - ::pPtr := Qt_QPen( aP[ 1 ] ) - - CASE nParams == 2 - ::pPtr := Qt_QPen( aP[ 1 ], aP[ 2 ] ) - - CASE nParams == 3 - ::pPtr := Qt_QPen( aP[ 1 ], aP[ 2 ], aP[ 3 ] ) - - CASE nParams == 4 - ::pPtr := Qt_QPen( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ] ) - - CASE nParams == 5 - ::pPtr := Qt_QPen( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ] ) - - CASE nParams == 6 - ::pPtr := Qt_QPen( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ] ) - - CASE nParams == 7 - ::pPtr := Qt_QPen( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ] ) - - CASE nParams == 8 - ::pPtr := Qt_QPen( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ] ) - - CASE nParams == 9 - ::pPtr := Qt_QPen( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ] ) - - CASE nParams ==10 - ::pPtr := Qt_QPen( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ], aP[10 ] ) - - ENDCASE + ::pPtr := Qt_QPen( ... ) RETURN Self diff --git a/harbour/contrib/hbqt/TQSize.prg b/harbour/contrib/hbqt/TQSize.prg index e60dd94224..646fb8db2c 100644 --- a/harbour/contrib/hbqt/TQSize.prg +++ b/harbour/contrib/hbqt/TQSize.prg @@ -83,46 +83,8 @@ CREATE CLASS QSize /*----------------------------------------------------------------------*/ METHOD New( ... ) CLASS QSize - LOCAL aP, nParams - aP := hb_aParams() - nParams := len( aP ) - - DO CASE - CASE nParams == 0 - ::pPtr := Qt_QSize() - - CASE nParams == 1 - ::pPtr := Qt_QSize( aP[ 1 ] ) - - CASE nParams == 2 - ::pPtr := Qt_QSize( aP[ 1 ], aP[ 2 ] ) - - CASE nParams == 3 - ::pPtr := Qt_QSize( aP[ 1 ], aP[ 2 ], aP[ 3 ] ) - - CASE nParams == 4 - ::pPtr := Qt_QSize( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ] ) - - CASE nParams == 5 - ::pPtr := Qt_QSize( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ] ) - - CASE nParams == 6 - ::pPtr := Qt_QSize( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ] ) - - CASE nParams == 7 - ::pPtr := Qt_QSize( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ] ) - - CASE nParams == 8 - ::pPtr := Qt_QSize( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ] ) - - CASE nParams == 9 - ::pPtr := Qt_QSize( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ] ) - - CASE nParams ==10 - ::pPtr := Qt_QSize( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ], aP[10 ] ) - - ENDCASE + ::pPtr := Qt_QSize( ... ) RETURN Self diff --git a/harbour/contrib/hbqt/generator/hbqtgen.prg b/harbour/contrib/hbqt/generator/hbqtgen.prg index 1e55b4aef0..99049bbbd7 100644 --- a/harbour/contrib/hbqt/generator/hbqtgen.prg +++ b/harbour/contrib/hbqt/generator/hbqtgen.prg @@ -1263,58 +1263,17 @@ STATIC FUNCTION Build_Class( cWidget, cls_, doc_, cPathOut ) DO CASE CASE cClassType == "PLAINOBJECT" - cM := 'New( ... )' - - aadd( txt_, 'METHOD ' + cM + ' CLASS ' + cWidget ) - aadd( txt_, ' LOCAL aP, nParams' ) + aadd( txt_, 'METHOD New( ... ) CLASS ' + cWidget ) aadd( txt_, '' ) - aadd( txt_, ' aP := hb_aParams()' ) - aadd( txt_, ' nParams := len( aP )' ) - aadd( txt_, '' ) - aadd( txt_, ' DO CASE' ) - aadd( txt_, ' CASE nParams == 0' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '()' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams == 1' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams == 2' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ], aP[ 2 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams == 3' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ], aP[ 2 ], aP[ 3 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams == 4' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams == 5' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams == 6' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams == 7' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams == 8' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams == 9' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' CASE nParams ==10' ) - aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( aP[ 1 ], aP[ 2 ], aP[ 3 ], aP[ 4 ], aP[ 5 ], aP[ 6 ], aP[ 7 ], aP[ 8 ], aP[ 9 ], aP[10 ] )' ) - aadd( txt_, ' ' ) - aadd( txt_, ' ENDCASE' ) + aadd( txt_, ' ::pPtr := Qt_' + cWidget + '( ... )' ) aadd( txt_, '' ) aadd( txt_, ' RETURN Self' ) aadd( txt_, '' ) aadd( txt_, '/*----------------------------------------------------------------------*/' ) - aadd( txt_, '' ) - OTHERWISE - cM := 'New( pParent )' + aadd( txt_, '' ) - aadd( txt_, 'METHOD ' + cM + ' CLASS ' + cWidget ) + OTHERWISE + aadd( txt_, 'METHOD New( pParent ) CLASS ' + cWidget ) aadd( txt_, '' ) aadd( txt_, ' ::pParent := pParent' ) aadd( txt_, '' ) @@ -1324,6 +1283,7 @@ STATIC FUNCTION Build_Class( cWidget, cls_, doc_, cPathOut ) aadd( txt_, '' ) aadd( txt_, '/*----------------------------------------------------------------------*/' ) aadd( txt_, '' ) + ENDCASE RETURN CreateTarget( cFile, txt_ )