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

2000-09-05 15:30 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* include/hbclass.ch
     ! Changed AS STRING to AS String, AS NUMERIC to AS Numeric, AS OBJECT to AS Object to avoid collision with FW #defines in dll.ch.
This commit is contained in:
Ron Pinkas
2000-09-05 22:32:33 +00:00
parent a04a4e61ae
commit f40fe5235a
2 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-09-05 15:30 UTC+0800 Ron Pinkas <ron@profit-master.com>
* include/hbclass.ch
! Changed AS STRING to AS String, AS NUMERIC to AS Numeric, AS OBJECT to AS Object to avoid collision with FW #defines in dll.ch.
2000-09-05 14:45 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* config/dos/bcc16.cf

18
harbour/include/hbclass.ch
View File

@@ -49,15 +49,15 @@
*/
DECLARE TClass ;
New( cName AS STRING, OPTIONAL SuperParams ) AS CLASS TClass ;
Create() AS OBJECT;
Instance() AS OBJECT ;
AddClsMthds( cName AS STRING, @MethodName(), nScope AS NUMERIC, n2 AS NUMERIC, n3 AS NUMERIC );
AddMultiClsData( cType AS STRING, uVal, nScope AS NUMERIC, aDatas AS ARRAY OF STRING );
AddMultiData( cType AS STRING, uVal, nScope AS NUMERIC, aDatas AS ARRAY OF STRING );
AddMethod( cName AS STRING, @MethodName(), nScope AS NUMERIC );
AddInLine( cName AS STRING, bBlock AS CODEBLOCK, nScope AS NUMERIC );
AddVirtual( cName AS STRING )
New( cName AS String, OPTIONAL SuperParams ) AS CLASS TClass ;
Create() AS Object;
Instance() AS Object ;
AddClsMthds( cName AS String, @MethodName(), nScope AS Numeric, n2 AS Numeric, n3 AS Numeric );
AddMultiClsData( cType AS String, uVal, nScope AS Numeric, aDatas AS ARRAY OF String );
AddMultiData( cType AS String, uVal, nScope AS Numeric, aDatas AS ARRAY OF String );
AddMethod( cName AS String, @MethodName(), nScope AS Numeric );
AddInLine( cName AS String, bBlock AS CodeBlock, nScope AS Numeric );
AddVirtual( cName AS String )
#ifndef HB_CLASS_CH_
#define HB_CLASS_CH_