Posted to tcl by aspect at Mon Jun 01 15:55:06 GMT 2015view pretty
package require TclOO oo::class create small_class1 { method hello {} { puts hello1 next } } oo::class create small_class2 { method hello {} { puts hello2 next } } oo::class create large_class { mixin small_class1 small_class2 method hello {} { puts boo } } large_class create myLargeObject myLargeObject hello # hello1 # hello2 # boo