"{ Package: 'stx:libview' }"

"{ NameSpace: Smalltalk }"

FontDescription subclass:#XftFontDescription

	instanceVariableNames:'device fontId sharedDrawId closestFont minCode maxCode ascent

		descent height'

	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 CachedFontList RecentlyUsedFonts Lobby'

	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>

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

flushListOfAvailableFonts

    CachedFontList := nil.

    "

     XftFontDescription flushListOfAvailableFonts

    "

!

initialize

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

    Lobby isNil ifTrue:[

        Lobby := Registry new.

    ].

    " 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'!

family:familyString face:faceString style:styleString size:size sizeUnit:sizeUnit encoding:encoding

    "returns a font for given family, face, style, size and the specified encoding.

     The returned font is not associated to a specific device"

    |proto|

    RecentlyUsedFonts notNil ifTrue:[

	proto := RecentlyUsedFonts

		detect:[:fn |

		    fn family = familyString

		    and:[ fn size = size and:[fn sizeUnit = sizeUnit

		    and:[ fn face = faceString

		    and:[ (fn style = styleString

			  or:[ (fn style = 'oblique' and:[styleString = 'italic'])

			  or:[ (fn style = 'italic' and:[styleString = 'oblique']) ]]) ]]]]]

		ifNone:nil.

	proto notNil ifTrue:[

	    ^ proto

	].

    ].

    CachedFontList notNil ifTrue:[

	proto := CachedFontList

		detect:[:fn |

		    fn family = familyString

		    and:[ fn face = faceString

		    and:[ (fn style = styleString

			  or:[ (fn style = 'oblique' and:[styleString = 'italic'])

			  or:[ (fn style = 'italic' and:[styleString = 'oblique']) ]]) ]]]

		ifNone:nil.

	proto notNil ifTrue:[

	    ^ (proto shallowCopy)

		setDevice: nil patternId: nil fontId: nil;

		family:familyString face:faceString style:styleString size:size sizeUnit:sizeUnit encoding:encoding

	].

    ].

    ^ super

	family:familyString face:faceString style:styleString size:size sizeUnit:sizeUnit encoding:encoding

!

for:aFontOrFontDescription

    ^ self

        family:aFontOrFontDescription family

        face:aFontOrFontDescription face 

        style:aFontOrFontDescription style 

        size:aFontOrFontDescription size 

        sizeUnit:#pt 

        encoding:aFontOrFontDescription encoding

!

named: aString

    ^ self new setName: aString

    "Created: / 05-03-2015 / 05:20:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

new

"/    self halt.

    ^ super new.

! !

!XftFontDescription class methodsFor:'* uncategorized *'!

aboutToDestroyViewWithDevice:aGLXWorkstation id:anExternalAddress

    "Created: / 11-10-2015 / 11:32:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!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>"

! !

!XftFontDescription class methodsFor:'queries'!

listOfAvailableFonts

    "uses fc-list to get a list of available fontDescriptions"

    CachedFontList isNil ifTrue:[

	CachedFontList := FCFontListParser new listOfAvailableFonts

    ].

    ^ CachedFontList

    "

     XftFontDescription flushListOfAvailableFonts.

     XftFontDescription listOfAvailableFonts

    "

! !

!XftFontDescription methodsFor:'accessing'!

encoding

    ^ encoding ? 'iso10646-1'

!

face

    ^ face ? ''

!

fullName

    ^ name ? (self userFriendlyName)

!

graphicsDevice

    ^ device

    "Created: / 02-01-2014 / 23:22:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"