eval constructor $args

class bb {
# inherit aa
 inherit itk::Widget
 constructor { args } {
  puts $itk_component(hull)
 }
}

class cc {
 inherit bb
 constructor { args } {
   eval bb::constructor $args
 } {
  puts $itk_component(hull)
 }
}

cc .c abt acd ad

posted @ 2011-08-06 20:49  greencolor  阅读(121)  评论(0编辑  收藏  举报