--- a/ImageInspectorView.st	Tue Jul 08 23:53:39 2014 +0200
+++ b/ImageInspectorView.st	Tue Jul 08 23:53:53 2014 +0200
@@ -149,15 +149,20 @@
 inspect:anObject
     "set the object to be inspected"
 
-    |scrollToBottom|
+    |scrollToBottom prevViewOrigin prevImageSize|
+
+    prevViewOrigin := imageView viewOrigin.
+    prevImageSize := imageView image extent.
 
     super inspect:anObject.
 "/    imageView image:anObject.
 
-    scrollToBottom :=
-        anObject notNil
-        and:[imageView image notNil 
-        and:[ imageView viewOrigin y + imageView image height >= imageView height ]].
+    scrollToBottom := false.
+
+"/    scrollToBottom :=
+"/        anObject notNil
+"/        and:[imageView image notNil 
+"/        and:[ imageView viewOrigin y + imageView image height >= imageView height ]].
 
     imageView image:anObject scroll:scrollToBottom not invalidate:false.
     scrollToBottom ifTrue:[
@@ -291,10 +296,10 @@
 !ImageInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.33 2014-05-23 14:34:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.34 2014-07-08 21:53:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.33 2014-05-23 14:34:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.34 2014-07-08 21:53:53 cg Exp $'
 ! !