--- a/AbstractSettingsApplication.st Mon Jun 24 16:23:09 2013 +0200
+++ b/AbstractSettingsApplication.st Mon Jun 24 16:44:22 2013 +0200
@@ -556,9 +556,11 @@
aListOfAspects do:[:eachAspectSymbol |
(self perform:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[
-"/Transcript showCR:'different: ',eachAspectSymbol.
-"/Transcript showCR:'here: ',(self perform:eachAspectSymbol) value.
-"/Transcript showCR:'there: ',(anAspectProvider perform:eachAspectSymbol) value.
+ false ifTrue:[
+ Transcript showCR:'different: ',eachAspectSymbol.
+ Transcript showCR:'here: ',((self perform:eachAspectSymbol) value) printString.
+ Transcript showCR:'there: ',((anAspectProvider perform:eachAspectSymbol) value) printString.
+ ].
^ true
].
].
@@ -18147,10 +18149,10 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.471 2013-06-23 22:25:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.472 2013-06-24 14:44:22 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.471 2013-06-23 22:25:06 cg Exp $'
-! !
-
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.472 2013-06-24 14:44:22 cg Exp $'
+! !
+