なにかいろいろと大事なポイントをハズしてしまっているような気もするのですが、ひるまずに。 図は、赤矢印が継承関係、黒矢印がクラス-インスタンス関係です。 Object subclass: #Person instanceVariableNames: 'name' Person class >> named: nameString ^self new name: nameString; yourself Person >> name: nameString name := nameString | s1 s2 p | s1 := 'Hello'. s2 := 'Bye-bye'. p := Person named: 'tonkichi'. " 1 " self assert: [ByteString allSuperclasses includes: Object]. self asser
![id:m-hiyama:20080109:1199863428 を Squeak Smalltalk で - Smalltalkのtは小文字です](https://cdn-ak-scissors.b.st-hatena.com/image/square/efab34ca11204341f881f9b2471d97f4689de3f7/height=288;version=1;width=512/http%3A%2F%2Fsquab.no-ip.com%2Fcollab%2Fuploads%2F61%2Fmetaclass.png)