pass args to parent

最新推荐文章于 2024-06-29 16:00:00 发布

weixin_30488085

最新推荐文章于 2024-06-29 16:00:00 发布

阅读量47

点赞数

原文链接：http://www.cnblogs.com/greencolor/archive/2011/08/05/2129020.html

版权

================================

class parent {
public variable parent_a "";
public variable parent_b "";

constructor { args } {

   puts stdout "parent this -$this- args -$args-"
   eval configure $args
   # check value of parent_a
   if { $parent_a == "" } {
       puts "--> bad parent_a"
   }
      }
}

class child {
      inherit parent

      public variable child_a

      # pass arguments in an init code fragment
      constructor { args } {
   puts stdout "child this -$this- args -$args-"
   eval configure $args
      }
}

child testobj -child_a "val_child_a" -parent_a "val_parent_a"

===============================

class parent {
public variable parent_a "";
public variable parent_b "";

constructor { args } {

   puts stdout "parent this -$this- args -$args-"
   eval configure $args
   # check value of parent_a
   if { $parent_a == "" } {
       puts "--> bad parent_a"
   }
      }
}

class child {
      inherit parent

      public variable child_a

      # pass arguments in an init code fragment
      constructor { args } {
          eval parent::constructor $args
      } {
   puts stdout "child this -$this- args -$args-"
   eval configure $args
      }
}

child testobj -child_a "val_child_a" -parent_a "val_parent_a"

==============================

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