diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d9e461336a..d4a77b9c5a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2000-11-30 07:50 UTC+0800 Ron Pinkas + * source/pp/pptable.c + - Removed #ifdef SIMPLEX recently added by Ryszard, SimpLex was using same 5 paramters as Cliiper. + 2000-11-30 16:00 UTC+0100 Ryszard Glab *source/rtl/tgetint.prg @@ -13,13 +17,13 @@ *source/compiler/expropta.c *source/macro/macroa.c * _GET_ => __GET translation is now fully Clipper compatible - + *source/pp/pptable.c * Flex version doesn't pass a sixth argument to _GET_ function - + *source/rtl/tgetint.prg * replaced all internal '_1' variables with PCOUNT()/HB_PVALUE() - + 2000-11-29 23:30 UTC+0100 jfl (mafact) * include/hbclass.ch * some work in progress about :class message diff --git a/harbour/source/pp/pptable.c b/harbour/source/pp/pptable.c index ca23d1b10a..b83ff038f9 100644 --- a/harbour/source/pp/pptable.c +++ b/harbour/source/pp/pptable.c @@ -212,11 +212,7 @@ void hb_pp_Table( void ) "if ( Empty(\1A30) ) ; SET FORMAT TO ; else ; __SetFormat( &('{||' + \1A30 + '()}') ) ; end",&sC___96 }; static COMMANDS sC___98 = {0,"SET","FORMAT TO","__SetFormat()",&sC___97 }; static COMMANDS sC___99 = {0,"@","\1A00, \1B00 GET \1C00 [PICTURE \1D00] [VALID \1E00] [WHEN \1F00] [SEND \1G00]", -#ifdef SIMPLEX - "SetPos( \1A00, \1B00 ) ; AAdd( GetList, _GET_( \1C00, \1C20, \1D00, \1E40, \1F40, ):display() ) [; ATail(GetList):\1G00]",&sC___98 }; -#else "SetPos( \1A00, \1B00 ) ; AAdd( GetList, _GET_( \1C00, \1C20, \1D00, \1E40, \1F40 ):display() ) [; ATail(GetList):\1G00]",&sC___98 }; -#endif static COMMANDS sC___100 = {0,"@","\1A00, \1B00 SAY \1C00 [\1D10] GET \1E00 [\1F10]", "@ \1A00, \1B00 SAY \1C00 [\1D00] ; @ Row(), Col()+1 GET \1E00 [\1F00]",&sC___99 }; static COMMANDS sC___101 = {0,"@","\1A00, \1B00 GET \1C00 [\1D10] RANGE \1E00, \1F00 [\1G10]",