hg/stx-goodies-libcairo: Cairo__FontFace.st@28dfc583beb5 (annotated)

1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/libcairo' }"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cairo }"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
30 c8fe298c8cc7 GraphicsContext refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	5	CObject subclass:#FontFace
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	9	category:'Cairo-Objects'
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
7 392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	12
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	13	!FontFace class methodsFor:'instance creation'!
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	14
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	15	fromFontDescription: aFontDescription
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	16	Screen current platformName == #X11 ifTrue:[
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	17	\| pattern \|
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	18
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	19	pattern := FcPattern fromFontDescription: aFontDescription.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	20	^ CPrimitives cairo_ft_font_face_create_for_pattern: pattern.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	21	].
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	22	self error: 'Noy yet implemented'.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	23
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	24	"
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	25	Cairo::FontFace fromFontDescription: CodeView defaultFont
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	26	"
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	27
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	28	"Created: / 17-02-2016 / 20:01:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	29	! !
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	30
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	!FontFace class methodsFor:'accessing'!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	33	dllPath
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	34
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	35	OperatingSystem isMSWINDOWSlike ifTrue:[
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	36	^ #( 'C:\Windows' 'C:\Windows\System32' "Wild guess, should not harm" )
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	37	].
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	38
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	39	OperatingSystem isUNIXlike ifTrue:[
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	40	OperatingSystem getSystemType == #linux ifTrue:[
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	41	\| path \|
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	42
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	43	path := #( '/lib' '/usr/lib' '/usr/local/lib' ).
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	44	(OperatingSystem getSystemInfo at:#machine) = 'x86_64' ifTrue:[
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	45	"If the machine is 64bit, prepend standard path for 32bit libs.
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	46	Leave standard paths at the end, as the system might be completely
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	47	32bit but running on 64bit-capable CPU.
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	48
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	49	CAVEAT: This is bit dangerous, as on 64bit OS, if ia32 libs are
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	50	not installed byt 64bit sqlite libs are, then 64bit libs are found
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	51	and when a function is called, segfault will occur!!
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	52
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	53	Q: Is there a way how to figure out if the OS itself is 32bit,
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	54	regardles on CPU?"
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	55	path := #( '/lib32' '/usr/lib32' '/usr/local/lib32' ) , path.
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	56	].
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	57	^path
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	58
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	59	].
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	60	].
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	61
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	62	self error:'Unsupported operating system'
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	63
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	64	"
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	65	SqliteLibrary dllPath
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	66	"
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	67
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	68	"Created: / 31-08-2011 / 18:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	69	!
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	70
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	71	sizeof
6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	72	"Returns size of undelaying structure in bytes"
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	74	^0
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	! !
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	77	!FontFace methodsFor:'accessing'!
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	78
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	79	referenceCount
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	80	"Return value or reference counter"
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	81
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	82	^ CPrimitives cairo_font_face_get_reference_count: self
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	83
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	84	"Modified: / 17-02-2016 / 19:54:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	85	!
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	86
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	87	type
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	88	"This function returns the type of the backend used to create a font face.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	89	See FontType for available types."
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	90
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	91	^ CPrimitives cairo_font_face_get_type: self
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	92
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	93	"Created: / 17-02-2016 / 19:54:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	94	! !
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	95
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	96	!FontFace methodsFor:'private'!
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	97
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	98	destroy
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	99	"Tell Cairo library to destroy the corresponding C object.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	100	Remember that object is physically destroyed only if internal
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	101	refcounter goes to zero. However, after calling destroy,
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	102	this instance should be treated as invalid."
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	103
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	104	^ CPrimitives cairo_font_face_destroy: self
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	105
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	106	"Modified: / 17-02-2016 / 19:54:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	107	! !
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 30 diff changeset	108
7 392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	109	!FontFace class methodsFor:'documentation'!
392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	110
392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	111	version
392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	112	^'$Id$'
11 fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	113	!
fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	114
23 38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	115	version_HG
38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	116	^ '$Changeset: <not expanded> $'
7 392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	117	! !
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	118

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 17 Feb 2016 06:43:31 +0000
changeset 40	28dfc583beb5
parent 30	c8fe298c8cc7
child 43	1006839761af
permissions	-rw-r--r--