Debugger: Closing the internal debugger browser now stops the debugger.

[DEVELOPMENT ENVIRONMENT]
* NEW: Welcome dialog: Try to compute the dialog size better.
* NEW: Debugger: Closing the internal debugger browser now stops the debugger.

app/src/gambas3/.src/Debug/FBrowser.class

@@ -14,3 +14,9 @@ Public Sub wvwBrowser_Title()
   Me.Title = wvwBrowser.Title & " — " & ("Debug browser")
 
 End
+
+Public Sub Form_Close()
+
+  Design.Stop
+
+End

app/src/gambas3/.src/FMain.class

@@ -2692,11 +2692,10 @@ Public Sub Form_Resize()
   
   If dwgWelcome.Visible Then
     DS = Desktop.Scale
-    W = DS * 113 + 1
+    W = frmWelcome.GetFixedWidth() + DS * CProjectList.PROJECT_BOX_SCALE_WIDTH * 2 + DS * 3 + Style.ScrollbarSize + Style.ScrollbarSpacing + 3 + dwgWelcome.Padding * 2
     If W > Me.ClientW Then W = Max(Me.ClientW, DS * 70)
     H = Max(DS * 60, Me.ClientH)
     dwgWelcome.Move((Me.ClientW - W) \ 2, (Me.ClientH - H) \ 2, W, H)
-    
   Endif
 
 End

app/src/gambas3/.src/Project/CProjectList.class

 ' Gambas class file
 
 Public Enum TYPE_RECENT, TYPE_EXAMPLE, TYPE_SOFTWARE, TYPE_TEMPLATE
+Public Const PROJECT_BOX_SCALE_WIDTH As Integer = 32
 
 Event Click(Path As String, Another As Boolean)
 Event DblClick(Path As String)
@@ -88,7 +89,7 @@ Private Sub CreateProjectBox() As ProjectBox
   hProjectItem = New ProjectBox($hList) As "ProjectItem"
   
   If $iArrange = Arrange.Row Then
-    hProjectItem.ResizeScaled(32, 17)
+    hProjectItem.ResizeScaled(PROJECT_BOX_SCALE_WIDTH, 17)
   Else
     hProjectItem.ResizeScaled(1, 12)
   Endif

app/src/gambas3/.src/Welcome/FWelcome.class

@@ -52,6 +52,11 @@ Public Sub _new()
   
 End
 
+Public Sub GetFixedWidth() As Integer
+  
+  Return panButton.W + 1
+  
+End
 
 Public Sub Form_Open()