Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
code cleanup
authorClaus Gittinger <cg@exept.de>
Wed, 02 Apr 2003 19:31:42 +0200
changeset 1697 50a84654ab9b
parent 1696 0cb66a26b156
child 1698 28250498a2b3
code cleanup
DataSetBuilder.st file | annotate | diff | comparison | revisions 
--- 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
hg/stx-libtool2