Hi, this is an "interface" class used as callback in tcl-oo
→ In the class are TWO other tcl-oo objects embedded (valBFL and colBFL)
→ the both objects are created with "create" *in* the namespace of the
LibSq3LiteRpcServerExecIF→instance because the name was part of the
"variable" declaration.
→ TRICK: if the instance (myInst) is deleted (destroy) than automatic the both
MkBufferListC→objects are delete too because the valBFL are created *in*
the namespace of the LibSq3LiteRpcServerExecIF→instance.
→ TRICK: no additional cleanup (destructor) is required.

oo::class create LibSq3LiteRpcServerExecIF {
variable rpc bus tok valBFL colBFL

constructor {myRpc myBus myTok} {
set rpc $myRpc
set bus $myBus
set tok $myTok
MkBufferListC create valBFL
MkBufferListC create colBFL
}

method callback {sq3lite valL colL} {
valBFL Reset
valBFL AppendLA {*}$valL
colBFL Reset
colBFL AppendLA {*}$colL
if {$bus eq "MK_NULL"} {
$rpc Send "W" "$tok:LL" valBFL colBFL
} else {
$bus Reset
$bus WriteBFL valBFL
$bus WriteBFL colBFL
}
}
}

LibSq3LiteRpcServerExecIF create myInst
myInst destroy ...

mfg ao