"

 COPYRIGHT (c) 2013 by Jan Vrany

 COPYRIGHT (c) 2013 by Claus Gittinger / eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libview' }"

"{ NameSpace: Smalltalk }"

FontDescription subclass:#XftFontDescription

	instanceVariableNames:'device fontId width minCode maxCode ascent descent height

		fixedWidth'

	classVariableNames:'FC_FAMILY FC_STYLE FC_SLANT FC_WEIGHT FC_SIZE FC_ASPECT

		FC_PIXEL_SIZE FC_SPACING FC_FOUNDRY FC_ANTIALIAS FC_HINTING

		FC_HINT_STYLE FC_VERTICAL_LAYOUT FC_AUTOHINT FC_WIDTH FC_FILE

		FC_INDEX FC_FT_FACE FC_RASTERIZER FC_OUTLINE FC_SCALABLE FC_SCALE

		FC_DPI FC_RGBA FC_MINSPACE FC_SOURCE FC_CHARSET FC_LANG

		FC_FONTVERSION FC_FULLNAME FC_FAMILYLANG FC_STYLELANG

		FC_FULLNAMELANG FC_CAPABILITY FC_FONTFORMAT FC_EMBOLDEN

		FC_EMBEDDED_BITMAP FC_DECORATIVE FC_LCD_FILTER FC_NAMELANG

		FC_CHAR_WIDTH FC_CHAR_HEIGHT FC_MATRIX FC_WEIGHT_THIN

		FC_WEIGHT_EXTRALIGHT FC_WEIGHT_ULTRALIGHT FC_WEIGHT_LIGHT

		FC_WEIGHT_BOOK FC_WEIGHT_REGULAR FC_WEIGHT_NORMAL

		FC_WEIGHT_MEDIUM FC_WEIGHT_DEMIBOLD FC_WEIGHT_SEMIBOLD

		FC_WEIGHT_BOLD FC_WEIGHT_EXTRABOLD FC_WEIGHT_ULTRABOLD

		FC_WEIGHT_BLACK FC_WEIGHT_HEAVY FC_WEIGHT_EXTRABLACK

		FC_WEIGHT_ULTRABLACK FC_SLANT_ROMAN FC_SLANT_ITALIC

		FC_SLANT_OBLIQUE FC_WIDTH_ULTRACONDENSED FC_WIDTH_EXTRACONDENSED

		FC_WIDTH_CONDENSED FC_WIDTH_SEMICONDENSED FC_WIDTH_NORMAL

		FC_WIDTH_SEMIEXPANDED FC_WIDTH_EXPANDED FC_WIDTH_EXTRAEXPANDED

		FC_WIDTH_ULTRAEXPANDED FC_PROPORTIONAL FC_DUAL FC_MONO

		FC_CHARCELL FC_RGBA_UNKNOWN FC_RGBA_RGB FC_RGBA_BGR FC_RGBA_VRGB

		FC_RGBA_VBGR FC_RGBA_NONE FC_HINT_NONE FC_HINT_SLIGHT

		FC_HINT_MEDIUM FC_HINT_FULL FC_LCD_NONE FC_LCD_DEFAULT

		FC_LCD_LIGHT FC_LCD_LEGACY StXFace2FCWeightMap

		StXStyle2FCSlantMap FirstTimeCalled CachedFontList'

	poolDictionaries:''

	category:'Graphics-Support'

!

Object subclass:#FCFontListParser

	instanceVariableNames:'pipeStream lineStream currentDescription'

	classVariableNames:''

	poolDictionaries:''

	privateIn:XftFontDescription

!

ExternalAddress subclass:#FCPatternHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:XftFontDescription

!

ExternalAddress subclass:#XftDrawHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:XftFontDescription

!

ExternalAddress subclass:#XftFontHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:XftFontDescription

!

!XftFontDescription primitiveDefinitions!

%{

/*

 * includes, defines, structure definitions

 * and typedefs come here.

 */

#undef True

#undef False

#undef Time

#define Time XTime

#ifdef XFT

extern OBJ __GLOBAL_GET_BY_NAME(char *);

# define __HANDLE_VAL(type, externalAddress) \

	((type)__externalAddressVal(externalAddress))

# define __HANDLE_NEW(ptr, __cls)                    \

	({                                           \

	    OBJ handle = __MKEXTERNALADDRESS(ptr);   \

	    OBJ clsObj = __GLOBAL_GET_BY_NAME(__cls);\

	    __InstPtr(handle)->o_class = clsObj;     \

	    __STORE(handle, clsObj);                 \

	    handle;                                  \

	})

# define DISPLAY(x)    __HANDLE_VAL(Display*, x)

# define SCREEN(x)     ((int)(__intVal(x)))

# define DRAWABLE(x)   __HANDLE_VAL(Drawable, x)

# define GC(x)         __HANDLE_VAL(GC, x)

# define VISUAL(x)     __HANDLE_VAL(Visual*, x)

# define COLORMAP(x)   __HANDLE_VAL(Colormap, x)

/* FontConfig objects */

# define FC_PATTERN(x)                  __HANDLE_VAL(XftPattern*, x)

# define FC_PATTERN_HANDLE_NEW(x)       __HANDLE_NEW(x, "XftFontDescription::FCPatternHandle")

/* Xft Objects */

# define XFT_FONT(x)            __HANDLE_VAL(XftFont*, x)

# define XFT_FONT_HANDLE_NEW(x) __HANDLE_NEW(x, "XftFontDescription::XftFontHandle")

# define XFT_DRAW(x)            __HANDLE_VAL(XftDraw*, x)

# define XFT_DRAW_HANDLE_NEW(x) __HANDLE_NEW(x, "XftFontDescription::XftDrawHandle")

# include <X11/Xft/Xft.h>

#endif

%}

! !

!XftFontDescription class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2013 by Jan Vrany

 COPYRIGHT (c) 2013 by Claus Gittinger / eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

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:'initialization'!

flushListOfAvailableFonts

    CachedFontList := nil.

    "

     XftFontDescription flushListOfAvailableFonts

    "

!

initialize

    "Invoked at system start or when the class is dynamically loaded."

    " Taken from fontconfig,h "

    FC_FAMILY               := 'family'.            "/* String */

    FC_STYLE                := 'style'.             "/* String */

    FC_SLANT                := 'slant'.             "/* Int */

    FC_WEIGHT               := 'weight'.            "/* Int */

    FC_SIZE                 := 'size'.              "/* Double */

    FC_ASPECT               := 'aspect'.            "/* Double */

    FC_PIXEL_SIZE           := 'pixelsize'.         "/* Double */

    FC_SPACING              := 'spacing'.           "/* Int */

    FC_FOUNDRY              := 'foundry'.           "/* String */

    FC_ANTIALIAS            := 'antialias'.         "/* Bool (depends) */

    FC_HINTING              := 'hinting'.           "/* Bool (true) */

    FC_HINT_STYLE           := 'hintstyle'.         "/* Int */

    FC_VERTICAL_LAYOUT      := 'verticallayout'.    "/* Bool (false) */

    FC_AUTOHINT             := 'autohint'.          "/* Bool (false) */

    FC_WIDTH                := 'width'.             "/* Int */

    FC_FILE                 := 'file'.              "/* String */

    FC_INDEX                := 'index'.             "/* Int */

    FC_FT_FACE              := 'ftface'.            "/* FT_Face */

    FC_RASTERIZER           := 'rasterizer'.        "/* String */

    FC_OUTLINE              := 'outline'.           "/* Bool */

    FC_SCALABLE             := 'scalable'.          "/* Bool */

    FC_SCALE                := 'scale'.             "/* double */

    FC_DPI                  := 'dpi'.               "/* double */

    FC_RGBA                 := 'rgba'.              "/* Int */

    FC_MINSPACE             := 'minspace'.          "/* Bool use minimum line spacing */

    FC_SOURCE               := 'source'.            "/* String (deprecated) */

    FC_CHARSET              := 'charset'.           "/* CharSet */

    FC_LANG                 := 'lang'.              "/* String RFC 3066 langs */

    FC_FONTVERSION          := 'fontversion'.       "/* Int from 'head'.table */

    FC_FULLNAME             := 'fullname'.          "/* String */

    FC_FAMILYLANG           := 'familylang'.        "/* String RFC 3066 langs */

    FC_STYLELANG            := 'stylelang'.         "/* String RFC 3066 langs */

    FC_FULLNAMELANG         := 'fullnamelang'.      "/* String RFC 3066 langs */

    FC_CAPABILITY           := 'capability'.        "/* String */

    FC_FONTFORMAT           := 'fontformat'.        "/* String */

    FC_EMBOLDEN             := 'embolden'.          "/* Bool - true if emboldening needed*/

    FC_EMBEDDED_BITMAP      := 'embeddedbitmap'.    "/* Bool - true to enable embedded bitmaps */

    FC_DECORATIVE           := 'decorative'.        "/* Bool - true if style is a decorative variant */

    FC_LCD_FILTER           := 'lcdfilter'.         "/* Int */

    FC_NAMELANG             := 'namelang'.          "/* String RFC 3866 langs */

    "Adjust outline rasterizer"

    FC_CHAR_WIDTH           := 'charwidth'.     "/* Int */

    FC_CHAR_HEIGHT          := 'charheight'.    "/* Int */

    FC_MATRIX               := 'matrix'.        "/* FcMatrix */

    FC_WEIGHT_THIN          := 0.

    FC_WEIGHT_EXTRALIGHT    := 40.

    FC_WEIGHT_ULTRALIGHT    := FC_WEIGHT_EXTRALIGHT.

    FC_WEIGHT_LIGHT         := 50.

    FC_WEIGHT_BOOK          := 75.

    FC_WEIGHT_REGULAR       := 80.

    FC_WEIGHT_NORMAL        := FC_WEIGHT_REGULAR.

    FC_WEIGHT_MEDIUM        := 100.

    FC_WEIGHT_DEMIBOLD      := 180.

    FC_WEIGHT_SEMIBOLD      := FC_WEIGHT_DEMIBOLD.

    FC_WEIGHT_BOLD          := 200.

    FC_WEIGHT_EXTRABOLD     := 205.

    FC_WEIGHT_ULTRABOLD     := FC_WEIGHT_EXTRABOLD.

    FC_WEIGHT_BLACK         := 210.

    FC_WEIGHT_HEAVY         := FC_WEIGHT_BLACK.

    FC_WEIGHT_EXTRABLACK    := 215.

    FC_WEIGHT_ULTRABLACK    := FC_WEIGHT_EXTRABLACK.

    FC_SLANT_ROMAN          := 0.

    FC_SLANT_ITALIC         := 100.

    FC_SLANT_OBLIQUE        := 110.

    FC_WIDTH_ULTRACONDENSED := 50.

    FC_WIDTH_EXTRACONDENSED := 63.

    FC_WIDTH_CONDENSED      := 75.

    FC_WIDTH_SEMICONDENSED  := 87.

    FC_WIDTH_NORMAL         := 100.

    FC_WIDTH_SEMIEXPANDED   := 113.

    FC_WIDTH_EXPANDED       := 125.

    FC_WIDTH_EXTRAEXPANDED  := 150.

    FC_WIDTH_ULTRAEXPANDED  := 200.

    FC_PROPORTIONAL         := 0.

    FC_DUAL                 := 90.

    FC_MONO                 := 100.

    FC_CHARCELL             := 110.

    "sub-pixel order"

    FC_RGBA_UNKNOWN         := 0.

    FC_RGBA_RGB             := 1.

    FC_RGBA_BGR             := 2.

    FC_RGBA_VRGB            := 3.

    FC_RGBA_VBGR            := 4.

    FC_RGBA_NONE            := 5.

    "hinting style"

    FC_HINT_NONE            := 0.

    FC_HINT_SLIGHT          := 1.

    FC_HINT_MEDIUM          := 2.

    FC_HINT_FULL            := 3.

    "LCD filter"

    FC_LCD_NONE             := 0.

    FC_LCD_DEFAULT          := 1.

    FC_LCD_LIGHT            := 2.

    FC_LCD_LEGACY           := 3.

    StXFace2FCWeightMap :=

	Dictionary withKeysAndValues:{

	    #thin.       FC_WEIGHT_THIN.

	    #extralight. FC_WEIGHT_EXTRALIGHT.

	    #ultralight. FC_WEIGHT_ULTRALIGHT.

	    #light.      FC_WEIGHT_LIGHT.

	    #book.       FC_WEIGHT_BOOK.

	    #regular.    FC_WEIGHT_REGULAR.

	    #normal.     FC_WEIGHT_NORMAL.

	    #medium.     FC_WEIGHT_MEDIUM.

	    #demibold.   FC_WEIGHT_DEMIBOLD.

	    #semibold.   FC_WEIGHT_SEMIBOLD.

	    #bold.       FC_WEIGHT_BOLD.

	    #extrabold.  FC_WEIGHT_EXTRABOLD.

	    #ultrabold.  FC_WEIGHT_ULTRABOLD.

	    #black.      FC_WEIGHT_BLACK.

	    #heavy.      FC_WEIGHT_HEAVY.

	    #extrablack. FC_WEIGHT_EXTRABLACK.

	    #ultrablack. FC_WEIGHT_ULTRABLACK.

	}.

    StXStyle2FCSlantMap :=

	Dictionary withKeysAndValues:{

	    #roman.    FC_SLANT_ROMAN.

	    #italic.   FC_SLANT_ITALIC.

	    #oblique.  FC_SLANT_OBLIQUE.

	}.

    "Modified: / 30-12-2013 / 19:48:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!XftFontDescription class methodsFor:'instance creation'!

for:aFontOrFontDescription

    ^ self

	family:aFontOrFontDescription family

	face:aFontOrFontDescription face

	style:aFontOrFontDescription style

	size:aFontOrFontDescription size

	sizeUnit:#pt

	encoding:aFontOrFontDescription encoding

!

new

    ^ self basicNew initialize.

! !

!XftFontDescription class methodsFor:'change & update'!

aboutToDestroyViewWithDevice:aDevice id:aWindowId

    "a view is going to be destroyed.

     Have to disassociate the XftDrawId from  the drawableId aWindowId"

"/ no longer used...

"/    Lobby do:[:eachXftFont|

"/        eachXftFont graphicsDevice == aDevice ifTrue:[

"/            eachXftFont disassociateXftDrawableFrom:aWindowId.

"/        ].

"/    ].

! !

!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: 'DejaVu Sans' size: 16).

    top addSubView:textView.

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

    top open.

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

    "Modified: / 30-12-2013 / 19:11:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

example2

    "

    XftFontDescription example2

    "

    |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: 'DejaVu Sans' size: 30) asItalic.

    top addSubView:textView.

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

    top open.

    "Created: / 30-12-2013 / 19:49:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

example3

    "

    XftFontDescription example2

    "

    |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: 'Indie Flower' size: 30).

    top addSubView:textView.

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

    top open.

    "Created: / 30-12-2013 / 19:49:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!XftFontDescription class methodsFor:'primitives'!

xftAvailable

%{

#ifdef XFT

    RETURN ( true )

#endif

%}.

    ^ false

    "Created: / 20-12-2013 / 21:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

xftFontClose:fontIdArg displayId:displayId

    | error |

%{ /* STACK: 64000 */

#ifdef XFT

    if ( ! __isExternalAddressLike(fontIdArg) ) {

	error = @symbol(BadArg1);

	goto err;

    }

    if ( ! __isExternalAddressLike(displayId) ) {

	error = @symbol(BadArg2);

	goto err;

    }

    XftFontClose (DISPLAY(displayId), XFT_FONT(fontIdArg));

    RETURN(self);

err:;

#endif

%}.

    self primitiveFailed: error

!

xftFontGetAscent: fontIdArg

    | error |

%{ /* STACK: 64000 */

#ifdef XFT

    if ( ! __isExternalAddressLike(fontIdArg) ) {

	error = @symbol(BadArg1);

	goto err;

    }

    RETURN ( __MKINT( XFT_FONT(fontIdArg)->ascent ) );

    err:;

#endif

%}.

    self primitiveFailed: error

    "Created: / 21-12-2013 / 00:56:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

xftFontGetDescent:fontIdArg

    | error |

%{ /* STACK: 64000 */

#ifdef XFT

    if ( ! __isExternalAddressLike(fontIdArg) ) {

	error = @symbol(BadArg1);

	goto err;

    }

    RETURN ( __MKINT( XFT_FONT(fontIdArg)->descent ) );

    err:;

#endif

%}.

    self primitiveFailed: error

    "Created: / 21-12-2013 / 00:56:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"