hg/stx-goodies-libcairo: extensions.st@834ae4dd6815 (annotated)

11 fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	1	"{ Package: 'stx:goodies/libcairo' }"!
fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	2
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	!DeviceGraphicsContext methodsFor:'cairo support'!
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	drawableId
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	^drawableId
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	"Created: / 10-07-2008 / 10:20:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	! !
11 fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	11
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!GraphicsDevice methodsFor:'cairo support'!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	cairoSurfaceFor: view
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	self error:'Graphics device not supported'
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	"Created: / 10-07-2008 / 10:16:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	! !
11 fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	20
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	!GraphicsDevice methodsFor:'accessing'!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	displayId
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	^ displayId
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	"Created: / 04-07-2008 / 12:58:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	! !
11 fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	28
2 c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	29	!SimpleView methodsFor:'cairo support'!
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	30
7 392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	31	cairo
392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	32	^ Cairo::GraphicsContext on:self cairoSurface
2 c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	33
7 392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	34	"Created: / 10-09-2008 / 18:23:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
2 c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	35	! !
11 fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	36
2 c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	37	!SimpleView methodsFor:'cairo support'!
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	38
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	39	cairoSurface
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	40
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	41	^Cairo::Surface forView: self
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	42
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	43	"Created: / 10-07-2008 / 19:39:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	44	! !
11 fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	45
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	!XWorkstation methodsFor:'cairo support'!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	cairoSurfaceFor: view
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	50	\| surface \|
13 71529a6f007d - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	51	surface := Cairo::Surface
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	52	forXlib: displayId
a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	53	drawable: view drawableId address
21 34bf952f3f60 Fixes for recent Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	54	visual: self queryDefaultVisual
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	55	width: view width
a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	56	height: view height.
a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	57	surface setView: view.
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	58	"/view addDependent: surface.
2 c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	59	^surface
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	"Created: / 10-07-2008 / 10:16:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	62	"Modified: / 09-09-2008 / 22:57:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
21 34bf952f3f60 Fixes for recent Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	63	"Modified: / 21-09-2014 / 00:54:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
34bf952f3f60 Fixes for recent Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	64	! !
34bf952f3f60 Fixes for recent Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	65
11 fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	66	!stx_goodies_libcairo class methodsFor:'documentation'!
7 392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	67
21 34bf952f3f60 Fixes for recent Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	68	extensionsVersion_HG
34bf952f3f60 Fixes for recent Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	69
34bf952f3f60 Fixes for recent Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	70	^ '$Changeset: <not expanded> $'
20 18a3e6b5f310 Added const modifier to FFI specs (required by recent STX) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	71	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 24 Dec 2014 12:34:27 +0100
changeset 22	834ae4dd6815
parent 21	34bf952f3f60
child 28	1bd3d147cd77
permissions	-rw-r--r--