See http://people.fishpool.fi/~setok/proj/Selfish/ for preliminary implementation.
MJ -- Really nice work, after playing with it a bit, it really shows the power and ease of prototype based OO. However a [super] call is missing this will make inheritance less usefull than ik can be. See also self.
MJ -- Is this a bug in slot lookup?
% set a [selfish::baseObject clone] ::selfish::0 % ::selfish::slot ::selfish::baseObject test {} {puts test} foo % $a test SelfishError exception thrown: Could not find slot test
RLH -- Wasn't there more here before?