From 47ee4c1dba91be693fd9dd47bcc064c3d7a2f195 Mon Sep 17 00:00:00 2001 From: Teo Fonrouge Date: Tue, 21 Oct 2008 22:16:18 +0000 Subject: [PATCH] 2008-10-21 17:19 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com) * source/debug/debugger.prg ! Fixed error when moving in the call stack window to an source prg not included in the path, and a ::oWndVars (Monitor of vars) is opened. --- harbour/ChangeLog | 5 +++++ harbour/source/debug/debugger.prg | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b03deead82..57a4f535ae 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-10-21 17:19 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com) + * source/debug/debugger.prg + ! Fixed error when moving in the call stack window to an source prg + not included in the path, and a ::oWndVars (Monitor of vars) is opened. + 2008-10-21 22:18 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/hbapigt.h * harbour/source/rtl/console.c diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index be524a82cb..03c7a08236 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -333,7 +333,7 @@ CREATE CLASS HBDebugger METHOD Sort() INLINE ASort( ::aVars,,, { | x, y | x[ 1 ] < y[ 1 ] } ),; ::lSortVars := .T.,; iif( ::oBrwVars != NIL, ::oBrwVars:RefreshAll(), NIL ),; - iif( ::oWndVars != NIL .AND. ::oWndVars:lVisible, iif( !::lGo, ::oBrwVars:ForceStable(), NIL ), NIL ) + iif( ::oWndVars != NIL .AND. ::oWndVars:lVisible, iif( !::lGo .AND. ::oBrwVars != NIL, ::oBrwVars:ForceStable(), NIL ), NIL ) METHOD Speed() INLINE ::nSpeed := ::InputBox( "Step delay (in tenths of a second)", ::nSpeed ) @@ -1775,7 +1775,7 @@ METHOD LoadVars() CLASS HBDebugger // updates monitored variables ::oBrwVars:GoTop() ENDIF ::aVars := aBVars - IF ::lSortVars + IF ::lSortVars .AND. !Empty( ::aVars ) ::Sort() ENDIF