Untitled

Matrix := Object clone do(
        sizeX := 0
        sizeY := 0
        dim := method(x, y, sizeX = x; sizeY = y; self items := List clone; items setSize(x * y))
        set := method(x, y, value, check(x, y); items atPut(index(x, y), value))
        get := method(x, y, check(x, y); items at(index(x, y)))
        check := method(x, y, if(x >= sizeX or y >= sizeY, Exception raise("index error")))
        index := method(x, y, x * sizeX + y)
)

m := Matrix clone
m dim(3, 3)
m set(1, 2, "foo")
m get(1, 2) println
m get(2, 2) println
m get(3, 3) println