% Class Animal
Animal
% Animal animal_1
animal_1
% animal info class
Animal
% animal_1 info class
Animal
% Animal info instances
animal_1
% Animal instproc run {speed} {
$self instvar speed_ #定义class Animal的成员变量speed_
set speed_ $speed
puts "Animal run with speed $speed_"
}
% animal run 2
Animal run with speed 2
% animal_1 set speed_
2
% animal run 3
Animal run with speed 3
% animal_1 set speed_
3
%