Class mom
mom instproc greet {} { ;#注意greet后面的空格然后才是{} ,一定注意要有空格
$self instvar age_
puts "$age_ year old mom say:
How are you doing?"
}
Class kid -superclass mom
kid instproc greet {} {
$self instvar age_
puts "$age_ year old kid say:
what's up, dude?"
}
mom a ;#类的声明 就这样写 不要写成set a [new mom]
a set age_ 45 ;#赋值age_
kid b
b set age_ 15
a greet ;#调用greet函数
mom instproc greet {} { ;#注意greet后面的空格然后才是{} ,一定注意要有空格
$self instvar age_
puts "$age_ year old mom say:
How are you doing?"
}
Class kid -superclass mom
kid instproc greet {} {
$self instvar age_
puts "$age_ year old kid say:
what's up, dude?"
}
mom a ;#类的声明 就这样写 不要写成set a [new mom]
a set age_ 45 ;#赋值age_
kid b
b set age_ 15
a greet ;#调用greet函数
b greet
结果运行如下
45 year old mom say:
How are you doing?
15 year old kid say:
what's up, dude?