From acd4e3093bf21b1c1d8ade645e37e086295c32e8 Mon Sep 17 00:00:00 2001
From: Fabien Bodard <gambas.fr@gmail.com>
Date: Sat, 11 Sep 2010 08:57:36 +0000
Subject: [PATCH] [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                   | 5 ++---
 comp/src/gb.report/.src/ReportContainer.class | 4 ++--
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/comp/src/gb.report/.project b/comp/src/gb.report/.project
index 3daa163d7..539d3b1a8 100644
--- a/comp/src/gb.report/.project
+++ b/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
diff --git a/comp/src/gb.report/.src/ReportContainer.class b/comp/src/gb.report/.src/ReportContainer.class
index f12627ccb..8d2dcf0dd 100644
--- a/comp/src/gb.report/.src/ReportContainer.class
+++ b/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