hg/stx-goodies-libcairo: extensions.st@0bf0d8b6f4c5 (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	!
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	!DeviceGraphicsContext methodsFor:'cairo support'!
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	^drawableId
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	"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	12	! !
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!GraphicsDevice methodsFor:'cairo support'!
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	cairoSurfaceFor: view
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	self error:'Graphics device not supported'
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	"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	20	! !
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	! !
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!GraphicsDevice methodsFor:'accessing'!
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	screen
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	^ screen
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	"Created: / 04-07-2008 / 13:12:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	! !
2 c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	35	!SimpleView methodsFor:'cairo support'!
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	36
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	37	cairoGC
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	^self cairoGraphicsContext
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	"Created: / 10-07-2008 / 19:41:06 / 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	42	! !
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	43	!SimpleView methodsFor:'cairo support'!
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	44
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	45	cairoGraphicsContext
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	46
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	47	^self cairoSurface graphicsContext
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	48
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	49	"Created: / 10-07-2008 / 19:40:31 / 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	50	! !
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	51	!SimpleView methodsFor:'cairo support'!
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	52
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	53	cairoSurface
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	54
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	55	^Cairo::Surface forView: self
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	56
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	57	"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	58	! !
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	!XWorkstation methodsFor:'cairo support'!
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	cairoSurfaceFor: view
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
2 c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	63	\| surface \|
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	64	surface := Cairo::Surface
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	65	forXlib: displayId
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	66	drawable: view drawableId address
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	67	visual: self visualStructure
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	68	width: view width
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	69	height: view height.
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	70	view addDependent: surface.
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	71	^surface
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	"Created: / 10-07-2008 / 10:16:36 / 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	74	"Modified: / 10-07-2008 / 19:32:15 / 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	75	! !
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	76	!XWorkstation methodsFor:'cairo support'!
c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	77
4 0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	78	primScreenStructure
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	79
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	80	\| screenNumber \|
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	81	screenNumber := screen.
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	82
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	83	%{
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	84	return __MKEXTERNALADDRESS( ScreenOfDisplay( myDpy , __intVal ( screenNumber ) ) );
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	85	%}.
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	86	^nil
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	87
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	88	"
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	89	Screen current screenStructure
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	90	"
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	91
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	92	"Created: / 10-07-2008 / 10:04:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	93	! !
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	94	!XWorkstation methodsFor:'cairo support'!
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	95
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	96	screenStructure
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	97
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	98	\| screenNumber \|
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	99	screenNumber := screen.
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	100
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	101	%{
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	102	return __MKEXTERNALADDRESS( ScreenOfDisplay( myDpy , __intVal ( screenNumber ) ) );
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	103	%}.
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	104	^nil
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	105
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	106	"
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	107	Screen current screenStructure
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	108	"
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	109
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	110	"Created: / 10-07-2008 / 10:04:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	111	! !
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	112	!XWorkstation methodsFor:'cairo support'!
0bf0d8b6f4c5 added project definition class Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	113
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	visualStructure
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	\| screenNumber \|
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	screenNumber := screen.
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	%{
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	return __MKEXTERNALADDRESS( DefaultVisual( myDpy , __intVal ( screenNumber ) ) );
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	%}.
2 c2f163833877 Xlib surfaces are dependents of associated view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	122	^self primitiveFailed
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	Screen current visualStructure
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	"Created: / 10-07-2008 / 11:03:01 / 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	129	"Modified: / 10-07-2008 / 19:49:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 10 Jul 2008 21:14:16 +0000
changeset 4	0bf0d8b6f4c5
parent 3	f4f599f2a1b5
child 5	65635e9ef3e8
permissions	-rw-r--r--