equal
deleted
inserted
replaced
158 "set the object to be inspected" |
158 "set the object to be inspected" |
159 |
159 |
160 |scrollToBottom| |
160 |scrollToBottom| |
161 |
161 |
162 super inspect:anObject. |
162 super inspect:anObject. |
|
163 "/ imageView image:anObject. |
|
164 |
163 scrollToBottom := |
165 scrollToBottom := |
164 imageView image notNil |
166 imageView image notNil |
165 and:[ imageView viewOrigin y + imageView image height >= imageView height]. |
167 and:[ imageView viewOrigin y + imageView image height >= imageView height]. |
166 |
168 |
167 imageView image:anObject. |
169 imageView image:anObject scroll:scrollToBottom not invalidate:false. |
168 scrollToBottom ifTrue:[ |
170 scrollToBottom ifTrue:[ |
169 imageView scrollTo:(0 @ ((imageView image height - imageView height) max:0)). |
171 imageView |
170 imageView invalidate. |
172 scrollTo:(0 @ ((imageView image height - imageView height) max:0)) |
171 ]. |
173 redraw:false. |
|
174 ]. |
|
175 imageView invalidate. |
172 |
176 |
173 " |
177 " |
174 ImageInspectorView inspect:(Image fromScreen:(0@0 corner:800@800)) |
178 ImageInspectorView inspect:(Image fromScreen:(0@0 corner:800@800)) |
175 " |
179 " |
176 ! ! |
180 ! ! |
286 ! ! |
290 ! ! |
287 |
291 |
288 !ImageInspectorView class methodsFor:'documentation'! |
292 !ImageInspectorView class methodsFor:'documentation'! |
289 |
293 |
290 version |
294 version |
291 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.30 2014-05-10 21:31:36 cg Exp $' |
295 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.31 2014-05-11 10:20:48 cg Exp $' |
292 ! |
296 ! |
293 |
297 |
294 version_CVS |
298 version_CVS |
295 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.30 2014-05-10 21:31:36 cg Exp $' |
299 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.31 2014-05-11 10:20:48 cg Exp $' |
296 ! ! |
300 ! ! |
297 |
301 |