From ab757f17f09e3c88b7a785f9c0e2f77a371bfc5d Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 7 Aug 1999 16:58:25 +0000 Subject: [PATCH] *** empty log message *** --- harbour/tests/working/testbrw.prg | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/harbour/tests/working/testbrw.prg b/harbour/tests/working/testbrw.prg index d1cbbb9adb..daca7ccc47 100644 --- a/harbour/tests/working/testbrw.prg +++ b/harbour/tests/working/testbrw.prg @@ -13,7 +13,9 @@ function Main() n := If( nSkip > 0, Min( Len( aTest ), n + nSkip ),; Max( 1, n + nSkip )), n - nPos } - oBrowse:AddColumn( TBColumnNew( "Test", { || aTest[ n ] } ) ) + oBrowse:AddColumn( TBColumnNew( "First", { || aTest[ n ] } ) ) + oBrowse:AddColumn( TBColumnNew( "Second", { || aTest[ n ] } ) ) + oBrowse:AddColumn( TBColumnNew( "Third", { || aTest[ n ] } ) ) Alert( oBrowse:ClassName() ) Alert( oBrowse:GetColumn( 1 ):ClassName() )