2009-05-07 15:28 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

* source/rtl/alert.prg
    + Added TIMESTAMP support for Alert() (extended mode only)

  * contrib/xhb/dumpvar.prg
    ! Fixed hash function name.

harbour/ChangeLog

@@ -17,6 +17,13 @@
    past entries belonging to these authors: Viktor Szakats.
 */
 
+2009-05-07 15:28 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+  * source/rtl/alert.prg
+    + Added TIMESTAMP support for Alert() (extended mode only)
+
+  * contrib/xhb/dumpvar.prg
+    ! Fixed hash function name.
+
 2009-05-07 12:13 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/debug/dbgwa.prg
     ! Guard against recursive debugger activation when a user callback
@@ -117,7 +124,8 @@
 2009-05-06 09:18 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * source/vm/Makefile
     ! Disabled HB_HVM_ALL for owatcom/win compiler.
-      The compiler hangs in hvmall.c (Reported by Marek Horodyski).
+      It takes *very* long time to compile hvmall.c
+      (Reported by Marek Horodyski).
       Please make tests on other platforms whether it does the same.
 
 2009-05-06 09:07 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

harbour/contrib/xhb/dumpvar.prg

@@ -243,7 +243,7 @@ STATIC FUNCTION DShowHash( hVar, lRecursive, nIndent, nRecursionLevel, nMaxRecur
    //TraceLog( "DShowHash: hVar, ValType( hVar ), lRecursive", hVar, ValType( hVar ), ValToPrg( hVar ), lRecursive )
 
    IF ValType( hVar ) == "H"
-      aKeys := hb_HGetKeys( hVar )
+      aKeys := hb_HKeys( hVar )
       cString += Space( nIndent ) + "{" + CRLF
       FOR EACH xKey IN aKeys
           xVal := hVar[ xKey ]

harbour/source/rtl/alert.prg

@@ -89,6 +89,7 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay )
       CASE ValType( xMessage ) $ "CM" ; cMessage := StrTran( xMessage, ";", Chr( 10 ) )
       CASE hb_isNumeric( xMessage )   ; cMessage := hb_NToS( xMessage )
       CASE hb_isDate( xMessage )      ; cMessage := DToC( xMessage )
+      CASE hb_isTimeStamp( xMessage ) ; cMessage := hb_TToC( xMessage )
       CASE hb_isLogical( xMessage )   ; cMessage := iif( xMessage, ".T.", ".F." )
       CASE hb_isObject( xMessage )    ; cMessage := xMessage:className + " Object"
       CASE hb_isSymbol( xMessage )    ; cMessage := "@" + xMessage:Name + "()"