itk_option define

package require Itcl
package require Itk
package require Iwidgets
namespace import ::itcl::*
namespace import ::itk::*

class BottomClass {

  inherit itk::Widget

  itk_option define -wang  wang Wang  "" {
  }
  itk_option define -charlie charlie Charlie "" {
    puts "new value for -charlie: $itk_option(-charlie)"
    puts "new value for -wang:$itk_option(-wang)"  
  }
 
  constructor {args} {
    eval itk_initialize $args

    puts "Charlie is -->$itk_option(-charlie)<--"
    puts "Charlie is -->[$this cget -charlie]<--"
  }
 
}
 
 
class TopClass {
 
  inherit BottomClass
 
  constructor {args} {
    eval itk_initialize $args

  }
 
}
 
 
#BottomClass .bc
 
 
TopClass .tc3
 
 
#TopClass .tc2 -charlie "Second"

转载于:https://www.cnblogs.com/greencolor/archive/2011/05/05/2037843.html