From faeda9b48a990c8866426fc9469eab252cecb88c Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Wed, 12 May 1999 22:49:17 +0000
Subject: [PATCH] Automatic seq# generation for new DATA

---
 harbour/tests/broken/classes.dif | 15 ++++++++++++++-
 harbour/tests/broken/dynobj.prg  | 20 ++++++++++++++++----
 2 files changed, 30 insertions(+), 5 deletions(-)

diff --git a/harbour/tests/broken/classes.dif b/harbour/tests/broken/classes.dif
index 0a068b7b80..fc7ef81a21 100644
--- a/harbour/tests/broken/classes.dif
+++ b/harbour/tests/broken/classes.dif
@@ -1,5 +1,5 @@
 --- \source\tcpp\cvstest\harbour\source\rtl\classes.c	Tue May 11 20:23:38 1999
-+++ \source\tcpp\harb21-2\source\rtl\classes.c	Wed May 12 22:40:40 1999
++++ \source\tcpp\harb21-2\source\rtl\classes.c	Wed May 12 23:21:24 1999
 @@ -136,12 +136,22 @@
  
  static HARBOUR GetData( void )
@@ -25,3 +25,16 @@
  }
  
  static HARBOUR GetClassData( void )
+@@ -505,4 +515,12 @@
+    }
+ }
+ 
++HARBOUR __WDATAINC()         /* <nSeq> = __wDataInc( <hClass> )*/
++{
++   WORD  wClass   = _parnl( 1 );
++
++   if( wClass )
++      _retni( ++pClasses[ wClass - 1 ].wDatas ); /* Return and increase     */
++}                                                /* number of DATAs         */
++
+ 
diff --git a/harbour/tests/broken/dynobj.prg b/harbour/tests/broken/dynobj.prg
index f2d8270c5b..693121c12b 100644
--- a/harbour/tests/broken/dynobj.prg
+++ b/harbour/tests/broken/dynobj.prg
@@ -19,6 +19,7 @@
 function Main()
 
    local oForm := TForm():New()
+   local nSeq
 
    QOut( "What methods are in the class :" )
    HBDebug( aoMethod( oForm ) )
@@ -46,15 +47,23 @@ function Main()
    QOut( "Smile please " )
    oForm:Smile()
 
-/* The next code can _not_ be used in the offical classes.c */
+   QOut( "The next code can _not_ be used in the offical classes.c" )
+   Pause()
+
+   QOut( "Data items before" )
+   HBDebug( oForm )
 
    QOut( "Let's add an additional data item" )
 
-   ClassAdd( oForm:ClassH, "cHelp" , 6, MET_DATA )   // 6th item !
-   ClassAdd( oForm:ClassH, "_cHelp", 6, MET_DATA )
-   HBDebug( aoData( oForm ) )
+   nSeq := __wDataInc( oForm:ClassH )           // Allocate new Seq#
+   QOut( "New Seq# ", nSeq )
+   ClassAdd( oForm:ClassH, "cHelp" , nSeq, MET_DATA )
+   ClassAdd( oForm:ClassH, "_cHelp", nSeq, MET_DATA )
+   
 
    oForm:cHelp := "This is a real tricky test"
+
+   QOut( "Data items after" )
    HBDebug( oForm )
 
 return nil
@@ -106,4 +115,7 @@ static function Smile()
 return self
 
 
+function Pause()
 
+   __Accept( "Pause :" )
+return nil