|
I am afread of annoying you.. but, i hava some
question.
I am beginner of Otcl , ns.
I don't know the meaning of "eval",
"next" in Otcl.
here is sample code..
---------------------------------------------
% SpreadableBagel instproc init {args}
{
$self
set toppings {}
eval
$self next $args
}
% SpreadableBagel instproc spread {args}
{
$self instvar toppings
set toppings [concat $toppings $args]
return
$toppings
}
sorry if i annoy you....
|