0d92423b1c
* include/hbgtinfo.ch
* src/rtl/hbgtcore.c
* src/rtl/gtdos/gtdos.c
* src/rtl/gtwin/gtwin.c
* src/rtl/gtxwc/gtxwc.c
* src/rtl/gtcrs/gtcrs.c
* src/rtl/gtstd/gtstd.c
* src/rtl/gttrm/gttrm.c
* src/rtl/gtos2/gtos2.c
* src/rtl/gtsln/gtsln.c
* src/rtl/gtpca/gtpca.c
* src/rtl/gtwvt/gtwvt.c
* contrib/hbct/ctwin.c
* contrib/gtwvg/gtwvg.c
* contrib/gtwvg/wvggui.c
* contrib/gtalleg/gtalleg.c
* contrib/hbrun/hbrun.prg
* tests/wvt_fs.prg
* examples/gtwvw/gtwvw.c
* Renamed HB_GTI_FULLSCREEN to HB_GTI_ISSCREENPOS
HB_GTI_FULLSCREEN is now deprecated and will be deleted in future
version of Harbour, use the new name instead.
* Renamed HB_GTI_FULLSCREEN to HB_GTI_ISFULLSCREEN
in context of GT window being fullscreen on physical display
recently added in 2011-02-26 20:07 UTC+0100 Viktor Szakats
; If someone has further name suggestions, pls tell.
* src/rtl/hbgtcore.c
* Setting defaults for HB_GTI_ISFULLSCREEN and HB_GTI_ALTENTER.
30 lines
565 B
Plaintext
30 lines
565 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "hbgtinfo.ch"
|
|
#include "inkey.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
LOCAL cGt
|
|
|
|
cGt := HB_GtVersion( 0 )
|
|
IF cGt == "WVT"
|
|
HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )
|
|
ELSE
|
|
? "launch me under GTWVT"
|
|
QUIT
|
|
ENDIF
|
|
|
|
? "GTWVT test"
|
|
|
|
? HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. ), "we should be on full screen"
|
|
WAIT
|
|
? HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. ), "we should be windowed"
|
|
? HB_GtInfo( HB_GTI_ALTENTER, .T. ), "Alt+Enter is now enabled, try it"
|
|
DO WHILE Inkey( 0 ) != K_ESC
|
|
? Row()
|
|
ENDDO
|
|
|
|
RETURN
|