[DEVELOPMENT ENVIRONMENT]

* BUG: Fix the crash when displaying debugging windows at program startup.


git-svn-id: svn://localhost/gambas/trunk@2190 867c0c6c-44f3-4631-809d-bfa615b0a4ec

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

@@ -125,7 +125,6 @@ Public Sub Debug_Read(Data As String)
   Dim iLine As Integer
   Dim sVar As String
 
-  'Debug Data
   If Not Data Then Return 
   
   If Data = "!" Then 

app/src/gambas3/.src/Debug/FDebugExpr.class

@@ -264,6 +264,10 @@ Private Sub Init(sInfo As String, bNew As Boolean) As Boolean
   Dim bHasHidden As Boolean
 
   $aSym = Split(sInfo, " ", Chr$(34))
+  If $aSym.Count < 3 Then
+    Debug "???";; sInfo
+    Return True
+  Endif
 
   $sClass = $aSym[0]
   $sRealClass = $aSym[1]

app/src/gambas3/.src/Debug/FDebugExpr.form

@@ -9,6 +9,7 @@
   Arrangement = Arrange.Vertical
   { HBox1 HBox
     MoveScaled(1,1,27,4)
+    Background = Color.TextBackground
     { txtExpr TextBox
       MoveScaled(0,0,16,4)
       Font = Font["Bold"]
@@ -17,10 +18,11 @@
       Border = False
     }
     { btnHidden ToolButton
-      MoveScaled(20,0,4,4)
+      MoveScaled(22,0,4,4)
       ToolTip = ("Show hidden symbols")
       Text = ("")
       Picture = Picture["icon:/small/lamp"]
+      Toggle = True
     }
   }
   { gvwExpr GridView