31a85b650e
* utils/hbmk2/hbmk2.*.po
* utils/hbmk2/hbmk2.prg
% minor optimization to recent patch
+ cleanups in some help items
+ '-?' and '-h' options are now accepted as '-help'
+ '-??' and '-hh' options are now accepted as '-longhelp'
- deleted '-license' option, it's now part of '-longhelp'
! hbshell_gtSelect() parameter fixed to be case insentitive
in an internal check
+ tests/clipper.ch
+ added header file that translates certain Harbour
specific functions to ones understood by Clipper.
Useful to compile lightly Harbour specific code
in Clipper (or other Clipper compatible language),
for comparison.
* tests/*.prg
- tests/exthrb.prg
+ tests/hrbext.prg
* website/samples/*.prg.html
! various cleanups, minor fixes, formatting
+ #included "clipper.ch" to enable running what's
possible to run with Clipper
* src/rtl/gtwin/gtwin.c
* src/rtl/gtwvt/gtwvt.c
! return string type for hb_gtInfo( HB_GTI_FONTSEL )
in sync with GTXWC
* contrib/xhb/xhbfunc.c
* include/hbdefs.h
* HB_FUNC_EXEC() macro value to not end with ';',
now it should be added on usage (almost all usages
were such already). To be code formatter friendly.
* contrib/xhb/xhb.hbp
+ contrib/xhb/xhbdepr.prg
+ added compatiblity stubs for functions deprecated from
Harbour core, but still available in xHarbour. (xHarbour
has yet to deprecate anything)
So here we can gather stuff that's deprecated from Harbour
core (except internal functions - most of them named '__*' -,
and the "evil" ones)
; NOTE: Runtime efficiency is not a goal with these stubs,
only "cheap" long term maintainability.
- contrib/hbblat/tests/blattest.prg
+ contrib/hbblat/tests/test.prg
* extras/guestbk/guestbk.hbp
- extras/guestbk/testcgi.prg
+ extras/guestbk/cgi.prg
* renames
* src/vm/dynsym.c
* contrib/hbfbird/tests/testapi.c
* contrib/xhb/thtm.prg
* minor
80 lines
1.7 KiB
Plaintext
80 lines
1.7 KiB
Plaintext
/*
|
||
* $Id$
|
||
*/
|
||
|
||
// Copyright 2000 Alejandro de Garate <alex_degarate hotmail com>
|
||
|
||
// Test SetMode() for Harbour
|
||
|
||
#define HB_NOT_SUPPORTED "Video mode not supported on this system.."
|
||
#define HB_VROW 1
|
||
#define HB_VCOL 2
|
||
#define HB_PROMPT 3
|
||
|
||
PROCEDURE Main()
|
||
|
||
LOCAL nMode := 1, nRow
|
||
LOCAL aVModes := { ;
|
||
{ 12, 40, " 12 x 40 " }, ;
|
||
{ 25, 40, " 25 x 40 " }, ;
|
||
{ 28, 40, " 28 x 40 " }, ;
|
||
{ 50, 40, " 50 x 40 " }, ;
|
||
{ 12, 80, " 12 x 80 " }, ;
|
||
{ 25, 80, " 25 x 80 " }, ;
|
||
{ 28, 80, " 28 x 80 " }, ;
|
||
{ 43, 80, " 43 x 80 " }, ;
|
||
{ 50, 80, " 50 x 80 " }, ;
|
||
{ 60, 80, " 60 x 80 " } }
|
||
|
||
DO WHILE nMode != 0
|
||
|
||
CLS
|
||
@ 0, 0 SAY "Select the video mode you want to test.."
|
||
|
||
FOR nRow := 1 TO 5
|
||
@ 2 + nRow, 10 PROMPT aVModes[ nRow ][ HB_PROMPT ]
|
||
NEXT
|
||
|
||
FOR nRow := 6 TO 10
|
||
@ 2 + nRow - 5, 25 PROMPT aVModes[ nRow ][ HB_PROMPT ]
|
||
NEXT
|
||
MENU TO nMode
|
||
|
||
IF nMode > 0
|
||
|
||
IF SetMode( aVModes[ nMode ][ HB_VROW ], aVModes[ nMode ][ HB_VCOL ] )
|
||
TESTBOX( aVModes[ nMode ][ HB_PROMPT ] )
|
||
ELSE
|
||
@ MaxRow(), 0 SAY HB_NOT_SUPPORTED
|
||
Inkey( 0 )
|
||
ENDIF
|
||
ENDIF
|
||
|
||
ENDDO
|
||
|
||
RETURN
|
||
|
||
// Simple testing screen.
|
||
|
||
PROCEDURE TESTBOX( cMode )
|
||
|
||
LOCAL nRow
|
||
|
||
CLS
|
||
@ 0, 0 TO MaxRow(), MaxCol() DOUBLE
|
||
@ 0, 3 SAY cMode
|
||
@ MaxRow(), 3 SAY " Press a key "
|
||
|
||
@ 8, 0 SAY Replicate( " ", 20 )
|
||
@ 9, 0 SAY Replicate( "0123456789", 20 )
|
||
|
||
FOR nRow := 0 TO MaxRow()
|
||
@ nRow, 18 SAY Str( nRow, 2 )
|
||
NEXT
|
||
|
||
@ 4, 2 SAY "MaxRow() = " + Str( MaxRow(), 3 )
|
||
@ 5, 2 SAY "MaxCol() = " + Str( MaxCol(), 3 )
|
||
Inkey( 0 )
|
||
|
||
RETURN
|