From 03900e7e0f373748efd4040d0786709c8a9de8b1 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 2 Feb 2001 16:18:40 +0000 Subject: [PATCH] Improved method Editvar() --- harbour/source/debug/debugger.prg | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index 737b1924a1..0b1319103a 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -321,15 +321,19 @@ METHOD EditVar( nVar ) CLASS TDebugger do case case uVarValue == "{ ... }" - // It is an array, don't do anything if len(::avars[nVar][2])>0 __DbgArrays(::avars[nVar][2],cVarname) else Alert("Array is empty") endif + case Upper( SubStr( uVarValue, 1, 5 ) ) == "CLASS" - // It is an object, don't do anything - __DbgObject(::avars[nVar][2],cVarname) + if ::aVars[ nVar ][ 3 ] == "Local" + __DbgObject( __vmVarLGet( nProcLevel, ::aVars[ nVar ][ 2 ] ), cVarName ) + else + __DbgObject( ::aVars[ nVar ][ 2 ], cVarName ) + endif + otherwise if ::aVars[ nVar ][ 3 ] == "Local" __vmVarLSet( nProcLevel, ::aVars[ nVar ][ 2 ], &uVarValue )