--- a/InspectorView.st	Wed Feb 22 03:05:38 1995 +0100
+++ b/InspectorView.st	Wed Feb 22 12:08:44 1995 +0100
@@ -14,7 +14,7 @@
        instanceVariableNames:'listView workspace 
 			      inspectedObject selectedLine
 			      inspectedValues nShown hasMore menu1 menu2'
-       classVariableNames:''
+       classVariableNames:'DefaultIcon'
        poolDictionaries:''
        category:'Interface-Inspector'
 !
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.15 1995-02-22 01:24:42 claus Exp $
+$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.16 1995-02-22 11:08:44 claus Exp $
 '!
 
 !InspectorView class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.15 1995-02-22 01:24:42 claus Exp $
+$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.16 1995-02-22 11:08:44 claus Exp $
 "
 !
 
@@ -79,6 +79,15 @@
 "
 ! !
 
+!InspectorView class methodsFor:'defaults'!
+
+defaultIcon
+    DefaultIcon isNil ifTrue:[
+	DefaultIcon := Form fromFile:'Inspector.xbm' resolution:100
+    ].
+    ^ DefaultIcon
+! !
+
 !InspectorView class methodsFor:'instance creation'!
 
 for:anObject
@@ -109,10 +118,10 @@
 
     topView := StandardSystemView
 		    label:('Inspector on: ' , nm)
-		     icon:(Form fromFile:'Inspector.xbm' resolution:100)
+		     icon:self class defaultIcon
 		minExtent:(100 @ 100).
 
-    topView extent:(Display width // 3) @ (Display height // 3).
+    topView extent:(Display extent // 3).
 
     inspectorView := self origin:(0.0 @ 0.0)
 			  corner:(1.0 @ 1.0)
@@ -137,24 +146,28 @@
 
     super initialize.
 
-    panel := VariableHorizontalPanel origin:(0.0 @ 0.0)
-				     corner:(1.0 @ 1.0)
-					 in:self.
+    panel := VariableHorizontalPanel 
+		origin:(0.0 @ 0.0)
+		corner:(1.0 @ 1.0)
+		in:self.
 
-    v := HVScrollableView for:SelectionInListView 
-			  miniScrollerH:true
-			  miniScrollerV:false
-			  in:panel.
+    v := HVScrollableView 
+		for:SelectionInListView 
+		miniScrollerH:true
+		miniScrollerV:false
+		in:panel.
     v origin:(0.0 @ 0.0) corner:(0.3 @ 1.0).
+
     listView := v scrolledView.
     listView action:[:lineNr | self showSelection:lineNr].
     listView doubleClickAction:[:lineNr | self doInspect].
     listView ignoreReselect:false.
 
-    v := HVScrollableView for:CodeView 
-			  miniScrollerH:true
-			  miniScrollerV:false
-			  in:panel.
+    v := HVScrollableView 
+		for:CodeView 
+		miniScrollerH:true
+		miniScrollerV:false
+		in:panel.
     v origin:(0.3 @ 0.0) corner:(1.0 @ 1.0).
     workspace := v scrolledView.