2010-10-18 21:35 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

* harbour/src/debug/dbgwa.prg
    ! added missing REQUEST FIELDGET
    + added support for timestamp, hash and NIL values which
      can be extracted from fields in some RDDs

harbour/ChangeLog

@@ -16,6 +16,12 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-10-18 21:35 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/src/debug/dbgwa.prg
+    ! added missing REQUEST FIELDGET
+    + added support for timestamp, hash and NIL values which
+      can be extracted from fields in some RDDs
+
 2010-10-18 13:43 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * package/winuni/mpkg_win_uni.bat
   * package/winuni/mpkg_win_uni.nsi

harbour/src/debug/dbgwa.prg

@@ -57,6 +57,8 @@
 #include "setcurs.ch"
 #include "inkey.ch"
 
+REQUEST FieldGet
+
 PROCEDURE __dbgShowWorkAreas()
 
    LOCAL oDlg
@@ -325,14 +327,36 @@ STATIC FUNCTION DbfInfo( aInfo )
       xValue := __Dbg():GetExprValue( "FieldGet(" + hb_NToS( nFor ) + ")" )
       xType  := ValType( xValue )
 
-      DO CASE
-      CASE xType $ "CM" ; cValue := xValue
-      CASE xType == "N" ; cValue := hb_NToS( xValue )
-      CASE xType == "D" ; cValue := DToC( xValue )
-      CASE xType == "L" ; cValue := iif( xValue, ".T.", ".F." )
-      CASE xType == "A" ; cValue := "Array"
-      OTHERWISE         ; cValue := "Error"
-      ENDCASE
+      SWITCH xType
+         CASE "C"
+         CASE "M"
+            cValue := xValue
+            EXIT
+         CASE "N"
+            cValue := hb_NToS( xValue )
+             EXIT
+         CASE "D"
+            cValue := DToC( xValue )
+            EXIT
+         CASE "T"
+            cValue := hb_TsToStr( xValue )
+            EXIT
+         CASE "L"
+            cValue := iif( xValue, ".T.", ".F." )
+            EXIT
+         CASE "A"
+            cValue := "Array"
+            EXIT
+         CASE "H"
+            cValue := "Hash"
+            EXIT
+         CASE "U"
+            cValue := "NIL"
+            EXIT
+         OTHERWISE
+            cValue := "Error"
+            EXIT
+      ENDSWITCH
 
       AAdd( aInfo, Space( 8 ) + PadR( FieldName( nFor ), 10) + " = " + PadR( cValue, 17 ) )