equal
deleted
inserted
replaced
1226 returned otherwise nil |
1226 returned otherwise nil |
1227 " |
1227 " |
1228 |coll| |
1228 |coll| |
1229 |
1229 |
1230 (coll := self selection) isCollection ifFalse:[ |
1230 (coll := self selection) isCollection ifFalse:[ |
1231 ^ coll |
1231 ^ coll |
1232 ]. |
1232 ]. |
1233 |
1233 |
1234 coll size == 1 ifTrue:[ ^ coll first]. |
1234 coll size == 1 ifTrue:[ ^ coll first]. |
1235 ^ nil |
1235 ^ nil |
1236 ! |
1236 ! |
1237 |
1237 |
1238 singleSelectionDo:aBlock |
1238 singleSelectionDo:aBlock |
1239 "checks whether one element is selected; in this case the block |
1239 "checks whether one element is selected; in this case the block |
1240 with argument the selected instance will be processed |
1240 with argument the selected instance will be processed |