--- a/ImageInspectorView.st	Sat May 10 23:31:36 2014 +0200
+++ b/ImageInspectorView.st	Sun May 11 12:20:48 2014 +0200
@@ -160,15 +160,19 @@
     |scrollToBottom|
 
     super inspect:anObject.
+"/    imageView image:anObject.
+
     scrollToBottom :=
         imageView image notNil 
         and:[ imageView viewOrigin y + imageView image height >= imageView height].
 
-    imageView image:anObject.
+    imageView image:anObject scroll:scrollToBottom not invalidate:false.
     scrollToBottom ifTrue:[
-        imageView scrollTo:(0 @ ((imageView image height - imageView height) max:0)).
-        imageView invalidate.
+        imageView 
+            scrollTo:(0 @ ((imageView image height - imageView height) max:0))
+            redraw:false.
     ].
+    imageView invalidate.
 
     "
      ImageInspectorView inspect:(Image fromScreen:(0@0 corner:800@800))
@@ -288,10 +292,10 @@
 !ImageInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.30 2014-05-10 21:31:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.31 2014-05-11 10:20:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.30 2014-05-10 21:31:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.31 2014-05-11 10:20:48 cg Exp $'
 ! !