*** empty log message ***

harbour/ChangeLog

@@ -1,3 +1,8 @@
+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.
+
 19990823-01:11 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/rtl/alert.prg
     ! PreExt/PostExt code moved inside Alert(), then the STATIC variable

harbour/source/debug/debugger.prg

@@ -100,10 +100,16 @@ return Self
 
 METHOD Activate( cModuleName ) CLASS TDebugger
 
+   ::cAppImage  = SaveScreen()
+   ::nAppRow    = Row()
+   ::nAppCol    = Col()
+   ::cAppColors = SetColor()
+   ::nAppCursor = SetCursor()
    ::Show()
    ::ShowCode( cModuleName )
-   ::HandleEvent()
-   // ::Hide()
+   ::cImage := SaveScreen()
+   DispBegin()
+   RestScreen( 0, 0, MaxRow(), MaxCol(), ::cAppImage )
 
 return nil