home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / rom / intuition / obtaingirport.c < prev    next >
C/C++ Source or Header  |  1997-01-27  |  1KB  |  55 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: obtaingirport.c,v 1.4 1997/01/27 00:36:41 ldp Exp $
  4.  
  5.     Desc: Intuition Function ObtainGIRPort()
  6.     Lang: english
  7. */
  8. #include "intuition_intern.h"
  9. #include <proto/graphics.h>
  10.  
  11. /*****************************************************************************
  12.  
  13.     NAME */
  14. #include <graphics/rastport.h>
  15. #include <intuition/cghooks.h>
  16. #include <proto/intuition.h>
  17.  
  18.     AROS_LH1(struct RastPort *, ObtainGIRPort,
  19.  
  20. /*  SYNOPSIS */
  21.     AROS_LHA(struct GadgetInfo *, gInfo, A0),
  22.  
  23. /*  LOCATION */
  24.     struct IntuitionBase *, IntuitionBase, 93, Intuition)
  25.  
  26. /*  FUNCTION
  27.  
  28.     INPUTS
  29.  
  30.     RESULT
  31.  
  32.     NOTES
  33.  
  34.     EXAMPLE
  35.  
  36.     BUGS
  37.  
  38.     SEE ALSO
  39.  
  40.     INTERNALS
  41.  
  42.     HISTORY
  43.     29-10-95    digulla automatically created from
  44.                 intuition_lib.fd and clib/intuition_protos.h
  45.  
  46. *****************************************************************************/
  47. {
  48.     AROS_LIBFUNC_INIT
  49.     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  50.  
  51.     return CloneRastPort (gInfo->gi_RastPort);
  52.  
  53.     AROS_LIBFUNC_EXIT
  54. } /* ObtainGIRPort */
  55.