fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
1999-08-23 15:19:47 +00:00
parent 092fd8c420
commit 49b321059a
2 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990823-17:00 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/debug/debugger.prg
* improved application colors and cursor management.
19990823-12:40 GMT+2 Ryszard Glab <rglab@imid.med.pl>
*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 <bruno@issnet.net>
* 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 <info@szelvesz.hu>
* 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

17
harbour/source/debug/debugger.prg
View File

@@ -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