0

我正在努力变得更加熟悉海豚的海边。我已经成功完成了 todo 应用程序。现在我已经使用 todo 应用程序作为指南启动了我自己的应用程序。

我在会话开始时得到回溯（见下文）。我已经设置了类似于 todo 的应用程序。我确实注意到的一件事是，当我回到海边配置时，根类说“a JCBYCBi ...”而不是“JCBYCBi ...”，这似乎是说配置中的实例而不是类。

欢迎任何帮助，

约翰

装饰 ^ 装饰内容 <== 装饰 isNil

" addDecoration: 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 | 组件添加装饰：装饰类新；你自己 ]

4

0 回答 0