Cairo__FontFace.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 11 Jul 2008 08:49:27 +0000
changeset 5 65635e9ef3e8
parent 3 f4f599f2a1b5
child 6 c1f387b40e3a
permissions -rw-r--r--
added basic text rendering
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
ExternalStructure subclass:#FontFace
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:''
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'Cairo - C Types'
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
5
65635e9ef3e8 added basic text rendering
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
    12
1
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
!FontFace class methodsFor:'accessing'!
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
libraryName
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
	OperatingSystem isUNIXlike ifTrue:[^'libcairo.so'].
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
	OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
	self error:'Library name for host OS is not known'
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
3
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    23
    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
! !
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
!FontFace class methodsFor:'primitives'!
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
primDestroy: font_face 
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
	<cdecl: void "cairo_font_face_destroy" ( Cairo::FontFace ) >
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
	self primitiveFailed
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
3
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    33
    "Modified: / 10-07-2008 / 23:05:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    34
!
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    35
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    36
primFtFontFaceCreateForFtFace: face loadFlags: load_flags 
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    37
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    38
	<cdecl: Cairo::FontFace "cairo_ft_font_face_create_for_ft_face" ( pointer int32 ) >
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    39
	self primitiveFailed
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    40
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    41
    "Created: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    42
!
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    43
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    44
primFtFontFaceCreateForPattern: pattern 
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    45
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    46
	<cdecl: Cairo::FontFace "cairo_ft_font_face_create_for_pattern" ( pointer ) >
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    47
	self primitiveFailed
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    48
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    49
    "Created: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
!
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
primGetReferenceCount: font_face 
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
	<cdecl: uint32 "cairo_font_face_get_reference_count" ( Cairo::FontFace ) >
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
	self primitiveFailed
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
3
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    57
    "Modified: / 10-07-2008 / 23:05:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
!
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
primGetType: font_face 
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
	<cdecl: int32 "cairo_font_face_get_type" ( Cairo::FontFace ) >
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
	self primitiveFailed
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
3
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    65
    "Modified: / 10-07-2008 / 23:05:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
!
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
primGetUserData: font_face key: key 
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
	<cdecl: pointer "cairo_font_face_get_user_data" ( Cairo::FontFace Cairo::UserDataKey ) >
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
	self primitiveFailed
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
3
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    73
    "Modified: / 10-07-2008 / 23:05:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
!
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
primReference: font_face 
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
	<cdecl: Cairo::FontFace "cairo_font_face_reference" ( Cairo::FontFace ) >
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
	self primitiveFailed
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
3
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    81
    "Modified: / 10-07-2008 / 23:05:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
!
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
primSetUserData: font_face key: key userData: user_data destroy: destroy 
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
	<cdecl: int32 "cairo_font_face_set_user_data" ( Cairo::FontFace Cairo::UserDataKey pointer pointer ) >
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
	self primitiveFailed
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
3
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    89
    "Modified: / 10-07-2008 / 23:05:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    90
!
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    91
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    92
primStatus: font_face 
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    94
	<cdecl: int32 "cairo_font_face_status" ( Cairo::FontFace ) >
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
	self primitiveFailed
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
3
f4f599f2a1b5 Added FT font primitives
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    97
    "Modified: / 10-07-2008 / 23:05:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    98
! !
2439fb18f3dc Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    99
5
65635e9ef3e8 added basic text rendering
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   100
!FontFace class methodsFor:'documentation'!
65635e9ef3e8 added basic text rendering
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   101
65635e9ef3e8 added basic text rendering
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   102
version
65635e9ef3e8 added basic text rendering
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   103
    ^'$Id$'
65635e9ef3e8 added basic text rendering
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   104
! !