fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-10-21 17:19 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com)

Browse Source 
* 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.
This commit is contained in:
Teo Fonrouge
2008-10-21 22:16:18 +00:00
parent 0cef1d4902
commit 47ee4c1dba
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -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

4
harbour/source/debug/debugger.prg
View File

@@ -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