equal
deleted
inserted
replaced
2081 editorTypeList |
2081 editorTypeList |
2082 "generate list of supported editor types" |
2082 "generate list of supported editor types" |
2083 |
2083 |
2084 |list| |
2084 |list| |
2085 |
2085 |
2086 (list := builder bindingAt:#editorTypeList) isNil |
2086 (list := builder bindingAt:#editorTypeList) isNil ifTrue:[ |
2087 ifTrue: |
2087 list := (DataSetColumnSpec slices collect:[:eachSlice | eachSlice at:1]) asSet. |
2088 [ |
|
2089 list := OrderedCollection new. |
|
2090 DataSetColumnSpec slices do: |
|
2091 [:aSlice||type| |
|
2092 type := aSlice at:1. |
|
2093 (list includes:type) ifFalse:[list add:type] |
|
2094 ]. |
|
2095 builder aspectAt:#editorTypeList put:list |
2088 builder aspectAt:#editorTypeList put:list |
2096 ]. |
2089 ]. |
2097 ^list |
2090 ^list |
2098 ! |
2091 ! |
2099 |
2092 |
2110 rendererTypeList |
2103 rendererTypeList |
2111 "generate list of supported renderer types" |
2104 "generate list of supported renderer types" |
2112 |
2105 |
2113 |list| |
2106 |list| |
2114 |
2107 |
2115 (list := builder bindingAt:#rendererTypeList) isNil |
2108 (list := builder bindingAt:#rendererTypeList) isNil ifTrue:[ |
2116 ifTrue: |
2109 list := (DataSetColumnSpec slices collect:[:eachSlice | eachSlice at:2]) asSet. |
2117 [ |
|
2118 list := OrderedCollection new. |
|
2119 DataSetColumnSpec slices do: |
|
2120 [:aSlice||type| |
|
2121 type := aSlice at:2. |
|
2122 (list includes:type) ifFalse:[list add:type] |
|
2123 ]. |
|
2124 builder aspectAt:#rendererTypeList put:list |
2110 builder aspectAt:#rendererTypeList put:list |
2125 ]. |
2111 ]. |
2126 ^list |
2112 ^list |
2127 ! |
2113 ! |
2128 |
2114 |