From 10686dc8d12864ea64561f15578cdb8fa182e162 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 12 Feb 2001 09:04:25 +0000
Subject: [PATCH] some minor fixes

---
 harbour/source/debug/debugger.prg | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index 296891ce09..694786ce9d 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -855,7 +855,17 @@ METHOD ShowAppScreen() CLASS TDebugger
 
    ::cImage := SaveScreen()
    RestScreen( 0, 0, MaxRow(), MaxCol(), ::cAppImage )
-   InKey( 0 )
+
+   if LastKey() == K_LBUTTONDOWN
+      InKey( 0, INKEY_ALL )
+      InKey( 0, INKEY_ALL )
+   else
+      InKey( 0, INKEY_ALL )
+   endif
+
+   while LastKey() == K_MOUSEMOVE
+      InKey( 0, INKEY_ALL )
+   end
    RestScreen( 0, 0, MaxRow(), MaxCol(), ::cImage )
 
 return nil