From 93a8989d5aaed5bb98826a8e07c4b5f84fabf953 Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Thu, 13 May 1999 13:29:44 +0000
Subject: [PATCH] just added the delete DATA as well. The DATA will cleaned up
 anyhow !

---
 harbour/tests/broken/classes.dif | 20 +++++++++++---------
 harbour/tests/broken/dynobj.prg  | 18 ++++++++++++++++++
 2 files changed, 29 insertions(+), 9 deletions(-)

diff --git a/harbour/tests/broken/classes.dif b/harbour/tests/broken/classes.dif
index ab44af5a28..1fb99ee621 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	Thu May 13 12:34:32 1999
++++ \source\tcpp\harb21-2\source\rtl\classes.c	Thu May 13 14:04:46 1999
 @@ -10,6 +10,7 @@
  void PushSymbol( PSYMBOL );
  void Message( PSYMBOL );
@@ -33,7 +33,7 @@
  }
  
  static HARBOUR GetClassData( void )
-@@ -503,6 +514,114 @@
+@@ -503,6 +514,116 @@
     else
     {                                        /* TODO: Crash code             */
     }
@@ -47,6 +47,14 @@
 +      _retni( ++pClasses[ wClass - 1 ].wDatas ); /* Return and increase     */
 +}                                                /* number of DATAs         */
 +
++HARBOUR __WDATADEC()         /* <nSeq> = __wDataDec( <hClass> )*/
++{
++   WORD  wClass   = _parnl( 1 );
++
++   if( wClass )
++      _retni( ++pClasses[ wClass - 1 ].wDatas ); /* Return and decrease     */
++}                                                /* number of DATAs         */
++
 +HARBOUR CLASSMOD()      /* Modify message (only for INLINE and METHOD)      */
 +                        /* <xOld> := ClassMod( <oObj>, <cSymbol>, <pFunc> ) */
 +{
@@ -125,13 +133,7 @@
 +         {
 +            ArrayDel(  &pClass->aInlines, pClass->pMethods[ wAt ].wData );
 +                                                /* Delete INLINE block      */
-+         }
-+         else if( ( pFunc == SetData ) || ( pFunc == GetData ) )
-+         {                                      /* Not allowed for DATA     */
-+            printf( "\nCannot delete a DATA item yet" );
-+            exit(1);                            /* TODO : Real error        */
-+         }
-+                                                /* Move messages            */
++         }                                      /* Move messages            */
 +         for( ; pClass->pMethods[ wAt ].pMessage && wAt < wLimit; wAt ++ )
 +            memcpy( &( pClass->pMethods[ wAt ]     ),
 +                    &( pClass->pMethods[ wAt + 1 ] ), sizeof( METHOD ) );
diff --git a/harbour/tests/broken/dynobj.prg b/harbour/tests/broken/dynobj.prg
index 377d0ec897..bfce62a97e 100644
--- a/harbour/tests/broken/dynobj.prg
+++ b/harbour/tests/broken/dynobj.prg
@@ -65,6 +65,8 @@ function Main()
    QOut( "Data items after" )
    HBDebug( oForm )
 
+   Pause()
+
    QOut( "Let's attach a bigger smile" )
 
    ClassMod( oForm:ClassH, "Smile", @BigSmile() )
@@ -99,6 +101,22 @@ function Main()
    QOut( "What methods are in the class :" )
    HBDebug( aoMethod( oForm ) )
 
+   Pause()
+
+   QOut( "Data items before" )
+   HBDebug( oForm )
+
+   QOut( "Let's delete cHelp" )
+
+   ClassDel( oForm:ClassH, "cHelp"  )
+   ClassDel( oForm:ClassH, "_cHelp" )
+   __wDataDec( oForm:ClassH )
+   
+   QOut( "Data items after" )
+   HBDebug( oForm )
+
+/*   oForm:cHelp := "Please crash" */
+
 return nil