From ef16143d1e18439b9e78566671ec214cf8cfce35 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Fri, 16 Jul 2010 06:18:04 +0000
Subject: [PATCH] 2010-07-16 08:16 UTC+0200 Viktor Szakats (harbour.01
 syenar.hu)   * contrib/hbqt/tests/testqaim.prg     ! Two fixes reported by
 Tamas and Bacco respectively.

---
 harbour/ChangeLog                       | 4 ++++
 harbour/contrib/hbqt/tests/testqaim.prg | 8 ++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d4e40b6c6f..bb73c01cda 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-07-16 08:16 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbqt/tests/testqaim.prg
+    ! Two fixes reported by Tamas and Bacco respectively.
+
 2010-07-16 08:10 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * src/common/hbver.c
     * Formatting.
diff --git a/harbour/contrib/hbqt/tests/testqaim.prg b/harbour/contrib/hbqt/tests/testqaim.prg
index b5a027bb72..63dc3c0f00 100644
--- a/harbour/contrib/hbqt/tests/testqaim.prg
+++ b/harbour/contrib/hbqt/tests/testqaim.prg
@@ -23,14 +23,14 @@ REQUEST HB_QT
 
 INIT PROCEDURE Qt_Start()
    qApp := QApplication():new()
-RETURN
+   RETURN
 
 EXIT PROCEDURE Qt_End()
    qApp:quit()
-RETURN
+   RETURN
 
 PROCEDURE Main()
-   LOCAL oDA, tb1, mo1, lay1, lay2, bt1, bt2, bt3
+   LOCAL tb1, mo1, lay1, lay2, bt1, bt2, bt3
 
    oWnd := QMainWindow():new()
    oWnd:resize(600,400 )
@@ -141,7 +141,7 @@ STATIC FUNCTION my_aim( t, role, x, y )
       CASE Qt_SizeHintRole
          RETURN oSize  /* Finally we are sending a QSize */
       ENDSWITCH
-      BREAK
+      RETURN NIL
 
    CASE HBQT_QAIM_rowCount
       RETURN 50000