diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d10a537ffe..9fcc5e4760 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-09-28 17:17 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+  * contrib/hbqt/tests/testbrow.prg
+    ! Adopted to latest changes.
+
 2010-09-29 02:08 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbapirdd.h
   * harbour/src/rdd/workarea.c
diff --git a/harbour/contrib/hbqt/tests/testbrow.prg b/harbour/contrib/hbqt/tests/testbrow.prg
index 5c83585401..06d96d4b21 100644
--- a/harbour/contrib/hbqt/tests/testbrow.prg
+++ b/harbour/contrib/hbqt/tests/testbrow.prg
@@ -37,7 +37,6 @@ REQUEST HB_QTGUI
 
 INIT PROCEDURE Qt_Start()
    qApp := QApplication()
-   qSlots := QT_SLOTS_NEW()
    RETURN
 
 EXIT PROCEDURE Qt_End()
@@ -70,14 +69,14 @@ PROCEDURE Main()
    mo1 := HBQAbstractItemModel( {| t, r, x, y| my_browse( 1, aStru1, t, r, x, y ) } )
    tb1:setModel( mo1 )
 
-   QT_SLOTS_CONNECT( qSlots, tb1:itemDelegate(), "commitData(QWidget)", {| w | my_save( w, 1, aStru1, @nCX1, @nCY1 ) } )
-   QT_SLOTS_CONNECT( qslots, tb1:SelectionModel(), "currentChanged(QModelIndex,QModelIndex)", {| n | my_select( n, @nCX1, @nCY1 ) } )
+   tb1:itemDelegate():connect( "commitData(QWidget)", {| w | my_save( w, 1, aStru1, @nCX1, @nCY1 ) } )
+   tb1:selectionModel():connect( "currentChanged(QModelIndex,QModelIndex)", {| n | my_select( n, @nCX1, @nCY1 ) } )
 
-   hd1 := QHeaderView():from( tb1:horizontalHeader() )
+   hd1 := tb1:horizontalHeader()
    FOR i := 1 To Len( aStru1 )
       hd1:resizeSection( i - 1, aStru1[ i, 3 ] * 6 + 60 )
    NEXT
-   QHeaderView():from( tb1:verticalHeader() ):setDefaultSectionSize( 24 )
+   tb1:verticalHeader():setDefaultSectionSize( 24 )
 
    oSize := QSize(50,24)