home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sys / mac / programm / 22095 < prev    next >
Encoding:
Text File  |  1993-01-24  |  2.0 KB  |  76 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!cs.utexas.edu!sun-barr!ames!data.nas.nasa.gov!taligent!kip-50.taligent.com!user
  3. From: keith@taligent.com (Keith Rollin)
  4. Subject: Re: Calling external code resources - how?
  5. Message-ID: <keith-240193175414@kip-50.taligent.com>
  6. Followup-To: comp.sys.mac.programmer
  7. Sender: usenet@taligent.com (More Bytes Than You Can Read)
  8. Organization: Taligent
  9. References: <01050014.odph61@blanc.north.de>
  10. Date: Mon, 25 Jan 1993 01:59:02 GMT
  11. Lines: 63
  12.  
  13. In article <01050014.odph61@blanc.north.de>, jochen@blanc.north.de (Jochen
  14. Meyer) wrote:
  15. > 
  16. > I am currently writing a program that I want to be extensible. The
  17. > most common way of handling extensibility seems to be using external
  18. > code resources, like in Canvas or BBEdit.
  19. > 
  20. > Where can I find information on how to do this? The Segment Manager
  21. > chapter of IM gives no clues on this. Anyone has got some sample code
  22. > on this?
  23.  
  24. If you have Technote #256, read it. If you don't, log onto ftp.apple.com,
  25. go to /dts/mac/tn/patforms.tools and download the file called
  26. stand-alone-code.hqx. It will tell you just what you want.
  27.  
  28. Just to whet your appetite, here's some code that I use to call CDEF's
  29. directly:
  30.  
  31.  
  32. typedef pascal long (*CDEFProc)(short varCode, ControlHandle theControl,
  33.                                     short msg, long param);
  34.  
  35. long CallCDEF(ControlHandle theControl, short msg, long param)
  36. {
  37.     CDEFProc*    defProcHandle;
  38.     GrafPtr        oldPort;
  39.     char        oldState;
  40.     long        result;
  41.             
  42.     defProcHandle = (CDEFProc*) StripAddress((**theControl).contrlDefProc);
  43.  
  44.     if (defProcHandle != nil) {
  45.  
  46.         if (*defProcHandle == nil)  {
  47.             LoadResource((Handle) defProcHandle);
  48.         }
  49.  
  50.         if (*defProcHandle != nil) {
  51.         
  52.             GetPort(&oldPort);
  53.             SetPort((**theControl).contrlOwner);
  54.             
  55.             oldState = HGetState((Handle) defProcHandle);
  56.             HLock((Handle) defProcHandle);
  57.             
  58.             result = (*defProcHandle)(GetCVariant(theControl), theControl, msg,
  59. param);
  60.                                         
  61.             HSetState((Handle) defProcHandle, oldState);
  62.             SetPort(oldPort);
  63.             
  64.             return result;
  65.         }
  66.     }
  67.  
  68.     SysError(dsCDEFNotFound);
  69. }
  70.  
  71.  
  72. -----
  73. Keith Rollin
  74. Phantom Programmer
  75. Taligent, Inc.
  76.