Add `SortedSet >> sort:` jv
authorJan Vrany <jan.vrany@labware.com>
Thu, 09 Jul 2020 21:48:49 +0100
branchjv
changeset 5477 11c625b9ecca
parent 4937 b1402d9b1f39
child 5478 8381f2d07a8a
Add `SortedSet >> sort:`
SortedSet.st
--- a/SortedSet.st	Wed Apr 24 12:02:49 2019 +0100
+++ b/SortedSet.st	Thu Jul 09 21:48:49 2020 +0100
@@ -1,5 +1,6 @@
 "
  COPYRIGHT (c) 2012 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) 2012 by eXept Software AG
+ COPYRIGHT (c) 2020 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -209,6 +211,17 @@
     "Created: / 06-08-2012 / 12:35:07 / cg"
 ! !
 
+!SortedSet methodsFor:'sorting & reordering'!
+
+sort:aSortBlock
+    "Destructively sort my order.
+     WARNING: this is a destructive operation, which modifies the receiver"
+
+    order sortBlock:aSortBlock
+
+    "Created: / 09-07-2020 / 20:37:01 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
 !SortedSet class methodsFor:'documentation'!
 
 version
@@ -217,5 +230,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !