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

Improved method Editvar()

Browse Source
This commit is contained in:
Antonio Linares
2001-02-02 16:18:40 +00:00
parent 7630e61535
commit 03900e7e0f
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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