*** empty log message ***

harbour/ChangeLog

@@ -1,7 +1,7 @@
 19990823-01:11 EDT Paul Tucker <ptucker@sympatico.ca>
   * 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 <info@szelvesz.hu>
   * source/rtl/alert.prg

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