--- a/DataSetBuilder.st Wed Apr 02 18:54:10 2003 +0200
+++ b/DataSetBuilder.st Wed Apr 02 19:31:42 2003 +0200
@@ -2083,15 +2083,8 @@
|list|
- (list := builder bindingAt:#editorTypeList) isNil
- ifTrue:
- [
- list := OrderedCollection new.
- DataSetColumnSpec slices do:
- [:aSlice||type|
- type := aSlice at:1.
- (list includes:type) ifFalse:[list add:type]
- ].
+ (list := builder bindingAt:#editorTypeList) isNil ifTrue:[
+ list := (DataSetColumnSpec slices collect:[:eachSlice | eachSlice at:1]) asSet.
builder aspectAt:#editorTypeList put:list
].
^list
@@ -2112,15 +2105,8 @@
|list|
- (list := builder bindingAt:#rendererTypeList) isNil
- ifTrue:
- [
- list := OrderedCollection new.
- DataSetColumnSpec slices do:
- [:aSlice||type|
- type := aSlice at:2.
- (list includes:type) ifFalse:[list add:type]
- ].
+ (list := builder bindingAt:#rendererTypeList) isNil ifTrue:[
+ list := (DataSetColumnSpec slices collect:[:eachSlice | eachSlice at:2]) asSet.
builder aspectAt:#rendererTypeList put:list
].
^list