GNU Smalltalk：教程中示例的问题（对象创建）

Question

我尝试运行文档中的 GNU Smalltalk 示例，但遇到了问题。

Object subclass: Account [
  | balance |
  new [
    | r |
    r := super new.
    r init.
    ^r
  ]
  init [
    'initialize account' printNl.
    balance := 0
  ]
  get [
    ^balance
  ]
]

在 new 方法中，init 消息永远不会发送到 Account 方法。 这是我的输出：

st> Account new get
nil
st> Account new init get
'initialize account'
0

我从 GNU Smalltalk 文档。

有人可以帮我发现错误吗？我假设可能调用了 super 的 init 方法，但 Object 没有 init 方法。此外，super 应该创建当前类的实例吗？

感谢本杰明的回答

所以我的问题是我没有区分类函数（new）和对象函数

固定代码

Object subclass: Account [
  | balance |
  init [ balance := 0 ]
  get [ ^balance ]
]
Account class extend [
  new [ ^ (super new init) ]
]


st> Account new get
0

Answer 1

您对代码做了一些细微的更改，这意味着它不起作用。

在 Smalltalk 中，方法可以附加在两个位置之一：它们可以应用于类的实例，在这种情况下将是帐户对象（就像您从运行 Account 中返回的对象） new），或者它们可以是类方法，这意味着它们适用于实际的类本身，Account。

Account init 是一个实例方法。它为您创建的 Account 类的实例设置一些合理的默认值。你写得正确，而且它的行为也应该如此。

另一方面，您已将 Account new 从类方法更改为实例方法。当它是类方法时，它将用调用 init 的方法替换 Account 现有的 new 方法。当它是实例方法时，它实际上不会执行任何操作，因为您不会在实例上调用 new。

修复方法很简单：告诉 GNU Smalltalk new 方法是一个类方法。为此，您只需将该方法放在 Account class >>> 上即可。 new 而不是 Account 类中的loose。

Answer 2

第一个 new 应该是 Account class >>>新的。谢谢！

Answer 3

另一种可能性是：

Object subclass: Account [
    | balance |
    Account class [
        new [
          ...
        ]

        otherClassMethod [
          ...
        ]
    ]

    instanceMethod [
      ...
    ]
]