equal
deleted
inserted
replaced
603 ^ super asSortedCollection |
603 ^ super asSortedCollection |
604 ! |
604 ! |
605 |
605 |
606 asSortedCollection:aSortBlock |
606 asSortedCollection:aSortBlock |
607 "return the receiver as a sorted collection, using aSortBlock. |
607 "return the receiver as a sorted collection, using aSortBlock. |
608 Return the receiver, if its a sortedCollection and the sortBlock |
608 Return the receiver, if it's a sortedCollection and the sortBlock |
609 is the same as the argument-sortBlock" |
609 is the same as the argument-sortBlock" |
610 |
610 |
611 "could be an instance of a subclass..." |
611 "could be an instance of a subclass..." |
612 self class == SortedCollection ifTrue:[ |
612 self class == SortedCollection ifTrue:[ |
613 "/ if the sortBlock is the same, return the receiver |
613 "/ if the sortBlock is the same, return the receiver |
614 aSortBlock == sortBlock ifTrue:[ |
614 aSortBlock == sortBlock ifTrue:[ |
615 ^ self |
615 ^ self |
616 ]. |
616 ]. |
617 ]. |
617 ]. |
618 ^ super asSortedCollection:aSortBlock |
618 ^ super asSortedCollection:aSortBlock |
|
619 |
|
620 "Modified (comment): / 13-02-2017 / 20:31:12 / cg" |
619 ! ! |
621 ! ! |
620 |
622 |
621 !SortedCollection methodsFor:'copying'! |
623 !SortedCollection methodsFor:'copying'! |
622 |
624 |
623 copyEmpty:size |
625 copyEmpty:size |