From d49ab70253d8a71c0c54c992cc7d468e88b920be Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 7 Aug 1999 07:45:54 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 6 ++++++ harbour/source/rtl/tbrowse.prg | 15 +++++++++------ harbour/tests/working/hb32.bat | 4 ++-- 3 files changed, 17 insertions(+), 8 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c6872e10bf..ee17e1a0a6 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,9 @@ +19990807-9:19 GMT+1 Antonio Linares + * source/compiler/harbour.y + * Debugger() symbol requested when compiling using /b + * source/vm/hvm.c + * ModuleName() automatically invokes Debugger() if module compiled using /b + 19990807-8:39 GMT+1 Antonio Linares + source/rtl/tbcolumn.prg * Harbour Class TBColumn first outline diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index 92d94905f8..59c060ab53 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -1,6 +1,6 @@ /* * Harbour Class TBrowse - * Copyright(C) 1999 by Antonio Linares. + * Copyright(C) 1999 by Antonio Linares * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published @@ -17,8 +17,6 @@ * * The Free Software Foundation, Inc., * 675 Mass Ave, Cambridge, MA 02139, USA. - * - * You can contact me at: alinares@fivetech.com */ #include "classes.ch" @@ -65,7 +63,9 @@ CLASS TBrowse METHOD PanRight() VIRTUAL // Pans right without changing the cursor position METHOD Right() VIRTUAL // Moves the cursor right one column METHOD Up() VIRTUAL // Moves the cursor up one row - METHOD AddColumn() VIRTUAL // Adds a TBColumn object to the TBrowse object + + METHOD AddColumn( oCol ) INLINE AAdd( ::aColumns, oCol ) // Adds a TBColumn object to the TBrowse object + METHOD ColorRect() VIRTUAL // Alters the color of a rectangular group of cells METHOD ColWidth() VIRTUAL // Returns the display width of a particular column METHOD Configure() VIRTUAL // Reconfigures the internal settings of the TBrowse object @@ -73,7 +73,7 @@ CLASS TBrowse METHOD DelColumn() VIRTUAL // Delete a column object from a browse METHOD ForceStable() VIRTUAL // Performs a full stabilization ê - METHOD GetColumn( nColumn ) INLINE If( 0 > nColumn .and. nColumn <= Len( ::aColumns ),; + METHOD GetColumn( nColumn ) INLINE If( 0 < nColumn .and. nColumn <= Len( ::aColumns ),; ::aColumns[ nColumn ], nil ) // Gets a specific TBColumn object METHOD Hilite() VIRTUAL // Highlights the current cell @@ -81,7 +81,10 @@ CLASS TBrowse METHOD Invalidate() VIRTUAL // Forces redraw during next stabilization METHOD RefreshAll() VIRTUAL // Causes all data to be refreshed during the next stabilize METHOD RefreshCurrent() VIRTUAL // Causes the current row to be refreshed on next stabilize - METHOD SetColumn() VIRTUAL // Replaces one TBColumn object with another + + METHOD SetColumn( nColumn, oCol ) INLINE If( 0 < nColumn .and. nColumn <= Len( ::aColumns ),; + ::aColumns[ nColumn ] := oCol, nil ), oCol // Replaces one TBColumn object with another + METHOD Stabilize() VIRTUAL // Performs incremental stabilization ENDCLASS diff --git a/harbour/tests/working/hb32.bat b/harbour/tests/working/hb32.bat index ec1d5ea826..3d456b9e5a 100644 --- a/harbour/tests/working/hb32.bat +++ b/harbour/tests/working/hb32.bat @@ -1,10 +1,10 @@ @echo off REM From .PRG to .C = Harbour -..\..\bin\harbour %1.prg /n /i..\..\include +..\..\bin\harbour %1.prg %2 /n /i..\..\include if errorlevel 1 goto end REM From .C to .EXE = BuildExe -call BLD32EXE %1 %2 +call BLD32EXE %1 :end