luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[DEVELOPMENT ENVIRONMENT]

Browse source 
* NEW: Debugger: When displaying the contents of a collection, the Key property is saved and restored so that the debugged program is not altered.


git-svn-id: svn://localhost/gambas/trunk@7628 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2016-03-11 23:46:22 +00:00
parent 214ce4f43e
commit 55cd241ffe
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
app/src/gambas3/.src/Debug/FDebugExpr.class
View file

@ -22,6 +22,7 @@ Private $sClass As String
Private $sRealClass As String
Private $bArray As Boolean
Private $bCollection As Boolean
Private $sCollectionKey As String
Private $aDim As Integer[]
Static Public Sub Add(sExpr As String, sInfo As String)
@ -151,6 +152,7 @@ Public Sub gvwExpr_Data(Row As Integer, Column As Integer)
'$cVal.Remove(Row)
Else
Design.Command("?X" & $sExpr & "#" & CStr(Row) & "\t" & $sExpr & "[" & sSym & "]")
Design.Command("=" & "\t" & $sExpr & ".Key = " & Quote($sCollectionKey))
Endif
Endif
@ -390,7 +392,9 @@ Private Sub Init(sInfo As String, bNew As Boolean) As Boolean
Else If $bCollection Then
$aSym.Remove(0) ' Remove the count
$sCollectionKey = $aSym[1] ' Current collection key
$aSym.Remove(0, 2) ' Remove the count and the current key
Else