equal
deleted
inserted
replaced
155 ! ! |
155 ! ! |
156 |
156 |
157 !DeviceGraphicsContext class methodsFor:'cleanup'! |
157 !DeviceGraphicsContext class methodsFor:'cleanup'! |
158 |
158 |
159 lowSpaceCleanup |
159 lowSpaceCleanup |
|
160 "in low memory situations, give up cached forms" |
|
161 |
160 CachedScaledForms := CachedScales := nil |
162 CachedScaledForms := CachedScales := nil |
|
163 |
|
164 "Modified (comment): / 21-03-2019 / 19:21:32 / Claus Gittinger" |
161 ! ! |
165 ! ! |
162 |
166 |
163 !DeviceGraphicsContext methodsFor:'accessing'! |
167 !DeviceGraphicsContext methodsFor:'accessing'! |
164 |
168 |
165 at:aPoint |
169 at:aPoint |