--- a/Tools_OrganizerCanvas.st Wed Sep 04 23:50:52 2013 +0200
+++ b/Tools_OrganizerCanvas.st Thu Sep 05 12:46:11 2013 +0200
@@ -4806,7 +4806,7 @@
categories := self selectedCategories value.
categories notEmptyOrNil ifTrue:[
includesAll := categories includes:BrowserList nameListEntryForALL.
- classes := Smalltalk allClassesForWhich:[:aClass |
+ classes := environment allClassesForWhich:[:aClass |
(includesAll or:[categories includes:aClass category]).
].
].
@@ -4943,7 +4943,7 @@
categories := self selectedCategories value.
categories notEmptyOrNil ifTrue:[
categories do:[:eachCategory |
- classes addAll:(Smalltalk allClassesInCategory:eachCategory)
+ classes addAll:(environment allClassesInCategory:eachCategory)
].
].
].
@@ -5044,10 +5044,10 @@
!OrganizerCanvas class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.54 2013-04-26 09:48:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.55 2013-09-05 10:46:11 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.54 2013-04-26 09:48:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.55 2013-09-05 10:46:11 vrany Exp $'
! !