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

2000-01-25 02:45 GMT+1 Antonio Linares <alinares@fivetech.com>

Browse Source
This commit is contained in:
Antonio Linares
2000-01-25 01:48:51 +00:00
parent f0a7014abc
commit b28db0d886
2 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-01-25 02:45 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/debug/debugger.prg
* Support for up and down arrows on command window
Still needs some fine tunning.
2000-01-24 20:15 GMT-5 David G. Holm <dholm@ sd-llc.com>
* source/rtl/environ.c

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

@@ -179,16 +179,20 @@ METHOD EnableCommand() CLASS TDebugger
local lExit := .f.
local cCommand, cResult
local bRestoreKeys := { || SetKey( K_SH_TAB, nil ), SetKey( K_TAB, nil ),;
SetKey( K_UP, nil ) }
SetKey( K_UP, nil ), SetKey( K_DOWN, nil ) }
Set( _SET_SCOREBOARD, .f. )
SetKey( K_SH_TAB, { || lExit := .t., Eval( bRestoreKeys ),;
__Keyboard( Chr( K_ESC ) + Chr( K_SH_TAB ) ) } )
SetKey( K_TAB, { || lExit := .t., Eval( bRestoreKeys ),;
__Keyboard( Chr( K_ESC ) + Chr( K_TAB ) ) } )
SetKey( K_UP, { || If( ::nCommand > 0, ( GetList[ 1 ]:VarPut( ::aLastCommands[ ;
::nCommand ] ), GetList[ 1 ]:Display(),;
SetKey( K_UP, { || If( ::nCommand > 0, ( GetList[ 1 ]:Buffer := ::aLastCommands[ ;
::nCommand ], GetList[ 1 ]:Pos := 1, GetList[ 1 ]:Display(),;
If( ::nCommand > 1, ::nCommand--, nil ) ), nil ) } )
SetKey( K_DOWN, { || If( ::nCommand <= Len( ::aLastCommands ),;
( GetList[ 1 ]:Buffer := ::aLastCommands[ ;
::nCommand ], GetList[ 1 ]:Pos := 1, GetList[ 1 ]:Display(),;
If( ::nCommand < Len( ::aLastCommands ), ::nCommand++, nil ) ), nil ) } )
while ! lExit
@ ::oWndCommand:nBottom - 1, ::oWndCommand:nLeft + 1 SAY "> " ;