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

2004-02-15 04:20 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

Browse Source 
* source/rtl/tget.prg
     ! :display() fixed to always evaluate the get block before
       displaying like in C52.

   * include/hbapifs.h
     + HB_FFIND structure extended for future changes.
This commit is contained in:
Viktor Szakats
2004-02-15 03:16:47 +00:00
parent 417d7034ff
commit bb1effbe18
3 changed files with 25 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -8,6 +8,15 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-02-15 04:20 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/rtl/tget.prg
! :display() fixed to always evaluate the get block before
displaying like in C52.
* include/hbapifs.h
+ HB_FFIND structure extended for future changes.
2004-02-15 03:42 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/rdd/dbcmd.c

20
harbour/include/hbapifs.h
View File

@@ -174,14 +174,20 @@ extern FHANDLE hb_spCreateEx( BYTE * pFilename, USHORT uiAttr, USHORT uiFlags );
/* File Find API structure */
typedef struct
{
char szName[ _POSIX_PATH_MAX + 1 ];
LONG lDate;
char szDate[ 9 ]; /* in YYYYMMDD format */
char szTime[ 9 ]; /* in HH:MM:SS format */
USHORT attr;
ULONG size; /* TOFIX: Use LONGLONG or double instead */
char szName[ _POSIX_PATH_MAX + 1 ];
LONG lDate;
char szDate[ 9 ]; /* in YYYYMMDD format */
char szTime[ 9 ]; /* in HH:MM:SS format */
USHORT attr;
ULONG size; /* TOFIX: Use LONGLONG or double instead */
void * info; /* Pointer to the platform specific find info */
/* Private */
const char * pszFileMask;
USHORT attrmask;
BOOL bFirst;
void * info; /* Pointer to the platform specific find info */
} HB_FFIND, * PHB_FFIND;

7
harbour/source/rtl/tget.prg
View File

@@ -367,11 +367,10 @@ METHOD Display( lForced ) CLASS Get
if ::buffer == nil
::picture := ::cPicture
xBuffer := ::PutMask( ::VarGet(), .f. )
else
xBuffer := ::buffer
endif
xBuffer := ::PutMask( ::VarGet(), .f. )
if ! ::lMinusPrinted .and. ! Empty( ::DecPos ) .and. ::minus .and. substr( xBuffer, ::DecPos-1, 1 ) == "0"
xBuffer := substr( xBuffer, 1, ::DecPos - 2 ) + "-." + substr( xBuffer, ::DecPos + 1 )
endif
@@ -541,7 +540,7 @@ METHOD VarPut( xValue, lReFormat ) CLASS Get
DEFAULT lReFormat TO .t.
if ::block != nil
if ValType( ::Block ) == 'B'
Eval( ::block, xValue )
if lReFormat
if !::hasfocus