Cairo__Device.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 30 May 2012 20:06:35 +0000
changeset 11 fdc697f4f190
permissions -rw-r--r--
- Cairo::SvgVersion added: #version_SVN - Cairo::Rectangle added: #version_SVN - Cairo::FontFace added: #version_SVN - Cairo::Pattern added: #version_SVN - Cairo::Antialias added: #version_SVN - Cairo::FontExtents added: #version_SVN - Cairo::TextExtents added: #version_SVN - Cairo::HintStyle added: #version_SVN - Cairo::Content added: #version_SVN - Cairo::FontWeight added: #version_SVN - Cairo::Region added: #version_SVN - Cairo::Status added: #version_SVN - Cairo::UserDataKey added: #version_SVN - Cairo::LineCap added: #version_SVN - Cairo::ExternalFunctions added: #primFormatStrideForWidth:width: #version_SVN - Cairo::Extend added: #version_SVN - Cairo::RefCountedStructure added: #version_SVN - Cairo::Cairo::TextClusterFlags added: #version_SVN - Cairo::RectangleInt added: #version_SVN - Cairo::Format added: #version_SVN - Cairo::SubpixelOrder added: #version_SVN - Cairo::Operator added: #version_SVN - Cairo::TextClusterFlags added: #version_SVN - Cairo::ScaledFont added: #version_SVN - Cairo::PathData added: #version_SVN - Cairo::TextCluster added: #version_SVN - Cairo::PathDataType added: #version_SVN - Cairo::RectangleList added: #version_SVN - Cairo::LineJoin added: #version_SVN - Cairo::Surface added: #version_SVN - Cairo::FillRule added: #version_SVN - Cairo::Device added: #version_SVN - Cairo::GLXWorkstation added: #version_SVN - Cairo::SurfaceType added: #version_SVN - Cairo::Path added: #version_SVN - Cairo::PdfVersion added: #version_SVN - Cairo::FontSlant added: #version_SVN - Cairo::PatternType added: #version_SVN - Cairo::RegionOverlap added: #version_SVN - Cairo::Filter added: #version_SVN - Cairo::Matrix added: #version_SVN - Cairo::Glyph added: #version_SVN - Cairo::FontOptions added: #version_SVN - Cairo::FontType added: #version_SVN - Cairo::DeviceType added: #version_SVN - Cairo::GraphicsContext added: #version_SVN - Cairo::HintMetrics added: #version_SVN - stx_goodies_libcairo added: #extensionsVersion_SVN #svnRepositoryUrlString #svnRevisionNr #version_SVN changed: #classNamesAndAttributes #extensionMethodNames #preRequisites - extensions ...
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
11
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/libcairo' }"
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ NameSpace: Cairo }"
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
ExternalStructure subclass:#Device
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	instanceVariableNames:''
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	classVariableNames:''
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	poolDictionaries:''
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'Cairo - C Types'
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
!Device class methodsFor:'accessing'!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
libraryName
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
	OperatingSystem isUNIXlike ifTrue:[^'libcairo.so.2'].
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
	OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
	self error:'Library name for host OS is not known'
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
structSize
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
	^0
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
! !
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
!Device class methodsFor:'primitives'!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
primDeviceAcquire: device 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
	<cdecl: int32 "cairo_device_acquire" ( Cairo::Device ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
primDeviceDestroy: device 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
	<cdecl: void "cairo_device_destroy" ( Cairo::Device ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
primDeviceFinish: device 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
	<cdecl: void "cairo_device_finish" ( Cairo::Device ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
primDeviceFlush: device 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
	<cdecl: void "cairo_device_flush" ( Cairo::Device ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
primDeviceGetReferenceCount: device 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
	<cdecl: uint32 "cairo_device_get_reference_count" ( Cairo::Device ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
primDeviceGetType: device 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
	<cdecl: int32 "cairo_device_get_type" ( Cairo::Device ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
primDeviceGetUserData: device key: key 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
	<cdecl: voidPointer "cairo_device_get_user_data" ( Cairo::Device Cairo::UserDataKey ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
primDeviceReference: device 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
	<cdecl: Cairo::Device "cairo_device_reference" ( Cairo::Device ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
primDeviceRelease: device 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
	<cdecl: void "cairo_device_release" ( Cairo::Device ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
primDeviceSetUserData: device key: key userData: user_data destroy: destroy 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
	<cdecl: int32 "cairo_device_set_user_data" ( Cairo::Device Cairo::UserDataKey voidPointer pointer ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    89
!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    90
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    91
primDeviceStatus: device 
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    92
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
	<cdecl: int32 "cairo_device_status" ( Cairo::Device ) >
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    94
	self primitiveFailed
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
! !
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    97
!Device class methodsFor:'documentation'!
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    98
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    99
version_SVN
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   100
    ^ '$Id::                                                                                                                        $'
fdc697f4f190 - Cairo::SvgVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   101
! !