otcl 成员变量和成员函数的定义

% 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
%