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