9377fc138b
* harbour/src/rtl/filesys.c
* harbour/src/rtl/hbproces.c
! use hb_fsOsError() instead of errno which can be overwritten by
by hb_fsSetIOError()
* harbour/tests/gtxfnt.prg
% hb_processRun() instead of hb_processOpen()/fread()/hb_processClose()
+ set font attributes: HB_GTI_FONTA_FIXMETRIC, HB_GTI_FONTA_CLRBKG,
HB_GTI_FONTA_DRAWBOX
51 lines
1.2 KiB
Plaintext
51 lines
1.2 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* demonstration/test code for changing font in X-Window GTs
|
|
*
|
|
* Copyright 2009 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#include "hbgtinfo.ch"
|
|
|
|
REQUEST HB_GT_XWC_DEFAULT
|
|
proc main()
|
|
local cChars, i, j, n
|
|
|
|
cChars := ""
|
|
for i := 0 to 7
|
|
cChars += ";"
|
|
for j := 0 to 31
|
|
n := i * 32 + j
|
|
cChars += iif( n == asc( ";" ), ",", ;
|
|
iif( n == 10, " ", chr( n ) ) )
|
|
next
|
|
next
|
|
|
|
n := 2
|
|
? hb_gtVersion( 0 ), hb_gtVersion( 1 )
|
|
hb_gtInfo( HB_GTI_FONTATTRIBUTE, HB_GTI_FONTA_FIXMETRIC + ;
|
|
HB_GTI_FONTA_CLRBKG + HB_GTI_FONTA_DRAWBOX )
|
|
while n == 2
|
|
? hb_gtInfo( HB_GTI_FONTSEL )
|
|
hb_gtInfo( HB_GTI_FONTSEL, xFontSel() )
|
|
n := alert( "What do you think about this font;;" + ;
|
|
hb_gtInfo( HB_GTI_FONTSEL ) + ";" + cChars, ;
|
|
{ "FINE", "CHANGE" } )
|
|
enddo
|
|
? "current font:"
|
|
? hb_gtInfo( HB_GTI_FONTSEL )
|
|
outstd( hb_gtInfo( HB_GTI_FONTSEL ) )
|
|
wait
|
|
return
|
|
|
|
function xfontsel()
|
|
local cStdOut
|
|
hb_processRun( "xfontsel -print",, @cStdOut )
|
|
return cStdOut
|