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