OTCL的多继承

 Class Thing
 Class Animal
 Class Other -superclass {Animal Thing}

 Thing instproc init {args} {
         puts "here is init from:thing"
         eval $self next $args
 }
 Thing instproc move {} {
         puts "here is move from:thing"
 }

 Animal instproc init {args} {
         puts "here is init from:animal"
         eval $self next $args
 }
 Animal instproc move {} {
         puts "here is move from:animal"
         eval $self next
 }

 Other instproc init {args} {
         puts "here is init from:other"
         eval $self next $args
 }
 Other instproc move {} {
         puts "here is move from:other"
         eval $self next
 }
 Other other
 other move

输出：

here is init from:other
here is init from:animal
here is init from:thing
here is move from:other
here is move from:animal
here is move from:thing

上面是简单地继承两个父类，在调用next的时候，顺序是按继承时候的从左到右的顺序，依次调用。

如果是这样：

Class theOne
Class Thing -superclass theOne
Class Animal
Class Other -superclass {Thing Animal}

theOne instproc init {args} {
        puts "here is init from:theOne"
        eval $self next $args
}
theOne instproc move {} {
        puts "here is move from:theOne"
        eval $self next
}

Thing instproc init {args} {
        puts "here is init from:thing"
        eval $self next $args
}
Thing instproc move {} {
        puts "here is move from:thing"
        eval $self next
}

Animal instproc init {args} {
        puts "here is init from:animal"
        eval $self next $args
}
Animal instproc move {} {
        puts "here is move from:animal"
        eval $self next
}

Other instproc init {args} {
        puts "here is init from:other"
        eval $self next $args
}
Other instproc move {} {
        puts "here is move from:other"
        eval $self next
}
Other other
other move

输出：

here is init from:other
here is init from:thing
here is init from:theOne
here is init from:animal
here is move from:other
here is move from:thing
here is move from:theOne
here is move from:animal