From 48aacf3aea03746b4f0fbf947d069badc41eeda0 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 2 Feb 2001 15:33:55 +0000 Subject: [PATCH] Method EditVar() improved for Local variables editing --- harbour/source/debug/debugger.prg | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index 011041ba51..8308f01d2a 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -306,8 +306,16 @@ return nil METHOD EditVar( nVar ) CLASS TDebugger - local cVarName := ::aVars[ nVar ][ 1 ] - local uVarValue := ::aVars[ nVar ][ 2 ] + local cVarName := ::aVars[ nVar ][ 1 ] + local uVarValue := ::aVars[ nVar ][ 2 ] + local nProcLevel := 1 + + if ::aVars[ nVar ][ 3 ] == "Local" + while ProcName( nProcLevel ) != ::aVars[ nVar ][ 4 ] + nProcLevel++ + end + uVarValue = __vmVarLGet( nProcLevel, ::aVars[ nVar ][ 2 ] ) + endif uVarValue := ::InputBox( cVarName, ValToStr( uVarValue ) )