--- a/Tools_NavigationState.st Mon Aug 13 16:23:56 2012 +0200
+++ b/Tools_NavigationState.st Mon Aug 13 16:24:11 2012 +0200
@@ -1429,7 +1429,7 @@
nm := numClasses printString , ' classes in '.
"/ cats := self selectedCategories value
- cats := (classes collect:[:each | each category]) asSet.
+ cats := classes collect:[:each | each category] as:Set.
(numCategories := cats size) == 1 ifTrue:[
nm := nm , cats first
] ifFalse:[
@@ -1664,7 +1664,7 @@
!NavigationState class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.42 2012-07-19 18:28:54 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.43 2012-08-13 14:24:11 stefan Exp $'
!
version_SVN