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

2007-08-24 22:45 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/utils/hbdot/hbdot.prg
    * some minor modifications for GT drivers which allow to change
      the size of console window
    * changed the order of requested GTs for CYGWIN builds
This commit is contained in:
Przemyslaw Czerpak
2007-08-24 20:45:22 +00:00
parent 010c23eeb2
commit 24fdc9b1d3
2 changed files with 22 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-08-24 22:45 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/utils/hbdot/hbdot.prg
* some minor modifications for GT drivers which allow to change
the size of console window
* changed the order of requested GTs for CYGWIN builds
2007-08-24 20:35 UTC+0100 Marek Paliwoda (mpaliwoda at interia pl)
* harbour/makefile.gc
! Fixed compilation of hbverfix

25
harbour/utils/hbdot/hbdot.prg
View File

@@ -66,7 +66,7 @@ STATIC s_aIncDir := {}
/* ********************************************************************** */
PROCEDURE _APPMAIN( cFile, ... )
LOCAL GetList, cLine, cCommand, cPath
LOCAL GetList, cLine, cCommand, cPath, nMaxRow, nMaxCol
LOCAL aHistory, nHistIndex
LOCAL bKeyUP, bKeyDown, bKeyIns
@@ -83,9 +83,10 @@ PROCEDURE _APPMAIN( cFile, ... )
#endif
IF PCount() > 0
SWITCH cFile
SWITCH lower( cFile )
CASE "-?"
CASE "-h"
CASE "-h"
CASE "--help"
CASE "/?"
CASE "/h"
@@ -117,8 +118,11 @@ PROCEDURE _APPMAIN( cFile, ... )
HB_DotInfo( cCommand )
@ MaxRow(), 00 SAY HB_PROMPT
@ Row(), Col() GET cLine PICTURE "@KS79"
nMaxRow := MaxRow()
nMaxCol := MaxCol()
@ nMaxRow, 0 SAY HB_PROMPT
@ nMaxRow, Col() GET cLine ;
PICTURE "@KS" + LTrim( Str( nMaxCol - Col() + 1 ) )
SetCursor( IIF( ReadInsert(), SC_INSERT, SC_NORMAL ) )
@@ -141,6 +145,9 @@ PROCEDURE _APPMAIN( cFile, ... )
IF LastKey() == K_ESC .OR. EMPTY( cLine )
cLine := NIL
IF nMaxRow != MaxRow() .OR. nMaxCol != MaxCol()
@ nMaxRow, 0 CLEAR
ENDIF
LOOP
ENDIF
@@ -156,7 +163,7 @@ PROCEDURE _APPMAIN( cFile, ... )
cCommand := AllTrim( cLine, " " )
cLine := NIL
@ MaxRow(), 0 CLEAR
@ nMaxRow, 0 CLEAR
HB_DotInfo( cCommand )
HB_DotExec( cCommand )
@@ -306,11 +313,11 @@ RETURN
/* ********************************************************************** */
/* request about full screen GT driver */
#if defined( __PLATFORM__UNIX )
REQUEST HB_GT_TRM_DEFAULT
#elif defined( __PLATFORM__Windows )
/* request for full screen GT driver */
#if defined( __PLATFORM__Windows )
REQUEST HB_GT_WIN_DEFAULT
#elif defined( __PLATFORM__UNIX )
REQUEST HB_GT_TRM_DEFAULT
#elif defined( __PLATFORM__DOS )
REQUEST HB_GT_DOS_DEFAULT
#elif defined( __PLATFORM__OS2 )