diff --git a/comp/src/gb.gui.base/.project b/comp/src/gb.gui.base/.project index 3ea867626..9571594cd 100644 --- a/comp/src/gb.gui.base/.project +++ b/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 diff --git a/comp/src/gb.gui.base/.src/Split/_Split.class b/comp/src/gb.gui.base/.src/Split/_Split.class index f0efc6a10..4fe5d77ee 100644 --- a/comp/src/gb.gui.base/.src/Split/_Split.class +++ b/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 diff --git a/comp/src/gb.gui.base/.src/Test/FMain.class b/comp/src/gb.gui.base/.src/Test/FMain.class index 3990db4cc..82fda16af 100644 --- a/comp/src/gb.gui.base/.src/Test/FMain.class +++ b/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 diff --git a/comp/src/gb.gui.base/.startup b/comp/src/gb.gui.base/.startup index ecabdfd0f..3d3d4c6a3 100644 --- a/comp/src/gb.gui.base/.startup +++ b/comp/src/gb.gui.base/.startup @@ -1,4 +1,4 @@ -FGridView +FMain gb.gui.base 0 0