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

原文地址:https://www.cnblogs.com/greencolor/p/2129660.html