From 49b321059a7155b13dcec1e7537832207cdc3d87 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 23 Aug 1999 15:19:47 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 12 ++++++++---- harbour/source/debug/debugger.prg | 17 ++++++++++++----- 2 files changed, 20 insertions(+), 9 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 158ea672b4..1084d59baa 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +19990823-17:00 GMT+1 Antonio Linares + * source/debug/debugger.prg + * improved application colors and cursor management. + 19990823-12:40 GMT+2 Ryszard Glab *source/compiler/harbour.y @@ -17,9 +21,9 @@ debug code is not requested * some internal variables declared 'static' * EXIT functions are called on exit when QUIT is requested - + QUESTION: How to handle the call to QUIT function inside of - EXIT procedure? Should we continue execution of the rest of + EXIT procedure? Should we continue execution of the rest of procedures or immediatelly quit to OS? *include/pcode.h @@ -95,7 +99,7 @@ NOTE: You have to recompile all PRG code! * source/rtl/alert.prg + PreExt() and PostExt() These allow alert to display if dispbegin is in effect. - + 19990822-20:02 GMT+1 Bruno Cantero * source/rdd/dbcmd.c source/rdd/dbf1.c @@ -109,7 +113,7 @@ NOTE: You have to recompile all PRG code! 19990822-14:12 GMT+1 Victor Szel * config/win32/gcc.cf - + -( -) parameters temporarly readded, to make it work, new circular + + -( -) parameters temporarly readded, to make it work, new circular dependencies has been introduced, since HVM.C is calling RDD functions. * include/extend.h source/rtl/strings.c diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index f0d821bc79..c5e48ad363 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -78,6 +78,7 @@ CLASS TDebugger METHOD New() METHOD Activate( cModuleName ) METHOD Show() + METHOD ShowAppScreen() METHOD ShowCode( cModuleName ) METHOD HandleEvent() METHOD Hide() @@ -153,10 +154,7 @@ METHOD HandleEvent() CLASS TDebugger ::oBrwText:ForceStable() case nKey == K_F4 - ::cImage = SaveScreen() - RestScreen( 0, 0, MaxRow(), MaxCol(), ::cAppImage ) - InKey( 0 ) - RestScreen( 0, 0, MaxRow(), MaxCol(), ::cImage ) + ::ShowAppScreen() case nKey == K_F8 ::cImage = SaveScreen() @@ -212,6 +210,15 @@ METHOD Show() CLASS TDebugger return nil +METHOD ShowAppScreen() CLASS TDebugger + + ::cImage = SaveScreen() + RestScreen( 0, 0, MaxRow(), MaxCol(), ::cAppImage ) + InKey( 0 ) + RestScreen( 0, 0, MaxRow(), MaxCol(), ::cImage ) + +return nil + METHOD ShowCode( cModuleName ) CLASS TDebugger local cPrgName := SubStr( cModuleName, 1, At( ":", cModuleName ) - 1 ) @@ -783,7 +790,7 @@ function BuildMenu( oDebugger ) // Builds the debugger pulldown menu MENU MENUITEM " &Sets" ACTION Alert( "Not implemented yet!" ) MENUITEM " &WorkAreas F6" ACTION Alert( "Not implemented yet!" ) - MENUITEM " &App screen F4 " ACTION Alert( "Not implemented yet!" ) + MENUITEM " &App screen F4 " ACTION oDebugger:ShowAppScreen() SEPARATOR MENUITEM " &CallStack" ACTION Alert( "Not implemented yet!" ) ENDMENU