From 185c620932f704403ce6e23498989ff3fb8e119d Mon Sep 17 00:00:00 2001 From: Jean-Francois Lefebvre Date: Mon, 14 May 2001 19:29:47 +0000 Subject: [PATCH] 2001-05-14 21:30 UTC+1 JFL (mafact) --- harbour/ChangeLog | 5 +++++ harbour/utils/hbmake/ffile1.prg | 15 +++++++++++++-- 2 files changed, 18 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d952a90ec6..40b3696423 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2001-05-14 21:30 UTC+1 JFL (mafact) + * harbour/utils/hbmake/ffile1.prg + * remed two old method wich where not anymore used + nor declared from the class. + 2001-05-14 22:14 GMT+3 Alexander Kresin * source/rdd/dbfntx/dbfntx1.c * bugs fixed, reported by John M. S. Chiang, related to indexing of diff --git a/harbour/utils/hbmake/ffile1.prg b/harbour/utils/hbmake/ffile1.prg index 23eefd3fcb..c913c026e0 100644 --- a/harbour/utils/hbmake/ffile1.prg +++ b/harbour/utils/hbmake/ffile1.prg @@ -362,6 +362,10 @@ METHOD goBottom() CLASS FileBase Returns: Self Purpose: To close the file */ + +/* Should not any more exist here ... Not sure so I just keep it remed */ +/* JFL in all case it is not anymore declared from the Class */ +/* METHOD FCLOSE() CLASS FileBase IF Self:noDosError() .AND. Self:nDosHandle > 0 @@ -373,7 +377,7 @@ METHOD FCLOSE() CLASS FileBase ENDIF RETURN ( self ) - +*/ /* Method: write() Params: Returns: Self @@ -409,6 +413,13 @@ METHOD WRITE( cChar ) CLASS FileBase in a forward direction. The default value is a logical true (.T.) value. */ + + +/* Should not any more exist here ... Not sure so I just keep it remed */ +/* JFL in all case it is not anymore declared from the Class */ +/* + +/* METHOD Buffget( lForward ) CLASS FileBase LOCAL cBuffer // as char @@ -456,7 +467,7 @@ METHOD Buffget( lForward ) CLASS FileBase ENDIF RETURN ( nLocation ) - +*/ /* Method: appendLine( Character line to append Returns: Self