--- a/ImageInspectorView.st	Mon Oct 10 04:15:21 1994 +0100
+++ b/ImageInspectorView.st	Mon Oct 10 04:16:24 1994 +0100
@@ -2,7 +2,7 @@
 
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -13,19 +13,19 @@
 "
 
 InspectorView subclass:#ImageInspectorView
-         instanceVariableNames:'imageView'
-         classVariableNames:''
-         poolDictionaries:''
-         category:'Interface-Inspector'
+	 instanceVariableNames:'imageView'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Interface-Inspector'
 !
 
 ImageInspectorView comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
 this class allows better inspection of images
 
-$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.1 1994-08-05 01:38:47 claus Exp $
+$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.2 1994-10-10 03:15:45 claus Exp $
 '!
 
 !ImageInspectorView methodsFor:'accessing'!
@@ -35,23 +35,36 @@
     realized ifFalse:[^ self].
     imageView image:anObject
 
-    "ImageInspectorView inspect:(Image fromScreen:(0@0 corner:800@800))"
+    "
+     ImageInspectorView inspect:(Image fromScreen:(0@0 corner:800@800))
+    "
 ! !
 
 !ImageInspectorView methodsFor:'initialization'!
 
 initialize
-    |v panel|
+    |v panel newPanel sub|
 
     super initialize.
 
-    panel := subViews first.
-    panel corner:(1.0 @ 0.3).
+    newPanel := VariableVerticalPanel in:self.
+    newPanel origin:0.0 @ 0.0 corner:1.0 @ 1.0.
 
-    v := HVScrollableView for:ImageEditView in:self.
+    "
+     wrap my existing subview into the new
+     variable panel
+    "
+    sub := subViews first.
+    self removeSubView:sub.
+    sub origin:0.0@0.0 corner:1.0@0.3.
+    newPanel addSubView:sub.
+
+    v := HVScrollableView for:ImageEditView in:newPanel.
     v origin:(0.0 @ 0.3) corner:(1.0 @ 1.0).
     imageView := v scrolledView.
 
-    "ImageInspectorView new realize"
-    "ImageInspectorView inspect:(Image fromFile:'bitmaps/claus.gif')"
+    "
+     ImageInspectorView new realize
+     ImageInspectorView inspect:(Image fromFile:'bitmaps/claus.gif')
+    "
 ! !