equal
deleted
inserted
replaced
876 " |
876 " |
877 |
877 |
878 aListOfAspects do:[:eachAspectSymbol | |
878 aListOfAspects do:[:eachAspectSymbol | |
879 (self myAspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[ |
879 (self myAspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[ |
880 "/ to debug missing apply-enablements |
880 "/ to debug missing apply-enablements |
|
881 "/ Smalltalk enableBreakPoint:#cg. |
|
882 "/ Smalltalk disableBreakPoint:#cg. |
|
883 |
881 self debuggingCodeFor:#cg is:[ |
884 self debuggingCodeFor:#cg is:[ |
882 Transcript showCR:'settings aspect is different: ',eachAspectSymbol. |
885 Transcript showCR:'settings aspect is different: ',eachAspectSymbol. |
883 Transcript showCR:' here: ',((self myAspectFor:eachAspectSymbol) value) printString. |
886 Transcript showCR:' here: ',((self myAspectFor:eachAspectSymbol) value) printString. |
884 Transcript showCR:' there: ',((anAspectProvider perform:eachAspectSymbol) value) printString. |
887 Transcript showCR:' there: ',((anAspectProvider perform:eachAspectSymbol) value) printString. |
885 ]. |
888 ]. |
887 ]. |
890 ]. |
888 ]. |
891 ]. |
889 ^ false |
892 ^ false |
890 |
893 |
891 "Modified: / 23-03-2011 / 15:45:11 / cg" |
894 "Modified: / 23-03-2011 / 15:45:11 / cg" |
892 "Modified (format): / 13-06-2018 / 17:32:32 / Claus Gittinger" |
895 "Modified (format): / 21-12-2018 / 14:57:12 / Claus Gittinger" |
893 ! |
896 ! |
894 |
897 |
895 myAspectFor:aspectSymbol |
898 myAspectFor:aspectSymbol |
896 "/ used to be (self perform:aspectSymbol), |
899 "/ used to be (self perform:aspectSymbol), |
897 "/ but I am tired of having to add all those aspect getters. |
900 "/ but I am tired of having to add all those aspect getters. |