--- a/BinaryTree.st	Mon Apr 03 09:37:08 2006 +0200
+++ b/BinaryTree.st	Fri Apr 07 18:03:29 2006 +0200
@@ -128,6 +128,12 @@
     ^ self new
 ! !
 
+!BinaryTree methodsFor:'accessing'!
+
+sortBlock:something
+    sortBlock := something.
+! !
+
 !BinaryTree methodsFor:'adding & removing'!
 
 add:anObject
@@ -736,5 +742,5 @@
 !BinaryTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/BinaryTree.st,v 1.3 2004-09-10 11:16:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BinaryTree.st,v 1.4 2006-04-07 16:03:29 cg Exp $'
 ! !