[Openmcl-devel] How to send a message to the objc super-class ?

[Didier Verna]

       Hello,

I would like to implement the equivalent of this in Lisp:

- (void)drawWithFrame:(NSRect)cellFrame inView:(NSView*)controlView
{
  [super drawWithFrame:cellFrame inView:controlView];
}


However, this doesn't work:

(objc:defmethod (#/drawWithFrame:inView: :void)
    ((self outline-cell) frame view)
  (ccl::send-super self :draw-with-frame frame :in-view view))

I get the following message:

2008-02-03 18:10:39.925 iOwn[78010:10b] Lisp exception: Undefined
function OBJC:SEND-SUPER called with arguments (#<OUTLINE-CELL
<OutlineCell: 0x17707f20> (#x17707F20)> :DRAW-WITH-FRAME
#<NS-OUTLINE-VIEW <NSOutlineView: 0x9b8800> (#x9B8800)> :IN-VIEW #<A
Foreign Pointer #x4>) .


What am I doing wrong ?

Thanks !


-- 
Resistance is futile. You will be jazzimilated.

Didier Verna, didier at lrde.epita.fr, http://www.lrde.epita.fr/~didier

EPITA / LRDE, 14-16 rue Voltaire   Tel.+33 (0)1 44 08 01 85
94276 Le Kremlin-Bicêtre, France   Fax.+33 (0)1 53 14 59 22  didier at xemacs.org