[GB.GUI.BASE]

* BUG: If the Layout property of HSplit or VSplit controls does not receive 
  one size for each child control, then child controls without size are 
  hidden (i.e. their size is assumed to be zero).


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

comp/src/gb.gui.base/.project

@@ -1,7 +1,7 @@
 # Gambas Project File 3.0
 # Compiled with Gambas 3.5.90
 Title=gb.gui.base
-Startup=FGridView
+Startup=FMain
 Version=3.5.90
 VersionFile=1
 Component=gb.image

comp/src/gb.gui.base/.src/Split/_Split.class

@@ -309,9 +309,9 @@ Private Sub Layout_Write(Value As Integer[])
   Next
   
   $cWeight = New Collection
-  For I = 0 To Min($hPanel.Children.Count - 1, Value.Max)
+  For I = 0 To $hPanel.Children.Count - 1
     hChild = $hPanel.Children[I]
-    If Value[I] > 0 Then
+    If I <= Value.Max And If Value[I] > 0 Then
       $cWeight[Object.Address(hChild)] = Value[I] / iTotal
       hChild.Show
     Else

comp/src/gb.gui.base/.src/Test/FMain.class

@@ -4,7 +4,7 @@
 
 Public Sub Form_Open()
 
-  'HSplit1.Layout = [1, 1, 10000]
+  HSplit1.Layout = [1, 1]
 
 End
 

comp/src/gb.gui.base/.startup

@@ -1,4 +1,4 @@
-FGridView
+FMain
 gb.gui.base
 0
 0