Debugger: Fix a possible crash in stack display during debugging.

[DEVELOPMENT ENVIRONMENT]
* BUG: Debugger: Fix a possible crash in stack display during debugging.

app/src/gambas3/.src/Debug/Design.module

@@ -408,13 +408,15 @@ Public Sub Debug_Read(Data As String)
   
       FDebugInfo.DefineVariable(Trim(aData[3]), Trim(aData[4]))
 
-      If FDebugInfo.FillStack(aPos) Then
+      FDebugInfo.FillStack(aPos)
+      
       If aData[1] Then 
         
         sError = MakeMessage(aData[1])
         
         If sClass Then
           sWhere = $sPosClass & ":" & CStr($iPosLine)
+          If $sPosComp <> "$" Then sWhere = "[" & $sPosComp & "]." & sWhere
         Else
           sWhere = ""
         Endif
@@ -426,7 +428,7 @@ Public Sub Debug_Read(Data As String)
         Else
           Try CheckErrorMessage(Null)
         Endif
-        Endif
+        
       Endif
 
       SetState(STATE_DEBUG)

app/src/gambas3/.src/Debug/FDebugConfig.form

@@ -294,6 +294,7 @@
     { lstArg ListEditor
       MoveScaled(5,2,50,25)
       Expand = True
+      Grid = True
       Wrap = True
       Unique = True
     }

app/src/gambas3/.src/Debug/FDebugInfo.class

@@ -99,7 +99,7 @@ Public Sub EnableStack(bOn As Boolean)
   
 End
 
-Public Sub FillStack(aStack As String[]) As Boolean
+Public Sub FillStack(aStack As String[])
   
   Dim sPos As String
   Dim iInd As Integer
@@ -112,10 +112,10 @@ Public Sub FillStack(aStack As String[]) As Boolean
   
   Object.Lock(lvwStack)
   
-  If lvwStack.Count And If aStack[0] = lvwStack[0].Tag Then
-    sKey = lvwStack.Key
-  Else
-    sKey = 0
+  sKey = "0"
+  If lvwStack.Count Then
+    lvwStack.MoveFirst()
+    If aStack[0] = lvwStack.Item.Tag Then sKey = lvwStack.Key
   Endif
   
   lvwStack.Clear
@@ -164,8 +164,6 @@ Public Sub FillStack(aStack As String[]) As Boolean
   Endif
   Object.Unlock(lvwStack)
   
-  Return lvwStack.Key = "0"
-  
 End
 
 Public Sub lvwStack_Click()