From aae2bb33fb438ec81088164e21f64a3cea5899e9 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Wed, 31 Oct 2012 17:21:14 +0000 Subject: [PATCH] 2012-10-31 18:20 UTC+0100 Viktor Szakats (harbour syenar.net) * tests/gfx.prg + changed do display GT name on screen rather than to stdout --- harbour/ChangeLog | 4 ++++ harbour/tests/gfx.prg | 4 +--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index cb4cf8e95b..0fce9e7493 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2012-10-31 18:20 UTC+0100 Viktor Szakats (harbour syenar.net) + * tests/gfx.prg + + changed do display GT name on screen rather than to stdout + 2012-10-31 17:30 UTC+0100 Viktor Szakats (harbour syenar.net) * INSTALL * package/harbour.rb diff --git a/harbour/tests/gfx.prg b/harbour/tests/gfx.prg index 80543b50ea..8074cd3311 100644 --- a/harbour/tests/gfx.prg +++ b/harbour/tests/gfx.prg @@ -31,14 +31,12 @@ PROCEDURE Main() hb_gtInfo( HB_GTI_FONTSIZE, 24 ) ENDIF - OutStd( hb_gtVersion( 1 ) + hb_eol() ) - nFontHeight := hb_gtInfo( HB_GTI_FONTSIZE ) nFontWidth := hb_gtInfo( HB_GTI_FONTWIDTH ) SetColor( "n/w" ) @ 0, 0 SAY Space( MaxCol() + 1 ) - @ 1, 0 SAY PadC( WELCOME, MaxCol() + 1 ) + @ 1, 0 SAY PadC( WELCOME + " (" + hb_gtVersion( 0 ) + ")", MaxCol() + 1 ) @ 2, 0 SAY Space( MaxCol() + 1 ) hb_gtInfo( HB_GTI_WINTITLE, "Cross-GT, multiplatform graphics demo" )