From ad8660b652db1855f9493a5caff1820538883bea Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Wed, 30 Jun 2010 17:27:10 +0000 Subject: [PATCH] 2010-06-30 10:23 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/idebrowse.prg ! Fixed: closing a table in ideDBU was causing RTE. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbide/idebrowse.prg | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 508a050cf3..df03a89c58 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2010-06-30 10:23 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbide/idebrowse.prg + ! Fixed: closing a table in ideDBU was causing RTE. + 2010-06-30 19:17 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * src/vm/extend.c * include/hbapi.h diff --git a/harbour/contrib/hbide/idebrowse.prg b/harbour/contrib/hbide/idebrowse.prg index 2a5681bdbf..cb1fbae5ae 100644 --- a/harbour/contrib/hbide/idebrowse.prg +++ b/harbour/contrib/hbide/idebrowse.prg @@ -301,10 +301,10 @@ METHOD IdeBrowseManager:execEvent( cEvent, p ) CASE "buttonClose_clicked" IF !empty( ::oCurBrw ) - IF ( n := ascan( ::aItems, {|oBrw| oBrw == ::oCurBrw } ) ) > 0 - hb_adel( ::aItems, n, .t. ) + IF ( n := ascan( ::oCurPanel:aItems, {|o| o == ::oCurBrw } ) ) > 0 + hb_adel( ::oCurPanel:aItems, n, .t. ) ::oCurBrw:destroy() - FOR EACH oBrw IN ::aItems + FOR EACH oBrw IN ::oCurPanel:aItems oBrw:oBrw:configure() NEXT ENDIF