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

20000131-15:09 GMT+1 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-01-31 14:14:27 +00:00
parent 0f03346e9b
commit d2d31eac4a
11 changed files with 887 additions and 805 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/ChangeLog
View File

@@ -1,3 +1,16 @@
20000131-15:09 GMT+1 Victor Szakats <info@szelvesz.hu>
* ft_helpc.b32
! Fixed CVS ID header.
* source/debug/debugger.prg
! Some constants changed to manifest constants (SC_NONE,SC_NORMAL)
+ NOTE readded.
* make_b40.bat
+ ft_helpc.b32 added.
* source/rdd/dbcmd.c
! Doc formatting errors fixed.
* source/tools/*.prg
! Email address separators added to some lic headers.
20000131-10:00 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/debug/debugger.prg
+ added _AltD(). Waiting for a Harbour fix to accept it as AltD()

2
harbour/ft_helpc.b32
View File

@@ -1,5 +1,5 @@
#
# $Id:
# $Id$
#
.path.c = ngdoc

1
harbour/make_b40.bat
View File

@@ -11,4 +11,5 @@ make -DB40 -fgt.b32 >> make.err
make -DB40 -frdd.b32 >> make.err
make -DB40 -frunner.b32 >> make.err
make -DB40 -fregress.b32 >> make.err
make -DB40 -fft_helpc.b32 >> make.err
notepad make.err

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

@@ -33,11 +33,16 @@
*
*/
/* NOTE: Don't use SAY/DevOut()/DevPos() for screen output, otherwise
the debugger output may interfere with the applications output
redirection, and is also slower. [vszel] */
#include "hbclass.ch"
#include "hbmemvar.ch"
#include "box.ch"
#include "inkey.ch"
#include "common.ch"
#include "setcurs.ch"
#xcommand MENU [<oMenu>] => [ <oMenu> := ] TDbMenu():New()
#xcommand MENUITEM <cPrompt> [ ACTION <uAction,...> ] => ;
@@ -199,8 +204,8 @@ METHOD BuildCommandWindow() CLASS TDebugger
::oWndCommand = TDbWindow():New( MaxRow() - 5, 0, MaxRow() - 1, MaxCol(),;
"Command", "BG+/B" )
::oWndCommand:bGotFocus = { || ::oGetListCommand:SetFocus(), SetCursor( 1 ) }
::oWndCommand:bLostFocus = { || SetCursor( 0 ) }
::oWndCommand:bGotFocus = { || ::oGetListCommand:SetFocus(), SetCursor( SC_NORMAL ) }
::oWndCommand:bLostFocus = { || SetCursor( SC_NONE ) }
::oWndCommand:bKeyPressed = { | nKey | ::CommandWindowProcessKey( nKey ) }
::oWndCommand:bPainted = { || DispOutAt( ::oWndCommand:nBottom - 1,;
::oWndCommand:nLeft + 1, "> ", ::oWndCommand:cColor ) }
@@ -393,7 +398,7 @@ METHOD HandleEvent() CLASS TDebugger
otherwise
if ( nPopup := ::oPullDown:GetHotKeyPos( AltToKey( nKey ) ) ) != 0
SetCursor( 0 )
SetCursor( SC_NONE )
::oPullDown:ShowPopup( nPopup )
endif
endcase
@@ -448,7 +453,7 @@ METHOD Show() CLASS TDebugger
::nAppRow = Row()
::nAppCol = Col()
::cAppColors = SetColor()
::nAppCursor = SetCursor( 0 )
::nAppCursor = SetCursor( SC_NONE )
::oPullDown:Display()
::oWndCode:Show( .t. )
@@ -645,7 +650,7 @@ METHOD InputBox( cMsg, uValue, bValid ) CLASS TDebugger
@ nTop + 1, nLeft + 1 GET uTemp VALID bValid
endif
nOldCursor = SetCursor( 1 )
nOldCursor = SetCursor( SC_NORMAL )
READ
SetCursor( nOldCursor )
oWndInput:Hide()
@@ -692,7 +697,7 @@ METHOD SaveAppStatus() CLASS TDebugger
::cAppColors = SetColor()
::nAppCursor = SetCursor()
RestScreen( 0, 0, MaxRow(), MaxCol(), ::cImage )
SetCursor( 0 )
SetCursor( SC_NONE )
DispEnd()
return nil

1647
harbour/source/rdd/dbcmd.c
View File

File diff suppressed because it is too large Load Diff

2
harbour/source/tools/html.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* HTML Support Code For FT_HELPC
*
* Copyright 2000 Luiz Rafael Culik Culik@sl.conex.net
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/nconvert.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Conversion Funtions
*
* Copyright 1999 Luiz Rafael Culik
* Copyright 1999 Luiz Rafael Culik <Culik@sl.conex.net>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/ng.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Norton Guide Support Code For FT_HELPC
*
* Copyright 2000 Luiz Rafael Culik Culik@sl.conex.net
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/os2.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Norton Guide Support Code For FT_HELPC
*
* Copyright 2000 Luiz Rafael Culik Culik@sl.conex.net
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/rtf.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* RTF Support Code For FT_HELPC
*
* Copyright 2000 Luiz Rafael Culik Culik@sl.conex.net
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify

2
harbour/source/tools/troff.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* TROFF Support Code For FT_HELPC
*
* Copyright 2000 Luiz Rafael Culik Culik@sl.conex.net
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify