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

2012-10-02 10:58 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* tests/tstdspac.prg
    ! fixed two problems
This commit is contained in:
Viktor Szakats
2012-10-02 08:58:37 +00:00
parent d67aec1555
commit ee6e006aa1
2 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-10-02 10:58 UTC+0200 Viktor Szakats (harbour syenar.net)
* tests/tstdspac.prg
! fixed two problems
2012-10-02 04:07 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbnf/dispc.c
+ added TOFIX (needs to be updated for unicode savescreen buffers)

11
harbour/tests/tstdspac.prg
View File

@@ -25,13 +25,12 @@
PROCEDURE Main( cDisk )
IF Empty( cDisk )
cDisk := "0"
cDisk := hb_DirBase() + hb_ps()
ENDIF
cDisk := Val( cDisk )
? "Bytes available on disk: " + Transform( DiskSpace( cDisk, HB_DISK_FREE ), "999,999,999,999" )
? "Bytes available for use: " + Transform( DiskSpace( cDisk, HB_DISK_AVAIL ), "999,999,999,999" )
? " Bytes used: " + Transform( DiskSpace( cDisk, HB_DISK_USED ), "999,999,999,999" )
? " Total bytes on disk " + PadL( cDisk, 2 ) + ": " + Transform( DiskSpace( cDisk, HB_DISK_TOTAL ), "999,999,999,999" )
? "Bytes available on disk: " + Transform( hb_DiskSpace( cDisk, HB_DISK_FREE ), "999,999,999,999" )
? "Bytes available for use: " + Transform( hb_DiskSpace( cDisk, HB_DISK_AVAIL ), "999,999,999,999" )
? " Bytes used: " + Transform( hb_DiskSpace( cDisk, HB_DISK_USED ), "999,999,999,999" )
? " Total bytes at " + cDisk + ": " + Transform( hb_DiskSpace( cDisk, HB_DISK_TOTAL ), "999,999,999,999" )
RETURN