some minor fixes

2001-02-12 09:04:25 +00:00
parent acaacb3861
commit 10686dc8d1
1 changed files with 11 additions and 1 deletions
--- 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