"{ Package: 'stx:libview' }"

FontDescription subclass:#XftFontDescription

	instanceVariableNames:'device fontId drawId'

	classVariableNames:''

	poolDictionaries:''

	category:'Graphics-Support'

!

!XftFontDescription primitiveDefinitions!

%{

/*

 * includes, defines, structure definitions

 * and typedefs come here.

 */

#undef True

#undef False

#define Time XTime

#ifdef XFT

# include <X11/Xft/Xft.h>

# include <X11/Xft/XftCompat.h>

#endif

%}

! !

!XftFontDescription class methodsFor:'documentation'!

documentation

"

    WARNING: Unfinished.

    Experimental implementation of custom font rendered using

    Xft library (UNIX / X Window only), To actually use it,

    add following definitions to the end of stx/configurations/myConf

    (works on Ubuntu 12.10)

    --- snip ---

    XDEFS+=-DXFT

    XINCLUDE+=$(shell pkg-config --cflags xft)

    LIB_XFT=-l:libXft.so.2 -l:libfontconfig.so.1

    --- snip --

    NOTE: This class should be named XftFont, however then

    there would be a name clash with XftFont structure

    defined in Xft.h - therefore the class is named

    XftFontDescription to avoid that name clash.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!XftFontDescription class methodsFor:'examples'!

example1

    "

    XftFontDescription example1

    "

    |top textView|

    top := StandardSystemView new.

    top extent:300@200.

    textView := EditTextView new.

    textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.

    textView basicFont: (XftFontDescription family: 'helvetica' size: 30).     

    top addSubView:textView.

    textView contents:('/etc/hosts' asFilename contentsOfEntireFile).

    top open.

    "Created: / 20-12-2013 / 00:04:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!XftFontDescription methodsFor:'getting a device font'!

onDevice:aGraphicsDevice

    "Create a new XftFont representing the closes font as

     myself on aDevice; if one already exists, return the one."

    | newFont displayHandle screen|

    "if I am already assigned to that device ..."

    (device == aGraphicsDevice) ifTrue:[^ self].

    (aGraphicsDevice isNil and:[device notNil]) ifTrue:[

        ^ self

    ].

    aGraphicsDevice deviceFonts do:[:aFont |

        (self sameDeviceFontAs:aFont) ifTrue:[

            ^ aFont

        ].

    ].

    displayHandle := aGraphicsDevice displayId.

    "/ TODO: ensure displayHandle is an ExternalAddress

    screen := aGraphicsDevice screen.

    "/ TODO: ensure displayHandle is an SmallInteger

%{

#ifdef XFT

    XftPattern* pattern = XftPatternCreate();

    XftFont* font;

    XftResult result;

    if (__isStringLike(__INST(family))) {

        XftPatternAddString(pattern, XFT_FAMILY, __stringVal(__INST(family)));

    }

    if (__isSmallInteger(__INST(size))) {

        XftPatternAddDouble(pattern, XFT_SIZE, (double)__intVal(__INST(size)));

    } else {

        if (__isSmallInteger(__INST(size))) {

            XftPatternAddInteger(pattern, XFT_PIXEL_SIZE, __intVal(__INST(pixelSize)));

        }

    }

    pattern = XftFontMatch(__externalAddressVal(displayHandle), __intVal(screen), pattern, &result);

    __INST(fontId) = __MKEXTERNALADDRESS(XftFontOpenPattern(__externalAddressVal(displayHandle), pattern));

    XftPatternDestroy(pattern);

#else

    RETURN ( nil )

#endif

%}.

    ^ self

    "

     (Font family:'fooXXXXXX' size:17) onDevice:Screen current

    "

    "Modified: / 14-04-1997 / 18:22:31 / cg"

    "Modified: / 20-12-2013 / 10:56:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

onDevice:aDevice ifAbsent:exceptionBlock

    "Create a new XftFont representing the same font as

     myself on aDevice. This does NOT try to look for existing

     or replacement fonts (i.e. can be used to get physical fonts)."

    ^ self shouldImplement

    "Modified: / 20-12-2013 / 10:54:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!XftFontDescription class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.1 2013-12-20 09:57:03 vrany Exp $'

!

version_CVS

    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.1 2013-12-20 09:57:03 vrany Exp $'

! !