hg/stx-libview: XftFontDescription.st@962fe142b15b (annotated)

6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:libview' }"
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	FontDescription subclass:#XftFontDescription
6365 cf89c4bedea4 Instvar drawId renamed to sharedDrawId. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6356 diff changeset	4	instanceVariableNames:'device fontId sharedDrawId closestFont minCode maxCode'
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	5	classVariableNames:'FC_FAMILY FC_STYLE FC_SLANT FC_WEIGHT FC_SIZE FC_ASPECT
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	6	FC_PIXEL_SIZE FC_SPACING FC_FOUNDRY FC_ANTIALIAS FC_HINTING
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	7	FC_HINT_STYLE FC_VERTICAL_LAYOUT FC_AUTOHINT FC_WIDTH FC_FILE
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	8	FC_INDEX FC_FT_FACE FC_RASTERIZER FC_OUTLINE FC_SCALABLE FC_SCALE
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	9	FC_DPI FC_RGBA FC_MINSPACE FC_SOURCE FC_CHARSET FC_LANG
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	10	FC_FONTVERSION FC_FULLNAME FC_FAMILYLANG FC_STYLELANG
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	11	FC_FULLNAMELANG FC_CAPABILITY FC_FONTFORMAT FC_EMBOLDEN
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	12	FC_EMBEDDED_BITMAP FC_DECORATIVE FC_LCD_FILTER FC_NAMELANG
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	13	FC_CHAR_WIDTH FC_CHAR_HEIGHT FC_MATRIX FC_WEIGHT_THIN
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	14	FC_WEIGHT_EXTRALIGHT FC_WEIGHT_ULTRALIGHT FC_WEIGHT_LIGHT
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	15	FC_WEIGHT_BOOK FC_WEIGHT_REGULAR FC_WEIGHT_NORMAL
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	16	FC_WEIGHT_MEDIUM FC_WEIGHT_DEMIBOLD FC_WEIGHT_SEMIBOLD
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	17	FC_WEIGHT_BOLD FC_WEIGHT_EXTRABOLD FC_WEIGHT_ULTRABOLD
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	18	FC_WEIGHT_BLACK FC_WEIGHT_HEAVY FC_WEIGHT_EXTRABLACK
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	19	FC_WEIGHT_ULTRABLACK FC_SLANT_ROMAN FC_SLANT_ITALIC
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	20	FC_SLANT_OBLIQUE FC_WIDTH_ULTRACONDENSED FC_WIDTH_EXTRACONDENSED
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	21	FC_WIDTH_CONDENSED FC_WIDTH_SEMICONDENSED FC_WIDTH_NORMAL
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	22	FC_WIDTH_SEMIEXPANDED FC_WIDTH_EXPANDED FC_WIDTH_EXTRAEXPANDED
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	23	FC_WIDTH_ULTRAEXPANDED FC_PROPORTIONAL FC_DUAL FC_MONO
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	24	FC_CHARCELL FC_RGBA_UNKNOWN FC_RGBA_RGB FC_RGBA_BGR FC_RGBA_VRGB
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	25	FC_RGBA_VBGR FC_RGBA_NONE FC_HINT_NONE FC_HINT_SLIGHT
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	26	FC_HINT_MEDIUM FC_HINT_FULL FC_LCD_NONE FC_LCD_DEFAULT
6185 a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	27	FC_LCD_LIGHT FC_LCD_LEGACY StXFace2FCWeightMap
6389 5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	28	StXStyle2FCSlantMap CachedFontList RecentlyUsedFonts'
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	poolDictionaries:''
6185 a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	30	category:'Graphics-Support'
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	!
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	33	Object subclass:#FCFontListParser
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	34	instanceVariableNames:'pipeStream lineStream currentDescription'
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	35	classVariableNames:''
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	36	poolDictionaries:''
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	37	privateIn:XftFontDescription
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	38	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	39
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	40	ExternalAddress subclass:#FCPatternHandle
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	41	instanceVariableNames:''
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	42	classVariableNames:''
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	43	poolDictionaries:''
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	44	privateIn:XftFontDescription
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	45	!
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	46
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	47	ExternalAddress subclass:#XftDrawHandle
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	48	instanceVariableNames:''
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	49	classVariableNames:''
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	50	poolDictionaries:''
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	51	privateIn:XftFontDescription
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	52	!
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	53
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	54	ExternalAddress subclass:#XftFontHandle
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	55	instanceVariableNames:''
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	56	classVariableNames:''
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	57	poolDictionaries:''
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	58	privateIn:XftFontDescription
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	59	!
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	60
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	!XftFontDescription primitiveDefinitions!
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	%{
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	/*
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	* includes, defines, structure definitions
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	* and typedefs come here.
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	*/
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	#undef True
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	#undef False
6179 b2af8f1be089 Fix c compiler warning Stefan Vogel <sv@exept.de> parents: 6176 diff changeset	70	#undef Time
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	#define Time XTime
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	73	#ifdef XFT
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	74
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	75	extern OBJ __GLOBAL_GET_BY_NAME();
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	76
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	77	# define __HANDLE_VAL(type, externalAddress) \
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	78	((type)__externalAddressVal(externalAddress))
6489 8955b81883e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6488 diff changeset	79
8955b81883e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6488 diff changeset	80	# define __HANDLE_NEW(ptr, __cls) \
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	81	({ \
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	82	OBJ handle; \
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	83	handle = __MKEXTERNALADDRESS(ptr); \
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	84	__InstPtr(handle)->o_class = \
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	85	__GLOBAL_GET_BY_NAME(__cls); \
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	86	handle; \
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	87	})
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	88
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	89
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	90
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	91	# define DISPLAY(x) __HANDLE_VAL(Display*, x)
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	92	# define SCREEN(x) ((int)(__intVal(x)))
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	93	# define DRAWABLE(x) __HANDLE_VAL(Drawable, x)
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	94	# define GC(x) __HANDLE_VAL(GC, x)
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	95	# define VISUAL(x) __HANDLE_VAL(Visual*, x)
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	96	# define COLORMAP(x) __HANDLE_VAL(Colormap, x)
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	97
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	98
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	99
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	100
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	101	/* FontConfig objects */
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	102	# define FC_PATTERN(x) __HANDLE_VAL(XftPattern*, x)
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	103	# define FC_PATTERN_HANDLE_NEW(x) __HANDLE_NEW(x, "XftFontDescription::FCPatternHandle")
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	104
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	105	/* Xft Objects */
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	106
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	107	# define XFT_FONT(x) __HANDLE_VAL(XftFont*, x)
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	108	# define XFT_FONT_HANDLE_NEW(x) __HANDLE_NEW(x, "XftFontDescription::XftFontHandle")
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	109
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	110	# define XFT_DRAW(x) __HANDLE_VAL(XftDraw*, x)
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	111	# define XFT_DRAW_HANDLE_NEW(x) __HANDLE_NEW(x, "XftFontDescription::XftDrawHandle")
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	112
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	113
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	# include <X11/Xft/Xft.h>
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	# include <X11/Xft/XftCompat.h>
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	116
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	#endif
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	%}
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	! !
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	!XftFontDescription class methodsFor:'documentation'!
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	documentation
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	"
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	WARNING: Unfinished.
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	Experimental implementation of custom font rendered using
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	Xft library (UNIX / X Window only), To actually use it,
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	add following definitions to the end of stx/configurations/myConf
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	(works on Ubuntu 12.10)
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	--- snip ---
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	XDEFS+=-DXFT
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	XINCLUDE+=$(shell pkg-config --cflags xft)
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	LIB_XFT=-l:libXft.so.2 -l:libfontconfig.so.1
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	--- snip --
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	NOTE: This class should be named XftFont, however then
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	there would be a name clash with XftFont structure
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	defined in Xft.h - therefore the class is named
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	XftFontDescription to avoid that name clash.
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	[author:]
6179 b2af8f1be089 Fix c compiler warning Stefan Vogel <sv@exept.de> parents: 6176 diff changeset	146	Jan Vrany <jan.vrany@fit.cvut.cz>
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	[instance variables:]
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	[class variables:]
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	[see also:]
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	"
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	! !
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	157	!XftFontDescription class methodsFor:'initialization'!
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	158
6327 332c152432eb class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6325 diff changeset	159	flushListOfAvailableFonts
332c152432eb class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6325 diff changeset	160	CachedFontList := nil.
332c152432eb class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6325 diff changeset	161
332c152432eb class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6325 diff changeset	162	"
332c152432eb class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6325 diff changeset	163	XftFontDescription flushListOfAvailableFonts
332c152432eb class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6325 diff changeset	164	"
332c152432eb class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6325 diff changeset	165	!
332c152432eb class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6325 diff changeset	166
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	167	initialize
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	168	"Invoked at system start or when the class is dynamically loaded."
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	169
6185 a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	170	" Taken from fontconfig,h "
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	171
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	172	FC_FAMILY := 'family'. "/* String */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	173	FC_STYLE := 'style'. "/* String */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	174	FC_SLANT := 'slant'. "/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	175	FC_WEIGHT := 'weight'. "/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	176	FC_SIZE := 'size'. "/* Double */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	177	FC_ASPECT := 'aspect'. "/* Double */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	178	FC_PIXEL_SIZE := 'pixelsize'. "/* Double */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	179	FC_SPACING := 'spacing'. "/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	180	FC_FOUNDRY := 'foundry'. "/* String */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	181	FC_ANTIALIAS := 'antialias'. "/* Bool (depends) */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	182	FC_HINTING := 'hinting'. "/* Bool (true) */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	183	FC_HINT_STYLE := 'hintstyle'. "/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	184	FC_VERTICAL_LAYOUT := 'verticallayout'. "/* Bool (false) */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	185	FC_AUTOHINT := 'autohint'. "/* Bool (false) */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	186	FC_WIDTH := 'width'. "/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	187	FC_FILE := 'file'. "/* String */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	188	FC_INDEX := 'index'. "/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	189	FC_FT_FACE := 'ftface'. "/* FT_Face */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	190	FC_RASTERIZER := 'rasterizer'. "/* String */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	191	FC_OUTLINE := 'outline'. "/* Bool */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	192	FC_SCALABLE := 'scalable'. "/* Bool */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	193	FC_SCALE := 'scale'. "/* double */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	194	FC_DPI := 'dpi'. "/* double */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	195	FC_RGBA := 'rgba'. "/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	196	FC_MINSPACE := 'minspace'. "/* Bool use minimum line spacing */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	197	FC_SOURCE := 'source'. "/* String (deprecated) */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	198	FC_CHARSET := 'charset'. "/* CharSet */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	199	FC_LANG := 'lang'. "/* String RFC 3066 langs */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	200	FC_FONTVERSION := 'fontversion'. "/* Int from 'head'.table */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	201	FC_FULLNAME := 'fullname'. "/* String */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	202	FC_FAMILYLANG := 'familylang'. "/* String RFC 3066 langs */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	203	FC_STYLELANG := 'stylelang'. "/* String RFC 3066 langs */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	204	FC_FULLNAMELANG := 'fullnamelang'. "/* String RFC 3066 langs */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	205	FC_CAPABILITY := 'capability'. "/* String */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	206	FC_FONTFORMAT := 'fontformat'. "/* String */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	207	FC_EMBOLDEN := 'embolden'. "/* Bool - true if emboldening needed*/
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	208	FC_EMBEDDED_BITMAP := 'embeddedbitmap'."/* Bool - true to enable embedded bitmaps */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	209	FC_DECORATIVE := 'decorative'. "/* Bool - true if style is a decorative variant */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	210	FC_LCD_FILTER := 'lcdfilter'. "/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	211	FC_NAMELANG := 'namelang'. "/* String RFC 3866 langs */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	212
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	213
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	214	"Adjust outline rasterizer"
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	215	FC_CHAR_WIDTH := 'charwidth'."/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	216	FC_CHAR_HEIGHT := 'charheight'."/* Int */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	217	FC_MATRIX := 'matrix'. "/* FcMatrix */
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	218
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	219	FC_WEIGHT_THIN := 0.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	220	FC_WEIGHT_EXTRALIGHT := 40.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	221	FC_WEIGHT_ULTRALIGHT := FC_WEIGHT_EXTRALIGHT.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	222	FC_WEIGHT_LIGHT := 50.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	223	FC_WEIGHT_BOOK := 75.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	224	FC_WEIGHT_REGULAR := 80.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	225	FC_WEIGHT_NORMAL := FC_WEIGHT_REGULAR.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	226	FC_WEIGHT_MEDIUM := 100.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	227	FC_WEIGHT_DEMIBOLD := 180.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	228	FC_WEIGHT_SEMIBOLD := FC_WEIGHT_DEMIBOLD.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	229	FC_WEIGHT_BOLD := 200.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	230	FC_WEIGHT_EXTRABOLD := 205.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	231	FC_WEIGHT_ULTRABOLD := FC_WEIGHT_EXTRABOLD.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	232	FC_WEIGHT_BLACK := 210.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	233	FC_WEIGHT_HEAVY := FC_WEIGHT_BLACK.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	234	FC_WEIGHT_EXTRABLACK := 215.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	235	FC_WEIGHT_ULTRABLACK := FC_WEIGHT_EXTRABLACK.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	236
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	237	FC_SLANT_ROMAN := 0.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	238	FC_SLANT_ITALIC := 100.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	239	FC_SLANT_OBLIQUE := 110.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	240
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	241	FC_WIDTH_ULTRACONDENSED := 50.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	242	FC_WIDTH_EXTRACONDENSED := 63.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	243	FC_WIDTH_CONDENSED := 75.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	244	FC_WIDTH_SEMICONDENSED := 87.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	245	FC_WIDTH_NORMAL := 100.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	246	FC_WIDTH_SEMIEXPANDED := 113.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	247	FC_WIDTH_EXPANDED := 125.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	248	FC_WIDTH_EXTRAEXPANDED := 150.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	249	FC_WIDTH_ULTRAEXPANDED := 200.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	250
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	251	FC_PROPORTIONAL := 0.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	252	FC_DUAL := 90.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	253	FC_MONO := 100.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	254	FC_CHARCELL := 110.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	255
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	256	"sub-pixel order"
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	257	FC_RGBA_UNKNOWN := 0.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	258	FC_RGBA_RGB := 1.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	259	FC_RGBA_BGR := 2.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	260	FC_RGBA_VRGB := 3.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	261	FC_RGBA_VBGR := 4.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	262	FC_RGBA_NONE := 5.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	263
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	264	"hinting style"
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	265	FC_HINT_NONE := 0.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	266	FC_HINT_SLIGHT := 1.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	267	FC_HINT_MEDIUM := 2.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	268	FC_HINT_FULL := 3.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	269
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	270	"LCD filter"
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	271	FC_LCD_NONE := 0.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	272	FC_LCD_DEFAULT := 1.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	273	FC_LCD_LIGHT := 2.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	274	FC_LCD_LEGACY := 3.
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	275
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	276	StXFace2FCWeightMap := Dictionary withKeysAndValues:{
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	277	'thin'. FC_WEIGHT_THIN.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	278	'extralight'. FC_WEIGHT_EXTRALIGHT.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	279	'ultralight'. FC_WEIGHT_ULTRALIGHT.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	280	'light'. FC_WEIGHT_LIGHT.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	281	'book'. FC_WEIGHT_BOOK.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	282	'regular'. FC_WEIGHT_REGULAR.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	283	'normal'. FC_WEIGHT_NORMAL.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	284	'medium'. FC_WEIGHT_MEDIUM.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	285	'demibold'. FC_WEIGHT_DEMIBOLD.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	286	'semibold'. FC_WEIGHT_SEMIBOLD.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	287	'bold'. FC_WEIGHT_BOLD.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	288	'extrabold'. FC_WEIGHT_EXTRABOLD.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	289	'ultrabold'. FC_WEIGHT_ULTRABOLD.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	290	'black'. FC_WEIGHT_BLACK.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	291	'heavy'. FC_WEIGHT_HEAVY.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	292	'extrablack'. FC_WEIGHT_EXTRABLACK.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	293	'ultrablack'. FC_WEIGHT_ULTRABLACK.
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	294	}.
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	295	StXStyle2FCSlantMap := Dictionary withKeysAndValues:{
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	296	'roman'. FC_SLANT_ROMAN.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	297	'italic'. FC_SLANT_ITALIC.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	298	'oblique'. FC_SLANT_OBLIQUE.
6185 a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	299	}.
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	300
6185 a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	301	"Modified: / 30-12-2013 / 19:48:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	302	! !
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	303
6325 5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	304	!XftFontDescription class methodsFor:'instance creation'!
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	305
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	306	family:familyString face:faceString style:styleString size:size sizeUnit:sizeUnit encoding:encoding
6365 cf89c4bedea4 Instvar drawId renamed to sharedDrawId. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6356 diff changeset	307	"returns a font for given family, face, style, size and the specified encoding.
6325 5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	308	The returned font is not associated to a specific device"
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	309
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	310	\|proto\|
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	311
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	312	CachedFontList notNil ifTrue:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	313	proto := CachedFontList
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	314	detect:[:fn \|
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	315	fn family = familyString
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	316	and:[ fn face = faceString
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	317	and:[ (fn style = styleString
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	318	or:[ (fn style = 'oblique' and:[styleString = 'italic'])
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	319	or:[ (fn style = 'italic' and:[styleString = 'oblique']) ]]) ]]]
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	320	ifNone:nil.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	321	proto notNil ifTrue:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	322	^ (proto shallowCopy)
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	323	setDevice: nil patternId: nil fontId: nil;
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	324	family:familyString face:faceString style:styleString size:size sizeUnit:sizeUnit encoding:encoding
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	325	].
6325 5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	326	].
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	327	^ super
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	328	family:familyString face:faceString style:styleString size:size sizeUnit:sizeUnit encoding:encoding
6325 5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	329	!
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	330
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	331	new
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	332	"/ self halt.
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	333	^ super new.
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	334	! !
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	335
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	!XftFontDescription class methodsFor:'examples'!
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338	example1
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	"
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	XftFontDescription example1
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	"
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	\|top textView\|
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	top := StandardSystemView new.
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	top extent:300@200.
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	textView := EditTextView new.
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	349	textView basicFont: (XftFontDescription family: 'DejaVu Sans' size: 16).
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351	top addSubView:textView.
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	353	textView contents:('/etc/hosts' asFilename contentsOfEntireFile asText).
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	top open.
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357	"Created: / 20-12-2013 / 00:04:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	358	"Modified: / 30-12-2013 / 19:11:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6185 a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	359	!
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	360
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	361	example2
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	362	"
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	363	XftFontDescription example2
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	364	"
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	365	\|top textView\|
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	366
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	367	top := StandardSystemView new.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	368	top extent:300@200.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	369
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	370	textView := EditTextView new.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	371	textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	372	textView basicFont: (XftFontDescription family: 'DejaVu Sans' size: 30) asItalic.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	373
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	374	top addSubView:textView.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	375
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	376	textView contents:('/etc/hosts' asFilename contentsOfEntireFile).
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	377
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	378	top open.
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	379
a09b2e2303cb Oops. make it compilable again (bug in stc - FCConstants private Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6184 diff changeset	380	"Created: / 30-12-2013 / 19:49:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6389 5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	381	!
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	382
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	383	example3
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	384	"
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	385	XftFontDescription example2
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	386	"
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	387	\|top textView\|
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	388
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	389	top := StandardSystemView new.
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	390	top extent:300@200.
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	391
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	392	textView := EditTextView new.
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	393	textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	394	textView basicFont: (XftFontDescription family: 'Indie Flower' size: 30).
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	395
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	396	top addSubView:textView.
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	397
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	398	textView contents:('/etc/hosts' asFilename contentsOfEntireFile).
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	399
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	400	top open.
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	401
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	402	"Created: / 30-12-2013 / 19:49:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	403	! !
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	404
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	405	!XftFontDescription class methodsFor:'queries'!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	406
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	407	listOfAvailableFonts
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	408	"uses fc-list to get a list of available fontDescriptions"
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	409
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	410	CachedFontList isNil ifTrue:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	411	CachedFontList := FCFontListParser new listOfAvailableFonts
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	412	].
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	413	^ CachedFontList
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	414
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	415	"
6337 9bf102dba190 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6333 diff changeset	416	XftFontDescription flushListOfAvailableFonts.
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	417	XftFontDescription listOfAvailableFonts
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	418	"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	419	! !
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	420
6317 d5626a0f6fea class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6314 diff changeset	421	!XftFontDescription methodsFor:'accessing'!
6190 d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	422
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	423	encoding
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	424	^ encoding ? 'iso10646-1'
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	425	!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	426
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	427	face
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	428	^ face ? ''
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	429	!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	430
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	431	fullName
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	432	^ name ? (self userFriendlyName)
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	433	!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	434
6317 d5626a0f6fea class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6314 diff changeset	435	graphicsDevice
6190 d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	436	^ device
d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	437
d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	438	"Created: / 02-01-2014 / 23:22:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	439	!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	440
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	441	maxCode
6323 2748becb9d6d * empty log message * Claus Gittinger <cg@exept.de> parents: 6322 diff changeset	442	^ maxCode ? 16rFFFF
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	443	!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	444
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	445	maxCode:something
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	446	maxCode := something.
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	447	!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	448
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	449	minCode
6323 2748becb9d6d * empty log message * Claus Gittinger <cg@exept.de> parents: 6322 diff changeset	450	^ minCode ? 0
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	451	!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	452
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	453	minCode:something
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	454	minCode := something.
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	455	!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	456
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	457	size
6325 5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	458	^ size ? 0
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	459	!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	460
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	461	style
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	462	^ style ? ''
6391 21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	463	!
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	464
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	465	weight:aNumber
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	466	"set the weight"
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	467
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	468	self assert:(self fontId isNil). "/ cannot change an instantiated font
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	469
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	470	aNumber == FC_WEIGHT_THIN ifTrue:[ face := 'thin'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	471	aNumber == FC_WEIGHT_EXTRALIGHT ifTrue:[ face := 'extralight'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	472	aNumber == FC_WEIGHT_LIGHT ifTrue:[ face := 'light'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	473	aNumber == FC_WEIGHT_BOOK ifTrue:[ face := 'book'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	474	aNumber == FC_WEIGHT_REGULAR ifTrue:[ face := 'regular'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	475	aNumber == FC_WEIGHT_MEDIUM ifTrue:[ face := 'medium'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	476	aNumber == FC_WEIGHT_DEMIBOLD ifTrue:[ face := 'demibold'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	477	aNumber == FC_WEIGHT_BOLD ifTrue:[ face := 'bold'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	478	aNumber == FC_WEIGHT_EXTRABOLD ifTrue:[ face := 'extrabold'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	479	aNumber == FC_WEIGHT_BLACK ifTrue:[ face := 'black'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	480	aNumber == FC_WEIGHT_EXTRABLACK ifTrue:[ face := 'extrablack'. ^ self].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	481
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	482	aNumber <= (FC_WEIGHT_EXTRALIGHT + FC_WEIGHT_LIGHT // 2) ifTrue:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	483	face := 'extralight'.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	484	^ self.
6391 21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	485	].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	486	aNumber <= (FC_WEIGHT_LIGHT + FC_WEIGHT_BOOK // 2) ifTrue:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	487	face := 'light'.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	488	^ self.
6391 21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	489	].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	490	aNumber <= (FC_WEIGHT_MEDIUM + FC_WEIGHT_DEMIBOLD // 2) ifTrue:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	491	face := 'medium'.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	492	^ self.
6391 21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	493	].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	494	aNumber <= (FC_WEIGHT_DEMIBOLD + FC_WEIGHT_BOLD // 2) ifTrue:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	495	face := 'demibold'.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	496	^ self.
6391 21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	497	].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	498	aNumber <= (FC_WEIGHT_BOLD + FC_WEIGHT_BLACK // 2) ifTrue:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	499	face := 'bold'.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	500	^ self.
6391 21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	501	].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	502	face := 'extrabold'.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	503	^ self
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	504
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	505	"/ FC_WEIGHT_THIN := 0.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	506	"/ FC_WEIGHT_EXTRALIGHT := 40.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	507	"/ FC_WEIGHT_ULTRALIGHT := FC_WEIGHT_EXTRALIGHT.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	508	"/ FC_WEIGHT_LIGHT := 50.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	509	"/ FC_WEIGHT_BOOK := 75.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	510	"/ FC_WEIGHT_REGULAR := 80.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	511	"/ FC_WEIGHT_NORMAL := FC_WEIGHT_REGULAR.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	512	"/ FC_WEIGHT_MEDIUM := 100.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	513	"/ FC_WEIGHT_DEMIBOLD := 180.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	514	"/ FC_WEIGHT_SEMIBOLD := FC_WEIGHT_DEMIBOLD.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	515	"/ FC_WEIGHT_BOLD := 200.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	516	"/ FC_WEIGHT_EXTRABOLD := 205.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	517	"/ FC_WEIGHT_ULTRABOLD := FC_WEIGHT_EXTRABOLD.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	518	"/ FC_WEIGHT_BLACK := 210.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	519	"/ FC_WEIGHT_HEAVY := FC_WEIGHT_BLACK.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	520	"/ FC_WEIGHT_EXTRABLACK := 215.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	521	"/ FC_WEIGHT_ULTRABLACK := FC_WEIGHT_EXTRABLACK.
6317 d5626a0f6fea class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6314 diff changeset	522	! !
d5626a0f6fea class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6314 diff changeset	523
d5626a0f6fea class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6314 diff changeset	524	!XftFontDescription methodsFor:'accessing-private'!
6190 d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	525
d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	526	getFontId
d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	527	^ fontId
d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	528
d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	529	"Created: / 02-01-2014 / 23:29:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	530	! !
d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	531
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	532	!XftFontDescription methodsFor:'displaying'!
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	533
6351 60344c7289fa class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6344 diff changeset	534	displayString:aString from:index1 to:index2Arg x:xArg y:yArg in:aGC opaque:opaque
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	535	"display a partial string at some position in aGC."
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	536
6351 60344c7289fa class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6344 diff changeset	537	\|index2 bytesPerCharacter transformation clipR clipX clipY clipW clipH fg fgR fgG fgB fgA fgPixel bg bgR bgG bgB bgA bgPixel drawX drawY displayId screen drawableId error stringLen\|
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	538
6351 60344c7289fa class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6344 diff changeset	539	"limit the string len, otherwise bad output is generated"
6477 d6699b8116e1 * empty log message * Claus Gittinger <cg@exept.de> parents: 6459 diff changeset	540	stringLen := index2Arg - index1 + 1.
6351 60344c7289fa class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6344 diff changeset	541	stringLen > 8000 ifTrue:[
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	542	index2 := index1 + 8000 - 1.
6351 60344c7289fa class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6344 diff changeset	543	] ifFalse:[
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	544	stringLen <= 0 ifTrue:[^ self].
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	545	index2 := index2Arg.
6351 60344c7289fa class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6344 diff changeset	546	].
6209 4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	547	bytesPerCharacter := aString bitsPerCharacter // 8.
6199 2a683b1824c6 Bugfix in XftFontDescription>>#displayString:from:to:x:y:in:opaque: takes transformation into an account. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6198 diff changeset	548	transformation := aGC transformation.
2a683b1824c6 Bugfix in XftFontDescription>>#displayString:from:to:x:y:in:opaque: takes transformation into an account. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6198 diff changeset	549
6489 8955b81883e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6488 diff changeset	550	clipR := aGC clippingBoundsOrNil.
8955b81883e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6488 diff changeset	551	clipR notNil ifTrue:[
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	552	clipX := clipR left.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	553	clipY := clipR top.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	554	clipW := clipR width.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	555	clipH := clipR height.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	556	"/ transformation notNil ifTrue:[
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	557	"/ clipX := (transformation applyToX:clipX) ceiling.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	558	"/ clipY := (transformation applyToY:clipY) ceiling.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	559	"/ ].
6489 8955b81883e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6488 diff changeset	560	].
6199 2a683b1824c6 Bugfix in XftFontDescription>>#displayString:from:to:x:y:in:opaque: takes transformation into an account. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6198 diff changeset	561
6356 bbb356d49430 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6351 diff changeset	562	transformation isNil ifTrue:[
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	563	drawX := xArg.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	564	drawY := yArg.
6356 bbb356d49430 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6351 diff changeset	565	] ifFalse:[
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	566	drawX := (transformation applyToX:xArg) ceiling.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	567	drawY := (transformation applyToY:yArg) ceiling.
6356 bbb356d49430 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6351 diff changeset	568	].
bbb356d49430 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6351 diff changeset	569
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	570	fg := aGC paint.
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	571	fgPixel := fg colorId.
6255 8592a264cfc4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6223 diff changeset	572	"/ fgPixel notNil ifTrue:[
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	573	fgR := fg scaledRed.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	574	fgG := fg scaledGreen.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	575	fgB := fg scaledBlue.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	576	fgA := (fg alpha * 65535) rounded.
6223 5e154dcb2acd Argument checking Stefan Vogel <sv@exept.de> parents: 6211 diff changeset	577	"/].
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	578	fgR isNil ifTrue:[
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	579	"/ when drawing into a pixmap...
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	580	fg colorId == 0 ifTrue:[
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	581	fgR := fgG := fgB := 0.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	582	] ifFalse:[
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	583	fgR := fgG := fgB := 16rFFFF.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	584	]
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	585	].
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	586
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	587	opaque ifTrue:[
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	588	bg := aGC backgroundPaint.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	589	bgPixel := bg colorId.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	590	"/bgPixel notNil ifTrue:[
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	591	bgR := bg scaledRed.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	592	bgG := bg scaledGreen.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	593	bgB := bg scaledBlue.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	594	bgA := (bg alpha * 65535) rounded.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	595	"/].
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	596	bgR isNil ifTrue:[
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	597	"/ when drawing into a pixmap...
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	598	bg colorId == 0 ifTrue:[
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	599	bgR := bgG := bgB := 0.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	600	] ifFalse:[
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	601	bgR := bgG := bgB := 16rFFFF.
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	602	]
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	603	].
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	604	].
6333 a39a5f90e4fd class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6327 diff changeset	605	displayId := device displayIdOrErrorIfBroken.
6365 cf89c4bedea4 Instvar drawId renamed to sharedDrawId. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6356 diff changeset	606	displayId isNil ifTrue:[
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	607	^ self.
6333 a39a5f90e4fd class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6327 diff changeset	608	].
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	609	screen := device screen.
6351 60344c7289fa class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6344 diff changeset	610	drawableId := aGC drawableId.
6209 4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	611
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	612	%{
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	613	#ifdef XFT
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	614	XftFont *font;
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	615	XftDraw *draw;
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	616	XftColor color;
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	617	XGlyphInfo extents;
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	618	XRectangle clipRX;
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	619	char* string;
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	620	int len;
6209 4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	621	int __bytesPerCharacter;
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	622
6209 4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	623	if (!(__bothSmallInteger(drawX, drawY)
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	624	&& __bothSmallInteger(index1, index2)
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	625	&& __isSmallInteger(bytesPerCharacter)
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	626	&& (__isSmallInteger(fgPixel) \|\| (__bothSmallInteger(fgR, fgG) && __bothSmallInteger(fgB, fgA)))
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	627	&& (opaque == false \|\| __isSmallInteger(bgPixel) \|\| (__bothSmallInteger(bgR, bgG) && __bothSmallInteger(bgB, bgA)))
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	628	&& __isNonNilObject(aString)
6209 4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	629	)) {
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	630	goto err;
6209 4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	631	}
4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	632
4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	633	__bytesPerCharacter = __intVal(bytesPerCharacter);
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	634
6365 cf89c4bedea4 Instvar drawId renamed to sharedDrawId. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6356 diff changeset	635	if ( __INST(sharedDrawId) == nil ) {
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	636	__INST(sharedDrawId) = XFT_DRAW_HANDLE_NEW ( XftDrawCreate ( DISPLAY( displayId ) ,
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	637	DRAWABLE( drawableId ) ,
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	638	DefaultVisual( DISPLAY( displayId), SCREEN (screen) ) ,
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	639	DefaultColormap( DISPLAY( displayId), SCREEN (screen) ) ) );
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	640	__STORE(self, __INST(sharedDrawId));
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	641	}
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	642
6365 cf89c4bedea4 Instvar drawId renamed to sharedDrawId. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6356 diff changeset	643	if ( XftDrawDrawable ( XFT_DRAW ( __INST(sharedDrawId) ) ) != DRAWABLE( drawableId ) ) {
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	644	XftDrawChange( XFT_DRAW( __INST(sharedDrawId) ) , DRAWABLE( drawableId ) );
6194 00776088da01 Another fix for possible race. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6193 diff changeset	645	}
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	646
6209 4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	647	string = __stringVal( aString ) + (( __intVal(index1) - 1 ) * __bytesPerCharacter);
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	648	len = __intVal(index2) - __intVal(index1) + 1;
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	649
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	650	if (clipR != nil) {
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	651	clipRX.x = __intVal(clipX);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	652	clipRX.y = __intVal(clipY);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	653	clipRX.width = __intVal(clipW);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	654	clipRX.height = __intVal(clipH);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	655	XftDrawSetClipRectangles( XFT_DRAW( __INST( sharedDrawId ) ) , 0, 0, &clipRX, 1);
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	656	} else {
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	657	XftDrawSetClip( XFT_DRAW( __INST( sharedDrawId ) ) , 0);
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	658	}
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	659
6223 5e154dcb2acd Argument checking Stefan Vogel <sv@exept.de> parents: 6211 diff changeset	660	if (opaque == true) {
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	661	if (bgPixel != nil) {
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	662	color.pixel = (unsigned long)__intVal(bgPixel);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	663	}
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	664	// else {
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	665	color.color.red = __intVal(bgR);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	666	color.color.green = __intVal(bgG);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	667	color.color.blue = __intVal(bgB);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	668	color.color.alpha = __intVal(bgA);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	669	// }
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	670	switch (__bytesPerCharacter) {
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	671	case 1:
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	672	XftTextExtents8( DISPLAY( displayId ), XFT_FONT( __INST( fontId ) ), (FcChar8*)string, len, &extents);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	673	break;
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	674	case 2:
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	675	XftTextExtents16( DISPLAY( displayId ), XFT_FONT( __INST( fontId ) ), (FcChar16*)string, len, &extents);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	676	break;
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	677	case 4:
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	678	XftTextExtents32( DISPLAY( displayId ), XFT_FONT( __INST( fontId ) ), (FcChar32*)string, len, &extents);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	679	break;
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	680	}
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	681	XftDrawRect( XFT_DRAW ( __INST( sharedDrawId ) ), &color, __intVal(drawX) - extents.x, __intVal(drawY) - XFT_FONT( __INST( fontId ) )->ascent, extents.width, XFT_FONT(__INST (fontId ) )->height);
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	682	}
6223 5e154dcb2acd Argument checking Stefan Vogel <sv@exept.de> parents: 6211 diff changeset	683	if (fgPixel != nil) {
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	684	color.pixel = (unsigned long)__intVal(fgPixel);
6223 5e154dcb2acd Argument checking Stefan Vogel <sv@exept.de> parents: 6211 diff changeset	685	}
5e154dcb2acd Argument checking Stefan Vogel <sv@exept.de> parents: 6211 diff changeset	686	// else {
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	687	color.color.red = __intVal(fgR);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	688	color.color.green = __intVal(fgG);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	689	color.color.blue = __intVal(fgB);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	690	color.color.alpha = __intVal(fgA);
6223 5e154dcb2acd Argument checking Stefan Vogel <sv@exept.de> parents: 6211 diff changeset	691	// }
6209 4c5466b7a3e0 Check more arguments Stefan Vogel <sv@exept.de> parents: 6201 diff changeset	692	switch (__bytesPerCharacter) {
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	693	case 1:
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	694	XftDrawString8( XFT_DRAW ( __INST( sharedDrawId ) ), &color, XFT_FONT( __INST( fontId ) ),
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	695	__intVal(drawX),
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	696	__intVal(drawY),
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	697	(FcChar8*)string,
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	698	len);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	699	RETURN ( self );
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	700	break;
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	701	case 2:
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	702	XftDrawString16( XFT_DRAW ( __INST( sharedDrawId ) ), &color, XFT_FONT( __INST( fontId ) ),
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	703	__intVal(drawX),
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	704	__intVal(drawY),
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	705	(FcChar16*)string,
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	706	len);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	707	RETURN ( self );
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	708	break;
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	709	case 4:
6498 140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	710	XftDrawString32( XFT_DRAW ( __INST( sharedDrawId ) ), &color, XFT_FONT( __INST( fontId ) ),
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	711	__intVal(drawX),
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	712	__intVal(drawY),
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	713	(FcChar32*)string,
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	714	len);
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	715	RETURN ( self );
140cd3d79189 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6489 diff changeset	716	break;
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	717	}
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	718	err:;
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	719	#endif
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	720	%}.
cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	721	self primitiveFailed: error.
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	722
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	723	"Created: / 21-12-2013 / 21:11:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6199 2a683b1824c6 Bugfix in XftFontDescription>>#displayString:from:to:x:y:in:opaque: takes transformation into an account. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6198 diff changeset	724	"Modified: / 10-01-2014 / 11:13:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	725	! !
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	726
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	727	!XftFontDescription methodsFor:'error reporting'!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	728
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	729	primitiveFailed
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	730	<resource: #skipInDebuggersWalkBack>
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	731	%{
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	732	#ifndef XFT
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	733	%}.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	734	super primitiveFailed:'Xft support is not configured'.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	735	%{
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	736	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	737	%}.
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	738	super primitiveFailed
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	739	!
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	740
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	741	primitiveFailed:errorString
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	742	<resource: #skipInDebuggersWalkBack>
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	743	%{
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	744	#ifndef XFT
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	745	%}.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	746	super primitiveFailed:'Xft support is not configured'.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	747	%{
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	748	#endif
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	749	%}.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	750	super primitiveFailed:errorString
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	751	! !
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	752
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	753	!XftFontDescription methodsFor:'getting a device font'!
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	754
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	755	onDevice:aGraphicsDevice
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	756	"Create a new XftFont representing the closes font as
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	757	myself on aDevice; if one already exists, return the one."
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	758
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	759	\| myPatternId closestPatternId1 closestPatternId2 newFontId \|
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	760
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	761	"if I am already assigned to that device ..."
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	762	(device == aGraphicsDevice) ifTrue:[^ self].
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	763
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	764	(aGraphicsDevice isNil and:[device notNil]) ifTrue:[
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	765	^ self
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	766	].
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	767
6317 d5626a0f6fea class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6314 diff changeset	768	(closestFont notNil and:[closestFont graphicsDevice == aGraphicsDevice]) ifTrue:[
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	769	^ closestFont onDevice: aGraphicsDevice.
6190 d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	770	].
d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	771
6389 5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	772	RecentlyUsedFonts isNil ifTrue:[
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	773	RecentlyUsedFonts := OrderedCollection new:10.
6389 5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	774	].
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	775
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	776	RecentlyUsedFonts keysAndValuesDo:[:index :aFont \|
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	777	((aFont class == self class) and:[(self sameDeviceFontAs:aFont) and:[aFont getFontId notNil]]) ifTrue:[
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	778	"/ Transcript showCR:'hit'.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	779	RecentlyUsedFonts removeIndex:index.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	780	RecentlyUsedFonts addFirst:aFont.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	781	^ aFont
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	782	]
6389 5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	783	].
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	784
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	785	RecentlyUsedFonts size > 20 ifTrue:[
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	786	RecentlyUsedFonts removeLast.
6389 5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	787	].
5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	788
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	789	aGraphicsDevice deviceFonts do:[:aFont \|
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	790	((aFont class == self class) and:[self sameDeviceFontAs:aFont]) ifTrue:[
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	791	RecentlyUsedFonts addFirst:aFont.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	792	^ aFont
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	793	].
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	794	].
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	795
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	796	[
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	797	myPatternId := self xftPatternCreate.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	798	self xftPatternAdd: myPatternId attribute: FC_FAMILY value: family.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	799	pixelSize notNil ifTrue:[
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	800	self xftPatternAdd: myPatternId attribute: FC_PIXEL_SIZE value: pixelSize.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	801	] ifFalse:[
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	802	self xftPatternAdd: myPatternId attribute: FC_SIZE value: size.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	803	].
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	804	self xftPatternAdd: myPatternId attribute: FC_WEIGHT value: (StXFace2FCWeightMap at: (face ? 'regular')).
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	805	self xftPatternAdd: myPatternId attribute: FC_SLANT value: (StXStyle2FCSlantMap at: (style ? 'roman') ifAbsent:[StXStyle2FCSlantMap at: (style ? 'roman') asLowercase]).
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	806
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	807	newFontId := self xftFontOpenPattern: aGraphicsDevice displayId pattern: myPatternId.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	808	newFontId notNil ifTrue:[
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	809	"/ Good, this font exists!!
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	810	fontId := newFontId.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	811	device := aGraphicsDevice.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	812	aGraphicsDevice registerFont:self.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	813	RecentlyUsedFonts addFirst:self.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	814	^ self.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	815	] ifFalse:[
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	816	closestPatternId1 := self xftFontMatch: aGraphicsDevice displayId screen: aGraphicsDevice screen pattern: myPatternId.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	817	closestPatternId1 isNil ifTrue:[
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	818	self error: 'No font matches'.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	819	].
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	820	"
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	821	self xftPatternGet: closestPatternId attribute: 'family' index: 0.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	822	self xftPatternGet: closestPatternId attribute: 'size' index: 0.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	823	"
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	824	closestPatternId2 := self xftPatternDuplicate: closestPatternId1.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	825	newFontId := self xftFontOpenPattern: aGraphicsDevice displayId pattern: closestPatternId1.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	826	"/ !!!!!!!! closestPatternId is no longer valid !!!!!!!!
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	827	closestPatternId1 := nil.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	828	newFontId isNil ifTrue:[
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	829	self error: 'Pattern matched, but font could not be opened (should not happen)'.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	830	].
6389 5a9f9d83b7c4 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6365 diff changeset	831
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	832	"/ Search for existing registered font. Note, that XftFont instances
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	833	"/ are shared (and refcounted) so newFontId = aFont getFontId is enough
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	834	"/ to check whether some other font instance represents the same font...
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	835	aGraphicsDevice deviceFonts do:[:aFont \|
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	836	((self class == aFont class) and:[newFontId = aFont getFontId]) ifTrue:[
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	837	closestFont := aFont.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	838	^ closestFont
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	839	].
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	840	].
6190 d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	841
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	842	closestFont := self shallowCopy
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	843	setDevice: aGraphicsDevice patternId: closestPatternId2 fontId: newFontId;
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	844	yourself.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	845	aGraphicsDevice registerFont: closestFont.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	846	RecentlyUsedFonts addFirst:closestFont.
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	847	^ closestFont
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	848	].
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	849	] ensure:[
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	850	myPatternId notNil ifTrue:[self xftPatternDestroy: myPatternId].
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	851	closestPatternId1 notNil ifTrue:[self xftPatternDestroy: closestPatternId1].
962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	852	closestPatternId2 notNil ifTrue:[self xftPatternDestroy: closestPatternId2].
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	853	].
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	854
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	855	"
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	856	(XftFontDescription family:'monospace' size:16) onDevice:Screen current
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	857	"
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	858
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	859	"Modified: / 14-04-1997 / 18:22:31 / cg"
6190 d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	860	"Modified: / 02-01-2014 / 23:43:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	861	!
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	862
6190 d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	863	onDevice:aWorkstation ifAbsent:aBlock
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	864	"Create a new XftFont representing the same font as
6190 d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	865	myself on aWorkstation. This does NOT try to look for existing
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	866	or replacement fonts (i.e. can be used to get physical fonts)."
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	867
6458 5d0126fce68c class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6394 diff changeset	868	^ self onDevice:aWorkstation
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	869
6190 d651313d4044 Fixes to share XftFontDescription instances. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6189 diff changeset	870	"Modified: / 02-01-2014 / 23:15:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6193 cd4baec11e1e Fixes in displayOn:... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6192 diff changeset	871	"Modified (comment): / 04-01-2014 / 02:06:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	872	! !
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	873
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	874	!XftFontDescription methodsFor:'initialization'!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	875
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	876	setDevice: deviceArg patternId: patternIdArg fontId: fontIdArg
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	877	device := deviceArg.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	878	fontId := fontIdArg.
6325 5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	879	patternIdArg notNil ifTrue:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	880	family := self xftPatternGet: patternIdArg attribute: FC_FAMILY index: 0.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	881	size := self xftPatternGet: patternIdArg attribute: FC_SIZE index: 0.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	882	face := self xftPatternGet: patternIdArg attribute: FC_WEIGHT index: 0.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	883	face := StXFace2FCWeightMap keyAtValue: face.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	884	style := self xftPatternGet: patternIdArg attribute: FC_SLANT index: 0.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	885	style := StXStyle2FCSlantMap keyAtValue: style.
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	886
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	887	name:= self xftPatternGet: patternIdArg attribute: 'fullname' index: 0.
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	888
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	889	encoding:= self xftPatternGet: patternIdArg attribute: 'encoding' index: 0.
6325 5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	890	].
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	891
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	892	"Created: / 21-12-2013 / 00:46:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	893	"Modified: / 30-12-2013 / 12:49:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	894	! !
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	895
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	896	!XftFontDescription methodsFor:'primitives'!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	897
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	898	xftAvailable
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	899	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	900	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	901	RETURN ( true )
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	902	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	903	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	904	^ false
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	905
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	906	"Created: / 20-12-2013 / 21:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	907	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	908
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	909	xftDrawChange: xftDrawId drawable: drawableId
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	910	\| error \|
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	911
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	912	%{
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	913	#ifdef XFT
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	914	if ( ! __isExternalAddressLike(xftDrawId) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	915	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	916	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	917	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	918	if ( ! __isExternalAddressLike(drawableId) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	919	error = @symbol(BadArg2);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	920	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	921	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	922	if (XftDrawDrawable( XFT_DRAW(xftDrawId) ) != DRAWABLE( drawableId ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	923	XftDrawChange( XFT_DRAW(xftDrawId) , DRAWABLE( drawableId ) );
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	924	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	925	RETURN ( self );
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	926	err:;
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	927	#endif
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	928	%}.
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	929	self primitiveFailed: error
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	930
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	931	"Created: / 26-12-2013 / 12:17:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	932	!
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	933
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	934	xftDrawCreate: displayId screen: screen drawable: drawableId
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	935	\| error \|
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	936
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	937	%{
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	938	#ifdef XFT
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	939	if ( ! __isExternalAddressLike(displayId) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	940	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	941	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	942	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	943	if ( ! __isSmallInteger(screen) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	944	error = @symbol(BadArg2);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	945	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	946	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	947	if ( ! __isExternalAddressLike(drawableId) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	948	error = @symbol(BadArg3);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	949	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	950	}
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	951	RETURN ( XFT_DRAW_HANDLE_NEW ( XftDrawCreate ( DISPLAY( displayId ) ,
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	952	DRAWABLE( drawableId ) ,
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	953	DefaultVisual( DISPLAY( displayId), SCREEN (screen) ) ,
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	954	DefaultColormap( DISPLAY( displayId), SCREEN (screen) ) ) ) );
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	955	err:;
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	956	#endif
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	957	%}.
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	958	self primitiveFailed: error
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	959
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	960	"Created: / 21-12-2013 / 21:12:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	961	!
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	962
6189 9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	963	xftDrawRect: drawIdArg color: aColor x: x y: y width: w height: h
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	964	\| error r g b a pix \|
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	965
6189 9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	966	aColor isColor ifFalse:[^self primitiveFailed: #BadArg2].
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	967
6189 9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	968	r := aColor scaledRed.
9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	969	g := aColor scaledGreen.
9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	970	b := aColor scaledBlue.
9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	971	a := aColor alpha * 65535.
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	972	r isNil ifTrue:[
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	973	"/ when drawing into a pixmap...
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	974	aColor colorId == 0 ifTrue:[
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	975	r := g := b := 0.
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	976	] ifFalse:[
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	977	r := g := b := 16rFFFF.
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	978	]
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	979	].
6189 9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	980	pix := aColor colorId.
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	981	%{
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	982	#ifdef XFT
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	983	XftColor clr;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	984	if ( ! __isExternalAddressLike(drawIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	985	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	986	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	987	}
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	988	if ( ! __isSmallInteger(pix) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	989	error = @symbol(BadColorId);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	990	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	991	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	992	if ( ! __isSmallInteger(x) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	993	error = @symbol(BadArg3);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	994	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	995	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	996	if ( ! __isSmallInteger(y) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	997	error = @symbol(BadArg4);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	998	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	999	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1000	if ( ! __isSmallInteger(w) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1001	error = @symbol(BadArg5);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1002	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1003	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1004	if ( ! __isSmallInteger(h) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1005	error = @symbol(BadArg6);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1006	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1007	}
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1008	clr.pixel = (unsigned long)__intVal(pix);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1009	clr.color.red = __intVal(r);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1010	clr.color.green = __intVal(g);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1011	clr.color.blue = __intVal(b);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1012	clr.color.alpha = __intVal(a);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1013
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1014	XftDrawRect(XFT_DRAW(drawIdArg), &clr,
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1015	__intVal(x), __intVal(y), __intVal(w) ,__intVal(h));
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1016
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1017	RETURN ( self );
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1018	err:;
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1019	#endif
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1020	%}.
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1021	self primitiveFailed: error.
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1022
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1023	"Created: / 28-12-2013 / 23:35:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1024	"Modified: / 31-12-2013 / 00:37:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1025	!
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1026
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1027	xftDrawSetClip: drawIdArg rectangle: rect
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1028	\| error xObj yObj wObj hObj \|
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1029
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1030	rect notNil ifTrue:[
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1031	xObj := rect left.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1032	yObj := rect top.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1033	wObj := rect width.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1034	hObj := rect height.
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1035	].
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1036	%{
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1037	#ifdef XFT
6191 86ef1e69ffc1 Call XftConfigSubstitute() & XftDefaultSubstitute() before matching fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6190 diff changeset	1038	XRectangle r;
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1039	if ( ! __isExternalAddressLike(drawIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1040	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1041	goto err;
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1042	}
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1043	if (rect != nil) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1044	r.x = __intVal(xObj);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1045	r.y = __intVal(yObj);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1046	r.width = __intVal(wObj);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1047	r.height = __intVal(hObj);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1048	XftDrawSetClipRectangles( XFT_DRAW(drawIdArg) , 0, 0, &r, 1);
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1049	} else {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1050	XftDrawSetClipRectangles( XFT_DRAW(drawIdArg) , 0, 0, (XRectangle*)NULL, 0);
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1051	}
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1052	RETURN ( self );
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1053	err:;
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1054	#endif
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1055	%}.
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1056	self primitiveFailed: error.
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1057
9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1058	"Created: / 31-12-2013 / 01:24:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1059	!
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1060
6189 9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	1061	xftDrawString: drawIdArg color: aColor font: fontIdArg x: x y: y string: text from: start to: stop
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1062	\| error r g b a pix \|
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1063
6189 9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	1064	aColor isColor ifFalse:[^self primitiveFailed: #BadArg2].
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1065
6189 9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	1066	r := aColor scaledRed.
9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	1067	g := aColor scaledGreen.
9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	1068	b := aColor scaledBlue.
9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	1069	a := aColor alpha * 65535.
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1070	r isNil ifTrue:[
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1071	"/ when drawing into a pixmap...
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1072	aColor colorId == 0 ifTrue:[
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1073	r := g := b := 0.
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1074	] ifFalse:[
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1075	r := g := b := 16rFFFF.
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1076	]
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1077	].
6189 9194261bf002 fixed - a structure field conflicted with a local variable name Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	1078	pix := aColor colorId.
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1079	%{
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1080	#ifdef XFT
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1081	int _start, _stop;
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1082	int _x, _y;
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1083	XftColor clr;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1084	if ( ! __isExternalAddressLike(drawIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1085	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1086	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1087	}
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1088	if ( ! __isSmallInteger(pix) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1089	error = @symbol(BadColorId);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1090	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1091	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1092	if ( ! __isSmallInteger(x) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1093	error = @symbol(BadArg4);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1094	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1095	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1096	_x = __intVal(x);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1097	if ( ! __isSmallInteger(y) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1098	error = @symbol(BadArg5);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1099	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1100	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1101	_y = __intVal(y);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1102
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1103
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1104	if ( ! __isSmallInteger(start) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1105	error = @symbol(BadArg6);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1106	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1107	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1108	_start = __intVal(start);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1109	if ( ! __isSmallInteger(stop) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1110	error = @symbol(BadArg7);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1111	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1112	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1113	_stop = __intVal(stop);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1114
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1115	clr.pixel = (unsigned long)__intVal(pix);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1116	clr.color.red = __intVal(r);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1117	clr.color.green = __intVal(g);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1118	clr.color.blue = __intVal(b);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1119	clr.color.alpha = __intVal(a);
cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1120
6186 c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1121	if ( __isStringLike(text) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1122	XftDrawString8(XFT_DRAW(drawIdArg), &clr, XFT_FONT(fontIdArg),
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1123	_x, _y,
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1124	__stringVal(text) + (_start - 1), _stop - _start + 1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1125	RETURN ( self );
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1126	} else {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1127	error = @symbol(BadArg5);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1128	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1129	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1130	err:;
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1131	#endif
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1132	%}.
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1133	self primitiveFailed: error.
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1134
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1135	"Created: / 28-12-2013 / 12:32:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6186 c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1136	"Modified: / 30-12-2013 / 20:00:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1137	!
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1138
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1139	xftFontGetAscent: fontIdArg
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1140	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1141
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1142	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1143	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1144	int v;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1145	if ( ! __isExternalAddressLike(fontIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1146	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1147	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1148	}
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1149	v = XFT_FONT(fontIdArg)->ascent;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1150	RETURN ( __MKINT( v ) );
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1151	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1152	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1153	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1154	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1155
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1156	"Created: / 21-12-2013 / 00:56:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1157	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1158
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1159	xftFontGetDescent:fontIdArg
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1160	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1161
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1162	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1163	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1164	int v;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1165	if ( ! __isExternalAddressLike(fontIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1166	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1167	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1168	}
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1169	v = XFT_FONT(fontIdArg)->descent;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1170	RETURN ( __MKINT( v ) );
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1171	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1172	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1173	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1174	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1175
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1176	"Created: / 21-12-2013 / 00:56:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1177	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1178
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1179	xftFontGetHeight: fontIdArg
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1180	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1181
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1182	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1183	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1184	int v;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1185	if ( ! __isExternalAddressLike(fontIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1186	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1187	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1188	}
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1189	v = XFT_FONT(fontIdArg)->height;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1190	RETURN ( __MKINT( v ) );
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1191	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1192	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1193	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1194	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1195
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1196	"Created: / 21-12-2013 / 00:56:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1197	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1198
6186 c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1199	xftFontGetMaxAdvanceWidth: fontIdArg
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1200	\| error \|
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1201
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1202	%{
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1203	#ifdef XFT
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1204	int v;
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1205	if ( ! __isExternalAddressLike(fontIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1206	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1207	goto err;
6186 c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1208	}
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1209	v = XFT_FONT(fontIdArg)->max_advance_width;
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1210	RETURN ( __MKINT( v ) );
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1211	err:;
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1212	#endif
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1213	%}.
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1214	self primitiveFailed: error
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1215
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1216	"Created: / 30-12-2013 / 20:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1217	!
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1218
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1219	xftFontGetPattern: fontIdArg
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1220	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1221
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1222	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1223	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1224	XftPattern* p;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1225	if ( ! __isExternalAddressLike(fontIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1226	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1227	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1228	}
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1229	p = XFT_FONT(fontIdArg)->pattern;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1230	if (p == NULL) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1231	RETURN ( nil );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1232	} else {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1233	RETURN ( FC_PATTERN_HANDLE_NEW ( p ) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1234	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1235	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1236	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1237	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1238	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1239
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1240	"Created: / 21-12-2013 / 00:55:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1241	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1242
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1243	xftFontMatch: displayId screen: screen pattern: patternId
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1244	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1245
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1246	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1247	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1248	XftPattern* p;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1249	XftResult r;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1250
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1251	if ( ! __isExternalAddressLike(displayId) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1252	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1253	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1254	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1255	if ( ! __isSmallInteger( screen ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1256	error = @symbol(BadArg2);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1257	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1258	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1259	if ( ! __isExternalAddressLike(patternId) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1260	error = @symbol(BadArg3);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1261	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1262	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1263
6191 86ef1e69ffc1 Call XftConfigSubstitute() & XftDefaultSubstitute() before matching fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6190 diff changeset	1264	XftConfigSubstitute(FC_PATTERN( patternId ));
86ef1e69ffc1 Call XftConfigSubstitute() & XftDefaultSubstitute() before matching fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6190 diff changeset	1265	XftDefaultSubstitute(DISPLAY(displayId) , SCREEN( screen ), FC_PATTERN( patternId ));
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1266	p = XftFontMatch( DISPLAY(displayId) , SCREEN( screen ), FC_PATTERN( patternId ), &r );
6192 d79a5e546361 Fixes in call to XftFontMatch() - ignore result value (last arg). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6191 diff changeset	1267	if (p) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1268	RETURN ( FC_PATTERN_HANDLE_NEW ( p ) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1269	} else {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1270	error = @symbol(XftFontMatchReturnedNull);
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1271	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1272	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1273	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1274	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1275	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1276
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1277	"Created: / 21-12-2013 / 00:08:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1278	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1279
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1280	xftFontOpenPattern: displayId pattern: patternId
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1281	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1282
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1283	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1284	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1285	XftFont* f;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1286	if ( ! __isExternalAddressLike(displayId) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1287	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1288	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1289	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1290	if ( ! __isExternalAddressLike(patternId) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1291	error = @symbol(BadArg2);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1292	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1293	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1294
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1295	f = XftFontOpenPattern( DISPLAY(displayId) , FC_PATTERN( patternId ) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1296	if (f == NULL) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1297	RETURN ( nil );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1298	} else {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1299	RETURN ( XFT_FONT_HANDLE_NEW ( f ) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1300	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1301	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1302	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1303	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1304	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1305
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1306	"Created: / 20-12-2013 / 23:53:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1307	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1308
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1309	xftPatternAdd: pattern attribute: attribute value: value
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1310	"Add a value to the specified pattern element after existing values"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1311
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1312	^ self xftPatternAdd: pattern attribute: attribute value: value append: true.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1313
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1314	"Created: / 20-12-2013 / 23:43:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1315	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1316
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1317	xftPatternAdd: pattern attribute: attribute value: value append: append
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1318	"Add a value to the specified pattern element. If 'append' is true, the value
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1319	is added after existing values, otherwise it is added before them."
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1320
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1321	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1322
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1323	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1324	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1325	XftValue v;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1326	Bool b;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1327
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1328	if ( ! __isExternalAddressLike ( pattern ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1329	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1330	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1331	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1332	if ( ! __isStringLike ( attribute ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1333	error = @symbol(BadArg2);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1334	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1335	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1336	if ( append != true && append != false ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1337	error = @symbol(BadArg4);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1338	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1339	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1340	if ( __isStringLike ( value ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1341	v.type = FcTypeString;
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1342	/* Passing pointer inside Smalltalk should be safe,
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1343	* Xft/FontConfig libraries seem to allocate and store
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1344	* a __copy__ of the string (if I understood the code correctly)
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1345	*/
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1346	v.u.s = __stringVal( value);
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1347	} else if ( __isSmallInteger( value ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1348	v.type = XftTypeInteger;
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1349	v.u.i = (int)__intVal( value );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1350	} else if ( value == true \|\| value == false ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1351	v.type = XftTypeBool;
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1352	v.u.b = value == true ? True : False;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1353	} else if ( __isFloat ( value ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1354	v.type = XftTypeDouble;
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1355	v.u.d = __floatVal( value );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1356	} else if ( value == nil ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1357	v.type = XftTypeVoid;
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1358	v.u.f = NULL;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1359	} else {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1360	error = @symbol(BadArg3);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1361	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1362	}
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1363	b = XftPatternAdd( FC_PATTERN(pattern), __stringVal(attribute), v, append == true ? True : False );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1364	RETURN ( b == True ? true : false );
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1365
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1366	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1367	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1368	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1369	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1370
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1371	"Created: / 20-12-2013 / 21:50:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1372	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1373
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1374	xftPatternCreate
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1375	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1376	#ifdef XFT
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1377	RETURN ( FC_PATTERN_HANDLE_NEW ( XftPatternCreate() ) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1378	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1379	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1380	self primitiveFailed.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1381
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1382	"Created: / 20-12-2013 / 21:19:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1383	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1384
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1385	xftPatternDel: pattern attribute: attribute
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1386	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1387	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1388	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1389	if ( ! __isExternalAddressLike ( pattern ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1390	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1391	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1392	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1393	if ( ! __isStringLike ( attribute ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1394	error = @symbol(BadArg2);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1395	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1396	}
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1397	XftPatternDel( FC_PATTERN(pattern), __stringVal ( attribute ) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1398	RETURN ( self );
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1399
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1400	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1401	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1402	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1403	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1404
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1405	"Created: / 20-12-2013 / 21:33:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1406	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1407
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1408	xftPatternDestroy: addr
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1409	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1410
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1411	addr isNil ifTrue:[ ^ self ].
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1412
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1413	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1414	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1415	if ( ! __isExternalAddressLike(addr) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1416	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1417	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1418	}
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1419	XftPatternDestroy( FC_PATTERN(addr) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1420	RETURN ( self );
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1421
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1422	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1423	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1424	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1425	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1426
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1427	"Created: / 20-12-2013 / 21:33:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1428	"Modified: / 20-12-2013 / 23:48:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1429	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1430
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1431	xftPatternDuplicate: addr
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1432	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1433
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1434	addr isNil ifTrue:[ ^ self ].
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1435
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1436	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1437	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1438	if ( ! __isExternalAddressLike(addr) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1439	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1440	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1441	}
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1442	RETURN ( FC_PATTERN_HANDLE_NEW ( XftPatternDuplicate( FC_PATTERN(addr) ) ) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1443	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1444	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1445	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1446	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1447
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1448	"Created: / 21-12-2013 / 01:14:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1449	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1450
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1451	xftPatternGet: pattern attribute: attribute index: index
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1452	"Return a value from the specified element -- multiple values can be indexed
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1453	with 'index' starting at zero."
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1454
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1455	\| error \|
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1456
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1457	%{
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1458	#ifdef XFT
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1459	XftValue v;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1460	XftResult r;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1461
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1462	if ( ! __isExternalAddressLike ( pattern ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1463	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1464	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1465	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1466	if ( ! __isStringLike ( attribute ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1467	error = @symbol(BadArg2);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1468	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1469	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1470	if ( ! __isSmallInteger( index ) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1471	error = @symbol(BadArg3);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1472	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1473	}
6188 9d09f76582b7 Fixed problem with clipping. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6187 diff changeset	1474	r = XftPatternGet(FC_PATTERN(pattern), __stringVal( attribute ), __intVal( index ), &v);
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1475	if ( r != XftResultMatch) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1476	RETURN ( nil );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1477	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1478	if ( v.type == XftTypeString) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1479	RETURN ( __MKSTRING(v.u.s) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1480	} else if ( v.type == XftTypeInteger ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1481	RETURN ( __MKINT (v.u.i) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1482	} else if ( v.type == XftTypeBool ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1483	RETURN ( v.u.b == True ? true : false );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1484	} else if ( v.type == XftTypeDouble ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1485	RETURN ( __MKFLOAT (v.u.d) );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1486	} else if ( v.type == XftTypeVoid ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1487	RETURN ( nil );
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1488	} else {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1489	error = @symbol(UnssuportedTypeValue);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1490	goto err;
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1491	}
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1492	err:;
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1493	#endif
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1494	%}.
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1495	self primitiveFailed: error
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1496
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1497	"Created: / 20-12-2013 / 21:50:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1498	"Modified: / 21-12-2013 / 01:06:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1499	!
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1500
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1501	xftTextExtents: displayIdArg font: fontIdArg string: text from: start to: stop
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1502	\| error extents bitsPerCharacter \|
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1503
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1504	extents := Array new: 6.
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1505	bitsPerCharacter := text bitsPerCharacter.
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1506	%{
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1507	#ifdef XFT
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1508	XGlyphInfo info;
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1509	int bytesPerCharacter;
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1510	char *string;
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1511	int len;
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1512
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1513	bytesPerCharacter = __intVal(bitsPerCharacter) / 8;
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1514
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1515	if ( ! __isExternalAddressLike(displayIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1516	error = @symbol(BadArg1);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1517	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1518	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1519	if ( ! __isExternalAddressLike(fontIdArg) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1520	error = @symbol(BadArg2);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1521	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1522	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1523	if ( ! __isSmallInteger(start) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1524	error = @symbol(BadArg4);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1525	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1526	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1527	if ( ! __isSmallInteger(stop) ) {
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1528	error = @symbol(BadArg5);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1529	goto err;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1530	}
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1531
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1532	string = __stringVal( text ) + (( __intVal(start) - 1 ) * bytesPerCharacter);
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1533	len = __intVal(stop) - __intVal(start) + 1;
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1534
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1535
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1536	switch (bytesPerCharacter) {
9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1537	case 1:
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1538	XftTextExtents8(DISPLAY(displayIdArg), XFT_FONT(fontIdArg), (FcChar8*)string, len, &info);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1539	break;
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1540	case 2:
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1541	XftTextExtents16(DISPLAY(displayIdArg), XFT_FONT(fontIdArg), (FcChar16*)string, len, &info);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1542	break;
6195 9a14f8e6c10c Added support for wide strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6194 diff changeset	1543	case 4:
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1544	XftTextExtents32(DISPLAY(displayIdArg), XFT_FONT(fontIdArg), (FcChar32*)string, len, &info);
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1545	break;
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1546	}
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1547	__ArrayInstPtr(extents)->a_element[0] = __MKSMALLINT(info.width);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1548	__ArrayInstPtr(extents)->a_element[1] = __MKSMALLINT(info.height);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1549	__ArrayInstPtr(extents)->a_element[2] = __MKSMALLINT(info.x);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1550	__ArrayInstPtr(extents)->a_element[3] = __MKSMALLINT(info.y);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1551	__ArrayInstPtr(extents)->a_element[4] = __MKSMALLINT(info.xOff);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1552	__ArrayInstPtr(extents)->a_element[5] = __MKSMALLINT(info.yOff);
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1553	error = nil;
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1554	err:;
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1555	#endif
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1556	%}.
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1557	error notNil ifTrue:[
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1558	self primitiveFailed: error.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1559	^ nil.
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1560	].
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1561	^ extents
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1562
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1563	"Created: / 21-12-2013 / 10:42:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6186 c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1564	"Modified: / 30-12-2013 / 20:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1565	! !
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1566
6198 dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1567	!XftFontDescription methodsFor:'printing & storing'!
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1568
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1569	storeOn:aStream
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1570	"append a character sequence to the argument, aStream from which the
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1571	receiver can be reconstructed using readFrom:."
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1572
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1573	aStream nextPutAll:'(XftFontDescription family:'. family storeOn:aStream.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1574	aStream nextPutAll:' face:'. face storeOn:aStream.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1575	aStream nextPutAll:' style:'. style storeOn:aStream.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1576	aStream nextPutAll:' size:'. size storeOn:aStream.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1577	aStream nextPutAll:' encoding:'. encoding storeOn:aStream.
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1578	aStream nextPut:$)
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1579
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1580	"
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1581	(XftFontDescription family: 'DejaVu Sans' size: 8) storeString
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1582	"
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1583	! !
dcc4f69ee8da class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6196 diff changeset	1584
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1585	!XftFontDescription methodsFor:'queries-dimensions'!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1586
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1587	ascent
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1588	"return the ascent - the number of pixels above the baseLine."
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1589
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1590	^ self xftFontGetAscent: fontId
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1591
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1592	"Created: / 21-12-2013 / 01:19:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1593	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1594
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1595	descent
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1596	"return the descent - the number of pixels below the baseLine."
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1597
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1598	^ self xftFontGetDescent: fontId
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1599
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1600	"Created: / 21-12-2013 / 01:20:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1601	!
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1602
6314 9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1603	getFontMetrics
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1604	\|info\|
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1605
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1606	info := DeviceWorkstation::DeviceFontMetrics new.
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1607	info
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1608	ascent:self ascent
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1609	descent:self descent
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1610	maxAscent:self maxAscent
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1611	maxDescent:self maxDescent
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1612	minWidth:self maxWidth
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1613	maxWidth:self maxWidth
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1614	avgWidth:self maxWidth
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1615	minCode:self minCode
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1616	maxCode:self maxCode
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1617	direction:#LeftToRight.
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1618	^ info
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1619	!
9dabc3489ff4 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6264 diff changeset	1620
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1621	height
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1622	"return the height - the number of pixels above plus below the baseLine."
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1623
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1624	^ self xftFontGetHeight: fontId
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1625
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1626	"Created: / 21-12-2013 / 01:20:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1627	!
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1628
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1629	isFixedWidth
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1630	"return true, if this is a fixed pitch font (i.e. all characters
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1631	are of the same width)"
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1632
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1633	^ false "/ How to check?
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1634
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1635	"Created: / 21-12-2013 / 10:38:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1636	!
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1637
6186 c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1638	maxAscent
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1639	"return the fonts maximum-ascent (i.e. the maximum of all characters);
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1640	That is the number of units (usually pixels) above the baseline."
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1641
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1642	^ self ascent
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1643
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1644	"Created: / 30-12-2013 / 20:01:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1645	!
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1646
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1647	maxDescent
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1648	"return the fonts maximum-descent (i.e. the maximum of all characters);
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1649	That is the number of units (usually pixels) below the baseline."
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1650
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1651	^ self descent
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1652
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1653	"Created: / 30-12-2013 / 20:01:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1654	!
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1655
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1656	maxWidth
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1657	"return the fonts maximum-width character (i.e. the maximum of all characters);
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1658	That is a number of units (usually pixels)."
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1659
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1660	^ self xftFontGetMaxAdvanceWidth: fontId
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1661
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1662	"Created: / 30-12-2013 / 20:02:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1663	!
c8f36970419f Added missing & required methods. Since now, while St/X IDE could be switched to use XFT fonts. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6185 diff changeset	1664
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1665	widthOf:aString from:start to:stop
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1666	"return the width of a sub string"
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1667
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1668	\| extents \|
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1669
6187 cfe33a9940ee Memory/performance optimization - use stack-allocated XftColor. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6186 diff changeset	1670	(stop < start) ifTrue:[^ 0].
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1671	extents := self xftTextExtents: device displayId font: fontId string: aString from: start to: stop.
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1672	"/ extents --> #(width height x y xOff yOff)
6183 a21827076de1 Fix for bad layout and segfault when selecting whole line. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6182 diff changeset	1673	^ extents fifth.
6182 8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1674
8bf2372670d9 Fixes to make XftFontDescription>>example1 to render something. Sometimes it segfaults Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6180 diff changeset	1675	"Created: / 21-12-2013 / 10:42:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6183 a21827076de1 Fix for bad layout and segfault when selecting whole line. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6182 diff changeset	1676	"Modified: / 29-12-2013 / 21:16:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1677	! !
6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	1678
6200 8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1679	!XftFontDescription methodsFor:'release'!
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1680
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1681	releaseDrawIfAssociatedWith: view
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1682	\| drawableId \|
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1683
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1684	view isNil ifTrue:[ ^ self ].
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1685	drawableId := view id.
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1686	drawableId isNil ifTrue: [ ^ self ].
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1687	%{
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1688	#ifdef XFT
6365 cf89c4bedea4 Instvar drawId renamed to sharedDrawId. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6356 diff changeset	1689	if ( __INST(sharedDrawId) != nil ) {
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1690	if (XftDrawDrawable(XFT_DRAW(__INST(sharedDrawId))) == DRAWABLE(drawableId)) {
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1691	__INST(sharedDrawId) = nil;
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1692	XftDrawDestroy(DRAWABLE(drawableId));
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1693	}
6200 8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1694	}
6339 1a30e1d2232e class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6338 diff changeset	1695	RETURN (self);
6200 8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1696	#endif
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1697	%}.
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1698	self primitiveFailed
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1699
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1700	"Created: / 12-01-2014 / 19:48:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1701	"Modified: / 12-01-2014 / 22:09:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6344 ef33c29cbb0c class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6339 diff changeset	1702	!
ef33c29cbb0c class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6339 diff changeset	1703
ef33c29cbb0c class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6339 diff changeset	1704	releaseFromDevice
ef33c29cbb0c class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6339 diff changeset	1705	"I am no longer available on the device"
ef33c29cbb0c class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6339 diff changeset	1706
ef33c29cbb0c class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6339 diff changeset	1707	device := nil.
ef33c29cbb0c class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6339 diff changeset	1708	fontId := nil.
6365 cf89c4bedea4 Instvar drawId renamed to sharedDrawId. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6356 diff changeset	1709	sharedDrawId := nil.
6344 ef33c29cbb0c class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6339 diff changeset	1710	closestFont := nil
6200 8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1711	! !
8f0d25eec888 class: XftFontDescription Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6199 diff changeset	1712
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1713	!XftFontDescription methodsFor:'testing'!
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1714
6339 1a30e1d2232e class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6338 diff changeset	1715	isUsed
6365 cf89c4bedea4 Instvar drawId renamed to sharedDrawId. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6356 diff changeset	1716	^ sharedDrawId notNil
6339 1a30e1d2232e class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6338 diff changeset	1717	!
1a30e1d2232e class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6338 diff changeset	1718
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1719	isXftFont
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1720	^ true
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1721	! !
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1722
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1723	!XftFontDescription::FCFontListParser class methodsFor:'documentation'!
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1724
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1725	documentation
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1726	"
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1727	parses fc-list output to get a list of XftFontDescriptions
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1728
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1729	[author:]
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1730	cg
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1731
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1732	[instance variables:]
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1733
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1734	[class variables:]
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1735
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1736	[see also:]
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1737
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1738	"
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1739	! !
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1740
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1741	!XftFontDescription::FCFontListParser methodsFor:'api'!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1742
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1743	listOfAvailableFonts
6337 9bf102dba190 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6333 diff changeset	1744	\|readEntry list l fcListProg\|
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1745
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1746	list := OrderedCollection new.
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1747
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1748	readEntry :=
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1749	[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1750	\|key\|
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1751
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1752	[l startsWith:'Pattern has'] whileFalse:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1753	l := pipeStream nextLine. Transcript showCR:l.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1754	].
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1755
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1756	currentDescription := XftFontDescription new.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1757	[ l := pipeStream nextLine. l notEmptyOrNil ] whileTrue:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1758	"/ Transcript showCR:l.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1759	lineStream := l readStream. lineStream skipSeparators.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1760	key := lineStream upToSeparator.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1761	(
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1762	#('family:' 'style:' 'slant:' 'weight:' 'width:'
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1763	'pixelsize:' 'spacing:' 'foundry:' 'antialias:'
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1764	'file:' 'outline' 'scalable:' 'charset:' 'lang:'
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1765	'fontversion:' 'fontformat:' 'decorative:' 'index:'
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1766	'outline:' 'familylang:' 'stylelang:' 'fullname:'
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1767	'fullnamelang:' 'capability:' 'hash:' 'postscriptname:'
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1768	) includes:key
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1769	) ifTrue:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1770	self perform:('fc_',(key allButLast)) asSymbol
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1771	] ifFalse:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1772	Transcript show:'Xft ignored line: '; showCR:l.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1773	self breakPoint:#cg.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1774	].
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1775	].
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1776	list add:currentDescription
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1777	].
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1778
6337 9bf102dba190 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6333 diff changeset	1779	fcListProg := #('/usr/bin/fc-list' '/usr/X11/bin/fc-list') detect:[:eachProg\|
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1780	eachProg asFilename isExecutableProgram
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1781	] ifNone:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1782	'fc-list program not found - no XFT fonts' infoPrintCR.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1783	^ list.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1784	].
6337 9bf102dba190 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6333 diff changeset	1785
9bf102dba190 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6333 diff changeset	1786	pipeStream := PipeStream readingFrom:fcListProg, ' -v'.
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1787	[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1788	[pipeStream atEnd] whileFalse:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1789	l := pipeStream nextLine.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1790	readEntry value.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1791	]
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1792	] ensure:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1793	pipeStream close
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1794	].
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1795	^ list
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1796
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1797	"
6337 9bf102dba190 class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6333 diff changeset	1798	FCFontListParser new listOfAvailableFonts
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1799	"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1800	! !
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1801
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1802	!XftFontDescription::FCFontListParser methodsFor:'font list keywords'!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1803
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1804	fc_antialias
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1805	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1806
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1807	currentDescription isAntialiasedFont:(self getBoolean).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1808	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1809
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1810	fc_capability
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1811	"helper for font listing"
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1812
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1813	"currentDescription capability:" (self getString).
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1814	!
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1815
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1816	fc_charset
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1817	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1818
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1819	\|page bits l min max minCode maxCode\|
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1820
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1821	[ l := pipeStream nextLine. l notEmpty ] whileTrue:[
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1822	"/ Transcript show:'->'; showCR:l.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1823	(l startsWith:Character tab) ifFalse:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1824	(l startsWith:'(') ifFalse:[self halt].
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1825	currentDescription minCode:minCode.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1826	currentDescription maxCode:maxCode.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1827	^ self.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1828	].
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1829
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1830	lineStream := l readStream.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1831	lineStream skipSeparators.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1832	page := Integer readFrom:(lineStream upTo:$:) radix:16.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1833	lineStream next.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1834	bits := 0 to:7 collect:[:i\|
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1835	lineStream skipSeparators.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1836	Integer readFrom:(lineStream upToSeparator) radix:16.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1837	].
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1838	min := (page * 256 + 0).
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1839	max := (page * 256 + 255).
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1840	minCode isNil ifTrue:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1841	minCode := min.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1842	maxCode := max.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1843	] ifFalse:[
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1844	minCode := minCode min:min.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1845	maxCode := maxCode max:max.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1846	].
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1847	].
6365 cf89c4bedea4 Instvar drawId renamed to sharedDrawId. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6356 diff changeset	1848	"/ currentDescription characterSet:(self getString).
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1849	currentDescription minCode:minCode.
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1850	currentDescription maxCode:maxCode.
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1851	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1852
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1853	fc_decorative
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1854	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1855
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1856	currentDescription isDecorativeFont:(self getBoolean).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1857	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1858
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1859	fc_family
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1860	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1861
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1862	currentDescription family:(self getString).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1863	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1864
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1865	fc_familylang
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1866	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1867
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1868	"currentDescription familylang:" (self getString).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1869	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1870
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1871	fc_file
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1872	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1873
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1874	currentDescription file:(self getString).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1875	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1876
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1877	fc_fontformat
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1878	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1879
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1880	currentDescription fontFormat:(self getString).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1881	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1882
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1883	fc_fontversion
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1884	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1885
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1886	currentDescription fontVersion:(self getInteger).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1887	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1888
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1889	fc_foundry
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1890	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1891
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1892	currentDescription foundry:(self getString).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1893	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1894
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1895	fc_fullname
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1896	"helper for font listing"
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1897
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1898	"currentDescription fullname:" (self getString).
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1899	!
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1900
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1901	fc_fullnamelang
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1902	"helper for font listing"
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1903
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1904	"currentDescription fullnamelang:" (self getString).
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1905	!
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1906
6338 ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1907	fc_hash
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1908	"helper for font listing"
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1909
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1910	"currentDescription hash:" self getString.
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1911	!
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1912
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1913	fc_index
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1914	"helper for font listing"
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1915
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1916	"currentDescription index:" (self getInteger).
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1917	!
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1918
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1919	fc_lang
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1920	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1921
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1922	"/ currentDescription characterSet:(self getString).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1923	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1924
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1925	fc_outline
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1926	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1927
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1928	currentDescription isOutlineFont:(self getBoolean).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1929	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1930
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1931	fc_pixelsize
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1932	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1933
6325 5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	1934	currentDescription setPixelSize:(self getInteger).
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	1935	currentDescription setSizeUnit:#px.
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	1936	"/ currentDescription setSize:(self getInteger).
5e52a295d119 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6324 diff changeset	1937	"/ currentDescription setSizeUnit:#pt.
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1938	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1939
6338 ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1940	fc_postscriptname
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1941	"helper for font listing"
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1942
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1943	"currentDescription postscriptname:" self getString.
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1944	!
ba2fc2dcec5d class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6337 diff changeset	1945
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1946	fc_scalable
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1947	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1948
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1949	currentDescription isScalableFont:(self getBoolean).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1950	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1951
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1952	fc_slant
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1953	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1954
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1955	currentDescription slant:(self getInteger).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1956	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1957
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1958	fc_spacing
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1959	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1960
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1961	currentDescription spacing:(self getInteger).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1962	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1963
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1964	fc_style
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1965	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1966
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1967	\|xftStyle\|
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1968
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1969	xftStyle := self getString.
6391 21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1970	"/ ((xftStyle includesString:'Bold') or:[xftStyle includesString:'Fett']) ifTrue:[
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1971	"/ currentDescription face:'bold'.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1972	"/ currentDescription style:'roman'.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1973	"/ ^ self.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1974	"/ ].
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1975	((xftStyle includesString:'Italic') or:[xftStyle includesString:'Oblique']) ifTrue:[
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1976	"/ currentDescription face:'medium'.
6393 cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1977	currentDescription style:'italic'.
cca8bffee09b * empty log message * Claus Gittinger <cg@exept.de> parents: 6392 diff changeset	1978	^ self.
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1979	].
6391 21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1980	"/ (xftStyle includesString:'Regular') ifTrue:[
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1981	"/ currentDescription face:'regular'.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1982	"/ currentDescription style:'roman'.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1983	"/ ^ self.
21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1984	"/ ].
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1985	"/ self halt.
6391 21a80292d9f3 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6389 diff changeset	1986	"/ currentDescription face:'medium'.
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1987	currentDescription style:'roman'.
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1988	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1989
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1990	fc_stylelang
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1991	"helper for font listing"
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1992
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1993	"currentDescription stylelang:" (self getString).
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1994	!
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	1995
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1996	fc_weight
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1997	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	1998
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	1999	currentDescription weight:(self getInteger).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2000	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2001
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2002	fc_width
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2003	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2004
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	2005	currentDescription width:(self getInteger).
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2006	! !
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2007
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2008	!XftFontDescription::FCFontListParser methodsFor:'helpers'!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2009
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	2010	getBoolean
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2011	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2012
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2013	\|s\|
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2014
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2015	lineStream skipSeparators.
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	2016	s := lineStream nextAlphaNumericWord.
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	2017	^ s = 'FcTrue'.
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2018	!
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2019
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	2020	getInteger
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	2021	"helper for font listing"
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	2022
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	2023	lineStream skipSeparators.
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	2024	^ Integer readFrom:lineStream.
6264 65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	2025	!
65140bb31698 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6263 diff changeset	2026
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	2027	getString
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2028	"helper for font listing"
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2029
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2030	lineStream skipSeparators.
6319 9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	2031	lineStream peekFor:$".
9402c8781f21 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6317 diff changeset	2032	^ (lineStream upTo:$").
6263 01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2033	! !
01453c167d49 class: XftFontDescription Claus Gittinger <cg@exept.de> parents: 6255 diff changeset	2034
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2035	!XftFontDescription class methodsFor:'documentation'!
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2036
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2037	version
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	2038	^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.56 2014-06-06 09:05:55 stefan Exp $'
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2039	!
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2040
9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2041	version_CVS
6499 962fe142b15b class: XftFontDescription Stefan Vogel <sv@exept.de> parents: 6498 diff changeset	2042	^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.56 2014-06-06 09:05:55 stefan Exp $'
6176 9d9d7b5c33f4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2043	! !
6180 6034bf4c5022 More work on XftFontDescription. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6179 diff changeset	2044
6184 997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	2045
997414d312b5 Fixed font lookup to take face (aka weight) and style (aka slant) into an account). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6183 diff changeset	2046	XftFontDescription initialize!

author	Stefan Vogel <sv@exept.de>
	Fri, 06 Jun 2014 11:05:55 +0200
changeset 6499	962fe142b15b
parent 6498	140cd3d79189
child 6517	3aae5fa95a99
child 6526	7b413d1887b6
permissions	-rw-r--r--