Tcl Source Code

In the documentation for next, in the first example oo::define is called to configure the obj object: this should be oo::objdefine. Similarly in the second example, the demo object is configured using oo::define instead of oo::objdefine.

Corrected code:

oo::objdefine obj method example args {
    puts "per-object method, args = $args"
    next x {*}$args y
    next
}

and

oo::objdefine demo {
    mixin cache
    method compute {a b c} {
        after 3000 ;# Simulate deep thought
        return [expr {$a + $b * $c}]
    }
    method compute2 {a b c} {
        after 3000 ;# Simulate deep thought
        return [expr {$a * $b + $c}]
    }
}

Silly mistake on my part. Might date from when there was no separate oo::objdefine command and oo::define would just magically "do the right thing".