fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2000-11-30 07:50 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* source/pp/pptable.c
     - Removed #ifdef SIMPLEX recently added by Ryszard, SimpLex was using same 5 paramters as Cliiper.
This commit is contained in:
Ron Pinkas
2000-11-30 15:58:07 +00:00
parent 08b2e6f91f
commit 92bc542014
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-11-30 07:50 UTC+0800 Ron Pinkas <ron@profit-master.com>
* 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 <rglab@imid.med.pl>
*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) <jfl@mafact.com>
* include/hbclass.ch
* some work in progress about :class message

4
harbour/source/pp/pptable.c
View File

@@ -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]",