From 81e93cb69567180ae27d7c98e27a67d3e72804c8 Mon Sep 17 00:00:00 2001 From: Paul Tucker Date: Mon, 23 Aug 1999 05:41:57 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 2 +- harbour/source/debug/debugger.prg | 8 +++++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index af6ca54690..ea5da977e5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,7 +1,7 @@ 19990823-01:11 EDT Paul Tucker * source/debug/debugger.prg * ::Activate - fix for trashed screens - Escape key is still a problem for now. + Escape key will now exit the debugger, but the app will continue to run 19990823-01:11 GMT+1 Victor Szel * source/rtl/alert.prg diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index 1777220b5f..46191d5ec7 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -38,12 +38,13 @@ #xcommand ENDMENU => ATail( TDbMenu():aMenus ):Build() static oDebugger +static lExit := .F. function __dbgEntry( uParam ) // debugger entry point do case case ValType( uParam ) == "C" // called from hvm.c hb_vmModuleName() - if oDebugger == nil + if oDebugger == nil .and. !lExit oDebugger = TDebugger():New() oDebugger:Activate( uParam ) endif @@ -128,6 +129,11 @@ METHOD HandleEvent() CLASS TDebugger ::oPullDown:ProcessKey( nKey ) case nKey == K_ESC + RestScreen( 0, 0, MaxRow(), MaxCol(), ::cAppImage ) + SetPos( ::nAppRow, ::nAppCol ) + SetColor( ::cAppColors ) + oDebugger := nil + lExit := .T. ::Exit() case nKey == K_UP