Posted to tcl by aspect at Mon Nov 09 03:04:46 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
    }
    method lights {} {
        Spot blink
        my spot blink
    }
}

Hue create ha
ha spot blink
ha lights