--- a/OrderedCollectionInspectorView.st Sat Sep 14 15:00:19 2002 +0200
+++ b/OrderedCollectionInspectorView.st Sat Sep 14 19:31:42 2002 +0200
@@ -126,11 +126,11 @@
"Modified: / 21.5.1998 / 13:32:09 / cg"
!
-indexedFieldList
- "return a list of indexed-variable names to show in the selectionList.
+indexList
+ "return a list of indexes to show in the selectionList.
Set hasMore to true, if a '...' entry should be added."
- |n cls|
+ |n|
n := inspectedObject size.
(n > nShown) ifTrue:[
@@ -138,8 +138,7 @@
hasMore := true.
].
- ^ (1 to:n) collect:[:i | i printString].
-
+ ^ (1 to:n)
! !
!OrderedCollectionInspectorView methodsFor:'user interaction'!
@@ -170,5 +169,5 @@
!OrderedCollectionInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.31 2002-09-12 11:09:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.32 2002-09-14 17:31:42 cg Exp $'
! !