checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 19 Jul 1999 11:39:13 +0200
changeset 2283 4b90c1207ea4
parent 2282 f78747b0f82d
child 2284 0f4ee9b43468
checkin from browser
OCInspView.st
OrderedCollectionInspectorView.st
--- a/OCInspView.st	Sun Jul 18 16:40:08 1999 +0200
+++ b/OCInspView.st	Mon Jul 19 11:39:13 1999 +0200
@@ -130,10 +130,6 @@
 
     |n cls|
 
-    cls := inspectedObject class.
-
-    cls isVariable ifFalse:[^ #() ].
-
     n := inspectedObject size.
     (n > nShown) ifTrue:[
         n := nShown.
@@ -173,5 +169,5 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/OCInspView.st,v 1.27 1999-07-16 17:25:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/OCInspView.st,v 1.28 1999-07-19 09:39:13 cg Exp $'
 ! !
--- a/OrderedCollectionInspectorView.st	Sun Jul 18 16:40:08 1999 +0200
+++ b/OrderedCollectionInspectorView.st	Mon Jul 19 11:39:13 1999 +0200
@@ -130,10 +130,6 @@
 
     |n cls|
 
-    cls := inspectedObject class.
-
-    cls isVariable ifFalse:[^ #() ].
-
     n := inspectedObject size.
     (n > nShown) ifTrue:[
         n := nShown.
@@ -173,5 +169,5 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.27 1999-07-16 17:25:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.28 1999-07-19 09:39:13 cg Exp $'
 ! !