From 8184133ea1c4267b65696d48e4eeef5e8fdb964e Mon Sep 17 00:00:00 2001 From: Phil Krylov Date: Fri, 5 Jul 2013 17:15:13 +0400 Subject: [PATCH] 2013-07-05 17:05 UTC+0400 Phil Krylov (phil a t newstar.rinet.ru) * src/debug/debugger.prg ! Fixed a typo in my last commit. ! Make the debugger show itself before it starts restoring its settings. --- ChangeLog.txt | 5 +++++ src/debug/debugger.prg | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/ChangeLog.txt b/ChangeLog.txt index 90f33378b7..f7bd8c5172 100644 --- a/ChangeLog.txt +++ b/ChangeLog.txt @@ -10,6 +10,11 @@ * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment */ +2013-07-05 17:05 UTC+0400 Phil Krylov (phil.krylov gmail.com) + * src/debug/debugger.prg + ! Fixed a typo in my last commit. + ! Make the debugger show itself before it starts restoring its settings. + 2013-07-05 14:12 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) * src/debug/dbgentry.c ! added missing casting diff --git a/src/debug/debugger.prg b/src/debug/debugger.prg index cafd18f85a..e2167c9af7 100644 --- a/src/debug/debugger.prg +++ b/src/debug/debugger.prg @@ -396,6 +396,7 @@ METHOD New() CLASS HBDebugger ::BuildBrowseStack() IF hb_FileExists( ::cSettingsFileName ) + ::Show() ::LoadSettings() ::lGo := ::lRunAtStartup // Once again after settings file is loaded ENDIF @@ -1173,7 +1174,7 @@ METHOD DoCommand( cCommand ) CLASS HBDebugger oWindow:nRight + n - oWindow:nLeft ) ENDIF CASE starts( "SIZE", cParam ) - IF Empty( cParam ) + IF Empty( cParam1 ) ::NotSupported() ELSE n := At( " ", cParam1 ) @@ -1820,7 +1821,7 @@ METHOD LoadCallStack() CLASS HBDebugger LOCAL i LOCAL nDebugLevel LOCAL nCurrLevel - LOCAL nlevel + LOCAL nLevel LOCAL nPos ::aProcStack := Array( ::nProcLevel ) @@ -2353,9 +2354,9 @@ METHOD ResizeWindows( oWindow ) CLASS HBDebugger ENDIF IF oWindow2 != NIL .AND. lVisible2 - oWindow2:show() + oWindow2:Show() ENDIF - oWindow:show() + oWindow:Show() DispEnd() RETURN Self