From 4e7c9996d7cbd0bbc841d5f064c72b27572b4a36 Mon Sep 17 00:00:00 2001 From: Dave Pearson Date: Wed, 10 Oct 2001 10:14:23 +0000 Subject: [PATCH] 2001-10-10 10:07 GMT Dave Pearson * source/rtl/tbrowse.prg * Fixed bug in :insColumn() as reported by Andreas Moroder in . --- harbour/ChangeLog | 5 +++++ harbour/source/rtl/tbrowse.prg | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1f4952d0dd..8eb6ddef6d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2001-10-10 10:07 GMT Dave Pearson + * source/rtl/tbrowse.prg + * Fixed bug in :insColumn() as reported by Andreas Moroder in + . + 2001-10-08 21:30 GMT -3 Luiz Rafael Culik *source/rtl/isprint.c contrib/libct/files.c diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index 08581cc65c..5c92cbd5f2 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -152,7 +152,7 @@ CLASS TBrowse METHOD Hilite() // Highlights the current cell METHOD InsColumn( nPos, oCol ) INLINE; // Insert a column object in a browse - ASize( ::aColumns, Len( ::aColumns + 1 ) ), AIns( ::aColumns, nPos ),; + ASize( ::aColumns, Len( ::aColumns ) + 1 ), AIns( ::aColumns, nPos ),; ::aColumns[ nPos ] := oCol, ::Configure( 2 ), oCol METHOD Invalidate() // Forces entire redraw during next stabilization METHOD RefreshAll() // Causes all data to be recalculated during the next stabilize