58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
70 lines
1.5 KiB
Plaintext
70 lines
1.5 KiB
Plaintext
/*
|
|
* demonstration/test code for using more then one console window.
|
|
* It needs GT driver which supports such functionality, i.e.
|
|
* GTWVT in MS-Windows or GTXWC in XWindow.
|
|
*
|
|
* Copyright 2008 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
*
|
|
*/
|
|
|
|
#include "box.ch"
|
|
|
|
#ifdef __PLATFORM__WINDOWS
|
|
#if ! defined( __HBSCRIPT__HBSHELL )
|
|
REQUEST HB_GT_WVT_DEFAULT
|
|
#endif
|
|
#define THREAD_GT "WVT"
|
|
#else
|
|
REQUEST HB_GT_STD_DEFAULT
|
|
#define THREAD_GT "XWC"
|
|
#endif
|
|
|
|
proc main()
|
|
local pGT, pGT1, pGT2
|
|
|
|
#if defined( __HBSCRIPT__HBSHELL )
|
|
#if defined( __PLATFORM__WINDOWS )
|
|
hbshell_gtSelect( "GTWVT" )
|
|
#elif defined( __PLATFORM__UNIX )
|
|
hbshell_gtSelect( "GTXWC" )
|
|
#endif
|
|
#endif
|
|
|
|
? "This is small test for using more then one console window."
|
|
? "It needs GT which supports such functionality i.e. GTWVT in"
|
|
? "MS-Windows or GTXWC in XWindow"
|
|
wait
|
|
|
|
? "Create two new GTs:"
|
|
pGT1 := hb_gtCreate( THREAD_GT )
|
|
? "1 =>", pGT1
|
|
pGT2 := hb_gtCreate( THREAD_GT )
|
|
? "2 =>", pGT1
|
|
|
|
pGT := hb_gtSelect( pGT1 )
|
|
SetColor( "W+/R" )
|
|
DispBox( 10, 10, 20, 50, HB_B_DOUBLE_UNI + " " )
|
|
?? "This test is shown in 1-st GT window"
|
|
|
|
hb_gtSelect( pGT2 )
|
|
SetColor( "W+/B" )
|
|
DispBox( 15, 30, 20, 70, HB_B_DOUBLE_UNI + " " )
|
|
?? "This test is shown in 2-nd GT window"
|
|
|
|
hb_gtSelect( pGT )
|
|
? "New console window should be visible now"
|
|
wait
|
|
|
|
? "Destroy 1-st window..."
|
|
pGT1 := NIL
|
|
?? "done"
|
|
wait
|
|
|
|
? "Destroy 2-nd window..."
|
|
pGT2 := NIL
|
|
?? "done"
|
|
|
|
wait "Press any key to exit"
|
|
|
|
return
|