--- a/InspView.st	Tue Sep 08 13:11:15 1998 +0200
+++ b/InspView.st	Tue Sep 08 13:18:22 1998 +0200
@@ -118,7 +118,7 @@
                 minExtent:(100 @ 100).
 
     topView iconLabel:(self labelNameFor:anObject).
-    topView extent:(Screen current extent // 3).
+    topView extent:(self defaultExtent).
 
     inspectorView := self origin:(0.0 @ 0.0)
                           corner:(1.0 @ 1.0)
@@ -158,12 +158,19 @@
      o at:2 put:20
     "
 
-    "Created: 1.3.1996 / 19:30:50 / cg"
-    "Modified: 11.12.1996 / 17:07:17 / cg"
+    "Created: / 1.3.1996 / 19:30:50 / cg"
+    "Modified: / 7.9.1998 / 14:15:38 / cg"
 ! !
 
 !InspectorView class methodsFor:'defaults'!
 
+defaultExtent
+    ^ (Screen current extent // 3)
+
+    "Created: / 7.9.1998 / 13:47:45 / cg"
+    "Modified: / 7.9.1998 / 14:15:38 / cg"
+!
+
 defaultIcon
     "return the browsers default window icon"
 
@@ -927,5 +934,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.79 1998-08-26 17:05:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.80 1998-09-08 11:18:22 cg Exp $'
 ! !

--- a/InspectorView.st	Tue Sep 08 13:11:15 1998 +0200
+++ b/InspectorView.st	Tue Sep 08 13:18:22 1998 +0200
@@ -118,7 +118,7 @@
                 minExtent:(100 @ 100).
 
     topView iconLabel:(self labelNameFor:anObject).
-    topView extent:(Screen current extent // 3).
+    topView extent:(self defaultExtent).
 
     inspectorView := self origin:(0.0 @ 0.0)
                           corner:(1.0 @ 1.0)
@@ -158,12 +158,19 @@
      o at:2 put:20
     "
 
-    "Created: 1.3.1996 / 19:30:50 / cg"
-    "Modified: 11.12.1996 / 17:07:17 / cg"
+    "Created: / 1.3.1996 / 19:30:50 / cg"
+    "Modified: / 7.9.1998 / 14:15:38 / cg"
 ! !
 
 !InspectorView class methodsFor:'defaults'!
 
+defaultExtent
+    ^ (Screen current extent // 3)
+
+    "Created: / 7.9.1998 / 13:47:45 / cg"
+    "Modified: / 7.9.1998 / 14:15:38 / cg"
+!
+
 defaultIcon
     "return the browsers default window icon"
 
@@ -927,5 +934,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.79 1998-08-26 17:05:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.80 1998-09-08 11:18:22 cg Exp $'
 ! !