equal
deleted
inserted
replaced
211 setMaxExtent |
211 setMaxExtent |
212 "set the windows maxExtent from its current extent" |
212 "set the windows maxExtent from its current extent" |
213 |
213 |
214 |canvas currentExtent| |
214 |canvas currentExtent| |
215 |
215 |
216 canvas := self masterApplication painter topView. |
216 canvas := self masterApplication canvas. |
217 currentExtent := canvas extent. |
217 currentExtent := canvas extent. |
218 (self aspectFor:#maxX) value:currentExtent x. |
218 (self aspectFor:#maxX) value:currentExtent x. |
219 (self aspectFor:#maxY) value:currentExtent y. |
219 (self aspectFor:#maxY) value:currentExtent y. |
220 |
220 |
221 "Modified: / 29.10.1997 / 18:29:17 / cg" |
221 "Modified: / 29.10.1997 / 18:29:17 / cg" |
224 setMinExtent |
224 setMinExtent |
225 "set the windows minExtent from its current extent" |
225 "set the windows minExtent from its current extent" |
226 |
226 |
227 |canvas currentExtent| |
227 |canvas currentExtent| |
228 |
228 |
229 canvas := self masterApplication painter topView. |
229 canvas := self masterApplication canvas. |
230 currentExtent := canvas extent. |
230 currentExtent := canvas extent. |
231 (self aspectFor:#minX) value:currentExtent x. |
231 (self aspectFor:#minX) value:currentExtent x. |
232 (self aspectFor:#minY) value:currentExtent y. |
232 (self aspectFor:#minY) value:currentExtent y. |
233 |
233 |
234 "Created: / 29.10.1997 / 18:17:55 / cg" |
234 "Created: / 29.10.1997 / 18:17:55 / cg" |