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