Объектно-ориентированная модель Smalltalk — Пример класса

Код IT Загрузка примера кода…

name
    ^ name

name: aString
    name := aString.
    ^ self

health
    ^ health

health: anInteger
    health := anInteger.
    ^ self

intel: anInteger
    intel := anInteger.
    ^ self

agility: anInteger
    agility := anInteger.
    ^ self

strength: anInteger
    strength := anInteger.
    ^ self

name
    ^ name

name: aString
    name := aString.
    ^ self

health
    ^ health

health: anInteger
    health := anInteger.
    ^ self

intel: anInteger
    intel := anInteger.
    ^ self

agility: anInteger
    agility := anInteger.
    ^ self

strength: anInteger
    strength := anInteger.
    ^ self