inherit args

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

class bb {
 inherit aa
 constructor { args } {
  puts $itk_component(hull)
 }
}

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

cc .c abt acd ad

====

args only to class cc

转载于:https://www.cnblogs.com/greencolor/archive/2011/08/06/2129654.html