equal
deleted
inserted
replaced
161 |
161 |
162 super inspect:anObject. |
162 super inspect:anObject. |
163 "/ imageView image:anObject. |
163 "/ imageView image:anObject. |
164 |
164 |
165 scrollToBottom := |
165 scrollToBottom := |
166 imageView image notNil |
166 anObject notNil |
167 and:[ imageView viewOrigin y + imageView image height >= imageView height]. |
167 and:[imageView image notNil |
|
168 and:[ imageView viewOrigin y + imageView image height >= imageView height ]]. |
168 |
169 |
169 imageView image:anObject scroll:scrollToBottom not invalidate:false. |
170 imageView image:anObject scroll:scrollToBottom not invalidate:false. |
170 scrollToBottom ifTrue:[ |
171 scrollToBottom ifTrue:[ |
171 imageView |
172 imageView |
172 scrollTo:(0 @ ((imageView image height - imageView height) max:0)) |
173 scrollTo:(0 @ ((anObject height - imageView height) max:0)) |
173 redraw:false. |
174 redraw:false. |
174 ]. |
175 ]. |
175 imageView invalidate. |
176 imageView invalidate. |
176 |
177 |
177 " |
178 " |
290 ! ! |
291 ! ! |
291 |
292 |
292 !ImageInspectorView class methodsFor:'documentation'! |
293 !ImageInspectorView class methodsFor:'documentation'! |
293 |
294 |
294 version |
295 version |
295 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.31 2014-05-11 10:20:48 cg Exp $' |
296 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.32 2014-05-11 11:33:42 cg Exp $' |
296 ! |
297 ! |
297 |
298 |
298 version_CVS |
299 version_CVS |
299 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.31 2014-05-11 10:20:48 cg Exp $' |
300 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.32 2014-05-11 11:33:42 cg Exp $' |
300 ! ! |
301 ! ! |
301 |
302 |