Just a minor bug crushed

1999-05-13 10:22:20 +00:00
parent adc1950879
commit 71608d2469
1 changed files with 2 additions and 3 deletions
--- a/harbour/tests/broken/dynobj.prg
+++ b/harbour/tests/broken/dynobj.prg
@@ -78,9 +78,8 @@ function Main()

   QOut( "And CalcArea() will now give a result in square inches" )

-   ClassAdd( oForm:ClassH, "CalcArea", ;
-      {|self| ( ::nRight  - ::nLeft ) * ( ::nBottom - ::nTop ) / (2.54*2.54) },;
-      MET_INLINE )
+   ClassMod( oForm:ClassH, "CalcArea", ;
+      {|self| ( ::nRight  - ::nLeft ) * ( ::nBottom - ::nTop ) / (2.54*2.54) } )

   QOut( "What is the Form area ?" )
   QOut( oForm:CalcArea() )