class: AbstractSettingsApplication
authorClaus Gittinger <cg@exept.de>
Mon, 24 Jun 2013 16:44:22 +0200
changeset 12989 ee84615c182c
parent 12988 bb25f190a0cb
child 12990 d5c3c380dbcf
class: AbstractSettingsApplication changed: #hasChangedAspectIn:asComparedTo:
AbstractSettingsApplication.st
--- 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 $'
+! !
+