Add `OrderedSet >> sort:` jv
authorJan Vrany <jan.vrany@labware.com>
Thu, 09 Jul 2020 21:49:04 +0100
branchjv
changeset 25397 c63508b2bbe0
parent 25396 d6cc2bdc7773
child 25398 b0d020199bd0
Add `OrderedSet >> sort:`
OrderedSet.st
--- a/OrderedSet.st	Thu Jul 09 21:12:19 2020 +0100
+++ b/OrderedSet.st	Thu Jul 09 21:49:04 2020 +0100
@@ -1,5 +1,6 @@
 "
  COPYRIGHT (c) 2001 by eXept Software AG
+ COPYRIGHT (c) 2020 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -25,6 +26,7 @@
 copyright
 "
  COPYRIGHT (c) 2001 by eXept Software AG
+ COPYRIGHT (c) 2020 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -424,6 +426,15 @@
     ^ order indexOf:anObject.
 ! !
 
+!OrderedSet methodsFor:'sorting & reordering'!
+
+sort:aSortBlock
+    "Destructively sort my order.
+     WARNING: this is a destructive operation, which modifies the receiver"
+
+    order sort:aSortBlock
+! !
+
 !OrderedSet class methodsFor:'documentation'!
 
 version
@@ -432,5 +443,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !