main.gst

Object subclass: Pessoa [
    | nome idade |

    Pessoa class >> new [
        ^super new initialize
    ]

    Pessoa >> initialize [
        nome := ''.
        idade := 0.
    ]

    "Getters"
    Pessoa >> nome [
        ^nome
    ]

    Pessoa >> idade [
        ^idade
    ]

    "Setters"
    Pessoa >> nome: umNome [
        nome := umNome.
    ]

    Pessoa >> idade: umaIdade [
        idade := umaIdade.
    ]
]

| jeff |
jeff := Pessoa new.
jeff nome: 'jeffotoni'.
jeff idade: 35.

Transcript show: jeff nome; cr.
Transcript show: jeff idade printString; cr.