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.
This commit is contained in:
Phil Krylov
2013-07-05 17:15:13 +04:00
parent 6153da2b05
commit 8184133ea1
2 changed files with 10 additions and 4 deletions

View File

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