home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / src / tools / boopsi / boopsi.e
Text File  |  1992-09-02  |  689b  |  22 lines
  1. OPT MODULE
  2.  
  3. MODULE 'intuition/classes', 'utility/hooks', 'intuition/classusr'
  4.  
  5. /* example call: domethod(myobj,[METHODID,...]) */
  6.  
  7. EXPORT PROC domethod(obj:PTR TO object,msg:PTR TO msg)
  8.   DEF h:PTR TO hook,o:PTR TO object,dispatcher
  9.   IF obj
  10.     o:=obj-SIZEOF object     /* instance data is to negative offset */
  11.     h:=o.class
  12.     dispatcher:=h.entry      /* get dispatcher from hook in iclass */
  13.     MOVE.L h,A0
  14.     MOVE.L msg,A1
  15.     MOVE.L obj,A2            /* probably should use CallHookPkt, but the */
  16.     MOVE.L dispatcher,A3     /*   original code (DoMethodA()) doesn't. */
  17.     JSR (A3)                 /* call classDispatcher() */
  18.     MOVE.L D0,o
  19.     RETURN o
  20.   ENDIF
  21. ENDPROC NIL
  22.