From 7d2cf43e46f451faf85e5f0f62c33295465e39e6 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sat, 7 Aug 1999 07:11:03 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/tests/working/testbrw.prg | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/harbour/tests/working/testbrw.prg b/harbour/tests/working/testbrw.prg
index df9fd17a2c..5196db5747 100644
--- a/harbour/tests/working/testbrw.prg
+++ b/harbour/tests/working/testbrw.prg
@@ -1,7 +1,12 @@
+// Harbour Class TBrowse and TBColumn sample
+
 function Main()
 
    local oBrowse := TBrowse():New()
 
-   Alert( oBrowse:ClassName )
+   oBrowse:AddColumn( TBColumnNew( "Test", { || "This is a test" } ) )
 
-return nil
\ No newline at end of file
+   Alert( oBrowse:ClassName() )
+   Alert( oBrowse:GetColumn( 1 ):ClassName() )
+
+return nil