author | Claus Gittinger <cg@exept.de> |
Wed, 17 Jul 2019 10:31:26 +0200 | |
changeset 8734 | de0c9b4d22b9 |
parent 8700 | 9f593fb9dc72 |
child 8753 | c9041c91afcb |
permissions | -rw-r--r-- |
8700 | 1 |
"{ Encoding: utf8 }" |
2 |
||
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
3 |
" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
4 |
COPYRIGHT (c) 1989 by Claus Gittinger |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
5 |
All Rights Reserved |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
6 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
7 |
This software is furnished under a license and may be used |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
8 |
only in accordance with the terms of that license and with the |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
9 |
inclusion of the above copyright notice. This software may not |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
10 |
be provided or otherwise made available to, or used by, any |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
11 |
other person. No title to or ownership of the software is |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
12 |
hereby transferred. |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
13 |
" |
3339 | 14 |
"{ Package: 'stx:libview' }" |
15 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
16 |
"{ NameSpace: Smalltalk }" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
17 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
18 |
Object subclass:#GraphicsMedium |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
19 |
instanceVariableNames:'device gc width height realized' |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
20 |
classVariableNames:'' |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
21 |
poolDictionaries:'' |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
22 |
category:'Graphics-Support' |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
23 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
24 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
25 |
!GraphicsMedium class methodsFor:'documentation'! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
26 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
27 |
copyright |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
28 |
" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
29 |
COPYRIGHT (c) 1989 by Claus Gittinger |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
30 |
All Rights Reserved |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
31 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
32 |
This software is furnished under a license and may be used |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
33 |
only in accordance with the terms of that license and with the |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
34 |
inclusion of the above copyright notice. This software may not |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
35 |
be provided or otherwise made available to, or used by, any |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
36 |
other person. No title to or ownership of the software is |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
37 |
hereby transferred. |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
38 |
" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
39 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
40 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
41 |
documentation |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
42 |
" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
43 |
this is an abstract superclass for all kinds of drawables which |
7658 | 44 |
have a physical representation (i.e. have an extent). |
45 |
Don't use messages from here - it will vanish soon. |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
46 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
47 |
[Instance variables:] |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
48 |
|
7658 | 49 |
width <SmallInteger> the width (device dependent, usually pixels or inches) |
50 |
height <SmallInteger> the height (device dependent, usually pixels or inches) |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
51 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
52 |
[author:] |
7658 | 53 |
Claus Gittinger |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
54 |
" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
55 |
! ! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
56 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
57 |
!GraphicsMedium class methodsFor:'instance creation'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
58 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
59 |
new |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
60 |
"create a new drawable - take the current display as |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
61 |
its device (for now, this may be changed until the view is |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
62 |
physically created)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
63 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
64 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
65 |
'Warning: DeviceGraphicsContext (' print. self name print. ') should not be created with new' printNL. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
66 |
" |
7644 | 67 |
|device| |
68 |
||
7671 | 69 |
device := Screen current. |
7644 | 70 |
device isNil ifTrue:[ |
71 |
"/ there seems to be no current screen; open one. |
|
8311 | 72 |
device := Smalltalk lateOpenDisplay. |
73 |
device isNil ifTrue:[ |
|
74 |
Screen deviceOpenErrorSignal raiseErrorString:'no screen device'. |
|
75 |
] |
|
7644 | 76 |
]. |
77 |
||
7671 | 78 |
^ self onDevice:device. |
8311 | 79 |
|
80 |
"Modified: / 20-03-2018 / 12:49:17 / stefan" |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
81 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
82 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
83 |
on:aDevice |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
84 |
"create a new drawable on aDevice" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
85 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
86 |
<resource:#obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
87 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
88 |
"/ send out a warning: #on: is typically used to create a view |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
89 |
"/ operating on a model. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
90 |
"/ Please use #onDevice: to avoid confusion. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
91 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
92 |
self obsoleteMethodWarning:'use #onDevice:'. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
93 |
^ self onDevice:aDevice |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
94 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
95 |
"Modified: 5.6.1997 / 21:04:16 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
96 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
97 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
98 |
onDevice:aDevice |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
99 |
"create a new drawable on aDevice" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
100 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
101 |
^ self basicNew initializeForDevice:aDevice. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
102 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
103 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
104 |
!GraphicsMedium class methodsFor:'Signal constants'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
105 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
106 |
drawingOnClosedDrawableSignal |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
107 |
"return the signal which is raised, if drawing is attempted |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
108 |
on a closed drawable. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
109 |
This is especially useful, if a forked thread animates |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
110 |
a view in the background, and is not properly synchronized |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
111 |
with the window thread - i.e. the window gets closed by the user, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
112 |
and the background process continues to draw. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
113 |
In this case, the background thread should handle this signal |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
114 |
and terminate itself in the handler." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
115 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
116 |
^ GraphicsContext drawingOnClosedDrawableSignal |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
117 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
118 |
"demonstration1: (error if closed by the windowManager): |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
119 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
120 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
121 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
122 |
v := StandardSystemView new openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
123 |
[ |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
124 |
[true] whileTrue:[ |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
125 |
|x y| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
126 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
127 |
x := Random nextIntegerBetween:0 and:(v width). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
128 |
y := Random nextIntegerBetween:0 and:(v height). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
129 |
v displayString:'hello' x:x y:y. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
130 |
Delay waitForSeconds:0.5. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
131 |
] |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
132 |
] fork. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
133 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
134 |
"demonstration2: (no error if closed by the windowManager): |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
135 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
136 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
137 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
138 |
v := StandardSystemView new openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
139 |
[ |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
140 |
v class drawingOnClosedDrawableSignal handle:[:ex | |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
141 |
ex return |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
142 |
] do:[ |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
143 |
[true] whileTrue:[ |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
144 |
|x y| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
145 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
146 |
x := Random nextIntegerBetween:0 and:(v width). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
147 |
y := Random nextIntegerBetween:0 and:(v height). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
148 |
v displayString:'hello' x:x y:y. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
149 |
Delay waitForSeconds:0.5. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
150 |
] |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
151 |
] |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
152 |
] fork. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
153 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
154 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
155 |
"Created: / 29.1.1998 / 13:10:41 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
156 |
"Modified: / 29.1.1998 / 13:11:14 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
157 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
158 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
159 |
!GraphicsMedium class methodsFor:'accessing-defaults'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
160 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
161 |
defaultFont |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
162 |
"get the default font used for drawing" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
163 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
164 |
^ GraphicsContext defaultFont |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
165 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
166 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
167 |
defaultFont:aFont |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
168 |
"set the default font used for drawing" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
169 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
170 |
GraphicsContext defaultFont:aFont |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
171 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
172 |
|
7861 | 173 |
!GraphicsMedium class methodsFor:'queries'! |
174 |
||
175 |
isAbstract |
|
176 |
"Return if this class is an abstract class. |
|
177 |
True is returned here for myself only; false for subclasses. |
|
178 |
Abstract subclasses must redefine this again." |
|
179 |
||
180 |
^ self == GraphicsMedium. |
|
181 |
! ! |
|
182 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
183 |
!GraphicsMedium methodsFor:'Compatibility-ST80'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
184 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
185 |
displayArc:origin radius:radius from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
186 |
"draw an arc around a point" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
187 |
|
8267 | 188 |
gc displayArcX:(origin x - radius) y:(origin y - radius) |
189 |
width:(radius * 2) height:(radius * 2) |
|
190 |
from:startAngle angle:angle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
191 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
192 |
"Modified: 8.5.1996 / 08:34:43 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
193 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
194 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
195 |
displayArcBoundedBy:boundingBox startAngle:startAngle sweepAngle:sweepAngle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
196 |
"draw an arc/circle/ellipse - ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
197 |
|
8267 | 198 |
gc displayArcX:(boundingBox left) y:(boundingBox top) |
199 |
width:(boundingBox width) height:(boundingBox height) |
|
200 |
from:startAngle angle:sweepAngle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
201 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
202 |
"Created: / 14.11.1997 / 21:04:19 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
203 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
204 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
205 |
displayArcBoundedBy:boundingBox startAngle:startAngle sweepAngle:sweepAngle at:origin |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
206 |
"draw an arc/circle/ellipse - ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
207 |
|
8267 | 208 |
gc displayArcX:(boundingBox left + origin x) y:(boundingBox top + origin y) |
209 |
width:(boundingBox width) height:(boundingBox height) |
|
210 |
from:startAngle angle:sweepAngle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
211 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
212 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
213 |
displayLineFrom:startPoint to:endPoint translateBy:anOffset |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
214 |
"draw a line - ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
215 |
|
8267 | 216 |
gc displayLineFrom:(startPoint + anOffset) to:(endPoint + anOffset) |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
217 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
218 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
219 |
displayPolyline:aPolygon |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
220 |
"draw a polygon - ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
221 |
|
8267 | 222 |
gc displayPolygon:aPolygon |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
223 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
224 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
225 |
displayRectangularBorder:aRectangle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
226 |
"draw a rectangle - ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
227 |
|
8267 | 228 |
gc displayRectangle:aRectangle |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
229 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
230 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
231 |
displayRectangularBorder:aRectangle at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
232 |
"draw a rectangle - ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
233 |
|
8267 | 234 |
gc displayRectangle:(aRectangle translateBy:aPoint) |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
235 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
236 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
237 |
displayWedgeBoundedBy:boundingBox startAngle:startAngle sweepAngle:sweepAngle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
238 |
"fill an arc/circle/ellipse - ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
239 |
|
8267 | 240 |
gc fillArcX:(boundingBox left) y:(boundingBox top) |
241 |
width:(boundingBox width) height:(boundingBox height) |
|
242 |
from:startAngle angle:sweepAngle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
243 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
244 |
"Created: 27.1.1997 / 15:50:14 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
245 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
246 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
247 |
displayWedgeBoundedBy:boundingBox startAngle:startAngle sweepAngle:sweepAngle at:origin |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
248 |
"fill an arc/circle/ellipse - ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
249 |
|
8267 | 250 |
gc fillArcX:(boundingBox left + origin x) y:(boundingBox top + origin y) |
251 |
width:(boundingBox width) height:(boundingBox height) |
|
252 |
from:startAngle angle:sweepAngle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
253 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
254 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
255 |
findFont:aFontDescription |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
256 |
"given a fontDescription, return a device font for it |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
257 |
on my device." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
258 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
259 |
^ aFontDescription onDevice:self device |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
260 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
261 |
"Modified: 28.5.1996 / 20:22:29 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
262 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
263 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
264 |
key |
7464 | 265 |
^ self drawableId |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
266 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
267 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
268 |
phase |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
269 |
"return the origin within the mask (used to draw with patterns). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
270 |
This is an alias for ST/X's #maskOrigin" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
271 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
272 |
^ self maskOrigin |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
273 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
274 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
275 |
phase:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
276 |
"set the origin within the mask (used to draw with patterns). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
277 |
This is an alias for ST/X's #maskOrigin:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
278 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
279 |
^ self maskOrigin:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
280 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
281 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
282 |
setDevicePattern:aColorOrMask |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
283 |
"ST/X can paint in any color or image" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
284 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
285 |
self paint:aColorOrMask |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
286 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
287 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
288 |
tilePhase |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
289 |
"return the origin within the mask (used to draw with patterns). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
290 |
This is an alias for ST/X's #maskOrigin" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
291 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
292 |
^ self maskOrigin |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
293 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
294 |
"Created: 4.6.1996 / 15:26:39 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
295 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
296 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
297 |
tilePhase:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
298 |
"set the origin within the mask (used to draw with patterns). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
299 |
This is an alias for ST/X's #maskOrigin" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
300 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
301 |
^ self maskOrigin:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
302 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
303 |
"Created: 4.6.1996 / 15:26:49 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
304 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
305 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
306 |
widthOfString:aString |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
307 |
"given a string, return its width in pixels if |
8364 | 308 |
drawn on the receiver's device." |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
309 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
310 |
^ gc widthOfString:aString. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
311 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
312 |
"Modified: 28.5.1996 / 20:22:22 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
313 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
314 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
315 |
widthOfString:aString from:start to:stop |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
316 |
"given a string, return the width in pixels if |
8364 | 317 |
a substring is drawn on the receiver's device." |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
318 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
319 |
^ gc widthOfString:aString from:start to:stop. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
320 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
321 |
"Modified: 28.5.1996 / 20:22:18 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
322 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
323 |
|
3880 | 324 |
!GraphicsMedium methodsFor:'Compatibility-Squeak'! |
2947 | 325 |
|
3339 | 326 |
copyBits:aRectangle from:aForm at:srcOrigin clippingBox:clippingBox rule:rule fillColor:fillColor |
327 |
|f oldClip oldFunction| |
|
328 |
||
329 |
(f := rule) isInteger ifTrue:[ |
|
7464 | 330 |
"/ ST-80 compatibility: numeric rule |
331 |
f := #(clear and andReverse copy andInverted noop xor or nor equiv invert orInverted copyInverted |
|
332 |
orReverse nand set) at:(rule + 1). |
|
3339 | 333 |
]. |
334 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
335 |
oldFunction := gc function. |
7464 | 336 |
oldClip := gc clippingBoundsOrNil. |
337 |
||
338 |
gc clippingBounds:clippingBox. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
339 |
gc function:f. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
340 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
341 |
gc |
7464 | 342 |
copyFrom:aForm |
343 |
x:srcOrigin x y:srcOrigin y |
|
344 |
toX:aRectangle left y:aRectangle top |
|
345 |
width:aRectangle width height:aRectangle height. |
|
346 |
||
347 |
gc clippingBounds:oldClip. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
348 |
gc function:oldFunction. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
349 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
350 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
351 |
|dst src| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
352 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
353 |
dst := Form width:8 height:8 fromArray:#[ |
7464 | 354 |
2r00000000 |
355 |
2r00000000 |
|
356 |
2r00000000 |
|
357 |
2r00000000 |
|
358 |
2r11111111 |
|
359 |
2r11111111 |
|
360 |
2r11111111 |
|
361 |
2r11111111 |
|
362 |
]. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
363 |
src := Form width:8 height:8 fromArray:#[ |
7464 | 364 |
2r00001111 |
365 |
2r00001111 |
|
366 |
2r00001111 |
|
367 |
2r00001111 |
|
368 |
2r00001111 |
|
369 |
2r00001111 |
|
370 |
2r00001111 |
|
371 |
2r00001111 |
|
372 |
]. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
373 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
374 |
dst copyBits:(0@0 corner:8@8) from:src at:0@0 clippingBox:(0@0 corner:8@8) rule:15 fillColor:Color black. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
375 |
dst inspect |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
376 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
377 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
378 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
379 |
"Modified: / 23.10.2000 / 16:50:44 / martin" |
3339 | 380 |
|
381 |
" |
|
382 |
|dst src| |
|
383 |
||
384 |
dst := Form width:8 height:8 fromArray:#[ |
|
7464 | 385 |
2r00000000 |
386 |
2r00000000 |
|
387 |
2r00000000 |
|
388 |
2r00000000 |
|
389 |
2r11111111 |
|
390 |
2r11111111 |
|
391 |
2r11111111 |
|
392 |
2r11111111 |
|
393 |
]. |
|
3339 | 394 |
src := Form width:8 height:8 fromArray:#[ |
7464 | 395 |
2r00001111 |
396 |
2r00001111 |
|
397 |
2r00001111 |
|
398 |
2r00001111 |
|
399 |
2r00001111 |
|
400 |
2r00001111 |
|
401 |
2r00001111 |
|
402 |
2r00001111 |
|
403 |
]. |
|
3339 | 404 |
|
405 |
dst copyBits:(0@0 corner:8@8) from:src at:0@0 clippingBox:(0@0 corner:8@8) rule:15 fillColor:Color black. |
|
406 |
dst inspect |
|
407 |
||
408 |
" |
|
409 |
||
410 |
"Modified: / 23.10.2000 / 16:50:44 / martin" |
|
411 |
! |
|
412 |
||
3396 | 413 |
fill:aRectangle fillColor:aColor |
3022 | 414 |
"fill the rectangular area specified by aRectangle with the black color" |
415 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
416 |
gc fill:aRectangle fillColor:aColor |
3396 | 417 |
! |
3022 | 418 |
|
3396 | 419 |
fillBlack:aRectangle |
420 |
"fill the rectangular area specified by aRectangle with the black color" |
|
421 |
||
7420 | 422 |
self fill:aRectangle fillColor:self blackColor |
3022 | 423 |
! |
424 |
||
2947 | 425 |
fillColor:something |
426 |
"fill the receiver with something; |
|
427 |
something may be a Form, Color or colorIndex" |
|
428 |
||
429 |
self fill:something |
|
3022 | 430 |
! |
431 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
432 |
fillRectangle:aRectangle color:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
433 |
"fill a rectangle with the given paint color" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
434 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
435 |
gc fillRectangle:aRectangle color:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
436 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
437 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
438 |
fillWhite |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
439 |
"fill all of the receiver with the white color" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
440 |
|
7420 | 441 |
self fill:self whiteColor |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
442 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
443 |
|
3022 | 444 |
fillWhite:aRectangle |
445 |
"fill the rectangular area specified by aRectangle with the white color" |
|
446 |
||
7420 | 447 |
self fill:aRectangle fillColor:self whiteColor |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
448 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
449 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
450 |
!GraphicsMedium methodsFor:'Compatibility-VW'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
451 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
452 |
displayBackgroundIfNeededOn: aGraphicsContext |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
453 |
aGraphicsContext clearView. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
454 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
455 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
456 |
inactiveForegroundColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
457 |
"a dummy method to support VW widgets" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
458 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
459 |
^ self foregroundColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
460 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
461 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
462 |
selectionBackgroundColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
463 |
"a dummy method to support VW widgets" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
464 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
465 |
^ self foregroundColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
466 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
467 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
468 |
selectionForegroundColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
469 |
"a dummy method to support VW widgets" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
470 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
471 |
^ self backgroundColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
472 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
473 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
474 |
separatorColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
475 |
"a dummy method to support VW widgets" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
476 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
477 |
^ self foregroundColor |
2947 | 478 |
! ! |
479 |
||
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
480 |
!GraphicsMedium methodsFor:'accessing'! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
481 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
482 |
at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
483 |
"return the pixel at the coordinate given by aPoint" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
484 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
485 |
^ self atX:aPoint x y:aPoint y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
486 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
487 |
"Modified: / 29.1.2000 / 12:17:42 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
488 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
489 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
490 |
at:aPoint put:aPixelColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
491 |
"set a pixel" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
492 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
493 |
^ self atX:aPoint x y:aPoint y put:aPixelColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
494 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
495 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
496 |
Display rootView at:(0@0) put:(Color red). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
497 |
Display rootView at:(1@1) put:(Color red). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
498 |
Display rootView at:(2@2) put:(Color red). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
499 |
Display rootView at:(3@3) put:(Color red). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
500 |
Display rootView at:(4@4) put:(Color red). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
501 |
Display rootView at:(5@5) put:(Color red). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
502 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
503 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
504 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
505 |
atX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
506 |
"return the pixel at the coordinate given by x/y" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
507 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
508 |
^ gc atX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
509 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
510 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
511 |
atX:x y:y put:aPixelColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
512 |
"set a pixel" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
513 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
514 |
gc atX:x y:y put:aPixelColor. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
515 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
516 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
517 |
backgroundPaint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
518 |
"return the background paint color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
519 |
(used for opaqueForms and opaqueStrings)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
520 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
521 |
^ gc backgroundPaint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
522 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
523 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
524 |
backgroundPaint:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
525 |
"set the background-paint color; this is used in opaque-draw |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
526 |
operations" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
527 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
528 |
gc backgroundPaint:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
529 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
530 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
531 |
basicFont |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
532 |
"return the font for drawing" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
533 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
534 |
^ gc basicFont |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
535 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
536 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
537 |
basicFont:aFont |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
538 |
"set the font for drawing if it has changed. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
539 |
This is a low level entry, which is not to be redefined |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
540 |
(i.e. it must not imply a redraw operation)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
541 |
|
7558 | 542 |
gc font:aFont |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
543 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
544 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
545 |
blackColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
546 |
gc isNil ifTrue:[ |
7420 | 547 |
^ Color black. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
548 |
]. |
7420 | 549 |
^ gc blackColor |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
550 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
551 |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
552 |
bottomCenter |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
553 |
"return the topCenter point" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
554 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
555 |
^ (self left + (width//2) - 1) @ (self top + height - 1) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
556 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
557 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
558 |
bottomLeft |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
559 |
"return the bottomLeft point" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
560 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
561 |
^ (self left) @ (self top + height - 1) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
562 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
563 |
|
2947 | 564 |
boundingBox |
5321 | 565 |
^ Rectangle |
566 |
origin: 0 @ 0 |
|
567 |
corner: width @ height |
|
2947 | 568 |
|
569 |
! |
|
570 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
571 |
capStyle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
572 |
"return the current cap-style for line-drawing. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
573 |
possible styles are: #notLast, #butt, #round, #projecting" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
574 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
575 |
^ gc capStyle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
576 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
577 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
578 |
capStyle:aStyleSymbol |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
579 |
"set the cap-style for line-drawing; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
580 |
possible styles are: #notLast, #butt, #round, #projecting" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
581 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
582 |
gc capStyle:aStyleSymbol |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
583 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
584 |
"Modified: 12.5.1996 / 22:24:30 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
585 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
586 |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
587 |
center |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
588 |
"return the point at the center of the receiver" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
589 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
590 |
^ (self left + (width // 2)) @ (self top + (height // 2)) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
591 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
592 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
593 |
characterEncoding |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
594 |
"returns a symbol describing how the contents is encoded internally. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
595 |
For now, this should be the same encoding as my fonts encoding (otherwise, mappings would |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
596 |
occur when drawing). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
597 |
This is (currently) only passed down from the fileBrowser, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
598 |
and required when japanese/chinese/korean text is edited. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
599 |
(encoding is something like #'iso8859-5' #euc, #sjis, #jis7, #gb, #big5 or #ksc)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
600 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
601 |
^ gc characterEncoding |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
602 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
603 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
604 |
characterEncoding:encodingArg |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
605 |
"define how the contents is encoded internally. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
606 |
This should normally never be required, as ST/X now assumes |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
607 |
unicode (of which iso8859-1 is a subset) encoding. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
608 |
The possibility to change the characterEncoding is provided as |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
609 |
a backward compatibility hook for programs which want to use |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
610 |
another encoding internally. One such view is the CharacterSetView, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
611 |
which wants to show character as they are actually present in a font." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
612 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
613 |
gc characterEncoding:encodingArg |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
614 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
615 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
616 |
clipByChildren |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
617 |
"drawing shall be done into my view only (default)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
618 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
619 |
<resource:#obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
620 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
621 |
self obsoleteMethodWarning:'use #clippedByChildren:true'. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
622 |
^ self clippedByChildren:true |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
623 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
624 |
"Created: 17.7.1996 / 13:25:55 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
625 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
626 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
627 |
clipRect |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
628 |
"return the clip-rectangle for drawing. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
629 |
If there is currently no active clip, return the underlying |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
630 |
displaySurfaces (i.e. views) bounds. Added for ST-80 compatibility." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
631 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
632 |
<resource:#obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
633 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
634 |
self obsoleteMethodWarning:'use #clippingBounds'. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
635 |
^ self clippingBounds. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
636 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
637 |
"Modified: 28.5.1996 / 14:14:53 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
638 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
639 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
640 |
clipRect:aRectangle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
641 |
"set the drawing clip-rectangle" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
642 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
643 |
<resource:#obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
644 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
645 |
self obsoleteMethodWarning:'use #deviceClippingBounds:'. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
646 |
^ gc deviceClippingBounds:aRectangle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
647 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
648 |
"Modified: 28.5.1996 / 14:13:09 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
649 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
650 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
651 |
clippedByChildren:aBoolean |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
652 |
"turn on/off drawing over children. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
653 |
If on, a superview may draw 'over' its children. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
654 |
If off (the default), drawing is 'under' its children. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
655 |
Only useful for the rootView, to draw over any visible views. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
656 |
(for example, when dragging a rubber-line)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
657 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
658 |
gc clippedByChildren:aBoolean. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
659 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
660 |
"Created: 17.7.1996 / 13:25:16 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
661 |
"Modified: 29.4.1997 / 15:33:55 / dq" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
662 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
663 |
|
6217 | 664 |
clippingBounds |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
665 |
"return the clipping rectangle for drawing, nil if there is none." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
666 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
667 |
^ gc clippingBounds |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
668 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
669 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
670 |
clippingBounds:aRectangleOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
671 |
"set the clipping rectangle for drawing (in logical coordinates); |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
672 |
a nil argument turn off clipping (i.e. whole view is drawable)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
673 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
674 |
gc clippingBounds:aRectangleOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
675 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
676 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
677 |
clippingBoundsOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
678 |
"return the clipping rectangle for drawing, nil if there is none." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
679 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
680 |
^ gc clippingBoundsOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
681 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
682 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
683 |
clippingRectangle:aRectangleOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
684 |
"set the clipping rectangle for drawing (in logical coordinates); |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
685 |
a nil argument turn off clipping (i.e. whole view is drawable)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
686 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
687 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
688 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
689 |
self clippingBounds:aRectangleOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
690 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
691 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
692 |
clippingRectangleOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
693 |
"return the clipping rectangle for drawing, nil if there is none." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
694 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
695 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
696 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
697 |
^ self clippingBoundsOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
698 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
699 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
700 |
colorAt:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
701 |
"return the color of the pixel at the coordinate given by x@y" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
702 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
703 |
^ self colorAtX:(aPoint x) y:(aPoint y) |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
704 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
705 |
"Modified: 1.8.1997 / 20:01:58 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
706 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
707 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
708 |
colorAtX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
709 |
"return the color of the pixel at the coordinate given by aPoint" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
710 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
711 |
^ gc colorAtX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
712 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
713 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
714 |
container |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
715 |
"return my container - for protocol compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
716 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
717 |
^ nil |
6217 | 718 |
! |
719 |
||
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
720 |
corner |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
721 |
"return the corner point i.e. the bottom-right point" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
722 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
723 |
^ (self left + width - 1) @ (self top + height - 1) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
724 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
725 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
726 |
corner:aPoint |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
727 |
"set the corner point i.e. change extent so that corner will be |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
728 |
aPoint while leaving the origin unchanging " |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
729 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
730 |
self extent:(aPoint x - self left + 1) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
731 |
@ |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
732 |
(aPoint y - self top + 1) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
733 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
734 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
735 |
dashStyle:aDashList offset:dashOffset |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
736 |
"define dashes. Each element of the dashList specifies the length |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
737 |
of a corresponding dash. For example, setting it to [4 4] |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
738 |
defines 4on-4off dashing; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
739 |
Setting it to [1 2 4 2] defines 1on-2off-4on-2off dashes. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
740 |
The dashOffset specifies where in the dashList the dashing starts. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
741 |
Ignored here - this may not be supported by all graphics devices." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
742 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
743 |
^ gc dashStyle:aDashList offset:dashOffset |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
744 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
745 |
|
7458 | 746 |
depth |
747 |
^ self subclassResponsibility |
|
748 |
! |
|
749 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
750 |
device |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
751 |
"return the device, the receiver is associated with" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
752 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
753 |
^ device |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
754 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
755 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
756 |
device:aDevice |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
757 |
"set the device" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
758 |
|
7485 | 759 |
(aDevice isNil or:[device == aDevice]) ifTrue:[ |
760 |
^ self. |
|
761 |
]. |
|
762 |
||
763 |
gc isNil ifTrue:[ |
|
764 |
self initializeForDevice:aDevice. |
|
7420 | 765 |
^ self. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
766 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
767 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
768 |
device := aDevice. |
7420 | 769 |
gc device:aDevice |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
770 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
771 |
|
7469 | 772 |
deviceClippingBounds:aRectangleOrNil |
773 |
"set the clipping rectangle for drawing (in device coordinates); |
|
774 |
a nil argument turns off clipping (i.e. whole view is drawable - incl. margins)" |
|
775 |
||
776 |
gc deviceClippingBounds:aRectangleOrNil |
|
777 |
! |
|
778 |
||
779 |
deviceClippingBoundsOrNil |
|
780 |
"return the clipping rectangle as physical coordinated for drawing, nil if there is none." |
|
781 |
||
782 |
^ gc deviceClippingBoundsOrNil |
|
783 |
! |
|
784 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
785 |
deviceClippingRectangle:aRectangleOrNil |
7469 | 786 |
<resource: #obsolete> |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
787 |
"set the clipping rectangle for drawing (in device coordinates); |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
788 |
a nil argument turns off clipping (i.e. whole view is drawable - incl. margins)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
789 |
|
7464 | 790 |
gc deviceClippingBounds:aRectangleOrNil |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
791 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
792 |
|
7504 | 793 |
deviceFont |
794 |
"return the current drawing font as a device font" |
|
795 |
||
796 |
^ self font onDevice:device. |
|
797 |
! |
|
798 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
799 |
drawableId |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
800 |
"return the id of the drawable on the device" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
801 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
802 |
gc isNil ifTrue:[ |
7420 | 803 |
^ nil. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
804 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
805 |
^ gc drawableId |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
806 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
807 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
808 |
font |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
809 |
"return the current drawing font" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
810 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
811 |
^ gc font |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
812 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
813 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
814 |
font:aFont |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
815 |
"set the font for drawing if it has changed. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
816 |
This should be redefined in some widget to perform an automatic |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
817 |
redraw. See also: #basicFont:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
818 |
|
7558 | 819 |
gc font:aFont. |
8559 | 820 |
|
821 |
"Modified: / 27-10-2018 / 22:58:48 / Claus Gittinger" |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
822 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
823 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
824 |
function |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
825 |
"return the current drawing function" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
826 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
827 |
^ gc function |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
828 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
829 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
830 |
function:aSymbol |
8298 | 831 |
"set the drawing function if it has changed. |
832 |
The argument is one of: |
|
833 |
#copy,#copyInverted,#xor,#and,#andReverse |
|
834 |
#andInverted,#or,#orReverse,#orInverted |
|
835 |
#invert,#clear,#set,#noop,#equiv,#nand |
|
836 |
Notice: not all graphicMedia support all functions" |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
837 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
838 |
gc function:aSymbol |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
839 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
840 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
841 |
gcId |
8193 | 842 |
"return the receiver's graphic context id on the device" |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
843 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
844 |
gc isNil ifTrue:[ |
7420 | 845 |
^ nil. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
846 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
847 |
^ gc gcId. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
848 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
849 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
850 |
graphicsContext |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
851 |
^ gc |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
852 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
853 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
854 |
graphicsContext:newGc |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
855 |
"set the graphics context" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
856 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
857 |
gc == newGc ifTrue:[ |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
858 |
^ self. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
859 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
860 |
gc := newGc. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
861 |
device := newGc device. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
862 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
863 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
864 |
graphicsDevice |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
865 |
"same as #device, for ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
866 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
867 |
^ device |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
868 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
869 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
870 |
id |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
871 |
"return the id of the drawable on the device" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
872 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
873 |
^ self drawableId |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
874 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
875 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
876 |
joinStyle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
877 |
"return the current join-style for polygon-drawing. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
878 |
possible styles are: #miter, #bevel, #round" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
879 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
880 |
^ gc joinStyle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
881 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
882 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
883 |
joinStyle:aStyleSymbol |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
884 |
"set the join-style of lines in polygon-drawing; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
885 |
possible styles are: #miter, #bevel, #round" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
886 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
887 |
gc joinStyle:aStyleSymbol |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
888 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
889 |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
890 |
left |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
891 |
"return the left i.e. x-coordinate of top-left of the receiver" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
892 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
893 |
^ 0 |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
894 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
895 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
896 |
leftCenter |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
897 |
"return the leftCenter point" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
898 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
899 |
^ (self left) @ (self top + (height // 2) - 1) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
900 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
901 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
902 |
lineStyle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
903 |
"return the current line-drawing-style. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
904 |
possible styles are: #solid, #dashed, #doubleDashed, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
905 |
#dotted, #dashDot or #dashDotDot." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
906 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
907 |
^ gc lineStyle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
908 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
909 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
910 |
lineStyle:aStyleSymbol |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
911 |
"set the line-drawing-style; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
912 |
possible styles are: #solid, #dashed, #doubleDashed, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
913 |
#dotted, #dashDot or #dashDotDot." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
914 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
915 |
gc lineStyle:aStyleSymbol |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
916 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
917 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
918 |
lineWidth |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
919 |
"return the current drawing linewidth" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
920 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
921 |
^ gc lineWidth |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
922 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
923 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
924 |
lineWidth:aNumber |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
925 |
"set the line drawing width in pixels" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
926 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
927 |
gc lineWidth:aNumber |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
928 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
929 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
930 |
mask |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
931 |
"return the current drawing mask" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
932 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
933 |
^ gc mask |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
934 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
935 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
936 |
mask:aForm |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
937 |
"set the drawing mask" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
938 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
939 |
gc mask:aForm |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
940 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
941 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
942 |
maskOrigin |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
943 |
"return the origin within the mask (used to draw with patterns). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
944 |
Should be redefined in classes which support it. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
945 |
This is an alias for ST-80's #phase" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
946 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
947 |
^ gc maskOrigin |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
948 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
949 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
950 |
maskOrigin:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
951 |
"set the origin within the mask (used to draw with patterns). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
952 |
Should be redefined in classes which support it. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
953 |
This is an alias for ST-80's #phase:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
954 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
955 |
gc maskOrigin:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
956 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
957 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
958 |
maskOriginX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
959 |
"set the origin within the mask (used to draw with patterns). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
960 |
Should be redefined in classes which support it. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
961 |
This is an alias for ST-80's #phase:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
962 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
963 |
self maskOrigin:(x @ y) |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
964 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
965 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
966 |
medium |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
967 |
"return the destination medium i.e. the underlying graphics device" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
968 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
969 |
^ gc graphicsDevice |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
970 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
971 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
972 |
noClipByChildren |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
973 |
"drawing shall also be done into subviews" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
974 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
975 |
<resource:#obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
976 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
977 |
self obsoleteMethodWarning:'use #clippedByChildren:false'. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
978 |
^ self clippedByChildren:false |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
979 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
980 |
"Created: 17.7.1996 / 14:15:54 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
981 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
982 |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
983 |
origin |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
984 |
"return the origin i.e. coordinate of top-left of the receiver" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
985 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
986 |
^ 0 @ 0 |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
987 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
988 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
989 |
paint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
990 |
"return the current paint drawing color" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
991 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
992 |
^ gc paint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
993 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
994 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
995 |
paint:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
996 |
"set the drawing painting color, aColor can be a dithered one" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
997 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
998 |
gc paint:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
999 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1000 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1001 |
paint:fgColor on:bgColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1002 |
"set the paint and backgroundPaint, used for text and bitmaps. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1003 |
Both colors may be dithered colors" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1004 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1005 |
gc paint:fgColor on:bgColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1006 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1007 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1008 |
paint:fgColor on:bgColor function:f |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1009 |
"set paint, background-paint and function" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1010 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1011 |
self paint:fgColor on:bgColor. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1012 |
self function:f |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1013 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1014 |
"Modified: 16.5.1996 / 15:36:35 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1015 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1016 |
|
727
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1017 |
realized |
2954 | 1018 |
"return true, if the receiver is realized. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1019 |
The receiver may still be unmapped, if the container is unrealized. |
2955 | 1020 |
Use reallyRealized to make certain that I am really mapped." |
727
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1021 |
|
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1022 |
^ realized |
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1023 |
! |
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1024 |
|
2955 | 1025 |
reallyRealized |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1026 |
"return true, if the receiver is realized and all containers |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1027 |
are realized." |
2955 | 1028 |
|
1029 |
^ self realized |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1030 |
|
2955 | 1031 |
! |
1032 |
||
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1033 |
rightCenter |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1034 |
"return the leftCenter point" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1035 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1036 |
^ (self left + width - 1) @ (self top + (height // 2) - 1) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1037 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1038 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1039 |
setClippingBounds:aRectangleOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1040 |
gc setClippingBounds:aRectangleOrNil |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1041 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1042 |
|
7704 | 1043 |
setDevice:aDevice |
1044 |
"set the device" |
|
1045 |
||
1046 |
device := aDevice. |
|
1047 |
gc setDevice:aDevice |
|
1048 |
! |
|
1049 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1050 |
setGraphicsExposures:aBoolean |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1051 |
"want to if aBoolean is true - or don't want to be notified |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1052 |
of graphics exposures" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1053 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1054 |
gc setGraphicsExposures:aBoolean |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1055 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1056 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1057 |
setMaskOrigin:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1058 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1059 |
"set the origin within the mask (used to draw with patterns). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1060 |
OBSOLETE: use #maskOrigin: or #phase:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1061 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1062 |
self obsoleteMethodWarning:'use #maskOrigin:'. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1063 |
^ self maskOriginX:aPoint x y:aPoint y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1064 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1065 |
"Modified: / 26.1.1998 / 18:54:14 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1066 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1067 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1068 |
setMaskOriginX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1069 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1070 |
"set the origin within the mask (used to draw with patterns). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1071 |
OBSOLETE: use #maskOriginX:y: or #phase:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1072 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1073 |
self obsoleteMethodWarning:'use #maskOriginX:y:'. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1074 |
^ self maskOriginX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1075 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1076 |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1077 |
top |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1078 |
"return the top i.e. y-coordinate of top-left of the receiver" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1079 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1080 |
^ 0 |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1081 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1082 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1083 |
topCenter |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1084 |
"return the topCenter point" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1085 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1086 |
^ (self left + (width//2) - 1) @ (self top) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1087 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1088 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1089 |
topRight |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1090 |
"return the topRight point" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1091 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1092 |
^ (self left + width - 1) @ (self top) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1093 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1094 |
|
2030
5b29d7626887
added #viewBackground for protocol compatibility with real views.
ca
parents:
741
diff
changeset
|
1095 |
viewBackground |
5b29d7626887
added #viewBackground for protocol compatibility with real views.
ca
parents:
741
diff
changeset
|
1096 |
"for protocol compatibility with view; return my background paint color here" |
5b29d7626887
added #viewBackground for protocol compatibility with real views.
ca
parents:
741
diff
changeset
|
1097 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1098 |
^ self backgroundPaint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1099 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1100 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1101 |
viewOrigin |
8388 | 1102 |
"return the drawable's visible origin (for scrolling)" |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1103 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1104 |
^ 0@0 |
8388 | 1105 |
|
1106 |
"Modified (comment): / 14-06-2018 / 10:16:52 / Claus Gittinger" |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1107 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1108 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1109 |
whiteColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1110 |
gc isNil ifTrue:[ |
7420 | 1111 |
^ Color white. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1112 |
]. |
7420 | 1113 |
^ gc whiteColor |
8700 | 1114 |
! ! |
1115 |
||
1116 |
!GraphicsMedium methodsFor:'accessing-dimensions'! |
|
1117 |
||
1118 |
extent |
|
1119 |
"return the extent; |
|
1120 |
i.e. a point with width as x, height as y coordinate" |
|
1121 |
||
1122 |
^ width @ height |
|
1123 |
||
1124 |
"Modified (comment): / 30-05-2019 / 10:51:26 / Claus Gittinger" |
|
1125 |
! |
|
1126 |
||
1127 |
extent:extent |
|
1128 |
"set the extent. |
|
1129 |
Might be redefined to perform other actions (especially notifications)" |
|
1130 |
||
1131 |
width := extent x. |
|
1132 |
height := extent y |
|
1133 |
||
1134 |
"Modified (comment): / 30-05-2019 / 10:53:37 / Claus Gittinger" |
|
1135 |
! |
|
1136 |
||
1137 |
height |
|
1138 |
"return the height of the receiver" |
|
1139 |
||
1140 |
^ height |
|
1141 |
! |
|
1142 |
||
1143 |
height:anInteger |
|
1144 |
"set the height of the receiver. |
|
1145 |
Might be redefined to perform other actions (especially notifications)" |
|
1146 |
||
1147 |
height := anInteger |
|
1148 |
||
1149 |
"Modified (comment): / 30-05-2019 / 10:53:32 / Claus Gittinger" |
|
1150 |
! |
|
1151 |
||
1152 |
setHeight:aNumber |
|
1153 |
"set the view's height in pixels. |
|
1154 |
Direct setter, not redefined in subclasses" |
|
1155 |
||
1156 |
height := aNumber. |
|
1157 |
||
1158 |
"Created: / 01-02-2011 / 23:34:51 / cg" |
|
1159 |
"Modified (comment): / 30-05-2019 / 10:52:41 / Claus Gittinger" |
|
1160 |
! |
|
1161 |
||
1162 |
setWidth:aNumber |
|
1163 |
"set the view's width in pixels. |
|
1164 |
Direct setter, not redefined in subclasses" |
|
1165 |
||
1166 |
width := aNumber. |
|
1167 |
||
1168 |
"Created: / 01-02-2011 / 23:36:44 / cg" |
|
1169 |
"Modified (comment): / 30-05-2019 / 10:52:45 / Claus Gittinger" |
|
1170 |
! |
|
1171 |
||
1172 |
setWidth:w height:h |
|
1173 |
"set both width and height. |
|
1174 |
Direct setter, not redefined in subclasses" |
|
1175 |
||
1176 |
width := w. |
|
1177 |
height := h |
|
1178 |
||
1179 |
"Modified (comment): / 30-05-2019 / 10:52:48 / Claus Gittinger" |
|
2030
5b29d7626887
added #viewBackground for protocol compatibility with real views.
ca
parents:
741
diff
changeset
|
1180 |
! |
5b29d7626887
added #viewBackground for protocol compatibility with real views.
ca
parents:
741
diff
changeset
|
1181 |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1182 |
width |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1183 |
"return the width of the receiver" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1184 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1185 |
^ width |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1186 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1187 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1188 |
width:anInteger |
8700 | 1189 |
"set the width of the receiver. |
1190 |
Might be redefined to perform other actions (especially notifications)" |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1191 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1192 |
width := anInteger |
8700 | 1193 |
|
1194 |
"Modified (comment): / 30-05-2019 / 10:53:20 / Claus Gittinger" |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1195 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1196 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1197 |
width:w height:h |
8700 | 1198 |
"set both width and height of the receiver. |
1199 |
Might be redefined to perform other actions (especially notifications)" |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1200 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1201 |
width := w. |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1202 |
height := h |
8700 | 1203 |
|
1204 |
"Modified (comment): / 30-05-2019 / 10:53:26 / Claus Gittinger" |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1205 |
! ! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1206 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1207 |
!GraphicsMedium methodsFor:'accessing-internals'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1208 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1209 |
background |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1210 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1211 |
"return the current background drawing color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1212 |
OBSOLETE: use #paint: / #backgroundPaint: / #paint:on:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1213 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1214 |
^ gc background |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1215 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1216 |
"Modified: 12.5.1996 / 22:28:09 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1217 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1218 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1219 |
background:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1220 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1221 |
"set the internal background color for drawing - aColor must be a real color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1222 |
OBSOLETE: this method will vanish; use #paint: / #backgroundPaint: / #paint:on:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1223 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1224 |
gc background:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1225 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1226 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1227 |
foreground |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1228 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1229 |
"return the current foreground drawing color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1230 |
OBSOLETE: use #paint: / #paint:on:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1231 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1232 |
^ gc foreground |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1233 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1234 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1235 |
foreground:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1236 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1237 |
"set the internal foreground color for drawing - aColor must be a real color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1238 |
OBSOLETE: this method will vanish; use #paint: / #paint:on:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1239 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1240 |
gc foreground:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1241 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1242 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1243 |
foreground:fgColor background:bgColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1244 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1245 |
"set both internal foreground and internal background colors |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1246 |
- these must be real colors. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1247 |
OBSOLETE: this method will vanish; use #paint: / #paint:on:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1248 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1249 |
gc foreground:fgColor background:bgColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1250 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1251 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1252 |
foreground:fgColor background:bgColor function:fun |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1253 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1254 |
"set foreground, background colors and function. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1255 |
OBSOLETE: this method will vanish; use #paint: / #paint:on:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1256 |
|
7464 | 1257 |
gc foreground:fgColor background:bgColor. |
1258 |
gc function:fun |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1259 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1260 |
"Modified: 12.5.1996 / 22:28:34 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1261 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1262 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1263 |
foreground:aColor function:fun |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1264 |
<resource: #obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1265 |
"set the foreground color and function for drawing. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1266 |
OBSOLETE: this method will vanish; use #paint: / #paint:on:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1267 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1268 |
gc foreground:aColor function:fun |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1269 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1270 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1271 |
setRealized:aBoolean |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1272 |
"low level special interface to manipulate the realized state. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1273 |
Non-public interface, only to be used by experts. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1274 |
(use to pretend a view has been realized - for example with alien views)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1275 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1276 |
realized := aBoolean |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1277 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1278 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1279 |
!GraphicsMedium methodsFor:'accessing-transformation'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1280 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1281 |
scale |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1282 |
"return the scale factor (as point) of the transformation" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1283 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1284 |
^ gc scale |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1285 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1286 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1287 |
scale:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1288 |
"set the scale factor of the transformation" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1289 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1290 |
^ gc scale:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1291 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1292 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1293 |
transformation |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1294 |
"return the transformation" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1295 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1296 |
^ gc transformation |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1297 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1298 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1299 |
transformation:aTransformation |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1300 |
"set the transformation" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1301 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1302 |
^ gc transformation:aTransformation |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1303 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1304 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1305 |
translateBy:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1306 |
"add to the translation offset of the transformation" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1307 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1308 |
^ gc translateBy:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1309 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1310 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1311 |
translation |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1312 |
"return the translation factor (as point) of the transformation" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1313 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1314 |
^ gc translation |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1315 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1316 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1317 |
translation:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1318 |
"set the translation offset of the transformation" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1319 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1320 |
^ gc translation:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1321 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1322 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1323 |
!GraphicsMedium methodsFor:'basic drawing'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1324 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1325 |
displayArcX:x y:y width:width height:height from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1326 |
"draw an arc in a box |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1327 |
- this could be recoded to draw using displayLine" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1328 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1329 |
gc displayArcX:x y:y width:width height:height from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1330 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1331 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1332 |
displayDottedRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1333 |
"draw a dotted-line rectangle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1334 |
A general implementation is found here; deviceGC's |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1335 |
may reimplement this if directly supported by the device" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1336 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1337 |
gc displayDottedRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1338 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1339 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1340 |
displayHorizontalWavelineFromX:x0 y:y0 toX:x1 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1341 |
"draw a horizontal wave-line from x0/y0 to x1/y0" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1342 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1343 |
gc displayHorizontalWavelineFromX:x0 y:y0 toX:x1 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1344 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1345 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1346 |
displayLineFromX:x0 y:y0 toX:x1 y:y1 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1347 |
"draw a line from x0/y0 to x1/y1" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1348 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1349 |
gc displayLineFromX:x0 y:y0 toX:x1 y:y1 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1350 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1351 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1352 |
displayOpaqueForm:aForm x:x y:y |
8153 | 1353 |
"draw a form at x/y; |
1354 |
if the form has depth 1, 1's in the form are |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1355 |
drawn in current fg, 0's in current bg color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1356 |
If the form has depth ~~ 1, it is copied as is onto the receiver" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1357 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1358 |
gc displayOpaqueForm:aForm x:x y:y |
8153 | 1359 |
|
1360 |
"Modified (comment): / 31-08-2017 / 19:26:34 / cg" |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1361 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1362 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1363 |
displayOpaqueString:aString from:index1 to:index2 x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1364 |
"draw part of a string with both fg and bg at x/y in current font" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1365 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1366 |
gc displayString:aString from:index1 to:index2 x:x y:y opaque:true maxWidth:self width |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1367 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1368 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1369 |
displayPolygon:aPolygon |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1370 |
"draw a polygon |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1371 |
- this could be recoded to draw using displayLine" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1372 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1373 |
gc displayPolygon:aPolygon |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1374 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1375 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1376 |
displayRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1377 |
"draw a rectangle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1378 |
- this could be recoded to draw using displayLine" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1379 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1380 |
gc displayRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1381 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1382 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1383 |
displayString:aString from:index1 to:index2 x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1384 |
"draw part of a string with fg at x/y in current font" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1385 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1386 |
gc displayString:aString from:index1 to:index2 x:x y:y opaque:false maxWidth:self width |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1387 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1388 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1389 |
displayString:aString from:index1 to:index2 x:x y:y opaque:opaque |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1390 |
"draw part of a string with both fg and bg at x/y in current font" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1391 |
|
8267 | 1392 |
gc displayString:aString from:index1 to:index2 x:x y:y opaque:opaque maxWidth:self width. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1393 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1394 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1395 |
displayString:aString from:index1 to:index2 x:x y:y opaque:opaque maxWidth:maxWidth |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1396 |
"draw part of a string with both fg and bg at x/y in current font" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1397 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1398 |
gc displayString:aString from:index1 to:index2 x:x y:y opaque:opaque maxWidth:maxWidth |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1399 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1400 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1401 |
!GraphicsMedium methodsFor:'basic filling'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1402 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1403 |
fillArcX:x y:y width:w height:h from:start angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1404 |
"fill an arc with current paint color" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1405 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1406 |
gc fillArcX:x y:y width:w height:h from:start angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1407 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1408 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1409 |
fillPolygon:points |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1410 |
"fill a polygon with current paint color" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1411 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1412 |
gc fillPolygon:points |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1413 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1414 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1415 |
fillRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1416 |
"fill a rectangle with current paint color" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1417 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1418 |
gc fillRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1419 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1420 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1421 |
fillRectangleX:x y:y width:w height:h color:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1422 |
"fill a rectangle with given color" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1423 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1424 |
gc fillRectangleX:x y:y width:w height:h color:aColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1425 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1426 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1427 |
!GraphicsMedium methodsFor:'bit blitting'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1428 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1429 |
copyBitsFrom:aByteArray bitsPerPixel:bpp depth:depth padding:pad width:srcW height:srcH x:srcX y:srcY toX:dstX y:dstY |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1430 |
"copy bits from a smalltalk byteArray. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1431 |
The bits found there are supposed to be in the devices native format (i.e. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1432 |
translated to allocated color indices on pseudoColor devices and padded as required. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1433 |
The byteOrder is MSB and will be converted as appropriate by the underlying devices |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1434 |
method to whatever the device needs." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1435 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1436 |
gc copyBitsFrom:aByteArray bitsPerPixel:bpp depth:depth padding:pad width:srcW height:srcH x:srcX y:srcY toX:dstX y:dstY |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1437 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1438 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1439 |
copyFrom:aGC toX:dstX y:dstY |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1440 |
"copy from a drawable - maybe self" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1441 |
|
7458 | 1442 |
self copyFrom:aGC x:0 y:0 toX:dstX y:dstY width:aGC width height:aGC height async:false |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1443 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1444 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1445 |
copyFrom:aGC x:srcX y:srcY toX:dstX y:dstY width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1446 |
"copy from a drawable - maybe self" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1447 |
|
7458 | 1448 |
self copyFrom:aGC x:srcX y:srcY toX:dstX y:dstY width:w height:h async:false |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1449 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1450 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1451 |
copyFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h async:async |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1452 |
"copy from aDrawable into the receiver; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1453 |
the source may be the receiver as well - in this case its a scroll. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1454 |
All coordinates are in device coordinates. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1455 |
If the receiver is a view AND async is true, the call returns immediately |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1456 |
- otherwise, it returns when the scroll operation is finished. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1457 |
(not all devices care for this). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1458 |
If the receiver is a pixmap, the call always returns immediately." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1459 |
|
7748 | 1460 |
|deviceDrawable mustWait sourceDepth| |
7420 | 1461 |
|
1462 |
((aDrawable graphicsDevice ~~ device) |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1463 |
or:[aDrawable isImage]) ifTrue:[ |
7420 | 1464 |
deviceDrawable := aDrawable asFormOn:device. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1465 |
] ifFalse:[ |
7420 | 1466 |
deviceDrawable := aDrawable |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1467 |
]. |
7745 | 1468 |
sourceDepth := deviceDrawable depth. |
7748 | 1469 |
mustWait := async not |
1470 |
and:[deviceDrawable isView |
|
1471 |
and:[(sourceDepth ~~ 1) or:[device depth == 1]]]. |
|
7467 | 1472 |
mustWait ifTrue:[ |
1473 |
mustWait := self catchExpose. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1474 |
]. |
7745 | 1475 |
gc copyFrom:deviceDrawable graphicsContext x:srcX y:srcY toX:dstX y:dstY width:w height:h depth:sourceDepth. |
7467 | 1476 |
mustWait ifTrue:[ |
7420 | 1477 |
self waitForExpose |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1478 |
] |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1479 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1480 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1481 |
copyFrom:aGC x:dstX y:dstY width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1482 |
"copy from a drawable - maybe self" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1483 |
|
7458 | 1484 |
self copyFrom:aGC x:0 y:0 toX:dstX y:dstY width:w height:h async:false |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1485 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1486 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1487 |
copyPlaneFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1488 |
"copy one plane from aDrawable into the receiver. 0's are drawn in |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1489 |
background, while 1's are drawn with foreground color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1490 |
The depth of aDrawable must (should) be 1. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1491 |
The drawable must have been allocated on the same device. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1492 |
All coordinates are in device coordinates." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1493 |
|
7458 | 1494 |
|deviceDrawable| |
1495 |
||
1496 |
((aDrawable graphicsDevice ~~ device) |
|
1497 |
or:[aDrawable isImage]) ifTrue:[ |
|
1498 |
deviceDrawable := aDrawable asFormOn:device. |
|
1499 |
] ifFalse:[ |
|
1500 |
deviceDrawable := aDrawable |
|
1501 |
]. |
|
1502 |
||
1503 |
gc copyPlaneFrom:deviceDrawable graphicsContext x:srcX y:srcY toX:dstX y:dstY width:w height:h |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1504 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1505 |
|
8690 | 1506 |
!GraphicsMedium methodsFor:'copying-private'! |
727
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1507 |
|
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1508 |
postCopy |
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1509 |
"this may not be enough to allow copying of views ..." |
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1510 |
|
7843 | 1511 |
<modifier: #super> "must be called if redefined" |
1512 |
||
1513 |
"/ super postCopy. |
|
727
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1514 |
realized := false. |
7843 | 1515 |
|
1516 |
"Modified: / 08-02-2017 / 00:19:33 / cg" |
|
4403 | 1517 |
! |
1518 |
||
1519 |
postDeepCopy |
|
1520 |
super postDeepCopy. |
|
1521 |
realized := false. |
|
727
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1522 |
! ! |
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
1523 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1524 |
!GraphicsMedium methodsFor:'drawing'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1525 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1526 |
display:someObject at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1527 |
"draw someObject - this must understand the #displayOn:at: message" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1528 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1529 |
someObject displayOn:self at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1530 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1531 |
"Created: 28.5.1996 / 14:22:57 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1532 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1533 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1534 |
displayArcIn:aRectangle from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1535 |
"draw an arc in a box" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1536 |
|
8267 | 1537 |
gc displayArcX:(aRectangle left) y:(aRectangle top) |
1538 |
width:(aRectangle width) height:(aRectangle height) |
|
1539 |
from:startAngle angle:angle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1540 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1541 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1542 |
displayArcOrigin:origin corner:corner from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1543 |
"draw an arc in a box" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1544 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1545 |
|left top right bot| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1546 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1547 |
left := origin x. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1548 |
top := origin y. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1549 |
right := corner x. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1550 |
bot := corner y. |
8267 | 1551 |
gc displayArcX:left y:top |
1552 |
width:(right - left + 1) height:(bot - top + 1) |
|
1553 |
from:startAngle angle:angle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1554 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1555 |
"Modified: 8.5.1996 / 08:35:25 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1556 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1557 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1558 |
displayArcX:x y:y w:w h:h from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1559 |
"draw an arc; apply transformation if nonNil" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1560 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1561 |
<resource:#obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1562 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1563 |
self obsoleteMethodWarning:'use #displayArcX:y:width:height:from:angle:'. |
8267 | 1564 |
gc displayArcX:x y:y width:w height:h from:startAngle angle:angle |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1565 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1566 |
"Modified: 8.5.1996 / 08:46:56 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1567 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1568 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1569 |
displayCircle:aPoint radius:r |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1570 |
"draw a circle around a center point" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1571 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1572 |
gc displayCircleX:(aPoint x) y:(aPoint y) radius:r |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1573 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1574 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1575 |
displayCircleIn:aRectangle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1576 |
"draw a circle in a box" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1577 |
|
8267 | 1578 |
gc |
1579 |
displayArcX:(aRectangle left) y:(aRectangle top) |
|
1580 |
width:(aRectangle width) height:(aRectangle height) |
|
1581 |
from:0 angle:360 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1582 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1583 |
"Modified: 8.5.1996 / 08:35:40 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1584 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1585 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1586 |
displayCircleX:x y:y radius:r |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1587 |
"draw a circle around a center point" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1588 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1589 |
|d| |
8267 | 1590 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1591 |
d := 2 * r. |
8267 | 1592 |
gc |
1593 |
displayArcX:(x - r) y:(y - r) |
|
1594 |
width:d height:d |
|
1595 |
from:0 angle:360 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1596 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1597 |
"Modified: 8.5.1996 / 08:36:03 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1598 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1599 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1600 |
displayForm:aFormOrImage |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1601 |
"draw a form (or image) at the origin" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1602 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1603 |
gc displayForm:aFormOrImage x:0 y:0 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1604 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1605 |
"Modified: / 24.4.1997 / 16:00:11 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1606 |
"Created: / 9.11.1997 / 00:50:52 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1607 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1608 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1609 |
displayForm:aFormOrImage at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1610 |
"draw a form (or image)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1611 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1612 |
gc displayForm:aFormOrImage x:(aPoint x) y:(aPoint y) |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1613 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1614 |
"Modified: 24.4.1997 / 16:00:11 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1615 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1616 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1617 |
displayForm:formToDraw x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1618 |
"draw a form or image non opaque; |
7888 | 1619 |
if it's a 1-plane bitmap, 1-bits are drawn in the |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1620 |
current paint-color, leaving pixels with 0-bits unchanged |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1621 |
(i.e. only 1-bits are drawn from the form). |
7883 | 1622 |
If it's a deep form (i.e. a pixmap) the current paint |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1623 |
settings are ignored and the form is drawn as-is. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1624 |
Care must be taken, that the paint color is correctly allocated |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1625 |
(by sending #on: to the color) before doing so. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1626 |
Using functions other than #copy only makes sense if you are |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1627 |
certain, that the colors are real colors (actually, only for |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1628 |
noColor or allColor)." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1629 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1630 |
gc displayForm:formToDraw x:x y:y |
7883 | 1631 |
|
7888 | 1632 |
"Modified (comment): / 13-02-2017 / 20:19:56 / cg" |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1633 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1634 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1635 |
displayForm:aFormOrImage x:x y:y opaque:opaque |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1636 |
"draw a form (or image) at x/y; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1637 |
if the form has depth 1, 1's in the form are |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1638 |
drawn in current paint color, 0's are ignored. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1639 |
If the form has depth ~~ 1, the current fg color setting is ignored." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1640 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1641 |
opaque ifTrue:[ |
8267 | 1642 |
gc displayOpaqueForm:aFormOrImage x:x y:y |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1643 |
] ifFalse:[ |
8267 | 1644 |
gc displayForm:aFormOrImage x:x y:y |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1645 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1646 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1647 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1648 |
displayImage:aFormOrImage |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1649 |
"draw an image (or form). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1650 |
Provided for ST-80 compatibilty; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1651 |
in ST/X, images are also handled by #displayForm:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1652 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1653 |
gc displayForm:aFormOrImage x:0 y:0 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1654 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1655 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1656 |
displayImage:aFormOrImage at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1657 |
"draw an image (or form). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1658 |
Provided for ST-80 compatibilty; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1659 |
in ST/X, images are also handled by #displayForm:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1660 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1661 |
gc displayForm:aFormOrImage x:(aPoint x) y:(aPoint y) |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1662 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1663 |
"Modified: 24.4.1997 / 16:02:43 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1664 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1665 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1666 |
displayImage:aFormOrImage x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1667 |
"draw an image (or form). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1668 |
Provided for ST-80 compatibilty; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1669 |
in ST/X, images are also handled by #displayForm:" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1670 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1671 |
gc displayForm:aFormOrImage x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1672 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1673 |
"Created: 24.4.1997 / 16:03:03 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1674 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1675 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1676 |
displayLineFrom:point1 to:point2 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1677 |
"draw a line" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1678 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1679 |
gc displayLineFromX:(point1 x) y:(point1 y) |
8267 | 1680 |
toX:(point2 x) y:(point2 y) |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1681 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1682 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1683 |
displayLineFromX:xStart y:yStart toX:xEnd y:yEnd brush:aForm |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1684 |
"draw a line using a brush. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1685 |
Here, a slow fallback is used, drawing into a |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1686 |
temporary bitmap first, which is then displayed" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1687 |
|
8267 | 1688 |
gc displayLineFromX:xStart y:yStart toX:xEnd y:yEnd brush:aForm. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1689 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1690 |
"Modified: 1.4.1997 / 21:29:06 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1691 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1692 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1693 |
displayOpaqueString:aString at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1694 |
"draw a string with both fg and bg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1695 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1696 |
gc displayOpaqueString:aString x:(aPoint x) y:(aPoint y) |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1697 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1698 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1699 |
displayOpaqueString:aString from:start to:stop at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1700 |
"draw part of a string - drawing both fg and bg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1701 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1702 |
gc displayString:aString from:start to:stop x:aPoint x y:aPoint x opaque:true maxWidth:self width. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1703 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1704 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1705 |
displayOpaqueString:aString x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1706 |
"draw a string at the coordinate x/y - draw foreground pixels in paint-color, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1707 |
background pixels in bgPaint color. If the transformation involves scaling, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1708 |
the fonts point-size is scaled as appropriate. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1709 |
Assuming that device can only draw in device colors, we have to handle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1710 |
the case where paint and/or bgPaint are dithered colors or images." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1711 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1712 |
gc displayOpaqueString:aString x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1713 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1714 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1715 |
displayOpaqueString:aString x:x y:y angle:drawAngle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1716 |
"draw a string along a (possibly non-horizontal) line, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1717 |
drawing both fg and bg pixels. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1718 |
The angle is in degrees, clock-wise, starting with 0 for |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1719 |
a horizontal draw. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1720 |
Drawing is done by first drawing the string into a temporary bitmap, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1721 |
which is rotated and finally drawn as usual. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1722 |
NOTICE: due to the rotation of the temporary bitmap, this is a slow |
7420 | 1723 |
operation - not to be used with cillions of strings ..." |
1724 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1725 |
gc displayString:aString x:x y:y angle:drawAngle opaque:true |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1726 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1727 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1728 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1729 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1730 |
v := View new. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1731 |
v extent:300@200. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1732 |
v openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1733 |
0 to:360 by:45 do:[:a | |
7420 | 1734 |
v paint:Color black on:Color red. |
1735 |
v displayOpaqueString:'hello world' x:100 y:100 angle:a. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1736 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1737 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1738 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1739 |
"in contrast to non-opaque draw: |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1740 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1741 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1742 |
v := View new. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1743 |
v extent:300@200. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1744 |
v openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1745 |
0 to:360 by:45 do:[:a | |
7420 | 1746 |
v paint:Color black on:Color red. |
1747 |
v displayString:'hello world' x:100 y:100 angle:a. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1748 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1749 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1750 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1751 |
"Modified: 23.4.1997 / 17:50:23 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1752 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1753 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1754 |
displayPoint:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1755 |
"draw a pixel" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1756 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1757 |
gc displayPointX:(aPoint x) y:(aPoint y) |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1758 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1759 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1760 |
displayPointX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1761 |
"draw a point (with current paint-color); apply transformation if nonNil" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1762 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1763 |
gc displayPointX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1764 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1765 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1766 |
displayRectangle:aRectangle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1767 |
"draw a rectangle" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1768 |
|
7791 | 1769 |
gc displayRectangleX:(aRectangle left) y:(aRectangle top) |
1770 |
width:(aRectangle width) height:(aRectangle height) |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1771 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1772 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1773 |
displayRectangleOrigin:origin corner:corner |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1774 |
"draw a rectangle" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1775 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1776 |
|top left| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1777 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1778 |
left := origin x. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1779 |
top := origin y. |
8267 | 1780 |
gc displayRectangleX:left y:top width:(corner x - left) height:(corner y - top) |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1781 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1782 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1783 |
displayRectangleOrigin:origin extent:extent |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1784 |
"draw a rectangle" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1785 |
|
8267 | 1786 |
gc displayRectangleX:(origin x) y:(origin y) |
1787 |
width:(extent x) height:(extent y) |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1788 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1789 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1790 |
displayRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn |
8267 | 1791 |
gc displayRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1792 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1793 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1794 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1795 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1796 |
(v := View new) extent:200@200; openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1797 |
v displayRoundRectangleX:10 y:10 width:100 height:100 wCorner:20 hCorner:20 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1798 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1799 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1800 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1801 |
displayString:aString at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1802 |
"draw a string - drawing fg only" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1803 |
|
8267 | 1804 |
gc displayString:aString x:aPoint x y:aPoint y |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1805 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1806 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1807 |
displayString:aString centeredAt:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1808 |
"draw a string - drawing fg only" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1809 |
|
8267 | 1810 |
gc displayString:aString centeredAtX:aPoint x y:aPoint y |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1811 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1812 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1813 |
displayString:aString centeredAtX:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1814 |
"draw a string - drawing fg only" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1815 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1816 |
|w h| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1817 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1818 |
w := aString widthOn:self. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1819 |
h := aString heightOn:self. |
8267 | 1820 |
gc displayString:aString x:x-(w/2) y:y-(h/2) |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1821 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1822 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1823 |
displayString:aString from:start to:stop at:aPoint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1824 |
"draw part of a string - drawing fg only" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1825 |
|
8267 | 1826 |
gc displayString:aString from:start to:stop x:aPoint x y:aPoint y |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1827 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1828 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1829 |
displayString:aString x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1830 |
"draw a string at the coordinate x/y - |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1831 |
draw foreground-pixels only (in current paint-color), |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1832 |
leaving background as-is. If the transformation involves scaling, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1833 |
the fonts point-size is scaled as appropriate." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1834 |
|
8267 | 1835 |
gc displayString:aString from:1 to:aString size x:x y:y opaque:false maxWidth:self width. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1836 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1837 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1838 |
displayString:aString x:x y:y angle:drawAngle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1839 |
"draw a string along a (possibly non-horizontal) line - drawing fg only. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1840 |
The angle is in degrees, clock-wise, starting with 0 for |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1841 |
a horizontal draw. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1842 |
Drawing is done by first drawing the string into a temporary bitmap, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1843 |
which is rotated and finally drawn as usual. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1844 |
NOTICE: due to the rotation of the temporary bitmap, this is a slow |
8267 | 1845 |
operation - not to be used with cillions of strings ..." |
1846 |
||
1847 |
gc displayString:aString x:x y:y angle:drawAngle opaque:false |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1848 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1849 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1850 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1851 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1852 |
v := View new. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1853 |
v extent:300@200. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1854 |
v openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1855 |
0 to:360 by:90 do:[:a | |
8267 | 1856 |
v paint:Color black. |
1857 |
v displayString:'hello world' x:100 y:100 angle:a. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1858 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1859 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1860 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1861 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1862 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1863 |
v := View new. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1864 |
v extent:400@400. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1865 |
v openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1866 |
0 to:360 by:5 do:[:a | |
8267 | 1867 |
v paint:Color black. |
1868 |
v displayString:'.........hello' x:200 y:200 angle:a. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1869 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1870 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1871 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1872 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1873 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1874 |
v := View new. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1875 |
v extent:200@100. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1876 |
v openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1877 |
v displayString:' hello' x:90 y:50 angle:0. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1878 |
v displayString:' hello' x:90 y:50 angle:45. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1879 |
v displayString:' hello' x:90 y:50 angle:90. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1880 |
v displayString:' hello' x:90 y:50 angle:180. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1881 |
v displayString:' hello' x:90 y:50 angle:270. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1882 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1883 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1884 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1885 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1886 |
v := View new. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1887 |
v extent:200@100. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1888 |
v openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1889 |
v displayString:'hello' x:50 y:50 angle:0. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1890 |
v displayString:'hello' x:50 y:50 angle:45. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1891 |
v displayString:'hello' x:50 y:50 angle:90. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1892 |
v displayString:'hello' x:50 y:50 angle:135. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1893 |
v displayString:'hello' x:50 y:50 angle:180. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1894 |
v displayString:'hello' x:50 y:50 angle:225. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1895 |
v displayString:'hello' x:50 y:50 angle:270. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1896 |
v displayString:'hello' x:50 y:50 angle:315. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1897 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1898 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1899 |
"Modified: 24.4.1997 / 12:51:25 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1900 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1901 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1902 |
displayString:aString x:x y:y angle:drawAngle opaque:opaque |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1903 |
"common code to draw a string along a (possibly non-horizontal) line. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1904 |
The angle is in degrees, clock-wise, starting with 0 for |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1905 |
a horizontal draw. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1906 |
Drawing is done by first drawing the string into a temporary bitmap, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1907 |
which is rotated and finally drawn as usual. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1908 |
NOTICE: due to the rotation of the temporary bitmap, this is a slow |
7420 | 1909 |
operation - not to be used with cillions of strings ... |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1910 |
CAVEAT: if the string is not a real string (i.e. a LabelAndIcon), |
7420 | 1911 |
this can (currently) only be done opaque" |
1912 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1913 |
gc displayString:aString x:x y:y angle:drawAngle opaque:opaque |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1914 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1915 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1916 |
displayUnscaledForm:formToDraw x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1917 |
"draw a form or image non opaque and unscaled; |
7888 | 1918 |
if it's a 1-plane bitmap, 1-bits are drawn in the |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1919 |
current paint-color, leaving pixels with 0-bits unchanged |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1920 |
(i.e. only 1-bits are drawn from the form). |
7888 | 1921 |
If it's a deep form (i.e. a pixmap) the current paint |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1922 |
settings are ignored and the form is drawn as-is. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1923 |
Care must be taken, that the paint color is correctly allocated |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1924 |
(by sending #on: to the color) before doing so. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1925 |
Using functions other than #copy only makes sense if you are |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1926 |
certain, that the colors are real colors (actually, only for |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1927 |
noColor or allColor). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1928 |
The origins coordinate is transformed, but the image itself is unscaled." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1929 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1930 |
gc displayUnscaledForm:formToDraw x:x y:y |
7888 | 1931 |
|
1932 |
"Modified (comment): / 13-02-2017 / 20:20:09 / cg" |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1933 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1934 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1935 |
displayUnscaledOpaqueForm:formToDraw x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1936 |
"draw a form or image opaque and unscaled; |
7888 | 1937 |
if it's a 1-plane bitmap, 1-bits are drawn in the |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1938 |
current paint-color, 0 bits in background color. |
7888 | 1939 |
If it's a deep form (i.e. a pixmap) the current paint |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1940 |
settings are ignored and the form is drawn as-is (opaque). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1941 |
The origins coordinate is transformed, but the image itself is unscaled." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1942 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1943 |
gc displayUnscaledOpaqueForm:formToDraw x:x y:y |
7888 | 1944 |
|
1945 |
"Modified (comment): / 13-02-2017 / 20:20:15 / cg" |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1946 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1947 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1948 |
displayUnscaledOpaqueString:aString from:index1 to:index2 x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1949 |
"draw a substring at the transformed coordinate x/y but do not scale the font. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1950 |
Draw foreground pixels in paint-color, background pixels in bgPaint color." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1951 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1952 |
gc displayUnscaledOpaqueString:aString from:index1 to:index2 x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1953 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1954 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1955 |
displayUnscaledOpaqueString:aString x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1956 |
"draw a string at the transformed coordinate x/y but do not scale the font. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1957 |
Draw foreground pixels in paint-color, background pixels in bgPaint color." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1958 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1959 |
gc displayUnscaledOpaqueString:aString x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1960 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1961 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1962 |
displayUnscaledString:aString from:index1 to:index2 x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1963 |
"draw a substring at the transformed coordinate x/y but do not scale the font. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1964 |
draw foreground-pixels only (in current paint-color), leaving background as-is." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1965 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1966 |
gc displayUnscaledString:aString from:index1 to:index2 x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1967 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1968 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1969 |
displayUnscaledString:aString x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1970 |
"draw a string at the transformed coordinate x/y but do not scale the font. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1971 |
draw foreground-pixels only (in current paint-color), leaving background as-is." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1972 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1973 |
gc displayUnscaledString:aString x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1974 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1975 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1976 |
!GraphicsMedium methodsFor:'drawing in device coordinates'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1977 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1978 |
displayDeviceForm:aForm x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1979 |
"draw a form or image non opaque (i.e. only foreground color is drawn); |
7888 | 1980 |
If it's a 1-plane bitmap, 1-bits are drawn in the |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1981 |
current paint-color, leaving pixels with 0-bits unchanged |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1982 |
(i.e. only 1-bits are drawn from the form). |
7888 | 1983 |
If it's a deep form (i.e. a pixmap) the current paint |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1984 |
settings are ignored and the form is drawn as-is; |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1985 |
however, the mask is applied if present. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1986 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1987 |
The form should must have been allocated on the same device, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1988 |
otherwise its converted here, which slows down the draw. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1989 |
No transformation or scaling is done. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1990 |
Care must be taken, that the paint color is correctly allocated |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1991 |
(by sending #on: to the color) before doing so. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1992 |
Using functions other than #copy only makes sense if you are |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1993 |
certain, that the colors are real colors (actually, only for |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1994 |
noColor or allColor)." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1995 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1996 |
gc displayDeviceForm:aForm x:x y:y |
7888 | 1997 |
|
1998 |
"Modified (comment): / 13-02-2017 / 20:19:47 / cg" |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
1999 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2000 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2001 |
displayDeviceLineFromX:x1 y:y1 toX:x2 y:y2 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2002 |
"draw a line in device coordinates" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2003 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2004 |
gc displayDeviceLineFromX:x1 y:y1 toX:x2 y:y2 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2005 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2006 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2007 |
displayDeviceOpaqueForm:aForm x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2008 |
"draw a form or image opaque (i.e. both fg and bg is drawn); |
7888 | 2009 |
If it's a 1-plane bitmap, 1-bits are drawn in the |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2010 |
current paint-color and 0-bits in the bgPaint color. |
7888 | 2011 |
If it's a deep form (i.e. a pixmap) the current paint/bgPaint |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2012 |
settings are ignored and the form drawn as-is. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2013 |
Any mask is ignored. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2014 |
In the 1-plane case, special care must be taken if paint and/or bgPaint |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2015 |
dithered colors or patterns, since are that the colors are correctly allocated (by sending #on: |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2016 |
to the colors) before doing so. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2017 |
The form should have been allocated on the same device; otherwise, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2018 |
its converted here, which slows down the draw. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2019 |
Drawing is in device coordinates; no scaling is done." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2020 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2021 |
gc displayDeviceOpaqueForm:aForm x:x y:y |
7888 | 2022 |
|
2023 |
"Modified (comment): / 13-02-2017 / 20:19:52 / cg" |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2024 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2025 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2026 |
displayDeviceOpaqueString:aString from:index1 to:index2 x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2027 |
"draw a substring at the coordinate x/y - draw foreground pixels in |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2028 |
paint-color and background pixels in bgPaint-color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2029 |
Assuming that device can only draw in device colors, we have to handle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2030 |
the case where paint and/or bgPaint are dithered colors. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2031 |
No translation or scaling is done." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2032 |
|
8267 | 2033 |
gc displayDeviceOpaqueString:aString from:index1 to:index2 in:self font x:x y:y |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2034 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2035 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2036 |
displayDeviceOpaqueString:aString x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2037 |
"draw a string at the coordinate x/y - draw foreground pixels in |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2038 |
paint-color and background pixels in bgPaint-color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2039 |
No translation or scaling is done" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2040 |
|
8267 | 2041 |
gc displayDeviceOpaqueString:aString from:1 to:(aString size) in:self font x:x y:y |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2042 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2043 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2044 |
displayDeviceRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2045 |
"draw a rectangle in device coordinates" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2046 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2047 |
gc displayDeviceRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2048 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2049 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2050 |
displayDeviceString:aString from:index1 to:index2 in:font x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2051 |
"draw a substring at the coordinate x/y - |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2052 |
draw foreground-pixels only (in current paint-color), leaving background as-is. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2053 |
No translation or scaling is done" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2054 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2055 |
gc displayDeviceString:aString from:index1 to:index2 in:font x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2056 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2057 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2058 |
displayDeviceString:aString from:index1 to:index2 x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2059 |
"draw a substring at the coordinate x/y - |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2060 |
draw foreground-pixels only (in current paint-color), leaving background as-is. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2061 |
No translation or scaling is done" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2062 |
|
8267 | 2063 |
gc displayDeviceString:aString from:index1 to:index2 in:self font x:x y:y |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2064 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2065 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2066 |
displayDeviceString:aString x:x y:y |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2067 |
"draw a string at the coordinate x/y - |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2068 |
draw foreground-pixels only (in current paint-color), leaving background as-is. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2069 |
No translation or scaling is done" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2070 |
|
8267 | 2071 |
gc displayDeviceString:aString from:1 to:(aString size) in:self font x:x y:y |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2072 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2073 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2074 |
fillDeviceRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2075 |
"fill a rectangle with current paint color (device coordinates)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2076 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2077 |
gc fillDeviceRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2078 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2079 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2080 |
!GraphicsMedium methodsFor:'edge drawing'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2081 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2082 |
drawEdgesForX:x y:y width:w height:h level:l |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2083 |
"draw 3D edges into a rectangle" |
8267 | 2084 |
|
2085 |
gc |
|
2086 |
drawEdgesForX:x y:y width:w height:h level:l |
|
2087 |
shadow:self blackColor light:self whiteColor |
|
2088 |
halfShadow:nil halfLight:nil |
|
2089 |
style:nil |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2090 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2091 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2092 |
drawEdgesForX:x y:y width:w height:h level:l |
8267 | 2093 |
shadow:shadowColor light:lightColor |
2094 |
halfShadow:halfShadowColor halfLight:halfLightColor |
|
2095 |
style:edgeStyle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2096 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2097 |
"draw 3D edges into a rectangle" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2098 |
|
8267 | 2099 |
gc drawEdgesForX:x y:y width:w height:h level:l |
2100 |
shadow:shadowColor light:lightColor |
|
2101 |
halfShadow:halfShadowColor halfLight:halfLightColor |
|
2102 |
style:edgeStyle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2103 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2104 |
"Modified: / 24.8.1998 / 18:23:02 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2105 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2106 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2107 |
edgeDrawn:whichOne |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2108 |
"a redefinable hook for views which like to draw |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2109 |
over their edges (some checkToggles do). |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2110 |
Nothing done here." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2111 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2112 |
"Created: 7.3.1997 / 17:59:07 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2113 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2114 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2115 |
!GraphicsMedium methodsFor:'evaluating in another context'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2116 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2117 |
reverseDo:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2118 |
"evaluate aBlock with foreground and background interchanged. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2119 |
This can be reimplemented here in a faster way." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2120 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2121 |
gc reverseDo:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2122 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2123 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2124 |
withBackground:fgColor do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2125 |
"evaluate aBlock with changed background." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2126 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2127 |
gc withBackground:fgColor do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2128 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2129 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2130 |
withForeground:fgColor background:bgColor do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2131 |
"evaluate aBlock with changed foreground and background." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2132 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2133 |
gc withForeground:fgColor background:bgColor do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2134 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2135 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2136 |
withForeground:fgColor background:bgColor function:aFunction do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2137 |
"evaluate aBlock with foreground, background and function" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2138 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2139 |
gc withForeground:fgColor background:bgColor function:aFunction do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2140 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2141 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2142 |
withForeground:fgColor background:bgColor mask:aMask do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2143 |
"evaluate aBlock with foreground, background and mask" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2144 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2145 |
gc withForeground:fgColor background:bgColor mask:aMask do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2146 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2147 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2148 |
withForeground:fgColor do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2149 |
"evaluate aBlock with changed foreground." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2150 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2151 |
gc withForeground:fgColor do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2152 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2153 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2154 |
withForeground:fgColor function:aFunction do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2155 |
"evaluate aBlock with changed foreground and function." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2156 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2157 |
gc withForeground:fgColor function:aFunction do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2158 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2159 |
|
7760 | 2160 |
withPaint:aColor do:aBlock |
2161 |
"evaluate aBlock with changed paint color." |
|
2162 |
||
2163 |
gc withPaint:aColor do:aBlock |
|
2164 |
! |
|
2165 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2166 |
xoring:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2167 |
"evaluate aBlock with function xoring" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2168 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2169 |
gc xoring:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2170 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2171 |
|
7467 | 2172 |
!GraphicsMedium methodsFor:'event handling'! |
2173 |
||
2174 |
catchExpose |
|
2175 |
"expose event handling is only required for views." |
|
2176 |
||
2177 |
^ false. |
|
2178 |
! |
|
2179 |
||
2180 |
waitForExpose |
|
2181 |
"expose event handling is only required for views." |
|
2182 |
||
2183 |
^ self. |
|
2184 |
! ! |
|
2185 |
||
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2186 |
!GraphicsMedium methodsFor:'filling'! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2187 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2188 |
black |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2189 |
"fill the receiver with black" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2190 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2191 |
self fill:self blackColor |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2192 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2193 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2194 |
clear |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2195 |
"clear the receiver with background" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2196 |
|
4068 | 2197 |
self clearView. |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2198 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2199 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2200 |
clearDeviceRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2201 |
"clear a rectangular area to background" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2202 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2203 |
gc clearDeviceRectangleX:x y:y width:w height:h. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2204 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2205 |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2206 |
clearInside |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2207 |
"clear the receiver with background - ST-80 compatibility" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2208 |
|
8267 | 2209 |
self clear |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2210 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2211 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2212 |
clearRectangle:aRectangle |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2213 |
"clear the rectangular area in the receiver to background" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2214 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2215 |
self clearRectangleX:(aRectangle left) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2216 |
y:(aRectangle top) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2217 |
width:(aRectangle width) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2218 |
height:(aRectangle height) |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2219 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2220 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2221 |
clearRectangleX:x y:y width:w height:h |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2222 |
gc clearRectangleX:x y:y width:w height:h. |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2223 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2224 |
|
4068 | 2225 |
clearView |
8268 | 2226 |
"clear the receiver with its view background" |
2227 |
||
2228 |
"/ do not send to gc here, because clearDeviceRectangleX:0 y:0 width:width height:height |
|
2229 |
"/ is redefined to use viewBackground instead of background-drawing color. |
|
2230 |
"/ consider this a kludge. |
|
2231 |
self clearDeviceRectangleX:0 y:0 width:width height:height |
|
4068 | 2232 |
! |
2233 |
||
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2234 |
fill:something |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2235 |
"fill the receiver with something; |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2236 |
something may be a Form, Color or colorIndex" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2237 |
|
7794 | 2238 |
gc fillRectangle:(self boundingBox) color:something |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2239 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2240 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2241 |
fillArc:origin radius:r from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2242 |
"draw a filled arc around a point" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2243 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2244 |
|d| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2245 |
d := 2 * r. |
8267 | 2246 |
gc |
2247 |
fillArcX:(origin x - r) |
|
2248 |
y:(origin y - r) |
|
2249 |
width:d |
|
2250 |
height:d |
|
2251 |
from:startAngle |
|
2252 |
angle:angle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2253 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2254 |
"Modified: 8.5.1996 / 08:41:54 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2255 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2256 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2257 |
fillArcIn:aRectangle from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2258 |
"draw a filled arc in a box" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2259 |
|
8267 | 2260 |
gc |
2261 |
fillArcX:(aRectangle left) |
|
2262 |
y:(aRectangle top) |
|
2263 |
width:(aRectangle width) |
|
2264 |
height:(aRectangle height) |
|
2265 |
from:startAngle |
|
2266 |
angle:angle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2267 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2268 |
"Created: 13.4.1996 / 20:56:03 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2269 |
"Modified: 8.5.1996 / 08:42:13 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2270 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2271 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2272 |
fillArcOrigin:origin corner:corner from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2273 |
"draw a filled arc in a box" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2274 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2275 |
|left top right bot| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2276 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2277 |
left := origin x. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2278 |
top := origin y. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2279 |
right := corner x. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2280 |
bot := corner y. |
8267 | 2281 |
gc |
2282 |
fillArcX:left |
|
2283 |
y:top |
|
2284 |
width:(right - left + 1) |
|
2285 |
height:(bot - top + 1) |
|
2286 |
from:startAngle |
|
2287 |
angle:angle |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2288 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2289 |
"Created: 13.4.1996 / 20:56:56 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2290 |
"Modified: 8.5.1996 / 08:42:23 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2291 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2292 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2293 |
fillArcX:x y:y w:w h:h from:startAngle angle:angle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2294 |
"draw a filled arc; apply transformation if nonNil" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2295 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2296 |
<resource:#obsolete> |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2297 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2298 |
self obsoleteMethodWarning:'use #fillArcX:y:width:height:from:angle:'. |
8267 | 2299 |
gc fillArcX:x y:y width:w height:h from:startAngle angle:angle |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2300 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2301 |
"Modified: 8.5.1996 / 08:47:52 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2302 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2303 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2304 |
fillArcX:x y:y width:w height:h from:startAngle to:endAngle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2305 |
"draw a filled arc in a box, given startAngle and endAngle." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2306 |
|
8267 | 2307 |
gc |
2308 |
fillArcX:x y:y |
|
2309 |
width:w height:h |
|
2310 |
from:startAngle angle:(endAngle - startAngle) |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2311 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2312 |
"Created: 8.5.1996 / 08:52:41 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2313 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2314 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2315 |
fillCircle:aPoint radius:aNumber |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2316 |
"draw a filled circle around aPoint" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2317 |
|
8267 | 2318 |
gc fillCircleX:(aPoint x) y:(aPoint y) radius:aNumber |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2319 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2320 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2321 |
fillCircleIn:aRectangle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2322 |
"draw a filled circle in a box" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2323 |
|
8267 | 2324 |
gc |
2325 |
fillArcX:(aRectangle left) y:(aRectangle top) |
|
2326 |
width:(aRectangle width) height:(aRectangle height) |
|
2327 |
from:0 angle:360 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2328 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2329 |
"Created: 13.4.1996 / 20:57:41 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2330 |
"Modified: 8.5.1996 / 08:42:38 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2331 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2332 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2333 |
fillCircleX:x y:y radius:r |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2334 |
"draw a filled circle around x@y" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2335 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2336 |
|d| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2337 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2338 |
d := 2 * r. |
8267 | 2339 |
gc |
2340 |
fillArcX:(x - r) y:(y - r) |
|
2341 |
width:d height:d |
|
2342 |
from:0 angle:360 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2343 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2344 |
"Modified: 8.5.1996 / 08:43:02 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2345 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2346 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2347 |
fillRectangle:aRectangle |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2348 |
"fill a rectangle with current paint color" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2349 |
|
8267 | 2350 |
gc fillRectangleX:(aRectangle left) y:(aRectangle top) |
2351 |
width:(aRectangle width) height:(aRectangle height) |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2352 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2353 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2354 |
fillRectangleLeft:left top:top right:cornerX bottom:cornerY |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2355 |
"draw a filled rectangle. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2356 |
Notice: the cornerPoint itself is NOT included" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2357 |
|
8267 | 2358 |
gc fillRectangleX:left y:top width:(cornerX - left) height:(cornerY - top) |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2359 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2360 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2361 |
fillRectangleOrigin:origin corner:corner |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2362 |
"draw a filled rectangle. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2363 |
Notice: the cornerPoint itself is NOT included" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2364 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2365 |
|top left| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2366 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2367 |
left := origin x. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2368 |
top := origin y. |
8267 | 2369 |
gc fillRectangleX:left y:top width:(corner x - left) height:(corner y - top) |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2370 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2371 |
"Created: 13.4.1996 / 20:58:16 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2372 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2373 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2374 |
fillRectangleOrigin:origin extent:extent |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2375 |
"draw a filled rectangle. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2376 |
Notice: the cornerPoint itself is NOT included" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2377 |
|
8267 | 2378 |
gc fillRectangleX:(origin x) y:(origin y) width:(extent x) height:(extent y) |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2379 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2380 |
|
8291 | 2381 |
fillRectangleOrigin:origin width:w height:h |
2382 |
"draw a filled rectangle. |
|
2383 |
Notice: the cornerPoint itself is NOT included" |
|
2384 |
||
2385 |
gc fillRectangleX:(origin x) y:(origin y) width:w height:h |
|
2386 |
! |
|
2387 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2388 |
fillRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn |
8267 | 2389 |
gc fillRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2390 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2391 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2392 |
|v| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2393 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2394 |
(v := View new) extent:200@200; openAndWait. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2395 |
v fillRoundRectangleX:10 y:10 width:100 height:100 wCorner:20 hCorner:20 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2396 |
" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2397 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2398 |
|
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2399 |
invertRectangle:aRectangle |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2400 |
"invert a rectangle in the receiver" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2401 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2402 |
self xoring:[ |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2403 |
self fillRectangle:aRectangle |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2404 |
] |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2405 |
! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2406 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2407 |
white |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2408 |
"fill the receiver with white" |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2409 |
|
7420 | 2410 |
self fill:self whiteColor |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2411 |
! ! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2412 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2413 |
!GraphicsMedium methodsFor:'initialization & release'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2414 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2415 |
close |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2416 |
"same as destroy - for ST-80 compatibility" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2417 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2418 |
self destroy |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2419 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2420 |
"Created: 2.4.1997 / 19:31:27 / cg" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2421 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2422 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2423 |
destroy |
7443 | 2424 |
"destroy a medium - here the gc is completely destroyed" |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2425 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2426 |
gc notNil ifTrue:[ |
7443 | 2427 |
gc destroy. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2428 |
]. |
7741 | 2429 |
"keep device, maybe we want to re-open the view later" |
2430 |
"/ device := nil. |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2431 |
realized := false. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2432 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2433 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2434 |
initGC |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2435 |
"since we do not need a gc-object for the drawable until something is |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2436 |
really drawn, none is created. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2437 |
This method is sent, when the first drawing happens" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2438 |
|
7750 | 2439 |
^ gc initGC |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2440 |
! |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2441 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2442 |
initialize |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2443 |
super initialize. |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2444 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2445 |
width := 0. |
727
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
2446 |
height := 0. |
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
2447 |
realized := false. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2448 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2449 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2450 |
initializeForDevice:aDevice |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2451 |
"allocate a GraphicsContext for a device" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2452 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2453 |
aDevice notNil ifTrue:[ |
7443 | 2454 |
device := aDevice. |
2455 |
gc := aDevice newGraphicsContextFor:self. |
|
7485 | 2456 |
gc font:self class defaultFont. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2457 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2458 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2459 |
self initialize. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2460 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2461 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2462 |
recreate |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2463 |
"reacreate a medium after snapIn" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2464 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2465 |
gc notNil ifTrue:[ |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2466 |
gc recreate. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2467 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2468 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2469 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2470 |
releaseGC |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2471 |
"destroy the associated device GC resource - can be done to be nice to the |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2472 |
display if you know that you are done with a drawable." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2473 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2474 |
gc notNil ifTrue:[ |
7420 | 2475 |
gc releaseGC. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2476 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2477 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2478 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2479 |
!GraphicsMedium methodsFor:'misc'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2480 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2481 |
clippedTo:aRectangle do:aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2482 |
|oldClip| |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2483 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2484 |
oldClip := gc deviceClippingBoundsOrNil. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2485 |
gc clippingBounds:aRectangle. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2486 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2487 |
aBlock |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2488 |
ensure:[ |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2489 |
gc deviceClippingBounds:oldClip |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2490 |
] |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2491 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2492 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2493 |
flush |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2494 |
"send all buffered drawing to the device." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2495 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2496 |
gc flush |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2497 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2498 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2499 |
setDevice:aDevice id:aDrawbleId gcId:aGCId |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2500 |
"private" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2501 |
|
7443 | 2502 |
device := aDevice. |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2503 |
gc notNil ifTrue:[ |
7420 | 2504 |
gc setDevice:aDevice id:aDrawbleId gcId:aGCId |
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2505 |
]. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2506 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2507 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2508 |
setPaint:fgColor on:bgColor |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2509 |
"set the paint and background-paint color. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2510 |
The bg-paint is used in opaque-draw operations. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2511 |
Only set the variables, but do not send it to the device, |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2512 |
Used on initialization." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2513 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2514 |
gc setPaint:fgColor on:bgColor |
727
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
2515 |
! |
bf23a306b6f2
renamed PseudoView to DisplaySurface
Claus Gittinger <cg@exept.de>
parents:
721
diff
changeset
|
2516 |
|
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2517 |
sync |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2518 |
"send all buffered drawing to the device and wait until the device responds" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2519 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2520 |
gc sync |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2521 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2522 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2523 |
!GraphicsMedium methodsFor:'printing & storing'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2524 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2525 |
storeOn:aStream |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2526 |
"blocked: ascii storeString not possible (recursive - view - subviews - container)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2527 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2528 |
self shouldNotImplement. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2529 |
"if proceeded from exception..." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2530 |
self printOn:aStream. |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2531 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2532 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2533 |
!GraphicsMedium methodsFor:'queries'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2534 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2535 |
fontAscent |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2536 |
"answer the ascent of the current font on the current device" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2537 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2538 |
^ gc fontAscent |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2539 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2540 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2541 |
horizontalIntegerPixelPerMillimeter |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2542 |
"return the (rounded) number of pixels per millimeter" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2543 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2544 |
^ self horizontalPixelPerMillimeter asInteger |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2545 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2546 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2547 |
horizontalPixelPerInch |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2548 |
"return the number of horizontal pixels per inch of the display" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2549 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2550 |
^ self horizontalPixelPerMillimeter * 25.4 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2551 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2552 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2553 |
horizontalPixelPerMillimeter |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2554 |
"return the number of pixels per millimeter (not rounded)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2555 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2556 |
^ gc horizontalPixelPerMillimeter |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2557 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2558 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2559 |
horizontalPixelPerMillimeter:millis |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2560 |
"return the number of pixels (not rounded) for millis millimeter" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2561 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2562 |
^ self horizontalPixelPerMillimeter * millis |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2563 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2564 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2565 |
resolution |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2566 |
"return a point consisting of pixel-per-inch horizontally and vertically." |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2567 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2568 |
^ gc resolution |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2569 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2570 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2571 |
verticalIntegerPixelPerMillimeter |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2572 |
"return the (rounded) number of pixels per millimeter" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2573 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2574 |
^ self verticalPixelPerMillimeter rounded |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2575 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2576 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2577 |
verticalPixelPerInch |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2578 |
"return the number of vertical pixels per inch of the display" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2579 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2580 |
^ self verticalPixelPerMillimeter * 25.4 |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2581 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2582 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2583 |
verticalPixelPerMillimeter |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2584 |
"return the number of pixels per millimeter (not rounded)" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2585 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2586 |
^ gc verticalPixelPerMillimeter |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2587 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2588 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2589 |
verticalPixelPerMillimeter:millis |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2590 |
"return the number of pixels (not rounded) for millis millimeter" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2591 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2592 |
^ self verticalPixelPerMillimeter * millis |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2593 |
! ! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2594 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2595 |
!GraphicsMedium methodsFor:'view creation'! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2596 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2597 |
createBitmapFromArray:data width:width height:height |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2598 |
"create a bitmap from data and set the drawableId" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2599 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2600 |
gc createBitmapFromArray:data width:width height:height |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2601 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2602 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2603 |
createPixmapWidth:w height:h depth:d |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2604 |
"create a pixmap and set the drawableId" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2605 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2606 |
gc createPixmapWidth:w height:h depth:d |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2607 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2608 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2609 |
createRootWindow |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2610 |
gc createRootWindowFor:self |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2611 |
! |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2612 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2613 |
createWindowFor:aView type:typeSymbol origin:org extent:ext minExtent:minE maxExtent:maxE borderWidth:bw subViewOf:sv style:styleSymbol inputOnly:inp label:label owner:owner icon:icn iconMask:icnM iconView:icnV |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2614 |
"create a window and set the drawableId" |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2615 |
|
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2616 |
gc createWindowFor:aView type:typeSymbol origin:org extent:ext minExtent:minE maxExtent:maxE borderWidth:bw subViewOf:sv style:styleSymbol inputOnly:inp label:label owner:owner icon:icn iconMask:icnM iconView:icnV |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2617 |
! ! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2618 |
|
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2619 |
!GraphicsMedium class methodsFor:'documentation'! |
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2620 |
|
7750 | 2621 |
version |
2622 |
^ '$Header$' |
|
2623 |
! |
|
2624 |
||
7416
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2625 |
version_CVS |
bd3b9e9edd9e
Delegate GraphicsContext objects
Stefan Vogel <sv@exept.de>
parents:
6247
diff
changeset
|
2626 |
^ '$Header$' |
721
ba7861418087
renamed DisplayMedium to Graphicsmedium & changed inheritance
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2627 |
! ! |
6045 | 2628 |