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 testMJ -- To answer my own question, this is not a bug, but a different way of cloning from Self. In an Prototype based OO language there are two distinct ways of cloning a prototype [L1 ]. One way is cloning with delegation (like Self) the other way is concatinative prototyping (What Selfish, neo, eos seem to be using). With concatenative cloning, there is no relation after cloning between the prototype and the cloned object.
RLH -- Wasn't there more here before? MS: yes - MJ's code, I think. Now at SELF. MJ: I moved it indeed as it felt like I was hijacking this page, and the code fit better on the Self page.