OTCL的多继承
摘要：
1 Class Thing 2 Class Animal 3 Class Other -superclass {Animal Thing} 4 5 Thing instproc init {args} { 6 puts "here is init from:thing" 7 eval $self next $args 8 } 9 Thing instproc move {} {10 puts "here is move from:thing"11 }12 13 Animal instproc init {args} {14 p... 阅读全文
posted @ 2013-10-30 22:13 Lunac 阅读(210) 评论(0) 推荐(0)
浙公网安备 33010602011771号