Posted to tcl by aspect at Mon Nov 09 02:53:42 GMT 2015view pretty

oo::class create Light {
    method blink {} {
        puts blinky!
    }
}

oo::class create Hue {
    constructor {} {
        Light create Spot
        oo::objdefine [self] forward spot Spot
    }
}

Hue create ha
ha spot blink