home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / MacPerl 4.1.3 / MacPerl / MPAEUtils.c < prev    next >
Encoding:
Text File  |  1994-02-27  |  4.6 KB  |  30 lines  |  [TEXT/MPS ]
  1. /*********************************************************************
  2. Project    :    MacPerl            -    Real Perl Application
  3. File        :    MPAEUtils.c        -
  4. Author    :    Matthias Neeracher
  5.  
  6. A lot of this code is borrowed from 7Edit written by
  7. Apple Developer Support UK
  8.  
  9. Language    :    MPW C
  10.  
  11. $Log: MPAEUtils.c,v $
  12. Revision 1.1  1994/02/27  22:59:32  neeri
  13. Initial revision
  14.  
  15. Revision 0.1  1993/05/29  00:00:00  neeri
  16. Compiles correctly
  17.  
  18. *********************************************************************/
  19.  
  20. #pragma segment Main
  21.  
  22. #includec.dataHandle), theHTE);
  23.     HUnlock((Handle)rawTextDesc.dataHandle);
  24.  
  25.     if (rawTextDesc.dataHandle)
  26.         AEDisposeDesc(&rawTextDesc);
  27.  
  28.     return noErr;
  29. }
  30.