equal
deleted
inserted
replaced
4154 ! |
4154 ! |
4155 |
4155 |
4156 doMoveColumn:upOrDown |
4156 doMoveColumn:upOrDown |
4157 "move selected column up or down" |
4157 "move selected column up or down" |
4158 |
4158 |
4159 |idx list label col size| |
4159 |idx list label col size tabIndex| |
4160 |
4160 |
4161 (idx := self singleSelectedColumnIndex) == 0 ifTrue:[^self]. |
4161 (idx := self singleSelectedColumnIndex) == 0 ifTrue:[^self]. |
4162 list := self seqList. |
4162 list := self seqList. |
4163 size := list size. |
4163 size := list size. |
4164 |
4164 |
4165 size == 1 ifTrue:[^self]. |
4165 size > 1 ifFalse:[ ^ self ]. |
|
4166 |
4166 selectedColumnIndex := 0. |
4167 selectedColumnIndex := 0. |
|
4168 tabIndex := self tabModel value. |
|
4169 |
4167 label := list at:idx. |
4170 label := list at:idx. |
4168 col := columns at:idx. |
4171 col := columns at:idx. |
4169 list removeIndex:idx. |
4172 list removeIndex:idx. |
4170 columns removeIndex:idx. |
4173 columns removeIndex:idx. |
4171 |
4174 |
4175 ] ifFalse:[ |
4178 ] ifFalse:[ |
4176 idx == size ifTrue:[idx := 1] |
4179 idx == size ifTrue:[idx := 1] |
4177 ifFalse:[idx := idx + 1] |
4180 ifFalse:[idx := idx + 1] |
4178 ]. |
4181 ]. |
4179 columns add:col beforeIndex:idx. |
4182 columns add:col beforeIndex:idx. |
4180 list add:label beforeIndex:idx. |
4183 list add:label beforeIndex:idx. |
|
4184 |
4181 self selectedColumnModel value:idx. |
4185 self selectedColumnModel value:idx. |
4182 self updateColumnView. |
4186 self updateColumnView. |
|
4187 self tabModel value:tabIndex. |
|
4188 |
4183 self setModified. |
4189 self setModified. |
4184 ! |
4190 ! |
4185 |
4191 |
4186 doMoveDown |
4192 doMoveDown |
4187 self doMoveColumn:#down |
4193 self doMoveColumn:#down |