#sortByNameAndInheritance fixed (takes value from UserPreferences)
authorvrany
Fri, 08 Jul 2011 11:32:29 +0200
changeset 10278 c6ca6a24b2ed
parent 10277 757b33acd93c
child 10279 a6c7441cb4ed
#sortByNameAndInheritance fixed (takes value from UserPreferences)
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Fri Jul 08 08:53:29 2011 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Jul 08 11:32:29 2011 +0200
@@ -15563,13 +15563,14 @@
     |holder|
 
     (holder := builder bindingAt:#sortByNameAndInheritance) isNil ifTrue:[
-        holder := (DefaultSortByNameAndInheritance ? false) asValue.
+        holder := (AspectAdaptor forAspect: #sortAndIndentClassesByInheritance)
+                    subject: UserPreferences current.
         builder aspectAt:#sortByNameAndInheritance put: holder.
-        holder onChangeEvaluate:[ DefaultSortByNameAndInheritance := holder value ].
     ].
     ^ holder
 
     "Created: / 04-07-2011 / 18:40:19 / cg"
+    "Modified: / 08-07-2011 / 10:01:56 / jv"
 !
 
 sortVariablesByName
@@ -49253,7 +49254,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1560 2011-07-07 09:45:27 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1561 2011-07-08 09:32:29 vrany Exp $'
 !
 
 version_SVN