From 5b1ef8b0138b486ac3f0a34820f7aa9a3df8071a Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Sun, 30 May 1999 13:07:48 +0000
Subject: [PATCH] see changelog

---
 harbour/tests/working/inherit.prg | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/harbour/tests/working/inherit.prg b/harbour/tests/working/inherit.prg
index 6c476f64b1..e7e6ea78dd 100644
--- a/harbour/tests/working/inherit.prg
+++ b/harbour/tests/working/inherit.prg
@@ -23,6 +23,8 @@ function Main( cFrom, cTo )
    oFrom := TTextFile()
    HBDebug( { aoMethod( oFrom ), aoData( oFrom ) } )
 //   oFrom:Super:Run()
+   oFrom:Set( "DoIt !" )
+   QOut( oFrom:Out )
    oFrom:New( cFrom, "R" )
    oTo   := TTextFile()
 //   HBDebug( aoMethod( oTo ) )
@@ -51,6 +53,9 @@ function TEmpty()
 
       oEmpty:AddInline( "New", {|self|self} )        // Constructor
       oEmpty:AddInline( "Run", {||QOut( "Run!" ) } ) // Test command
+      oEmpty:AddInline( "Set", {|self,xParam|::Out := xParam } )
+      oEmpty:AddData( "Out" )
+                                                     // Test command
       oEmpty:AddVirtual( "Dispose" )                 // Clean up code
 
       oEmpty:Create()