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

[Didier Verna]

mikel evins <mevins at mac.com> wrote:

> We're working on it; in the meantime, can you use ccl::define-objc-
> method instead of objc:defmethod?

  Actually, I've now tried call-next-method, and ccl::define-objc-method
as follows:

(objc:defmethod (#/drawWithFrame:inView: :void)
    ((self outline-cell) frame view)
  (call-next-method frame view))

(ccl::define-objc-method ((:void :draw-with-frame (:id frame)
                           :in-view (:id view)) outline-cell)
  (ccl::send-super :draw-with-frame frame :in-view view))

Both compile and execute without any complaint, but nothing is drawn,
which suggests to me that the actual super-method isn't executed... ?

-- 
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