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

Method EditVar() improved for Local variables editing

Browse Source
This commit is contained in:
Antonio Linares
2001-02-02 15:33:55 +00:00
parent 88f67c8317
commit 48aacf3aea
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/source/debug/debugger.prg
View File

@@ -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 ) )