configbody

class bb {
   inherit itk::Widget
   itk_option define -activeClientOnly activeClientOnly ActiveClientOnly 1
   constructor { args } {  
    eval itk_initialize $args
}
}

configbody bb::activeClientOnly {
    puts "abc"
    if  { $itk_option(-activeClientOnly) == 0 } {
 puts "zero"
    } else {
    }
 
}

class aa {
   inherit bb
   constructor { args } {

   
   } {
  
   eval itk_initialize $args
   }

}

aa .c -activeClientOnly 1
.c configure -activeClientOnly 0

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