[SCRIPTER]

* BUG: Correct an array overflow in ReportContainer


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

comp/src/gb.report/.project

@@ -1,7 +1,7 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 
+# Compiled with Gambas 2.99.0
 Title=gb.report
-Startup=Report1
+Startup=Report2
 Icon=printer1.png
 Version=2.99.0
 VersionProgram=gbx3 -V
@@ -12,7 +12,6 @@ Component=gb.db
 Component=gb.report
 Description="Report engine for gambas"
 Authors="Fabien Bodard"
-Environment="GB_GUI="
 TabSize=2
 MakeComponent=1
 State=2

comp/src/gb.report/.src/ReportContainer.class

@@ -226,11 +226,11 @@ Public Sub _GenerateClones()
   Dim bRaiseRet As Boolean
   Dim aCopy As TControl[]
   
-  aCopy = $aChild.Copy()
+  
     If $aChildCopy Then 
       $aChild = $aChildCopy.Copy()
     Endif 
-    
+    aCopy = $aChild.Copy()
     
     For Each hTc In aCopy
       If hTc.Ctrl Is ReportContainer Then