*** empty log message ***

1999-08-07 07:11:03 +00:00
parent 71b1432d95
commit 7d2cf43e46
1 changed files with 7 additions and 2 deletions
--- 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
+   Alert( oBrowse:ClassName() )
+   Alert( oBrowse:GetColumn( 1 ):ClassName() )
+
+return nil