fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-10-31 18:20 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* tests/gfx.prg
    + changed do display GT name on screen rather than to stdout
This commit is contained in:
Viktor Szakats
2012-10-31 17:21:14 +00:00
parent a1322743ff
commit aae2bb33fb
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -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

4
harbour/tests/gfx.prg
View File

@@ -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" )