我在会话开始时得到了回溯(见下文)。我已经设置了类似于待办事项的应用程序。我注意到的一件事是,当我回到海边配置时,根类说" JCBYCBi ......"而不是" JCBYCBi ......",似乎说实体是在配置而不是CLASS。
欢迎任何帮助,
约翰
装饰 ^装饰内容< ==装饰isNil
addDecoration:aDecoration "将aDecoration添加到接收器装饰链。回答添加的装饰。"
| previous current |
previous := nil.
current := self decoration.
[ current ~~ self and: [ self decoration: current shouldWrap: aDecoration ] ] whileTrue: [
previous := current.
current := current next ].
aDecoration setNext: current.
previous isNil
ifTrue: [ self decoration: aDecoration ]
ifFalse: [ previous setNext: aDecoration ].
^ aDecoration
createRoot ^ self rootDecorationClasses 注入:self rootClass new into:[:component:decorationClass | 零件 addDecoration:decorationClass new; 你自己]