bad8d209f0
* contrib/gtwvg/class.prg
* contrib/gtwvg/tests/demowvg.prg
* contrib/gtwvg/tests/demowvg1.prg
* contrib/gtwvg/tests/modal.prg
* contrib/gtwvg/tests/tbrowser.prg
* contrib/gtwvg/tests/utils.prg
* contrib/hbmisc/hbedit.prg
* contrib/hbnetio/utils/hbnetio/netiocon.prg
* contrib/hbnf/popadder.prg
* contrib/xhb/ttable.prg
* contrib/xhb/xhbtedit.prg
* extras/gtwvw/tests/maincoor.prg
* extras/gtwvw/tests/prog0.prg
* extras/gtwvw/tests/prog1.prg
* extras/gtwvw/tests/prog2.prg
* src/debug/dbghelp.prg
* src/debug/dbgtwin.prg
* src/debug/debugger.prg
* tests/db_brows.prg
* tests/testprof.prg
* DispOut*() -> hb_DispOut*()
* DispBox*() -> hb_DispBox*()
* Scroll()/CLEAR TO -> hb_Scroll()
; For being MT-friendly and more efficient/flicker-free
in general
; Please review if I had missed some places where
the legacy API usage was actually intentional to
position the cursor. (f.e. some places in gtwvg)
* tests/gtstdtst.prg
* minor
68 lines
1.1 KiB
Plaintext
68 lines
1.1 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/* gtstd test */
|
|
|
|
#ifndef __HARBOUR__
|
|
#define hb_ntos( n ) LTrim( Str( n ) )
|
|
#endif
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL n
|
|
|
|
PosNow()
|
|
?? "Output test. First line, no newlines."
|
|
|
|
? "Press a key to continue: "
|
|
?? Inkey( 0 )
|
|
|
|
? "This is row " + hb_ntos( Row() )
|
|
|
|
@ 7, 30 SAY "@ 7, 30"
|
|
@ 7, 10 SAY "@ 7, 10"
|
|
@ 7, 60 SAY "@ 7, 60"
|
|
@ 7, 75 SAY "9876543210"
|
|
@ 6, 10 SAY "@ 6, 10.."
|
|
PosNow()
|
|
|
|
?
|
|
? "Scroll test: pre = "
|
|
PosNow()
|
|
// Scroll( 0, 0, MaxRow(), MaxCol(), -3, 0 )
|
|
?? " post = "
|
|
PosNow()
|
|
|
|
?
|
|
? "Press key to test CLS"
|
|
Inkey( 0 )
|
|
CLS
|
|
|
|
PosNow()
|
|
|
|
?
|
|
? "Press key to test FOR n := 100 TO 120; Tone( n, 1 ); NEXT"
|
|
Inkey( 0 )
|
|
FOR n := 100 TO 120
|
|
Tone( n, 1 )
|
|
NEXT
|
|
|
|
? "Done.."
|
|
? "Testing long string via QOUT. 50 characters follow here: 98765432109876543210987654321098765432109876543210"
|
|
? "Done.. testing end of screen scroll"
|
|
|
|
FOR n := 1 TO 25
|
|
? "This line is on row "
|
|
?? hb_ntos( Row() )
|
|
Inkey( 0 )
|
|
NEXT
|
|
|
|
RETURN
|
|
|
|
FUNCTION PosNow()
|
|
|
|
?? "[" + hb_ntos( Row() ) + "," + hb_ntos( Col() ) + "]"
|
|
|
|
RETURN NIL
|