On Mon, Mar 31, 2008 at 03:33:12PM +0200, Jon Kleiser wrote:
> (setq X (new '(+A +B)))
>
> .. is it possible later to include the class +C among the classes +A
> and +B for this object X? If yes, how?
If you want it as an additional prefix class, you can simply do
(push X '+C)
This will result in (+C +A +B) as the classes of X.
To put it in the end, you might do it destructively
(set X (conc (val X) '(+C)))
resulting in (+A +B +C)
> And if I wanted this object X to have a new unique method m>, how
> could that be arranged?
(push X
'(m> ()
(foo) (bar) ) )
or (it depends on the taste whether this is more elegant)
(let *Class X
(dm m> () (foo)) )
Cheers,
Alex
--
Software Lab. Alexander Burger
Bahnhofstr. 24a, D-86462 Langweid
[EMAIL PROTECTED], www.software-lab.de, +49 8230 5060
